[LISP程序]：一个命令就可把几个连续的线段转为多义线

qsb506 · 发表于 2006-9-17 23:40:10

您需要登录才可以下载或查看，没有账号？立即注册

×

网上找的转多义线的多是整个图形转换，想转图形中的某一小部分就不行了，我写的这个即可全转也可只转一小部分。
(defun c:f()
(setq aa (ssget))
(command"pedit" aa "y" "J" aa "" "")
)

snsj · 发表于 2006-9-18 19:31:31

注意考虑CAD版本引起的小不便,变量PEDITACCEPT在2002前是不存在的,首先要判断版本或者系统变量是否存在否则会出错

qsb506 · 发表于 2006-9-18 19:54:54

谢谢斑竹的指教。

and2008 · 发表于 2006-9-18 20:16:51

没有必要吧,pedit也很快的哈

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