熙城故事 发表于 2014-9-4 11:11:01

喷淋头连接管线断线的调试

各位大神，附件中是我根据Xshilp圆内部线剪切源程序，写的有关喷头断线的lisp程序，但是老是出现错误，请大家指教，看看问题出在哪里

edata 发表于 2014-9-4 21:42:23

需要提供dwg，根据源程序，C:gbk的(princ)不能要，否则，主程序的(setq p =(princ)所以需要改成ss这样返回ss选择集给p，才能下一步。

(defun c:gbk( / pt1 pt2 elist iname ss )
(setq elist(entget(car(entsel "\n 请选择需要的图块"))))
(setq pt1 (getpoint "请输入所需范围点1"))
(setq pt2 (getcorner pt1 "请输入所需范围点2"))
(setq iname (assoc 2 elist)) ;;;获取图块名称
(setq ss (ssget "W" pt1 pt2 (list'(0 . "insert") iname)));;;过滤条件
(sssetfirst nil ss)
ss
)

我爱lisp 发表于 2014-9-5 13:49:16

(command "_.break" ...)

熙城故事 发表于 2014-9-5 16:18:43

edata 发表于 2014-9-4 21:42 static/image/common/back.gif
需要提供dwg，根据源程序，C:gbk的(princ)不能要，否则，主程序的(setq p =(princ)所以需要改成ss这样返回s ...

谢谢你，按照您的要求改下试试看

我爱lisp 发表于 2014-9-24 16:35:40

(command "_.break" ...)这个我试用多次，发现不好用，改用trim方式实现剪切了

edsion24 发表于 2014-9-25 10:03:22

能不能搞一个 按图块外围打断的 呵呵在这个的基础上就是多段线 每当遇到图块的时候 在图块的外围打断

熙城故事 发表于 2014-9-28 20:21:05

edsion24 发表于 2014-9-25 10:03 static/image/common/back.gif
能不能搞一个 按图块外围打断的 呵呵在这个的基础上就是多段线 每当遇到图块的时候 在图块的外围打断

这位兄弟想法真好，不过看到大神有能做到的，但是现在我水平有限
页: [1]
查看完整版本: 喷淋头连接管线断线的调试