只需一步,快速开始
使用道具 举报
(defun c:abc (/ col ss)(and (setq col (acad_colordlg 7)) (setq ss (ssget (LIST (CONS 0 "TEXT,LINE")(cons 62 col))))))
用getreal不妥,还不如用getint
加油!
谢谢楼上caoyin提点
不过好像and函数可以不要的吧
如果我想把以下两个层序合在一起,也就是说‘输入实体颜色’直接空格,然后弹出acad_colordlg对话框,该如何修改呢?
(defun c:abcf (/ ss1 ss2) (setq ss1 (getint "\n请输入实体颜色:")) (setq ss2 (ssget (LIST (CONS 0 "TEXT,LINE")(cons 62 ss1)))) (sslength ss2))
(defun c:abcd (/ ss1 ss2) (setq ss1 (acad_colordlg 1)) (setq ss2 (ssget (LIST (CONS 0 "TEXT,LINE")(cons 62 ss1)))) (sslength ss2))
boluolcz发表于2009-11-11 7:18:00谢谢楼上caoyin提点不过好像and函数可以不要的吧
and 不要,用if
如果用户选择“取消”按钮,后面的程序会出错
看一下别的版主启发性的回贴:
http://www.tigerspace.org/bbs/thread-60149-1-1.html
汗。。。。
真不爽,楼主以后有啥问题来这里问就可以了。。。
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-10-1 19:30 , Processed in 0.175790 second(s), 26 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.