【求助】有无多段线批量避让天正标注的插件

tranque

如图，想要图片这种避让效果

shujh1989

tranque 发表于 2025-5-12 18:54
多段线的打断，天正电气的两个命令：导线至上，导线至下都可以打断的多段线的，现在想在标注的地方打断真 ...

还是有办法实现的，支持天正给排水的引出标注，天正电气不清楚我没有装这个软件。

1. (defun c:QQ1 (/ *error* plines ss i ent pts pt param params entData tempLine startPt endPt param1 param2)
   
2.   (vl-load-com)
   
3.   
   
4.   (defun *error* (msg)
   
5.     (if (not (wcmatch msg "Function cancelled,*quit*,*exit*"))
   
6.       (princ (strcat "\n错误: " msg))
   
7.     )
   
8.     (princ)
   
9.   )
   
10.   
    
11.   ; 步骤1：选择多段线（允许多选）
    
12.   (princ "\n步骤1/3: 选择要打断的多段线（可多选）...")
    
13.   (if (setq plines (ssget '((0 . "*POLYLINE"))))
    
14.     (progn
    
15.       ; 步骤2：选择天正引出标注的引线
    
16.       (princ "\n步骤2/3: 选择天正引出标注的引线...")
    
17.       (if (setq ss (ssget '((0 . "~VIEWPORT")))) ; 专门选择天正引出标注
    
18.         (progn
    
19.           ; 遍历每条多段线
    
20.           (repeat (setq k (sslength plines))
    
21.             (setq pline (ssname plines (setq k (1- k))))
    
22.             (princ (strcat "\n正在处理多段线 " (itoa (- (sslength plines) k)) "/" (itoa (sslength plines))))
    
23.             
    
24.             ; 按选择顺序处理每个天正引出标注
    
25.             (setq i 0)
    
26.             (repeat (sslength ss)
    
27.               (setq ent (ssname ss i))
    
28.               (setq entData (entget ent))
    
29.               (setq i (1+ i))
    
30.               
    
31.               ; 获取引线的起点和转折点
    
32.               (if (and (setq startPt (cdr (assoc 10 entData))) ; 起点
    
33.                        (setq endPt (cdr (assoc 11 entData))))   ; 转折点或终点
    
34.                 (progn
    
35.                   ; 创建临时直线用于求交
    
36.                   (setq tempLine (entmakex (list '(0 . "LINE") (cons 10 startPt) (cons 11 endPt))))
    
37.                   
    
38.                   ; 求交
    
39.                   (setq pts (vlax-invoke (vlax-ename->vla-object pline)
    
40.                                         'IntersectWith
    
41.                                         (vlax-ename->vla-object tempLine)
    
42.                                         acExtendNone))
    
43.                   (entdel tempLine) ; 删除临时直线
    
44.                   
    
45.                   (while pts
    
46.                     (setq pt (list (car pts) (cadr pts) (caddr pts)))
    
47.                     (if (setq param (vlax-curve-getParamAtPoint pline pt))
    
48.                       (progn
    
49.                         ; 计算打断点前后125mm的位置
    
50.                         (setq param1 (vlax-curve-getParamAtDist pline (max 0.0 (- (vlax-curve-getDistAtParam pline param) 125.0))))
    
51.                         (setq param2 (vlax-curve-getParamAtDist pline (min (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline))
    
52.                                                                          (+ (vlax-curve-getDistAtParam pline param) 125.0))))
    
53.                         
    
54.                         ; 执行打断
    
55.                         (command "._break" pline
    
56.                                  "_non" (vlax-curve-getPointAtParam pline param1)
    
57.                                  "_non" (vlax-curve-getPointAtParam pline param2))
    
58.                         (setq pline (entlast)) ; 更新为后半段
    
59.                         
    
60.                         (princ (strcat "\n已打断多段线，位置: " (rtos (vlax-curve-getDistAtParam pline param) 2 2) "mm"))
    
61.                       )
    
62.                     )
    
63.                     (setq pts (cdddr pts))
    
64.                   )
    
65.                 )
    
66.               )
    
67.             )
    
68.           )
    
69.           (princ "\n步骤3/3: 已完成所有多段线的打断操作。")
    
70.         )
    
71.         (princ "\n取消: 未选择天正引出标注。")
    
72.       )
    
73.     )
    
74.     (princ "\n取消: 未选择多段线。")
    
75.   )
    
76.   (princ)
    
77. )
    
78. 
    
79. (princ "\n输入 QQ1 执行多段线打断（支持多选多段线，按选择顺序处理）")
    
80. (princ)
    

(defun c:QQ1 (/ *error* plines ss i ent pts pt param params entData tempLine startPt endPt param1 param2)<br />   (vl-load-com)<br />   <br />   (defun *error* (msg)<br />     (if (not (wcmatch msg "Function cancelled,*quit*,*exit*"))<br />       (princ (strcat "\n错误: " msg))<br />     )<br />     (princ)<br />   )<br />   <br />   ; 步骤1：选择多段线（允许多选）<br />   (princ "\n步骤1/3: 选择要打断的多段线（可多选）...")<br />   (if (setq plines (ssget '((0 . "*POLYLINE"))))<br />     (progn<br />       ; 步骤2：选择天正引出标注的引线<br />       (princ "\n步骤2/3: 选择天正引出标注的引线...")<br />       (if (setq ss (ssget '((0 . "~VIEWPORT")))) ; 专门选择天正引出标注<br />         (progn<br />           ; 遍历每条多段线<br />           (repeat (setq k (sslength plines))<br />             (setq pline (ssname plines (setq k (1- k))))<br />             (princ (strcat "\n正在处理多段线 " (itoa (- (sslength plines) k)) "/" (itoa (sslength plines))))<br />             <br />             ; 按选择顺序处理每个天正引出标注<br />             (setq i 0)<br />             (repeat (sslength ss)<br />               (setq ent (ssname ss i))<br />               (setq entData (entget ent))<br />               (setq i (1+ i))<br />               <br />               ; 获取引线的起点和转折点<br />               (if (and (setq startPt (cdr (assoc 10 entData))) ; 起点<br />                        (setq endPt (cdr (assoc 11 entData))))   ; 转折点或终点<br />                 (progn<br />                   ; 创建临时直线用于求交<br />                   (setq tempLine (entmakex (list '(0 . "LINE") (cons 10 startPt) (cons 11 endPt))))<br />                   <br />                   ; 求交<br />                   (setq pts (vlax-invoke (vlax-ename->vla-object pline) <br />                                         'IntersectWith <br />                                         (vlax-ename->vla-object tempLine) <br />                                         acExtendNone))<br />                   (entdel tempLine) ; 删除临时直线<br />                   <br />                   (while pts<br />                     (setq pt (list (car pts) (cadr pts) (caddr pts)))<br />                     (if (setq param (vlax-curve-getParamAtPoint pline pt))<br />                       (progn<br />                         ; 计算打断点前后125mm的位置<br />                         (setq param1 (vlax-curve-getParamAtDist pline (max 0.0 (- (vlax-curve-getDistAtParam pline param) 125.0))))<br />                         (setq param2 (vlax-curve-getParamAtDist pline (min (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline)) <br />                                                                          (+ (vlax-curve-getDistAtParam pline param) 125.0))))<br />                         <br />                         ; 执行打断<br />                         (command "._break" pline <br />                                  "_non" (vlax-curve-getPointAtParam pline param1)<br />                                  "_non" (vlax-curve-getPointAtParam pline param2))<br />                         (setq pline (entlast)) ; 更新为后半段<br />                         <br />                         (princ (strcat "\n已打断多段线，位置: " (rtos (vlax-curve-getDistAtParam pline param) 2 2) "mm"))<br />                       )<br />                     )<br />                     (setq pts (cdddr pts))<br />                   )<br />                 )<br />               )<br />             )<br />           )<br />           (princ "\n步骤3/3: 已完成所有多段线的打断操作。")<br />         )<br />         (princ "\n取消: 未选择天正引出标注。")<br />       )<br />     )<br />     (princ "\n取消: 未选择多段线。")<br />   )<br />   (princ)<br /> )<br /> <br /> (princ "\n输入 QQ1 执行多段线打断（支持多选多段线，按选择顺序处理）")<br /> (princ)<br />

shujh1989

天正需要自己研究，这个程序处理不了。我的ai提示词是这样写的：用autolisp写一个程序。第一步选择多段线，第二步选择与多段线有交叉的实体，第三步多段线在与实体交叉处自动打断，多段线打断处间隔250mm。

你有种再说一遍

没有意义吧,线粗不就可以区分

tranque

你有种再说一遍 发表于 2025-5-10 15:08
没有意义吧,线粗不就可以区分

我也感觉没意义，但是现在公司给其他设计公司做外包呢，人家就这样的要求标准

tranque

你是一名顶尖程序员现在帮我用autolisp给autocad2022写一个插件，要求默认使用局部变量；所有变量作用域均被限制在函数内部，完全避免全局污染,它可以批量处理选中的多段线，在每个天正引出标注与多段线的交点处自动打断多段线，缝隙为250mm宽，（天正引出标注的实体类型为：TCH_MULTILEADER）
---------
加载进cad就显示 错误: 输入的列表有缺陷，让ai改了4次，还是错误: 输入的列表有缺陷
---------
不求大佬帮我改代码，想知道大佬是怎么问的，如何引导ai逐步修改呢

你有种再说一遍

tranque 发表于 2025-5-10 15:27
我也感觉没意义，但是现在公司给其他设计公司做外包呢，人家就这样的要求标准

有很多东西不是技术问题,而是沟通问题,
我教你一招,
直接画完图纸之后,把时间卡死,最后对方无可奈可的接受,毕竟能看得过去,大家也懂.

tiancao100

你有种再说一遍 发表于 2025-5-10 17:06
有很多东西不是技术问题,而是沟通问题,
我教你一招,
直接画完图纸之后,把时间卡死,最后对方无可奈可的 ...

不教人好
最后钱难要，就麻烦了。

shujh1989

tranque 发表于 2025-5-10 16:28
你是一名顶尖程序员现在帮我用autolisp给autocad2022写一个插件，要求默认使用局部变量；所有变量作用域均 ...

编码另存为ansi的格式试一试。天正不太好搞，好像检测不出来。这是ai写的代码，能运行。

2. (defun c:qq1(/ *error* pline ss i ent pts pt param params breakPairs lastDist)
   
3.   (vl-load-com)
   
4.   
   
5.   (defun *error* (msg)
   
6.     (if (not (wcmatch msg "Function cancelled,*quit*,*exit*"))
   
7.       (princ (strcat "\n错误: " msg))
   
8.     )
   
9.     (princ)
   
10.   )
    
11.   
    
12.   ; 步骤1：选择多段线
    
13.   (if (setq pline (car (entsel "\n步骤1/3: 选择要打断的多段线: ")))
    
14.     (progn
    
15.       (if (not (wcmatch (cdr (assoc 0 (entget pline))) "*POLYLINE"))
    
16.         (progn
    
17.           (princ "\n错误: 所选对象不是多段线!")
    
18.           (exit)
    
19.         )
    
20.       )
    
21.       
    
22.       ; 步骤2：选择交叉实体
    
23.       (princ "\n步骤2/3: 选择与多段线交叉的实体...")
    
24.       (if (setq ss (ssget '((0 . "~VIEWPORT")))) ; 排除视口，选择其他所有实体
    
25.         (progn
    
26.           (setq params nil)
    
27.          
    
28.           ; 收集所有交点参数
    
29.           (repeat (setq i (sslength ss))
    
30.             (setq ent (ssname ss (setq i (1- i))))
    
31.             (if (not (eq ent pline)) ; 排除多段线自身
    
32.               (progn
    
33.                 (setq pts (vlax-invoke (vlax-ename->vla-object pline)
    
34.                                       'IntersectWith
    
35.                                       (vlax-ename->vla-object ent)
    
36.                                       acExtendNone))
    
37.                 (while pts
    
38.                   (setq pt (list (car pts) (cadr pts) (caddr pts)))
    
39.                   (if (setq param (vlax-curve-getParamAtPoint pline pt))
    
40.                     (setq params (cons param params))
    
41.                   )
    
42.                   (setq pts (cdddr pts))
    
43.                 )
    
44.               )
    
45.             )
    
46.           )
    
47.          
    
48.           ; 步骤3：处理打断点（保持250mm间隔）
    
49.           (if params
    
50.             (progn
    
51.               (setq params (vl-sort params '<))
    
52.               (setq breakPairs nil)
    
53.               (setq lastDist -1e308) ; 初始值
    
54.               
    
55.               ; 筛选满足间距要求的参数
    
56.               (foreach param params
    
57.                 (setq curDist (vlax-curve-getDistAtParam pline param))
    
58.                 (if (>= (abs (- curDist lastDist)) 250.0) ; 检查250mm间距
    
59.                   (progn
    
60.                     ; 计算打断点前后125mm的位置
    
61.                     (setq param1 (vlax-curve-getParamAtDist pline (max 0.0 (- curDist 125.0))))
    
62.                     (setq param2 (vlax-curve-getParamAtDist pline (min (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline))
    
63.                                                                        (+ curDist 125.0))))
    
64.                     (setq breakPairs (cons (list param1 param2) breakPairs))
    
65.                     (setq lastDist curDist)
    
66.                   )
    
67.                 )
    
68.               )
    
69.               
    
70.               ; 按从后向前顺序打断
    
71.               (setq breakPairs (vl-sort breakPairs '(lambda (a b) (> (car a) (car b)))))
    
72.               
    
73.               ; 执行打断
    
74.               (foreach pair breakPairs
    
75.                 (command "._break" pline
    
76.                          "_non" (vlax-curve-getPointAtParam pline (car pair))
    
77.                          "_non" (vlax-curve-getPointAtParam pline (cadr pair)))
    
78.                 (setq pline (entlast)) ; 更新为后半段
    
79.               )
    
80.               
    
81.               (princ (strcat "\n步骤3/3: 已在 " (itoa (length breakPairs)) " 个位置打断多段线，保持250mm间隔。"))
    
82.             )
    
83.             (princ "\n警告: 未发现多段线与所选实体的交叉点!")
    
84.           )
    
85.         )
    
86.         (princ "\n取消: 未选择任何实体。")
    
87.       )
    
88.     )
    
89.     (princ "\n取消: 未选择多段线。")
    
90.   )
    
91.   (princ)
    
92. )
    
93. 
    
94. (princ "\n输入 BPBreakWithSpacing 执行多段线打断（250mm间隔）")
    
95. (princ)
    

(defun c:qq1(/ *error* pline ss i ent pts pt param params breakPairs lastDist)<br />   (vl-load-com)<br />   <br />   (defun *error* (msg)<br />     (if (not (wcmatch msg "Function cancelled,*quit*,*exit*"))<br />       (princ (strcat "\n错误: " msg))<br />     )<br />     (princ)<br />   )<br />   <br />   ; 步骤1：选择多段线<br />   (if (setq pline (car (entsel "\n步骤1/3: 选择要打断的多段线: ")))<br />     (progn<br />       (if (not (wcmatch (cdr (assoc 0 (entget pline))) "*POLYLINE"))<br />         (progn<br />           (princ "\n错误: 所选对象不是多段线!")<br />           (exit)<br />         )<br />       )<br />       <br />       ; 步骤2：选择交叉实体<br />       (princ "\n步骤2/3: 选择与多段线交叉的实体...")<br />       (if (setq ss (ssget '((0 . "~VIEWPORT")))) ; 排除视口，选择其他所有实体<br />         (progn<br />           (setq params nil)<br />           <br />           ; 收集所有交点参数<br />           (repeat (setq i (sslength ss))<br />             (setq ent (ssname ss (setq i (1- i))))<br />             (if (not (eq ent pline)) ; 排除多段线自身<br />               (progn<br />                 (setq pts (vlax-invoke (vlax-ename->vla-object pline) <br />                                       'IntersectWith <br />                                       (vlax-ename->vla-object ent) <br />                                       acExtendNone))<br />                 (while pts<br />                   (setq pt (list (car pts) (cadr pts) (caddr pts)))<br />                   (if (setq param (vlax-curve-getParamAtPoint pline pt))<br />                     (setq params (cons param params))<br />                   )<br />                   (setq pts (cdddr pts))<br />                 )<br />               )<br />             )<br />           )<br />           <br />           ; 步骤3：处理打断点（保持250mm间隔）<br />           (if params<br />             (progn<br />               (setq params (vl-sort params '<))<br />               (setq breakPairs nil)<br />               (setq lastDist -1e308) ; 初始值<br />               <br />               ; 筛选满足间距要求的参数<br />               (foreach param params<br />                 (setq curDist (vlax-curve-getDistAtParam pline param))<br />                 (if (>= (abs (- curDist lastDist)) 250.0) ; 检查250mm间距<br />                   (progn<br />                     ; 计算打断点前后125mm的位置<br />                     (setq param1 (vlax-curve-getParamAtDist pline (max 0.0 (- curDist 125.0))))<br />                     (setq param2 (vlax-curve-getParamAtDist pline (min (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline)) <br />                                                                        (+ curDist 125.0))))<br />                     (setq breakPairs (cons (list param1 param2) breakPairs))<br />                     (setq lastDist curDist)<br />                   )<br />                 )<br />               )<br />               <br />               ; 按从后向前顺序打断<br />               (setq breakPairs (vl-sort breakPairs '(lambda (a b) (> (car a) (car b)))))<br />               <br />               ; 执行打断<br />               (foreach pair breakPairs<br />                 (command "._break" pline <br />                          "_non" (vlax-curve-getPointAtParam pline (car pair))<br />                          "_non" (vlax-curve-getPointAtParam pline (cadr pair)))<br />                 (setq pline (entlast)) ; 更新为后半段<br />               )<br />               <br />               (princ (strcat "\n步骤3/3: 已在 " (itoa (length breakPairs)) " 个位置打断多段线，保持250mm间隔。"))<br />             )<br />             (princ "\n警告: 未发现多段线与所选实体的交叉点!")<br />           )<br />         )<br />         (princ "\n取消: 未选择任何实体。")<br />       )<br />     )<br />     (princ "\n取消: 未选择多段线。")<br />   )<br />   (princ)<br /> )<br /> <br /> (princ "\n输入 BPBreakWithSpacing 执行多段线打断（250mm间隔）")<br /> (princ)<br />

tranque

shujh1989 发表于 2025-5-12 17:45
天正需要自己研究，这个程序处理不了。我的ai提示词是这样写的：用autolisp写一个程序。第一步选择多段线， ...

多段线的打断，天正电气的两个命令：导线至上，导线至下都可以打断的多段线的，现在想在标注的地方打断真不太好弄