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 ".zoom" "c" ins (* h 20.))

(princ "\n屏幕中心的门窗编号为")

(princ n2)

(initget "y n")

(setq yn

(getkword

"\,要改变门窗号吗?: "

)

)

(if        (= yn "y")

(progn

(setq n_mc (getstring t "\n请输入新门窗号: "))

(setq lt (entget (entnext n1)))

(setq g (subst (cons 1 (strcase n_mc)) (assoc 1 lt) lt))

(entmod g)

(setq lt (entget (entnext n1)))

(setq g (subst (cons 70 0) (assoc 70 lt) lt))

(entmod g)

(entupd (entnext n1))

)

(princ "\n正在搜索下一个门窗号...")

)

(redraw e1 4))

)

(setq n (- n 1))

)

(setq s nil)

)

)

(princ "\n门窗号搜索完毕!")

(princ)

)

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册