源码无聊贴:xj(连接首尾相连线条成封闭多义线) --by 狂刀 2007.9

革天明 · 发表于 2012-3-6 21:42

谢谢楼主分享

puzb2001 · 发表于 2012-3-7 08:34

又长知识了，经常串门有好处的

dhy · 发表于 2012-3-8 11:23

如果改成串接成功不变颜色，不成功就变颜色就好了

hejiazhao · 发表于 2012-3-28 22:35

没怎么搞清楚，还用不上的

1006882982 · 发表于 2012-6-26 03:27

(defun c:pp()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\n")
(setvar "peditaccept" 1) ;加入这个系统变量的代码
(if (setq ngc01 (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
(command "_pedit" "m" ngc01 "" "j" "0.1" "")
)
(setvar "cmdecho" cm)
(princ)
)
网上下的还挺好用不必一定首尾连接

smartstar · 发表于 2012-6-26 06:14

谢谢狂刀。

jhkdyhl1 · 发表于 2013-4-9 00:58

这个源码太棒了

潇湘飞雨 · 发表于 2013-4-9 17:01

强烈顶起！！！！！！！！

香田里浪人 · 发表于 2013-4-16 06:54

这个源码太棒,强烈顶起！！！！！！！！

SYTDD · 发表于 2018-2-9 11:16

狂刀无聊出品都这么帮，希望你天天都无聊，呵呵，谢谢分享

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