保持圆心及半径和圆弧中心不变情况了下修改圆弧长度为指定长度

ynhh

保持圆心及半径和圆弧中心不变情况了下修改圆弧长度为指定长度



AI编写的，可以选择单个或批量圆弧进行修改


程序功能说明：
主要命令：
ChangeArcLength - 修改单个圆弧长度

选择单个圆弧

输入新的长度

自动调整结束角度，保持圆心和半径不变

ChangeArcLengthExact - 精确修改单个圆弧长度

使用几何公式精确计算

显示角度信息

防止角度超过360°

ChangeMultipleArcsLength - 批量修改多个圆弧长度

选择多个圆弧

统一设置为指定长度

高效批量处理

ArcInfo - 显示圆弧详细信息

圆心坐标、半径

起始角度、结束角度

圆弧角度、长度

技术原理：
保持圆心(组码10)和半径(组码40)不变

修改结束角度(组码51)来调整圆弧长度

使用公式：圆弧长度 = 半径 × 角度(弧度)

自动处理圆弧方向（顺时针/逆时针）

程序会确保在修改过程中圆弧的圆心位置和半径完全保持不变，只通过调整角度来控制长度。

ynhh

1. (defun c:ChangeArcLength (/ ss arc_ent arc_data center radius start_angle end_angle current_length new_length arc_obj)
   
2.   (vl-load-com)
   
3.   
   
4.   (princ "\n选择要修改长度的圆弧: ")
   
5.   
   
6.   (if (setq ss (ssget ":S" '((0 . "ARC"))))
   
7.     (progn
   
8.       (setq arc_ent (ssname ss 0)
   
9.             arc_data (entget arc_ent)
   
10.             center (cdr (assoc 10 arc_data))
    
11.             radius (cdr (assoc 40 arc_data))
    
12.             start_angle (cdr (assoc 50 arc_data))
    
13.             end_angle (cdr (assoc 51 arc_data))
    
14.             arc_obj (vlax-ename->vla-object arc_ent))
    
15.       
    
16.       ;; 计算当前圆弧长度
    
17.       (setq current_length (vla-get-arclength arc_obj))
    
18.       (princ (strcat "\n当前圆弧长度: " (rtos current_length 2 2)))
    
19.       
    
20.       ;; 获取新的圆弧长度
    
21.       (initget 7)  ;; 不允许0、负值和空值
    
22.       (setq new_length (getreal "\n请输入新的圆弧长度: "))
    
23.       
    
24.       (if new_length
    
25.         (progn
    
26.           ;; 计算新的角度范围
    
27.           (setq total_angle (abs (- end_angle start_angle)))
    
28.           (setq new_total_angle (* (/ new_length current_length) total_angle))
    
29.          
    
30.           ;; 保持圆弧方向，修改结束角度
    
31.           (if (> end_angle start_angle)
    
32.             (setq new_end_angle (+ start_angle new_total_angle))
    
33.             (setq new_end_angle (- start_angle new_total_angle))
    
34.           )
    
35.          
    
36.           ;; 更新圆弧
    
37.           (entmod (subst (cons 51 new_end_angle) (assoc 51 arc_data) arc_data))
    
38.           (entupd arc_ent)
    
39.          
    
40.           (princ (strcat "\n圆弧长度已修改为: " (rtos new_length 2 2)))
    
41.         )
    
42.         (princ "\n未输入长度，操作取消。")
    
43.       )
    
44.     )
    
45.     (princ "\n未选择圆弧或选择无效。")
    
46.   )
    
47.   (princ)
    
48. )
    
49. 
    
50. ;; 更精确的版本 - 使用几何计算
    
51. (defun c:ChangeArcLengthExact (/ ss arc_ent arc_data center radius start_angle end_angle new_length arc_obj current_angle)
    
52.   (vl-load-com)
    
53.   
    
54.   (princ "\n选择要修改长度的圆弧: ")
    
55.   
    
56.   (if (setq ss (ssget ":S" '((0 . "ARC"))))
    
57.     (progn
    
58.       (setq arc_ent (ssname ss 0)
    
59.             arc_data (entget arc_ent)
    
60.             center (cdr (assoc 10 arc_data))
    
61.             radius (cdr (assoc 40 arc_data))
    
62.             start_angle (cdr (assoc 50 arc_data))
    
63.             end_angle (cdr (assoc 51 arc_data)))
    
64.       
    
65.       ;; 计算当前角度和长度
    
66.       (setq current_angle (abs (- end_angle start_angle)))
    
67.       (if (> current_angle (* 2 pi))
    
68.         (setq current_angle (- current_angle (* 2 pi)))
    
69.       )
    
70.       (setq current_length (* radius current_angle))
    
71.       
    
72.       (princ (strcat "\n当前圆弧长度: " (rtos current_length 2 2)))
    
73.       (princ (strcat "\n当前圆弧角度: " (rtos (* (/ current_angle pi) 180) 2 2) "°"))
    
74.       
    
75.       ;; 获取新的圆弧长度
    
76.       (initget 7)
    
77.       (setq new_length (getreal "\n请输入新的圆弧长度: "))
    
78.       
    
79.       (if (and new_length (> new_length 0))
    
80.         (progn
    
81.           ;; 计算新的角度（弧度）
    
82.           (setq new_angle (/ new_length radius))
    
83.          
    
84.           ;; 检查角度是否合理
    
85.           (if (> new_angle (* 2 pi))
    
86.             (progn
    
87.               (princ "\n警告: 新长度对应的角度超过360°，将限制为360°")
    
88.               (setq new_angle (* 2 pi))
    
89.               (setq new_length (* radius new_angle))
    
90.             )
    
91.           )
    
92.          
    
93.           ;; 保持圆弧方向，修改结束角度
    
94.           (if (> end_angle start_angle)
    
95.             (setq new_end_angle (+ start_angle new_angle))
    
96.             (setq new_end_angle (- start_angle new_angle))
    
97.           )
    
98.          
    
99.           ;; 更新圆弧
    
100.           (entmod (subst (cons 51 new_end_angle) (assoc 51 arc_data) arc_data))
     
101.           (entupd arc_ent)
     
102.          
     
103.           (princ (strcat "\n圆弧长度已修改为: " (rtos new_length 2 2)))
     
104.           (princ (strcat "\n新的圆弧角度: " (rtos (* (/ new_angle pi) 180) 2 2) "°"))
     
105.         )
     
106.         (princ "\n无效的长度输入，操作取消。")
     
107.       )
     
108.     )
     
109.     (princ "\n未选择圆弧或选择无效。")
     
110.   )
     
111.   (princ)
     
112. )
     
113. 
     
114. ;; 批量修改多个圆弧长度
     
115. (defun c:ChangeMultipleArcsLength (/ ss i arc_ent arc_data center radius start_angle end_angle new_length count)
     
116.   (vl-load-com)
     
117.   
     
118.   (princ "\n选择要修改长度的多个圆弧: ")
     
119.   
     
120.   (if (setq ss (ssget '((0 . "ARC"))))
     
121.     (progn
     
122.       (setq count (sslength ss))
     
123.       (princ (strcat "\n选择了 " (itoa count) " 个圆弧"))
     
124.       
     
125.       ;; 获取新的圆弧长度
     
126.       (initget 7)
     
127.       (setq new_length (getreal "\n请输入新的圆弧长度: "))
     
128.       
     
129.       (if (and new_length (> new_length 0))
     
130.         (progn
     
131.           (setq i 0)
     
132.           (repeat count
     
133.             (setq arc_ent (ssname ss i)
     
134.                   arc_data (entget arc_ent)
     
135.                   center (cdr (assoc 10 arc_data))
     
136.                   radius (cdr (assoc 40 arc_data))
     
137.                   start_angle (cdr (assoc 50 arc_data))
     
138.                   end_angle (cdr (assoc 51 arc_data)))
     
139.             
     
140.             ;; 计算新的角度
     
141.             (setq new_angle (/ new_length radius))
     
142.             
     
143.             ;; 限制最大角度为360°
     
144.             (if (> new_angle (* 2 pi))
     
145.               (setq new_angle (* 2 pi))
     
146.             )
     
147.             
     
148.             ;; 保持圆弧方向，修改结束角度
     
149.             (if (> end_angle start_angle)
     
150.               (setq new_end_angle (+ start_angle new_angle))
     
151.               (setq new_end_angle (- start_angle new_angle))
     
152.             )
     
153.             
     
154.             ;; 更新圆弧
     
155.             (entmod (subst (cons 51 new_end_angle) (assoc 51 arc_data) arc_data))
     
156.             (entupd arc_ent)
     
157.             
     
158.             (setq i (1+ i))
     
159.           )
     
160.          
     
161.           (princ (strcat "\n成功修改 " (itoa count) " 个圆弧的长度为: " (rtos new_length 2 2)))
     
162.         )
     
163.         (princ "\n无效的长度输入，操作取消。")
     
164.       )
     
165.     )
     
166.     (princ "\n未选择圆弧或选择无效。")
     
167.   )
     
168.   (princ)
     
169. )
     
170. 
     
171. ;; 圆弧长度信息显示
     
172. (defun c:ArcInfo (/ ss arc_ent arc_data center radius start_angle end_angle arc_obj length angle_deg)
     
173.   (vl-load-com)
     
174.   
     
175.   (princ "\n选择要显示信息的圆弧: ")
     
176.   
     
177.   (if (setq ss (ssget ":S" '((0 . "ARC"))))
     
178.     (progn
     
179.       (setq arc_ent (ssname ss 0)
     
180.             arc_data (entget arc_ent)
     
181.             center (cdr (assoc 10 arc_data))
     
182.             radius (cdr (assoc 40 arc_data))
     
183.             start_angle (cdr (assoc 50 arc_data))
     
184.             end_angle (cdr (assoc 51 arc_data))
     
185.             arc_obj (vlax-ename->vla-object arc_ent))
     
186.       
     
187.       ;; 计算长度和角度
     
188.       (setq length (vla-get-arclength arc_obj))
     
189.       (setq angle_deg (* (/ (abs (- end_angle start_angle)) pi) 180))
     
190.       
     
191.       (princ "\n=== 圆弧信息 ===")
     
192.       (princ (strcat "\n圆心: (" (rtos (car center) 2 2) ", " (rtos (cadr center) 2 2) ")"))
     
193.       (princ (strcat "\n半径: " (rtos radius 2 2)))
     
194.       (princ (strcat "\n起始角度: " (rtos (* (/ start_angle pi) 180) 2 2) "°"))
     
195.       (princ (strcat "\n结束角度: " (rtos (* (/ end_angle pi) 180) 2 2) "°"))
     
196.       (princ (strcat "\n圆弧角度: " (rtos angle_deg 2 2) "°"))
     
197.       (princ (strcat "\n圆弧长度: " (rtos length 2 2)))
     
198.     )
     
199.     (princ "\n未选择圆弧。")
     
200.   )
     
201.   (princ)
     
202. )
     
203. 
     
204. ;; 加载提示
     
205. (princ "\n圆弧长度修改程序已加载")
     
206. (princ "\n命令说明:")
     
207. (princ "\n  ChangeArcLength - 修改单个圆弧长度")
     
208. (princ "\n  ChangeArcLengthExact - 精确修改单个圆弧长度")
     
209. (princ "\n  ChangeMultipleArcsLength - 批量修改多个圆弧长度")
     
210. (princ "\n  ArcInfo - 显示圆弧信息")
     
211. (princ)

(defun c:ChangeArcLength (/ ss arc_ent arc_data center radius start_angle end_angle current_length new_length arc_obj)<br />   (vl-load-com)<br />   <br />   (princ "\n选择要修改长度的圆弧: ")<br />   <br />   (if (setq ss (ssget ":S" '((0 . "ARC"))))<br />     (progn<br />       (setq arc_ent (ssname ss 0)<br />             arc_data (entget arc_ent)<br />             center (cdr (assoc 10 arc_data))<br />             radius (cdr (assoc 40 arc_data))<br />             start_angle (cdr (assoc 50 arc_data))<br />             end_angle (cdr (assoc 51 arc_data))<br />             arc_obj (vlax-ename->vla-object arc_ent))<br />       <br />       ;; 计算当前圆弧长度<br />       (setq current_length (vla-get-arclength arc_obj))<br />       (princ (strcat "\n当前圆弧长度: " (rtos current_length 2 2)))<br />       <br />       ;; 获取新的圆弧长度<br />       (initget 7)  ;; 不允许0、负值和空值<br />       (setq new_length (getreal "\n请输入新的圆弧长度: "))<br />       <br />       (if new_length<br />         (progn<br />           ;; 计算新的角度范围<br />           (setq total_angle (abs (- end_angle start_angle)))<br />           (setq new_total_angle (* (/ new_length current_length) total_angle))<br />           <br />           ;; 保持圆弧方向，修改结束角度<br />           (if (> end_angle start_angle)<br />             (setq new_end_angle (+ start_angle new_total_angle))<br />             (setq new_end_angle (- start_angle new_total_angle))<br />           )<br />           <br />           ;; 更新圆弧<br />           (entmod (subst (cons 51 new_end_angle) (assoc 51 arc_data) arc_data))<br />           (entupd arc_ent)<br />           <br />           (princ (strcat "\n圆弧长度已修改为: " (rtos new_length 2 2)))<br />         )<br />         (princ "\n未输入长度，操作取消。")<br />       )<br />     )<br />     (princ "\n未选择圆弧或选择无效。")<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 更精确的版本 - 使用几何计算<br /> (defun c:ChangeArcLengthExact (/ ss arc_ent arc_data center radius start_angle end_angle new_length arc_obj current_angle)<br />   (vl-load-com)<br />   <br />   (princ "\n选择要修改长度的圆弧: ")<br />   <br />   (if (setq ss (ssget ":S" '((0 . "ARC"))))<br />     (progn<br />       (setq arc_ent (ssname ss 0)<br />             arc_data (entget arc_ent)<br />             center (cdr (assoc 10 arc_data))<br />             radius (cdr (assoc 40 arc_data))<br />             start_angle (cdr (assoc 50 arc_data))<br />             end_angle (cdr (assoc 51 arc_data)))<br />       <br />       ;; 计算当前角度和长度<br />       (setq current_angle (abs (- end_angle start_angle)))<br />       (if (> current_angle (* 2 pi))<br />         (setq current_angle (- current_angle (* 2 pi)))<br />       )<br />       (setq current_length (* radius current_angle))<br />       <br />       (princ (strcat "\n当前圆弧长度: " (rtos current_length 2 2)))<br />       (princ (strcat "\n当前圆弧角度: " (rtos (* (/ current_angle pi) 180) 2 2) "°"))<br />       <br />       ;; 获取新的圆弧长度<br />       (initget 7)<br />       (setq new_length (getreal "\n请输入新的圆弧长度: "))<br />       <br />       (if (and new_length (> new_length 0))<br />         (progn<br />           ;; 计算新的角度（弧度）<br />           (setq new_angle (/ new_length radius))<br />           <br />           ;; 检查角度是否合理<br />           (if (> new_angle (* 2 pi))<br />             (progn<br />               (princ "\n警告: 新长度对应的角度超过360°，将限制为360°")<br />               (setq new_angle (* 2 pi))<br />               (setq new_length (* radius new_angle))<br />             )<br />           )<br />           <br />           ;; 保持圆弧方向，修改结束角度<br />           (if (> end_angle start_angle)<br />             (setq new_end_angle (+ start_angle new_angle))<br />             (setq new_end_angle (- start_angle new_angle))<br />           )<br />           <br />           ;; 更新圆弧<br />           (entmod (subst (cons 51 new_end_angle) (assoc 51 arc_data) arc_data))<br />           (entupd arc_ent)<br />           <br />           (princ (strcat "\n圆弧长度已修改为: " (rtos new_length 2 2)))<br />           (princ (strcat "\n新的圆弧角度: " (rtos (* (/ new_angle pi) 180) 2 2) "°"))<br />         )<br />         (princ "\n无效的长度输入，操作取消。")<br />       )<br />     )<br />     (princ "\n未选择圆弧或选择无效。")<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 批量修改多个圆弧长度<br /> (defun c:ChangeMultipleArcsLength (/ ss i arc_ent arc_data center radius start_angle end_angle new_length count)<br />   (vl-load-com)<br />   <br />   (princ "\n选择要修改长度的多个圆弧: ")<br />   <br />   (if (setq ss (ssget '((0 . "ARC"))))<br />     (progn<br />       (setq count (sslength ss))<br />       (princ (strcat "\n选择了 " (itoa count) " 个圆弧"))<br />       <br />       ;; 获取新的圆弧长度<br />       (initget 7)<br />       (setq new_length (getreal "\n请输入新的圆弧长度: "))<br />       <br />       (if (and new_length (> new_length 0))<br />         (progn<br />           (setq i 0)<br />           (repeat count<br />             (setq arc_ent (ssname ss i)<br />                   arc_data (entget arc_ent)<br />                   center (cdr (assoc 10 arc_data))<br />                   radius (cdr (assoc 40 arc_data))<br />                   start_angle (cdr (assoc 50 arc_data))<br />                   end_angle (cdr (assoc 51 arc_data)))<br />             <br />             ;; 计算新的角度<br />             (setq new_angle (/ new_length radius))<br />             <br />             ;; 限制最大角度为360°<br />             (if (> new_angle (* 2 pi))<br />               (setq new_angle (* 2 pi))<br />             )<br />             <br />             ;; 保持圆弧方向，修改结束角度<br />             (if (> end_angle start_angle)<br />               (setq new_end_angle (+ start_angle new_angle))<br />               (setq new_end_angle (- start_angle new_angle))<br />             )<br />             <br />             ;; 更新圆弧<br />             (entmod (subst (cons 51 new_end_angle) (assoc 51 arc_data) arc_data))<br />             (entupd arc_ent)<br />             <br />             (setq i (1+ i))<br />           )<br />           <br />           (princ (strcat "\n成功修改 " (itoa count) " 个圆弧的长度为: " (rtos new_length 2 2)))<br />         )<br />         (princ "\n无效的长度输入，操作取消。")<br />       )<br />     )<br />     (princ "\n未选择圆弧或选择无效。")<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 圆弧长度信息显示<br /> (defun c:ArcInfo (/ ss arc_ent arc_data center radius start_angle end_angle arc_obj length angle_deg)<br />   (vl-load-com)<br />   <br />   (princ "\n选择要显示信息的圆弧: ")<br />   <br />   (if (setq ss (ssget ":S" '((0 . "ARC"))))<br />     (progn<br />       (setq arc_ent (ssname ss 0)<br />             arc_data (entget arc_ent)<br />             center (cdr (assoc 10 arc_data))<br />             radius (cdr (assoc 40 arc_data))<br />             start_angle (cdr (assoc 50 arc_data))<br />             end_angle (cdr (assoc 51 arc_data))<br />             arc_obj (vlax-ename->vla-object arc_ent))<br />       <br />       ;; 计算长度和角度<br />       (setq length (vla-get-arclength arc_obj))<br />       (setq angle_deg (* (/ (abs (- end_angle start_angle)) pi) 180))<br />       <br />       (princ "\n=== 圆弧信息 ===")<br />       (princ (strcat "\n圆心: (" (rtos (car center) 2 2) ", " (rtos (cadr center) 2 2) ")"))<br />       (princ (strcat "\n半径: " (rtos radius 2 2)))<br />       (princ (strcat "\n起始角度: " (rtos (* (/ start_angle pi) 180) 2 2) "°"))<br />       (princ (strcat "\n结束角度: " (rtos (* (/ end_angle pi) 180) 2 2) "°"))<br />       (princ (strcat "\n圆弧角度: " (rtos angle_deg 2 2) "°"))<br />       (princ (strcat "\n圆弧长度: " (rtos length 2 2)))<br />     )<br />     (princ "\n未选择圆弧。")<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 加载提示<br /> (princ "\n圆弧长度修改程序已加载")<br /> (princ "\n命令说明:")<br /> (princ "\n  ChangeArcLength - 修改单个圆弧长度")<br /> (princ "\n  ChangeArcLengthExact - 精确修改单个圆弧长度")<br /> (princ "\n  ChangeMultipleArcsLength - 批量修改多个圆弧长度")<br /> (princ "\n  ArcInfo - 显示圆弧信息")<br /> (princ)

qifeifei

居然是免费插件，太感动了。

叮咚

LENGTHEN  CAD自带命令就可以

ynhh

叮咚 发表于 2025-10-28 17:11
LENGTHEN  CAD自带命令就可以

效果不一样吧

tranque

居然是免费插件，太感动了。

429014673

原始命令就可以解决吧

llsheng_73

果然和想象中的一样，当指定长度超过整个圆的时候它会乱来