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

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

不用多说吧

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 en  nn 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

不用

账号		自动登录	找回密码
密码			注册

[提问] 按xData做为过滤条件选图元的代码

浏览过的版块