程序修改

123456abc

2. (defun c:chColor (/ col ss n)
   
3.   (if
   
4.     (and (setq ss (ssget))
   
5.          (progn
   
6.            (setq col (acad_colordlg 7))
   
7.            (while (not col)
   
8.              (if (setq col (getint "\n指定颜色索引号(0~256): "))
   
9.                (if (<= 0 col 256)
   
10.                  T
    
11.                  (progn (setq col nil) (princ "\n需要 0~256 的整数。"))
    
12.                )
    
13.              )
    
14.            )
    
15.            col
    
16.          )
    
17.     )
    
18.      (repeat (setq n (sslength ss))
    
19.        (vla-put-color
    
20.          (vlax-ename->vla-object (ssname ss (setq n (1- n))))
    
21.          col
    
22.        )
    
23.      )
    
24.   )
    
25.   (princ)
    
26. )

(defun c:chColor (/ col ss n)<br />   (if<br />     (and (setq ss (ssget))<br />          (progn<br />            (setq col (acad_colordlg 7))<br />            (while (not col)<br />              (if (setq col (getint "\n指定颜色索引号(0~256): "))<br />                (if (<= 0 col 256)<br />                  T<br />                  (progn (setq col nil) (princ "\n需要 0~256 的整数。"))<br />                )<br />              )<br />            )<br />            col<br />          )<br />     )<br />      (repeat (setq n (sslength ss))<br />        (vla-put-color<br />          (vlax-ename->vla-object (ssname ss (setq n (1- n))))<br />          col<br />        )<br />      )<br />   )<br />   (princ)<br /> )

上面这段程序执行起来，出现：错误: no function definition: vlax-ename->vla-object
请高手帮我看看修改一下，谢谢

Andyhon

先加载  (vl-load-com) 再试

Student

这个程序没有问题
如果“出现：错误: no function definition: vlax-ename->vla-object”
可在最前面加一句
(vl-load-com)
试试

zyhandw

楼上各位均为正解！！