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)9 t! X0 @. M6 y9 R0 I
1 G; g" a2 [1 l! B6 i
(setq oldosmode (getvar "osmode")1 v% F; X+ ~8 _+ l `3 ^
oldcmdecho (getvar "cmdecho")# i; { N) w* A& E
)
6 c1 g h$ N" \# m8 q
(setq modelspace (vla-get-ModelSpace (vla-get-activedocument(vlax-get-acad-object))))
) \* @; F8 q8 h7 n& _. D& s M
(setvar "osmode" 0)
' y$ m3 Y# C; q; M7 h n
(setvar "cmdecho" 0)
+ c" u9 }% {( X4 O- B( n" {( i
(setq ss (ssget '((0 . "circle")))) t, g I& L7 M' q
(setq k 0)& p# k2 O! Q* Y- O$ O. M- ?! Y5 h6 @3 X' P" n
(if ss
v/ @% E! {* u
(repeat (sslength ss)1 w& n' @0 [( H- ]
(setq en (ssname ss k))- `; [. e! r; q' x3 m7 Y
(setq cp (cdr (assoc 10 (setq enl (entget en)))); e- S( q+ {* l0 q2 b
r (cdr (assoc 40 enl))4 A9 X( h ^: G3 f
)
4 J& n; {- {6 B
(setq p1 (polar cp pi r)
) X7 m8 }* y7 E$ s/ x% |$ ]3 _$ ?
p2 (polar cp 0 r)
3 ^, S9 E p0 Q5 L
)# I6 ?. M! O$ \5 y# ^- P$ E7 M: l( p
(setq pts (list p1 p2)* H( ?& @8 ]8 I- b7 D+ C
pts (mapcar '(lambda (x) (list (car x) (cadr x))) pts)) Q" R8 b7 z/ c: j& C! T
n (* 2 (length pts))
* j# ^, V5 z( M* r! T% m U- h/ Y
)
( ]7 } X2 _1 c
(setq arypts (vlax-make-variant
) X1 F, M3 [, E" h; I0 U/ k
(vlax-safearray-fill
7 u2 k7 p" p9 a$ y
(vlax-make-safearray vlax-vbdouble (cons 1 n))
(apply 'append pts)
2 K7 {" S5 Z) U. u
) ;_ vlax-safearray-fill. v: e$ y' w6 C9 e+ i
) ;_ vlax-make-variant1 `! o, Q. ]8 I6 r4 M5 X2 k
) ;_ setq3 B$ j% g$ l+ l. O8 y" o
(setq obj (vla-AddLightWeightPolyline modelspace arypts))6 B$ P3 a0 C2 }6 C: a4 K
(vla-put-Closed obj :vlax-true)
6 z: o% a6 a+ g" y2 \& ? }
(vla-SetBulge obj 0 1); J; z$ {/ v; N: k8 d% J
(vla-SetBulge obj 1 1)
% `3 s/ _% X" k3 x* w t" h% @
(setq k (1+ k))
{5 H7 w! }/ e! D
(command "_matchprop" en (entlast) "")# a. e2 `% K6 j0 J; l* f6 T
(entdel en)! t7 V) S% ?* p! q+ D; G
)0 K; v7 f7 d/ ~% D
)
4 L$ {9 k/ [7 i: c
(setvar "osmode" oldosmode)
8 P+ F" B3 I/ A/ O% ~& j* L0 y# X
(setvar "cmdecho" oldcmdecho)% Z, n+ l/ f! ^7 l6 t! o
)

复制代码

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

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

哦，学到了，谢谢

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

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

本帖子中包含更多资源