[求助]：acad_colordlg 的错误提示

popsun

一个改变对象颜色的lisp，代码如下：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:cc(/ ss)
   
5.     (princ "\n    [改变所选对象的颜色]")
   
6.     (setq ss(ssget))
   
7.     (command "_.chprop" ss "" "color" (acad_colordlg 3) "")
   
8.     (princ)
   
9. )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:cc(/ ss)<br />     (princ "\n    [改变所选对象的颜色]")<br />     (setq ss(ssget))<br />     (command "_.chprop" ss "" "color" (acad_colordlg 3) "")<br />     (princ)<br /> )<br />   [/FONT]<br />

运行时如果选“随层”、“随块”，提示“颜色返回值错误”。不是会返回0或者256的吗？
那就不让选择“随层”或者“随块”吧，把对话框的函数改为(acad_colordlg 3 nil) ，这下好，连编译也通不过了，显示下面的错误。然后更怪了，我再删除nil，报错依旧，这不是已经还原成先前的样子了？怎么还报错呢？这个错误代表什么意思呢？
报错提示如下：

狂刀

我这里测试正常。cad2004

popsun

奇怪了，我把上面的代码单独放到一个文件里编译又是正常的。是别的地方出现什么问题了？谁知道上面那个出错提示是什么意思？

我直接加载、运行，都是正常的，就是不能编译成fas！

urljit

好像是不能把acad_colordlg编译进去，我也遇到了。

mmmm

Add some code in file

(if vl-arx-import
  (foreach item        '(ACAD_COLORDLG            ACAD_truecolordlg ACAD_STRLSORT
                  INITDIA            ACAD-POP-DBMOD    ACAD-PUSH-DBMOD
                  STARTAPP            layoutlist              bpoly
                 )
    (vl-arx-import item)
  )
)
then your compiled code will be able to run acad_colordlg

Free-Lancer

增加一条 command 里不要用求值表达式，前面用 vl-cmdf

huangpc27

独立空间里使用真的会报错。