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)
- c( {2 ~" j- B. I2 v- x& F3 T2 _) c
(setq oldosmode (getvar "osmode")+ p) {3 P; t, k' p* B0 a$ W, }* v
oldcmdecho (getvar "cmdecho")% L: S5 W1 H% B( T' [
)+ M, O5 h0 j. r: a' w
(setq modelspace (vla-get-ModelSpace (vla-get-activedocument(vlax-get-acad-object))))* t* M4 d9 P" H1 \7 b) w& l
(setvar "osmode" 0)# [" r! V; m1 @* \! r# B/ w, p; x
(setvar "cmdecho" 0)
8 `9 L# f; q1 d* N
(setq ss (ssget '((0 . "circle"))))
) B! c! j% s' L% ?# i# m
(setq k 0)! L! }: y, z2 O4 l- w! a
(if ss
; [+ g' [3 Q* {' { O
(repeat (sslength ss)
r& H1 K Q: T% u- b
(setq en (ssname ss k))
+ X1 Z3 d2 o/ J" k8 W/ w
(setq cp (cdr (assoc 10 (setq enl (entget en))))
. ?; Z) M; Q4 M4 r3 M
r (cdr (assoc 40 enl))
) o0 g% ?8 e: `+ u3 K: H
)/ ~# M( Z+ X$ Y. T' S
(setq p1 (polar cp pi r)3 k+ J. o4 i+ W2 o9 N) S8 W
p2 (polar cp 0 r)$ F5 G# Q( X' k
)2 {' d e$ P5 z/ U1 K/ X" C9 z% x
(setq pts (list p1 p2)" z* W% b6 E0 `4 ]1 R# r3 y8 i% P+ K! T
pts (mapcar '(lambda (x) (list (car x) (cadr x))) pts)* R+ a) P6 a$ P
n (* 2 (length pts))- c3 U1 }+ S! f1 P2 @0 u$ y
)8 O. I- a% b' ]. A# B
(setq arypts (vlax-make-variant
8 @+ M$ p7 E0 Q- R; \" l3 K! ~
(vlax-safearray-fill
0 t7 q9 e" c+ ]1 d
(vlax-make-safearray vlax-vbdouble (cons 1 n))8 h/ ]: P1 R9 q% C7 I' y/ z+ n
(apply 'append pts)
u5 n+ m" {1 C8 ^! y( `
) ;_ vlax-safearray-fill
2 M: V0 n# g7 g& }
) ;_ vlax-make-variant
6 w8 V! l; W* z) ~) C) e
) ;_ setq
- Z1 t! c3 S5 W8 Z! k
(setq obj (vla-AddLightWeightPolyline modelspace arypts))
4 e) G1 J" m4 J) a( ~; ~
(vla-put-Closed obj :vlax-true)5 _6 y' q* t* U2 L' _" G) g/ C
(vla-SetBulge obj 0 1)
* o6 W5 ~& P: B) {
(vla-SetBulge obj 1 1)
$ P% K% M/ z1 A, R: }
(setq k (1+ k))# r& H7 v3 ?& T: J' D1 m
(command "_matchprop" en (entlast) "")# ?5 f* e9 l' ~# P
(entdel en)
7 C6 P8 l( \7 n! ]( c. x) ~, n
)" X6 Y9 d. Y; h* C, R
)% R* u& h5 ~7 E+ @0 Y6 r
(setvar "osmode" oldosmode)+ N O+ ~3 p: s# n* m. u
(setvar "cmdecho" oldcmdecho)
# ~$ s8 [3 I5 n) J/ u) o, {$ _8 ]
)

复制代码

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

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

哦，学到了，谢谢

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

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

本帖子中包含更多资源