新手求教！！

laoguiqi

我想框选一个区域，并只选择该区域内的圆，其他的都不选！！然后要求修改圆的直径。改怎么弄啊！！

Andyhon

参考先
http://bbs.mjtd.com/thread-71579-1-1.html

zyhandw

给你写个吧，反正也很简单，代码如下：

2. (defun c:modidiam( / cir-num newdia cirall cir-name cir-name-vla)
   
3.   (vl-load-com)
   
4.   (setq cir-num 0)
   
5.   (setq newdia (getreal"\n请输入修改后的直径:"))
   
6.   (if (setq cirall (ssget '((0 . "circle"))))
   
7.       (repeat (sslength cirall)
   
8.          (setq cir-name (ssname cirall cir-num))
   
9.          (setq cir-name-vla (vlax-ename->vla-object cir-name))
   
10.          (vlax-put-property cir-name-vla 'diameter newdia);cirall
    
11.          (setq cir-num (1+ cir-num))
    
12.       )
    
13.   )
    
14.   (princ)
    
15. )
    
16.   (prompt "\n【程序运行命令:modidiam】")

(defun c:modidiam( / cir-num newdia cirall cir-name cir-name-vla)<br />   (vl-load-com)<br />   (setq cir-num 0)<br />   (setq newdia (getreal"\n请输入修改后的直径:"))<br />   (if (setq cirall (ssget '((0 . "circle"))))<br />       (repeat (sslength cirall)<br />          (setq cir-name (ssname cirall cir-num))<br />          (setq cir-name-vla (vlax-ename->vla-object cir-name))<br />          (vlax-put-property cir-name-vla 'diameter newdia);cirall<br />          (setq cir-num (1+ cir-num))<br />       )<br />   )<br />   (princ)<br /> )<br />   (prompt "\n【程序运行命令:modidiam】")

梦醒才知原是梦

收藏~~~~~~~~~

【KAIXIN】

2. ;改多圆、圆弧半径 作者：KAIXIN
   
3. (defun c:XX ()
   
4. (setq br (getreal "\n输入你想要的半径："))
   
5.   (prompt "\n请框选你要改变的圆: ")
   
6.   (setq        ss (ssget '((0 . "CIRCLE,ARC")))
   
7.         i   -1
   
8.   )
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (KX-SubUpd s1 40 br)
    
11.   )
    
12.   (princ)
    
13. )
    
14. 
    
15. (defun KX-SubUpd (ename code newvalue)
    
16. 
    
17. (entmod (subst (cons code newvalue)
    
18.    
    
19. (assoc code (entget ename))
    
20.    
    
21. (entget ename)
    
22.    )
    
23.   )
    
24. (entget ename)
    
25. )

;改多圆、圆弧半径 作者：KAIXIN<br /> (defun c:XX ()<br /> (setq br (getreal "\n输入你想要的半径："))<br />   (prompt "\n请框选你要改变的圆: ")<br />   (setq        ss (ssget '((0 . "CIRCLE,ARC")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (KX-SubUpd s1 40 br)<br />   )<br />   (princ)<br /> )<br /> <br /> (defun KX-SubUpd (ename code newvalue)<br /> <br /> (entmod (subst (cons code newvalue)<br />    <br /> (assoc code (entget ename))<br />    <br /> (entget ename)<br />    )<br />   )<br /> (entget ename) <br /> )

laoguiqi

谢谢，大家的帮助！，感觉明经的好人真多啊！！