王与韩1 发表于 2014-7-31 21:47:29

简单问题，不堪烦恼，特来求助啊

本帖最后由 王与韩1 于 2014-8-1 09:11 编辑

电气设计行业的，图元都会和管线连接，但常常会在几百个里漏连一两个图元。可否实现检查出图块是与导线相连，先谢过各位看帖的同志们.附件是例图

ZZXXQQ 发表于 2014-8-1 09:03:12

本帖最后由 ZZXXQQ 于 2014-8-2 07:44 编辑

;不知道是否能用
;判断图块连线 明经 ZZXXQQ 2014建军节 改于 七夕
(defun c:tt ()
(vl-load-com)
(setq ssa (ssadd))
(if (and (princ "\n选择图块: ") (setq ss (ssget '((0 . "INSERT")))))
(repeat (setq i (sslength ss))
   (setq en (ssname ss (setq i (1- i))))
   (vla-getboundingbox (vlax-ename->vla-object en) 'p1 'p2)
   (setq p1 (vlax-safearray->list p1) p2 (vlax-safearray->list p2))
   (if (not (setq ss1 (ssget "C" p1 p2 '((0 . "*LINE")))))
;    (redraw en 3)
    (ssadd en ssa)
   )
)
)
(if (> (sslength ssa) 0) (sssetfirst nil ssa))
(princ)
)

王与韩1 发表于 2014-8-1 09:07:07

ZZXXQQ 发表于 2014-8-1 09:03 static/image/common/back.gif
;不知道是否能用


又是这位大师.太热心了您

王与韩1 发表于 2014-8-1 09:15:42

本帖最后由 王与韩1 于 2014-8-1 09:17 编辑

ZZXXQQ 发表于 2014-8-1 09:03 static/image/common/back.gif
;不知道是否能用

感谢啊,能用,可是圈多了就看不出是哪几个,能不能选中它明显一点,给出数量

ZZXXQQ 发表于 2014-8-1 20:59:50

王与韩1 发表于 2014-8-1 09:15 static/image/common/back.gif
感谢啊,能用,可是圈多了就看不出是哪几个,能不能选中它明显一点,给出数量

沙发改了，再试试

王与韩1 发表于 2014-8-1 22:36:48

本帖最后由 王与韩1 于 2014-8-1 23:10 编辑

ZZXXQQ 发表于 2014-8-1 20:59 static/image/common/back.gif
沙发改了，再试试
...现在没选中未连线块的功能了。能不能最后是选中未连线图块，或者看上去醒目点。不管怎样都多谢

xyp1964 发表于 2014-8-2 08:30:50


这种的被过滤掉了

王与韩1 发表于 2014-8-2 08:54:52

xyp1964 发表于 2014-8-2 08:30 static/image/common/back.gif
这种的被过滤掉了

这样很接近的才被过滤也没事，打图出来看不出的，谢谢您的上心了

王与韩1 发表于 2014-8-2 08:59:36

王与韩1 发表于 2014-8-1 22:36 static/image/common/back.gif
...现在没选中未连线块的功能了。能不能最后是选中未连线图块，或者看上去醒目点。不管怎样都多谢

单独的是好的，好像楼下说的那样过滤掉近的。在一楼例图里用的话就提示“Automation 错误。 输入无效”，试了下，参照绑定就会这样

王与韩1 发表于 2014-8-4 09:14:52

本帖最后由 王与韩1 于 2014-8-4 17:33 编辑

ZZXXQQ 发表于 2014-8-1 20:59 static/image/common/back.gif
沙发改了，再试试
大师,块之间连着的能否也不过滤出来呢?
页: [1]
查看完整版本: 简单问题，不堪烦恼，特来求助啊