本帖最后由 cable2004 于 2011-10-12 21:50 编辑
朋友看看可以了吗？
(defun c:tt (/ ngc_pa ngc_pb ss)
(setvar "CMDECHO" 0);_关闭命令提示
(Setq osmode_bak (getvar "osmode"));_记录捕捉
(Setvar "osmode" 0);_关闭捕捉
(setq ngc_pa(getpoint "指定一点:")
ngc_pb(getpoint "指定另一点")
)
(command ".region" "f" ngc_pa ngc_pb "" "")
(command ".union" "f" ngc_pa ngc_pb "" "")
(setq ss (ssget (entlast)))
(command ".Explode" ss)
(setq ss (ssget (entlast)))
(command "pedit" "m"ss "" "y" "j" "" "")
(Setvar "osmode" osmode_bak);_还原捕捉
(setvar "CMDECHO" 1);_打开命令提示
(princ)
)
Gu_xl 发表于 2011-10-12 12:19 static/image/common/back.gif
要是这种的可否实现框选 完成！
这个可以下载看看。。。。。。。。。。。。。。
希望能框选，呵呵
gbhsu 发表于 2011-10-13 22:11 static/image/common/back.gif
希望能框选，呵呵
自己编程虽然可以实现很多cad本身操作繁琐的功能,但这个过程是要花时间的.
最近学习犀牛 软件,发现,楼主的问题是这个软件自身命令所能实现,
所以最近没有写代码了,因为多数在cad下很难实现的东西,换个软件就解决了.
比如:求两个线对象(可以是样条曲线)的最近距离的点.,越飞越高老师讲了很长,
这里牵扯到了一点电脑的程序算法,比较繁琐.毕竟咱们不是专业的程序员,这个学习要花费太长的
的时间.
暂时我的解决方案,学习好另一个软件以辅助cad制图.
(defun c:text(/ osmode_bak ss e getss)
(defun getss (e / ss)
(setq ss (ssadd))
(while (setq e (entnext e))
(setq ss (ssadd e ss))
)
ss
)
(setvar "CMDECHO" 0);_关闭命令提示
(Setq osmode_bak (getvar "osmode"));_记录捕捉
(Setvar "osmode" 0);_关闭捕捉
(setq ss(ssget))
(setq e(entlast))
(command ".region" ss "")
(command ".union" (getss e) "")
(setq e(entlast))
(command ".Explode" (entlast))
(if (= 0 (getvar "peditaccept"))(setvar "peditaccept" 1))
(command "_.pedit" "m" (getss e) "" "j" "0.005" "")
(Setvar "osmode" osmode_bak);_还原捕捉
(setvar "CMDECHO" 1);_打开命令提示
(princ)
)
改了下，可以框选。但是对于不想交的图元可以用相交函数来判断。
3527188 发表于 2011-10-14 11:32 static/image/common/back.gif
改了下，可以框选。但是对于不想交的图元可以用相交函数来判断。
框选 是可以 但 是还是连接不了！！
不错,挺好用的..在某些条件下能派上用场..重要的是设计思路很清楚
还是大师的代码好哈~~~学习啦