CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 23159|回复: 9

[求助] cad中圆或弧线如何转多段线?

[复制链接]
发表于 2009-4-24 16:03 | 显示全部楼层 |阅读模式
cad中圆或弧线如何转多段线?
发表于 2009-4-24 16:09 | 显示全部楼层
好象不可以吧 !目前我还没发现这功能呢
发表于 2009-4-24 16:17 | 显示全部楼层
未剪切过的圆不可转,剪切过的圆及圆弧(椭圆弧除外)都可用PEDIT来转。
发表于 2009-4-24 16:30 | 显示全部楼层
同意楼上在转换的过程中会问你是否同意转换为多线段
发表于 2009-4-24 16:53 | 显示全部楼层
修改菜单~对象~多段线,选中你要改变的对象,问是否转多段线,选是,然后执行合并,就可以将不是多段线的内容作成多段线了
发表于 2009-4-24 20:17 | 显示全部楼层
如果就是想做多段线,椭圆弧和样条曲线是变不成多段线的;如果想做一个封闭空间作三维立体图,可以把它们做成面域。
发表于 2009-4-24 20:37 | 显示全部楼层
圆可以先剪切到一部分后用PE,再输入C闭合成圆4 x& r  _! P' o8 I. P& W
椭圆或椭圆弧的话,在画之前先修改下参数,输入pellipse值设置为1,则画的椭圆或椭圆弧为多线段了
发表于 2011-4-28 16:45 | 显示全部楼层
来自明经
  1. (defun c:tt(/ modelspace)
    , ^+ q% E5 m# S/ j
  2.   ' R: c3 C8 |5 q. {' i1 {$ ^: S6 S
  3.   (setq oldosmode (getvar "osmode")
    9 J9 n* P5 K# J/ y7 u; x
  4. oldcmdecho (getvar "cmdecho")0 o- D+ p9 D0 S! C
  5. )
    # K! o+ {- C5 h, _% E7 \/ O
  6.   (setq modelspace (vla-get-ModelSpace (vla-get-activedocument(vlax-get-acad-object))))& Q; ]% p4 L0 p$ v3 b- F' y, I7 F
  7.   (setvar "osmode" 0)
    + W2 i0 l5 Q' [0 S" b; `7 \
  8.   (setvar "cmdecho" 0)
    4 I6 g: h9 O% \6 M* L5 l9 {2 m% B
  9.   (setq ss (ssget '((0 . "circle"))))
    5 N/ M0 {2 l- `' k4 T  Y1 x
  10.   (setq k 0), ~6 q: {' ?. S3 f# |5 Y; u- x
  11.   (if ss& D) A. L) ]; @+ _' p0 g0 u# [
  12.     (repeat (sslength ss)7 ^7 q: Z: z" |1 ]! W& A
  13.       (setq en (ssname ss k))
    ' ?0 B+ a/ k# _: \' [
  14.       (setq cp (cdr (assoc 10 (setq enl (entget en))))8 O; K" S$ L, M; `+ I0 d  [! d6 s
  15.      r (cdr (assoc 40 enl)), E4 C. B- l- M, ]: w& v
  16.      )
    4 s- J& L, }2 }8 b& Q$ f; V
  17.       (setq p1 (polar cp pi r)# u; z# V( J* G
  18.      p2 (polar cp 0 r)
    : s9 x# }( }# d7 p
  19.      )
    $ I1 t5 D% }0 V, `* m
  20.       (setq pts (list p1 p2)
    7 d; X3 }- n* Y# g
  21.      pts (mapcar '(lambda (x) (list (car x) (cadr x))) pts)
    . A' c: X7 J, U7 \5 U5 E7 q
  22.       n (* 2 (length pts))" Y" V& a# D0 a3 P4 f' m4 _
  23.      )
    * F' F! v# z$ Q- T- ~
  24.       (setq arypts (vlax-make-variant
    ) J0 d' [8 ]2 S1 c2 z
  25.        (vlax-safearray-fill% L, Z2 ]+ ]2 y- A- B1 q
  26.          (vlax-make-safearray vlax-vbdouble (cons 1 n))$ z$ t. B2 b+ }( G1 i: \* H' w2 |/ x
  27.          (apply 'append pts)
    ) }+ h! }8 I8 N0 o
  28.        ) ;_ vlax-safearray-fill
    0 V# e+ L" K9 z8 z0 x" h) W( N
  29.      ) ;_ vlax-make-variant9 H. |+ ?9 K9 s: W8 t) J
  30.       ) ;_ setq$ I4 H2 Y8 W& c8 D* J
  31.       (setq obj (vla-AddLightWeightPolyline modelspace arypts))+ G8 r8 m& @  l8 I. w6 J
  32.       (vla-put-Closed obj :vlax-true)
    ; q& q# r( o) ^
  33.       (vla-SetBulge obj 0 1)
    $ Z5 V( ~+ ]5 s1 l* s
  34.       (vla-SetBulge obj 1 1)
    6 w# ~- ?- @( @' g9 t. E% n
  35.       (setq k (1+ k))1 F6 M2 K' {0 k3 b9 l4 Z, ^5 E
  36.       (command "_matchprop" en (entlast) "")" }$ n- [1 i) g( u
  37.       (entdel en)
    ! K1 _' [6 S- j8 E6 H# I
  38.       )6 f# ]4 E  X; F! n" k
  39.     )$ U' a  ]" A4 q( m1 r7 I
  40.     (setvar "osmode" oldosmode)
    : j. C3 |: q! ]) z
  41.   (setvar "cmdecho" oldcmdecho)' U; N0 Z2 o( a: j) L% f5 c) e1 h
  42.   )
复制代码
发表于 2011-4-28 16:52 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2011-4-28 19:38 | 显示全部楼层
哦,学到了,谢谢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-7-21 10:00

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表