[求助]CAD复制问题

爱情

 

 

如图，我想将一条直线沿一条多线段等距离复制（阵列不能满足要求），在将直线的另一段连接起来，有没有什么好的方法。谢谢。

 

图中蓝色的线长度是一样的。蓝色线的间距也是一样的。

 

可能很多朋友会说用偏移命令，但是效果是不一样的。

 

 

AA图是最后的效果。

xyp1964

直线填充后炸碎

爱情

蓝色的线要保持一样长度，间隔也要一样。

xyp1964

3. ;; djfz(等距复制)  需要学院派工具箱的支持，下载位置：http://xyp1964.ys168.com
4. (defun c:tt (/ ilst l1 l2)
5.   (cmdla0)
6.   ;; __________________________________________________________________
7.   (defun main-pro (/ ss i s1)
8.     (princ "\n选择曲线: ")
9.     (setq ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
10.    i   -1
11.    rad (xyp-d2r ang)
12.     )
13.     (while (setq s1 (ssname ss (setq i (1+ i))))
14.       (xyp-LineWithDist s1 leng dist rad)
15.     )
16.   )
17.   ;; __________________________________________________________________
18.   (setq l1 '(leng dist ang)
19. l2 '(1000. 300. 90.)
20.   )
21.   (xyp-initSet l1 l2)
22.   (setq ilst '(("leng" "线长" "real" "8")
23.         ("dist" "间距" "real" "8")
24.         ("ang" "角度" "real" "8")
25.         (nil nil "spacer;")
26.         (nil nil "ioc")
27.        )
28.   )
29.   (if (= (xyp-Dcl-Init Ilst "【等距复制】" t) 1)
30.     (main-pro)
31.   )
32.   (cmdla1)
33. )

;; djfz(等距复制)  需要学院派工具箱的支持，下载位置：http://xyp1964.ys168.com (defun c:tt (/ ilst l1 l2)   (cmdla0)   ;; __________________________________________________________________   (defun main-pro (/ ss i s1)     (princ "\n选择曲线: ")     (setq ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))    i   -1    rad (xyp-d2r ang)     )     (while (setq s1 (ssname ss (setq i (1+ i))))       (xyp-LineWithDist s1 leng dist rad)     )   )   ;; __________________________________________________________________   (setq l1 '(leng dist ang) l2 '(1000. 300. 90.)   )   (xyp-initSet l1 l2)   (setq ilst '(("leng" "线长" "real" "8")         ("dist" "间距" "real" "8")         ("ang" "角度" "real" "8")         (nil nil "spacer;")         (nil nil "ioc")        )   )   (if (= (xyp-Dcl-Init Ilst "【等距复制】" t) 1)     (main-pro)   )   (cmdla1) )

xyp1964