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



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


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

选择单个圆弧

输入新的长度

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

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

使用几何公式精确计算

显示角度信息

防止角度超过360°

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

选择多个圆弧

统一设置为指定长度

高效批量处理

ArcInfo - 显示圆弧详细信息

圆心坐标、半径

起始角度、结束角度

圆弧角度、长度

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

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

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

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

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








网友答:
  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. )

  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. )

  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. )

  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. )

  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)



网友答: 居然是免费插件，太感动了。

网友答: LENGTHEN  CAD自带命令就可以

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

效果不一样吧

网友答: 居然是免费插件，太感动了。

网友答: 原始命令就可以解决吧

网友答: 果然和想象中的一样，当指定长度超过整个圆的时候它会乱来
  • 上一篇：面板大全
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025