[LISP程序]：给大家提供一个搜索天正3.x门窗的程序

zdarc · 发表于 2002-5-8 19:44:44

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

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

×

(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
      "\,要改变门窗号吗?<N>: "
   )
      )
      (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)
)

ncqp · 发表于 2003-7-31 22:14:46

呵呵,试用成功,又学了一招

李小森 · 发表于 2003-8-1 02:18:54

为什么我调不出来？
屏幕只会出"?/Make/Layer/.......“这样的东西！

english · 发表于 2003-8-4 13:37:17

新手上路,还望赐教!
咋用？

hfwumingke · 发表于 2003-8-6 16:43:31

详解!怎么用!???

good1121 · 发表于 2007-4-1 19:01:59

怎么回事,能介绍的仔细点啊?谢谢

zqw_zhang · 发表于 2007-4-16 12:58:10

东西很好啊，很实用，谢谢了，使用方法很简单，就是考到记事本里面，然后把记事本的后缀.txt改为.lsp，再CAD里输入APPLOAD加载这个文件，用的时候输入mcss既可。

1029028 · 发表于 2007-4-24 16:13:42

B写清楚啊
我还不知道是怎么回事

dgygs · 发表于 2007-4-27 20:52:50

怎么回事,能介绍的仔细点啊?谢谢！！请问如何使门窗图块入库啊？？

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

[LISP程序]：给大家提供一个搜索天正3.x门窗的程序

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

相关帖子