CAD门窗lisp_晓东CAD家园-论坛-天正软件-[LISP程序]：给大家提供一个搜索天正3.x门窗的程序-(defun c:mcss (/ o_mc n_mc s n n1 n2 ins yn l...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

(defun c:mcss (/ o_mc n_mc s n n1 n2 ins yn lt g e1 h)

(if (setq o_mc (getstring "\n请输入要搜索的门窗号: "))

(progn

(setq

s

(ssget

"x"

(list (cons 0 "INSERT")

(cons 66 1)

(cons 8 "WIN*")

)

)

)

(setq n (sslength s))

(setq n (- n 1))

(while (>= n 0)

(setq n1 (ssname s n))

(setq ins (cdr (assoc 10 (entget n1))))

(setq n2 (cdr (assoc 1 (entget (entnext n1)))))

(setq h (cdr (assoc 40 (entget (entnext n1)))))

(setq e1 (cdr (assoc -1 (entget (entnext n1)))))

(if (= n2 (strcase o_mc))

(progn (redraw e1 3)

(command &