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

进来学习





页: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14
查看完整版本: 请问为什么隐显对象对象有时行有时不行