cad中圆或弧线如何转多段线？

renjie3309 · 发表于 2009-4-24 16:03

cad中圆或弧线如何转多段线？

legend818 · 发表于 2009-4-24 16:09

好象不可以吧 !目前我还没发现这功能呢

manbuzhe · 发表于 2009-4-24 16:17

未剪切过的圆不可转，剪切过的圆及圆弧（椭圆弧除外）都可用PEDIT来转。

神话之颠 · 发表于 2009-4-24 16:30

同意楼上在转换的过程中会问你是否同意转换为多线段

xj49935989 · 发表于 2009-4-24 16:53

修改菜单~对象~多段线,选中你要改变的对象,问是否转多段线,选是,然后执行合并,就可以将不是多段线的内容作成多段线了

hxt610 · 发表于 2009-4-24 20:17

如果就是想做多段线，椭圆弧和样条曲线是变不成多段线的；如果想做一个封闭空间作三维立体图，可以把它们做成面域。

yucheng198 · 发表于 2009-4-24 20:37

圆可以先剪切到一部分后用PE，再输入C闭合成圆
椭圆或椭圆弧的话，在画之前先修改下参数，输入pellipse值设置为1，则画的椭圆或椭圆弧为多线段了

仲文玉 · 发表于 2011-4-28 16:45

来自明经

(defun c:tt(/ modelspace)
U' e, T4 R3 E( \
& } r- E" j. \% w% O8 ?5 i! `$ `
(setq oldosmode (getvar "osmode")% V+ ~* ^# Z) \2 E# u6 w2 U$ H. M
oldcmdecho (getvar "cmdecho"). r* \7 b! {% Q9 A: k, m" E
)
9 f6 X" h( E; K( ~
(setq modelspace (vla-get-ModelSpace (vla-get-activedocument(vlax-get-acad-object))))
( ]: ~: L' L2 H; A* a
(setvar "osmode" 0)
9 d) H* Z/ h, o- _% ^
(setvar "cmdecho" 0), M* K% r5 M. D* B) m. F
(setq ss (ssget '((0 . "circle"))))% Y, o/ l* ~, w7 r! N
(setq k 0)) o9 e! P% C( ?! N& F" T+ j
(if ss
: | e" ?9 x% f* ?$ _- D" ?
(repeat (sslength ss)
- Q2 N( Q. m. s- u% X
(setq en (ssname ss k))
(setq cp (cdr (assoc 10 (setq enl (entget en))))
, j4 [/ |& g2 k' g" R
r (cdr (assoc 40 enl))
; c5 _' y" V) H$ Z! h/ k' c, ~
)
(setq p1 (polar cp pi r)
4 _: D" ]3 p) w
p2 (polar cp 0 r)5 L' f4 [+ L) \9 O; ^% P) N* W
)
" r5 j* G' t, Z O
(setq pts (list p1 p2)
, X, [6 |' H) r9 T0 M3 a2 [
pts (mapcar '(lambda (x) (list (car x) (cadr x))) pts)
0 Y( _) [' ^5 p7 W( ]% J) S
n (* 2 (length pts))& C% Y1 I: l& f" h. s; ^- c8 L$ Z
) r$ }. a- m+ v3 v; R- j
(setq arypts (vlax-make-variant+ b; y& x( S- s% L( B
(vlax-safearray-fill# w6 i! C) r+ |: [0 ^! z6 l$ ?
(vlax-make-safearray vlax-vbdouble (cons 1 n))
: W' T! J: z! n) m5 W
(apply 'append pts)
6 u) V9 _' |; q: S# q
) ;_ vlax-safearray-fill, k; t* i b( K% O: v0 t; g
) ;_ vlax-make-variant
( c1 P$ f5 k2 }3 O
) ;_ setq
$ _$ C) M( d+ `4 @
(setq obj (vla-AddLightWeightPolyline modelspace arypts)). F/ G! `2 S: b7 u" O! W
(vla-put-Closed obj :vlax-true)8 g6 o: ]! T2 {8 E% ? p
(vla-SetBulge obj 0 1) S* F) S# |$ G H. |
(vla-SetBulge obj 1 1)) H4 E% }* i7 }" I7 j
(setq k (1+ k))
' B# Y) o5 m" w: b( v
(command "_matchprop" en (entlast) "")
X& f# ~3 h1 l
(entdel en)" ?- s8 e& F6 ?( t1 a7 ]/ b
), C/ R! D. |- R' I) h' \
)( `, s& Z$ z$ s' I( O, j2 Y! u# P
(setvar "osmode" oldosmode). d4 Y' K1 }2 l& m$ J. F* [
(setvar "cmdecho" oldcmdecho)
4 N. \7 h0 H6 R1 v9 O
)

复制代码

仲文玉 · 发表于 2011-4-28 16:52

czy345 · 发表于 2011-4-28 19:38

哦，学到了，谢谢

		自动登录	找回密码
密码			立即注册

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

本帖子中包含更多资源