改线型比例的代码，高手帮我看看

zxq0220

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (and (princ "\n选择线条: ") (setq ss (ssget '((0 . "*LINE"))))) (progn
   
5. (command "_.CHPROP" ss "" "S")
   
6. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
7. ))
   
8. (setvar "CMDECHO" 1)
   
9. (princ)
   
10. )

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (and (princ "\n选择线条: ") (setq ss (ssget '((0 . "*LINE"))))) (progn<br /> (command "_.CHPROP" ss "" "S")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

lucas3

zxq0220 发表于 2014-1-7 20:37

用2014试了一下还是不行，Z版不用改了，问题已经解决了！谢谢了

白皮猪

lucas3 发表于 2014-1-8 08:19
用2014试了一下还是不行，Z版不用改了，问题已经解决了！谢谢了

大哥问题解决了..可否发出来看看,,谢谢了..

yxianfo

2楼的程序，楼主老提出有问题，经试用发现，当所选取的线对象，其“线型比例”不为1时，是个很好的程序，程序运行正常。当其“线型比例”为1时，执行命令后提示“错误 : 参数类型错误: numberp: nil”，程序终止执行。
线对象的“线型比例”设置为“1”的情况很普遍、常用，若程序不能执行“线型比例”为“1”的状态，是一大不足，若能解决此问题则本程序是个很实用的程序。期待能者多劳。
       因4楼的程序语句类似，故也同样存在上述问题。