iCAx开思网

标题: 求高手帮忙！ [打印本页]

作者: Arnold_chen 时间: 2010-5-21 21:50
标题: 求高手帮忙！
求高手写个LISP程序，可以像燕秀那样可以在同一个层隐藏和显示一部分物件！摆脱各位大大！注：我新公司用中望CAD，我不能决定用什么软件！

作者: Andyes 时间: 2010-10-7 13:39
资讯不足 (没在用燕秀)

提供一个隐藏 Block 的程序于您参考 ....

;;; =================================================
(defun hideblk (show / ss nn)
(setq ss (ssget "x" (list (cons 0 "INSERT"))))
(grread T)
(if ss (progn
   (setq nn (sslength ss))
   (while (> nn 0)
   (redraw (ssname ss (setq nn (1- nn))) 2)
)))
(if (zerop show) nil
   (progn
      (princ "\n 按任意键还原 Block 显现 ..... ")
      (grread)
      (re_ss ss)
) )
(prin1)
)

(defun Re_ss (sset)  (for-sset sset entupd))

;;; Vladimir Nesterovsky

(defun FOR-SSET (sset fun / n)
(if (= 'PICKSET (type sset))
   (repeat (setq n (fix (sslength sset)))
      (fun (ssname sset (setq n (1- n))))
) )
)

;;; =================================================

欢迎光临 iCAx开思网 (https://www.icax.org/)