hjmjtd 发表于 2018-4-7 11:35:26

按xData做为过滤条件选图元的代码

不用多说吧

wzg356 发表于 2020-9-17 12:35:40

本帖最后由 wzg356 于 2020-9-17 12:37 编辑

(setq ss(ssget'((-3 ("SOUTH")))))


;取得cass实体
;(getcass (list "300000"));宗地
;(getcass (list "301000"));界址圆圈
;(getcass (list "141101" "141121" "141161"));房屋
;(getcass (list "302002" "302003" "302004" "302005"));宗地注记
;(sslength (getcass (list "141101" "141121" "141161" "141200")))
(defun getcass (casslst /ss a ennn south ss1)      
    (setq ss(ssget "X" '((-3 ("SOUTH")))))
    ;(setq ss(ssget'((-3 ("SOUTH")))))
      (setq a -1 ss1(ssadd))
      (while (setq en(ssname ss (setq a(1+ a))))
                (or      (setq south (cdr(assoc "south"(cdr(assoc -3(entget en (list "*")))))))
                        (setq south (cdr(assoc "SOUTH"(cdr(assoc -3(entget en (list "*")))))))
                );south的值
                (foreach nn casslst
                        (if (member (cons 1000 nn)south)
                              (setq ss1(ssadd en ss1)); 或进行其他函数操作
                        )
                )
      )(if(> (sslength ss1)0)ss1)
)

zzyong00 发表于 2018-4-9 08:23:04


不用:lol:lol
页: [1]
查看完整版本: 按xData做为过滤条件选图元的代码