社区 › AutoLISP/Visual LISP 编程技术 › 源码无聊贴:xj(连接首尾相连线条成封闭多义线) --by 狂刀 2007.9

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

谢谢楼主分享

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

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

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

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

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

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

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

(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:24

谢谢狂刀。

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

这个源码太棒了

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

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

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

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

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

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

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