沿线图块统计

梦在天堂

这个图上的块连成了一条回路 现在要点选该回路中的某个图块 然后自动按照块名统计出该回路中各种快的数量 这些块在同一个图层 线是多段线 我想的是 这些块做一个集合 多段线做一个集合 两个集合相互之间进行遍历 写一个程序 递归调用 判断条件是是否有交点 用vla-IntersectWith 有没有大佬帮忙看下啊 出不来

[Actionscript3] 纯文本查看 复制代码

(defun c:tt()	
	(setq p_block(car (entsel "选定某个回路上的图块： ")))
	(setq ss_result_block nil ss_result_block(ssadd p_block))
	(setq pl_ss(ssget "x" '((8 . "T-消防线路")(0 . "LWPOLYLINE"))))
	(setq bl_ss(ssget "x" '((8 . "T-消防设备")(0 . "insert"))))
	(setq i 0)
	(while (< i (sslength pl_ss))
		(progn
			(if (vla-IntersectWith (vlax-ename->vla-object (ssname pl_ss i))(vlax-ename->vla-object p_block) acExtendNone)
				(progn
					(child_pro pl_ss bl_ss p_block (ssname pl_ss i) 0)
				)
			)
			(setq i(1+ i))
		)
	)
)
(defun child_pro(pl_ss bl_ss father_obj child_obj child_flag_ss / ss i)
	;child_flag_ss 1 pl_ss
	;child_flag_ss 0 bl_ss
	(if (= child_flag_ss 0)
		(progn
			(setq child_flag_ss 1)
			(setq ss bl_ss)
			;(setq ss (ssget "x" '((8 . "T-消防设备")(0 . "insert"))))
		)
		(progn
			(setq child_flag_ss 0)
			(setq ss pl_ss)
			;(setq ss(ssget "x" '((8 . "T-消防线路")(0 . "LWPOLYLINE"))))
		)
	)
	(setq i 0)
	(while (< i (sslength ss))
		(progn		
			(if (vla-IntersectWith (vlax-ename->vla-object child_obj) (vlax-ename->vla-object (ssname ss i)) acExtendNone)
				(progn			
				(if (equal (ssname ss i ) father_obj)
				  (progn)
						(progn
							(if (= 0 child_flag_ss)
								(progn
									(ssadd child_obj ss_result_block)
								)
								(progn
									(ssadd (ssname ss i) ss_result_block)
								)
							)
							(child_pro pl_ss bl_ss child_obj (ssname ss i) child_flag_ss)
						)
					)
				)
			)
			(setq i (1+ i ))
		)
	)
)

newer

上传个测试用的DWG压缩文件。

梦在天堂

newer 发表于 2017-8-5 21:36

好的 已经上传了 麻烦看下吧

梦在天堂

已经解决了

1. (if (vla-IntersectWith (vlax-ename->vla-object (ssname pl_ss i))(vlax-ename->vla-object p_block) acExtendNone)

复制代码

这里是错的 (if (safearray-value (variant-value (vla-IntersectWith (vlax-ename->vla-object (ssname pl_ss i))(vlax-ename->vla-object p_block) acExtendNone)))改下就好了

marting

一行行看吧

第三行


(setq ss_result_block nil ss_result_block(ssadd p_block))

ssadd前，应该先建立个空选择集

改成：

(setq ss_result_block (ssadd)
        ss_result_block (ssadd p_block)
)

longer1000

厉害啊！

yoyoho

感谢分享！！！

st788796

绘图过程中尽量不要断开回路线，这样方便统计，出图的时候用一个命令来断开那些线

不断开的线只要搜索块的插入点在线的节点上，这样效率高还可以自动统计

newer

推荐，给块做遮罩，用块去遮罩下面的线，下面的线别断开。

梦在天堂

st788796 发表于 2017-8-6 11:42

不错 可以试试

xinxirong

死机，事实证明这种算法是非常严重的错误，图小都这样了，大一点的图慢死了。

命令: tt 选定某个回路上的图块： 出现硬错误 ***
已达内部堆栈限制 (模拟)"\n*** INTERNAL ERROR: VL namespace mismatch\n"" type Y to reset: