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

mitenickevin

我们很多时候相把线段、弧等组合为一个整体，CAD虽然有提供但不是很方便，我自己改良了一下：

说明：

将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP
2 M9 u  X: P' c; K0 T
用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。
3 l" A  g! g0 s' D+ J

1. (defun C:MJN(/ obj)
   8 V/ {2 q( k' a8 m* X2 i& t
2. (setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))
   / A1 \  @; [/ g. q1 x, O3 y
3. (command "pedit" "M" "P" "" "Y" "J" "" "")
   
4. (princ)
   
5. )
   , U/ p) h( H% u% n4 @. z

复制代码

+ s% s3 d+ M  o. V*LINE,ARC,LWPOLYLINE     这部分大家还可以添加，但必须要用 “，” 隔开

/ u& _; \! W% b可以同时选择多组进行组合。

马大哥

先顶一个,回头试用

人生歹意

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

qq13455427

谢谢分享哦！   收下了 ！