请问为什么隐显对象对象有时行有时不行

doro · 发表于 2013-7-31 14:10:32

天正一用就崩溃

790027903 · 发表于 2013-7-31 15:06:48

非常有用一定要看

xhq1954425 · 发表于 2013-7-31 15:44:28

看看学习学习

xman00 · 发表于 2013-9-4 14:18:20

谢谢分享，学习了。

xman00 · 发表于 2013-9-4 14:54:02

支持哇，学习一下。

819534890 · 发表于 2013-9-4 15:23:36

回复加以学习

xiongqunan · 发表于 2013-10-11 11:09:41

这有主要是用在那些地方呀？

ctclsc · 发表于 2013-10-11 11:39:33

;;;一、将所选对象隐藏
(defun c:doff (/ counter eobj obj selobj slength)
(vl-load-com)
(princ "\n请选择要隐藏的对象: ")
(setq selobj (ssget))
(setq slength (sslength selobj))
(setq counter 0)
(repeat slength
   (setq obj (ssname selobj counter))
   (setq eobj (vlax-ename->vla-object obj))
   (vla-put-visible eobj 0)
   (setq counter (+ counter 1))
)
(princ (strcat"\n本次隐藏的对象共 "(rtos counter 2 0) " 个! "))
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;二、将所有对象显示
(defun c:don (/ counter eobj obj selobj slength)
(vl-load-com)
(setq selobj (ssget "x"))
(setq slength (sslength selobj))
(setq counter 0)
(repeat slength
   (setq obj (ssname selobj counter))
   (setq eobj (vlax-ename->vla-object obj))
   (vla-put-visible eobj -1)
   (setq counter (+ counter 1))
)
(princ (strcat"\n对象已经全部显示,共 "(rtos counter 2 0) " 个! "))
(princ)
)

hh0066 · 发表于 2014-1-9 11:27:10

看看G版的高招

xtjd · 发表于 2014-1-9 12:11:16

进来学习

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

请问为什么隐显对象对象有时行有时不行

浏览过的版块