iCAx开思网

标题: 求高手帮忙改下这个关于局部隐藏和显示的LSP [打印本页]

作者: Arnold_chen 时间: 2010-5-30 03:36
标题: 求高手帮忙改下这个关于局部隐藏和显示的LSP
如题：求高手帮忙改下这个关于局部隐藏和显示的LSP
(defun c

bjhide(/ i ename xname)
   (vl-load-com)
   (setq sst (ssget))
   (setq sslen (sslength sst))
   (setq i 0)
  (repeat sslen
   (setq ename (ssname sst i))
   (setq xname (vlax-ename->vla-object ename))
   (vla-put-visible xname 0)
   (setq i (1+ i))
  )
)
(defun  c

bjshow(/ i ename xname)
   (vl-load-com)
   (setq i 0)
  (repeat sslen
   (setq ename (ssname sst i))
   (setq xname (vlax-ename->vla-object ename))
   (vla-put-visible xname 1)
   (setq i (1+ i))
  )
  (setq sst nil)
  (setq sslen nil)
)

这个LSP的隐藏功能没问题，就是显示功能出错，我也是在网上收的。求高手改下！

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