刷属性Bug问题

tm20038175

yjr111 发表于 2012-4-16 21:27
试了一下，没问题啊

试试这个

2. (defun c:test()
   
3. (while (setq ss(car(entsel"\n选择源对象")))
   
4.   (command "matchprop" ss pause)
   
5. )
   
6.   )

(defun c:test()<br /> (while (setq ss(car(entsel"\n选择源对象")))<br />   (command "matchprop" ss pause)<br /> )<br />   )

tm20038175

顶起来。。。。。。

yjr111

感觉你需要的是循环使用matchprop,对吧？下面可以变通使用，不过味道不太好了

2. (defun c:test ()
   
3.   (while (setq ss (car (entsel "\n选择源对象")))
   
4.     (princ "\n 选择目标对象")
   
5.     (vl-cmdf "matchprop" ss (ssget) "")
   
6.   )
   
7. )

(defun c:test ()<br />   (while (setq ss (car (entsel "\n选择源对象")))<br />     (princ "\n 选择目标对象")<br />     (vl-cmdf "matchprop" ss (ssget) "")<br />   )<br /> )

tm20038175

谢谢啦，我明天才能测试了。。。。。。

tm20038175

yjr111 发表于 2012-4-17 16:40
感觉你需要的是循环使用matchprop,对吧？下面可以变通使用，不过味道不太好了

的确味道不同了，一声长叹！