转换为多段线代码（共享）

mitenickevin

我们很多时候相把线段、弧等组合为一个整体，CAD虽然有提供但不是很方便，我自己改良了一下：
: P. C  @- z+ e1 I
5 `; ?2 I) \6 t" U& m+ f+ m8 p说明：

# l" I9 v; ~- p+ M9 ]2 B) e将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP
  k4 a  [7 R  r& o0 `# `
用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。

1. (defun C:MJN(/ obj)
   7 t2 @; e5 ]1 m7 }6 X7 l
2. (setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))
   5 E( k2 n. P( r4 O; R7 a
3. (command "pedit" "M" "P" "" "Y" "J" "" "")
   . u; l1 w7 S; \' I
4. (princ)
   
5. )
   0 p3 Y: p  M/ f5 l3 Q: }0 n6 o

复制代码

*LINE,ARC,LWPOLYLINE     这部分大家还可以添加，但必须要用 “，” 隔开

& u( d7 N8 {2 _  I* k可以同时选择多组进行组合。

马大哥

先顶一个,回头试用

人生歹意

太麻烦，直接输pe不就可以了吗。

qq13455427

谢谢分享哦！   收下了 ！