房屋快速填充

lclclcl

我想实现将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

用对象填充

lclclcl

wzg356 发表于 2015-11-25 01:02
用对象填充

使用对象填充如何获取房屋层次注记为1的闭合房屋？

chunwhite

学习支持一下