求高手帮忙！

只看该作者 · 发表于 2010-5-21 21:50:09

马上注册，结交更多同行朋友，交流，分享，学习。

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

x

求高手写个LISP程序，可以像燕秀那样可以在同一个层隐藏和显示一部分物件！摆脱各位大大！注：我新公司用中望CAD，我不能决定用什么软件！

只看该作者 · 发表于 2010-10-7 13:39:11

资讯不足 (没在用燕秀)

提供一个隐藏 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))))
) )
)

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

[求助] 求高手帮忙！

马上注册，结交更多同行朋友，交流，分享，学习。