只需一步,快速开始
使用道具 举报
entg 哪儿来?
(defun c:tt () (setvar "CMDECHO" 0) (if (setq ss (ssget '((8 . "12000")))) (command ".chprop" ss "" "LA" "0" "") ) (setvar "CMDECHO" 1) (princ))
楼主要求不用选择,3楼斑主的程序稍改一下:
(defun c:tt () (setvar "CMDECHO" 0) (if (setq ss (ssget "X"'((8 . "12000")))) (command ".chprop" ss "" "LA" "0" "") ) (setvar "CMDECHO" 1) (princ))
ZZXXQQ
啵浪鼓
谢谢两位大哥 请允许我称呼你们大哥
使用道具
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-11-6 07:17 , Processed in 0.168184 second(s), 25 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.