[LISP程序]：使可见图层上的图元不可见

lsjjm · 发表于 2004-5-6 08:49:59

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

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

×

使可见图层上的图元不可见:
[php]
(defun c:test ()
  (setq ss (ssget) n 0)
  (while (< n (sslength ss))
(setq ent (ssname ss n)
      obj (vlax-ename->vla-object ent))
(if (vlax-property-available-p obj 'Visible T)
   (if (= (vla-get-visible obj) :vlax-true)
      (vla-put-Visible obj :vlax-false)
   )
)
(setq n (1+ n))
  )
)
[/php]

zb_lou · 发表于 2004-5-6 17:55:56

请问打印时可不可见？

newshow · 发表于 2004-5-6 18:04:46

"使可见图层上的图元不可见"有什么作用？

bridgewind · 发表于 2004-5-6 18:53:51

怎么使之可见？

ycao · 发表于 2004-5-6 22:15:14

这个程序也许有用。比如：一幅图如不想让别人看到就有用了。问题是怎么使它恢复可见？

lsjjm · 发表于 2004-5-7 04:26:38

2楼, 不会--即然不可见了, 还会打印出来?
4,5楼, 恢复可见参考:http://www.xdcad.net/forum/showthread.php?s=&threadid=176886

andyhua5240 · 发表于 2004-5-7 08:46:48

那跟关闭图层和打开图层有什么区别呢？
谢谢！

lsjjm · 发表于 2004-5-7 08:56:56

最初由 andyhua5240 发布
[B]那跟关闭图层和打开图层有什么区别呢？
谢谢！ [/B]

关闭图层是该图层上的所有图元"不可见". 本程序可以是部分.

bsq · 发表于 2004-5-7 20:07:12

在2005下隐藏恢复产生致命错误！

lsjjm · 发表于 2004-5-8 06:21:51

最初由 bsq 发布
[B]在2005下隐藏恢复产生致命错误！ [/B]

我在2005下运行正常呀! 说说你的使用情况?

conn · 发表于 2004-5-8 14:25:54

我提供一个选择变不可见
(defun c:text()(setq ss (ssget))
      (setq i 0)
      (while (<= i (sslength ss))
               (setq abc (ssname SS i))
               (redraw abc 2)
               (setq i (+ 1 i))
))

恢复可见命令regen

cqnj023 · 发表于 2004-5-8 21:14:21

对象的60组码可控制对象的可见性

陌生人 · 发表于 2004-5-8 22:21:43

探讨一下
(if (vlax-property-available-p obj 'Visible T)
这句是否必要？

object.Visible

Object

All Drawing objects, Application, AttributeReference, Group, Toolbar
使用该属性的对象。

lsjjm · 发表于 2004-5-9 12:55:45

最初由陌生人发布
[B]探讨一下
(if (vlax-property-available-p obj 'Visible T) 这句是否必要[/B]

就看选择时的具体条件了.

mr cool · 发表于 2004-5-9 23:31:24

1楼的用你的方法确实可以隐藏，可在隐藏后怎么使之可见呢？？？

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

[LISP程序]：使可见图层上的图元不可见

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

相关帖子