房屋快速填充
我想实现将2000地形图中表示为1的房子自动快速填充。下面是我写的lisp。现在的问题是：1、部分房屋无法填充，但是将这些房子移动到其它位置时，自动填充又成功了。2、自动填充的速度很慢。3、填充之后，删除房屋的层数注记之后，空白的地方不会自动填充。求大神指点！！！
(defun c:tc1();; 1层房屋自动填充
(setq ss1(ssget "x"'((8 ."JMDSS")(0 . "TEXT")(7 ."ZHDXT20数字"))))
(setq n 0 m (sslength ss1) k 0)
(while(< n m)
(setq ee1(ssname ss1 n))
(setq sxb(entget ee1));文字点的数据表（2层）
(setq t2(assoc 1 sxb))
(setq t3 (cdr t2))
(setq zbb(assoc 11 sxb))
(setq PP (cdr zbb))
(if (= t3 "1")
(progn
(princ "\n")
(princ pp)
(command "bhatch" "p" "ANSI31" "1" "0.0"PP "" )
(setq k (+ 1 k))
)
)
(setq n (+ 1 n))
)
(princ "\n")
(princ "本图共有1层房屋数：")
(princ k)
(princ)
)
用对象填充 wzg356 发表于 2015-11-25 01:02 static/image/common/back.gif
用对象填充
使用对象填充如何获取房屋层次注记为1的闭合房屋？ 学习支持一下
页:
[1]