只需一步,快速开始
您需要 登录 才可以下载或查看,没有账号?注册
使用道具 举报
(defun c:GLL (/ ss n en enobj n enobj en) (vl-load-com) (setq ss (ssget "X")) (setq n 0) (while (setq en (ssname ss n)) (setq enobj (vlax-ename->vla-object en)) (vlax-put-property enobj 'Visible 1) (setq n (1+ n)) ) (princ "\n选取要操作的对象:") (setq QTFY_GLDX_BJ (ssget)) (setq n 0) (while (setq en (ssname QTFY_GLDX_BJ n)) (setq enobj (vlax-ename->vla-object en)) (if (= :vlax-true (vlax-get-property enobj 'Visible)) (vlax-put-property enobj 'Visible 0) (vlax-put-property enobj 'Visible 1) ) (setq n (1+ n)) ) ) (princ "\n——欢迎使用隔离对象工具!命令:GLL隔离操作——") (princ)
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-11-25 18:18 , Processed in 0.148832 second(s), 26 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.