aaacjh 发表于 2011-11-22 11:35:48

CAD自带命令改进！

分享源码！同时求解；
1.下面源码中的"_NON"具体实现什么作用，为何
具备那样神奇的功能，望前辈指点！
2.同理，延伸时，怎样可以框选要延伸的
线，俺学得实在有限，只能用栏选这样笨拙
的方式满足！望前辈指点！

；打断线改进
(defun c:bv();打断于点
(while (and (setq ENT(car (entsel))) (setq PT(getpoint "\n指定一个打断点: ")))
    (command "._BREAK" ENT "_NON" PT "_NON" PT)
)
)

；栏选批量延伸
(defun c:eex()
(while (setq ex1(ssget))
(command "EXTEND" ex1 "" "F" "_NON" "U" "_NON")
)
)

自贡黄明儒 发表于 2012-12-26 12:25:26

"_NON" 不运行捕捉

混沌初开 发表于 2013-12-24 23:08:49

楼主的指令很强大!

hooboxu 发表于 2014-9-28 02:10:25

明天试试^_^！。。。。

hooboxu 发表于 2014-11-8 21:40:45

再记号下。。。

hfm90@163.com 发表于 2015-12-12 11:11:53

haotaer 发表于 2016-2-25 17:16:13

高，这个真的还有

FireflyButler 发表于 2016-10-23 19:52:49

楼主程序写的没问题，问题是你白写了，并没有改进cad程序，break和ex命令本来就有你所说的功能,你写这个完全是多此一举

vladimir 发表于 2016-10-25 09:01:54

不错的程序，谢谢楼主分享 啊

LIULISHENG 发表于 2017-8-16 10:39:03

我是来顶你一下
页: [1] 2
查看完整版本: CAD自带命令改进！