[下载]：提供一个可隐藏和显示实体的程序(命令ra)

xxming · 发表于 2005-1-30 16:02:39

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

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

×

(命令ra)

nuance · 发表于 2005-1-31 12:49:18

可以用组码60
0－隐藏
1－显示
(defun c:1(/ ss n ssdata name)
(setq ss (ssget "X"))
(setq n 0)
(repeat (sslength ss)
   (setq ssdata (entget (setq name (ssname ss n))))
   (if (= 1 (cdr (assoc 60 ssdata)))
(progn
   (setq ssdata (subst (cons 60 0) (assoc 60 ssdata) ssdata))
   (entmod ssdata)
   (entupd name)
);progn
);if
   (setq n (+ 1 n))
);repeat
(princ)
)

(defun c:0(/ ss n ssdata)
(setq ss (ssget))
(setq n 0)
(repeat (sslength ss)
   (setq ssdata (entget (ssname ss n)))
   (if (= nil (cdr (assoc 60 ssdata)))(setq ssdata (append  ssdata (list (cons 60 1)))))
   (entmod ssdata)
   (setq n (+ 1 n))
);repeat
(princ)
)

狂刀 · 发表于 2005-1-30 23:14:50

朋友，来个演示吧，看看有什么特别之处

啵浪鼓 · 发表于 2005-1-30 23:31:57

是啊,太简短,都不知做何用处

xxming · 发表于 2005-1-31 08:34:42

就是隐藏和显示实体的程序楼上我不会做演示你试试

它山之石 · 发表于 2005-1-31 10:57:55

　　俺估计是利用REDRAW来实现的。并不是真正的隐藏。只要regen重生成就全都显示出来了。而且只能点选，不能框选。如果是楼主自己写的程序，还有待改进。

start4444 · 发表于 2016-8-15 23:08:18

:D:):lol:lol

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

[下载]：提供一个可隐藏和显示实体的程序(命令ra)

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

相关帖子