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

熙城故事

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

edata

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

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

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

我爱lisp

(command "_.break" ...)

熙城故事

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

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

我爱lisp

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

edsion24

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

熙城故事

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

这位兄弟想法真好，不过看到大神有能做到的，但是现在我水平有限