先上图，要求在图里

k1nger

ssyfeng

这种比较特殊的一般需要定制

liuhe

给别人定制过类似的插件

ssyfeng

上图：

k1nger

ssyfeng 发表于 2023-9-16 13:38
上图：

上下代码罢

k1nger

2. (defun C:tt1 (/ num E namelst lenlst e1lst loopcolsed I temlst loopz P1 P2 ang1 P11 P22 P33 P44 len1 )
   
3.         ;(setq E (car (entsel)))
   
4.         (setq num 0
   
5.                     ss(ssget '((0."*line")))
   
6.         )
   
7.         (if (=ss nil))
   
8.         (vl-exit-with-value 0)
   
9. )
   
10. (setq namelst (list "操作层2000x600" "操作层2500x600" "操作层2200x600"   "操作层1800x600"  "操作层1500x600"  "操作层1000x600" "操作层600x600" "操作层500x600" "操作层400x600" "操作层300x600"  
    
11.                                                         )
    
12.             lenlst (list 2000 2500 2200 1800 1500 1000 600 500 400 300)
    
13. )
    
14. (repeat (sslength ss)
    
15.         (setq e (ssname ss num))
    
16.         (if e
    
17.                 (progn
    
18.                         (setq e1lst (outcurvept e)
    
19.                                     e1lst (pllst e1lst)
    
20.                                     loopcolsed (vlax-curve-isClosed e)
    
21.                         )
    
22.                 )
    
23.         )
    
24.         (setq i 0
    
25.                     temlst nil
    
26.                     loopz T
    
27.         )
    
28.         (while (nth (+ I 2) e1lst)
    
29.                 (setq p1 (nth i e1lst)
    
30.                                         p2 (nth (+ i 1 )e1lst)
    
31.                                         ang1 (angle p1 p2)
    
32.                                         p11 (polar p1 (+ (* 0 5 pi)ang1)300)
    
33.                        
    
34.                 )
    
35.                
    
36.         )
    
37. )
    
38. 代码求补充

(defun C:tt1 (/ num E namelst lenlst e1lst loopcolsed I temlst loopz P1 P2 ang1 P11 P22 P33 P44 len1 )<br />         ;(setq E (car (entsel)))<br />         (setq num 0 <br />                     ss(ssget '((0."*line")))<br />         )<br />         (if (=ss nil))<br />         (vl-exit-with-value 0)<br /> )<br /> (setq namelst (list "操作层2000x600" "操作层2500x600" "操作层2200x600"   "操作层1800x600"  "操作层1500x600"  "操作层1000x600" "操作层600x600" "操作层500x600" "操作层400x600" "操作层300x600"  <br />                                                         )<br />             lenlst (list 2000 2500 2200 1800 1500 1000 600 500 400 300)<br /> )<br /> (repeat (sslength ss)<br />         (setq e (ssname ss num))<br />         (if e <br />                 (progn<br />                         (setq e1lst (outcurvept e)<br />                                     e1lst (pllst e1lst)<br />                                     loopcolsed (vlax-curve-isClosed e)<br />                         )<br />                 )<br />         )<br />         (setq i 0 <br />                     temlst nil<br />                     loopz T<br />         )<br />         (while (nth (+ I 2) e1lst)<br />                 (setq p1 (nth i e1lst)<br />                                         p2 (nth (+ i 1 )e1lst)<br />                                         ang1 (angle p1 p2)<br />                                         p11 (polar p1 (+ (* 0 5 pi)ang1)300)<br />                         <br />                 )<br />                 <br />         )<br /> )<br /> 代码求补充