mitenickevin 发表于 2008-5-23 09:24

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

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

说明：

将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP

用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。

(defun C:MJN(/ obj)
(setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))
(command "pedit" "M" "P" "" "Y" "J" "" "")
(princ)
)

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

可以同时选择多组进行组合。

马大哥 发表于 2008-5-23 09:38

先顶一个,回头试用

人生歹意 发表于 2009-4-8 17:41

回复楼主

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

qq13455427 发表于 2009-4-8 18:32

谢谢分享哦！   收下了 ！
页: [1]
查看完整版本: 转换为多段线代码（共享）