第一次写程序，请大家帮我看看错误在哪里！

boluolcz

defun c:abc ()
(setq ss1 (getreal "\n请选择实体颜色:")) 
(setq ss2 (ssget (LIST (CONS 0 "TEXT,LINE")(cons 62 ss1 ))))
)

caoyin

(defun c:abc (/ col ss)
(and (setq col (acad_colordlg 7))  
     (setq ss (ssget (LIST (CONS 0 "TEXT,LINE")(cons 62 col)))))
)

用getreal不妥，还不如用getint

加油！

boluolcz

谢谢楼上caoyin提点

不过好像and函数可以不要的吧

boluolcz

如果我想把以下两个层序合在一起，也就是说‘输入实体颜色’直接空格，然后弹出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)
)

Andyhon

(defun c:abcf (/ ss1 ss2)
  (or
    (setq ss1 (getint "\n请输入实体颜色:"))
    (setq ss1 (acad_colordlg 1)) 
  )
 
  ;; ss1 必需赋值
  (setq ss2 (ssget (list (cons 0 "TEXT,LINE") (cons 62 ss1))))
  (sslength ss2)
)

caoyin

boluolcz发表于2009-11-11 7:18:00谢谢楼上caoyin提点不过好像and函数可以不要的吧

and 不要，用if

如果用户选择“取消”按钮，后面的程序会出错

carrot1983

看一下别的版主启发性的回贴：

第一次写程序，请大家帮我看看错误在哪里！

http://www.tigerspace.org/bbs/thread-60149-1-1.html

汗。。。。

真不爽，楼主以后有啥问题来这里问就可以了。。。