圆弧半径调整为（10的整数倍）

zhliw123

如题，批量将圆弧的半径调整为10的整数倍，弧长可以不变

xyp1964

1. (defun c:tt ()
   
2.   "批量将圆弧的半径调整为10的整数倍，弧长保持不变"
   
3.   (setq i -1)
   
4.   (if (setq ss (ssget '((0 . "arc"))))
   
5.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.       (setq ob (vlax-ename->vla-object s1)
   
7.             l1 (vla-get-ArcLength ob)
   
8.             rr (vla-get-radius ob)
   
9.             rr (* (fix (/ rr 10)) 10)
   
10.             rr (if (= rr 0)10 rr)
    
11.       )
    
12.       (vla-put-radius ob rr)
    
13.       (setq l2 (vla-get-ArcLength ob)
    
14.             dl (* (- l1 l2) 0.5)
    
15.       )
    
16.       (command "LENGTHEN" "de"dl(list s1 (vlax-curve-getStartPoint s1))(list s1 (vlax-curve-getendPoint s1)) "")
    
17.     ;(setq l2 (vla-get-ArcLength ob))(princ l1)(princ " ")(princ l2)
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

(defun c:tt ()<br />   "批量将圆弧的半径调整为10的整数倍，弧长保持不变"<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "arc"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq ob (vlax-ename->vla-object s1)<br />             l1 (vla-get-ArcLength ob)<br />             rr (vla-get-radius ob)<br />             rr (* (fix (/ rr 10)) 10)<br />             rr (if (= rr 0)10 rr)<br />       )<br />       (vla-put-radius ob rr)<br />       (setq l2 (vla-get-ArcLength ob)<br />             dl (* (- l1 l2) 0.5)<br />       )<br />       (command "LENGTHEN" "de"dl(list s1 (vlax-curve-getStartPoint s1))(list s1 (vlax-curve-getendPoint s1)) "")<br />     ;(setq l2 (vla-get-ArcLength ob))(princ l1)(princ " ")(princ l2)<br />     )<br />   )<br />   (princ)<br /> )<br />

zhliw123

xyp1964 发表于 2022-5-17 20:57

谢谢 ，完美解决