社区 › 编程申请 › 先上图，要求在图里

k1nger 发表于 2023-9-15 14:29:10

先上图，要求在图里

ssyfeng 发表于 2023-9-15 17:11:51

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

liuhe 发表于 2023-9-15 21:43:34

给别人定制过类似的插件

ssyfeng 发表于 2023-9-16 13:38:38

上图：

k1nger 发表于 2023-9-16 16:18:24

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

上下代码罢:loveliness:

k1nger 发表于 2023-9-20 14:14:05

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

查看完整版本: 先上图，要求在图里