给新手练手--快速动态阵列（单向）

print1985

对不起各位，因最近发现本人发的个别插件、源码被人挂网上贩卖，虽然没啥技术含量，但是也是花了时间做的。为了不被后面的二手贩子继续利用，忍心下架所有成品插件，敬请理解，确实需要本插件的朋友可以给我留言。


快速动态阵列（单向），程序比较好玩，也很实用
代码有注释，新手可以用来练手
觉得有用的可以点个赞，谢谢~~


部分代码来自论坛，感谢各位大神
技术含量不高，但是水平有限错误难免，如有问题请留言

pilifeng

谢谢提供分享，楼主能否搞一个电气的桥架（管道）绘制小程序？

print1985

pilifeng 发表于 2021-3-2 11:46
谢谢提供分享，楼主能否搞一个电气的桥架（管道）绘制小程序？

天正不是很好用吗 为什么要自己写 难度那么大

pilifeng

简单的就行，两线或者带中心线的那种，不是那么多弯头的那种。

print1985

pilifeng 发表于 2021-3-2 13:11
简单的就行，两线或者带中心线的那种，不是那么多弯头的那种。

晓得和明经搜索一下就有 如果不能满足你需要 自己修改一下代码应该就行

搬运：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=27649&highlight=%CB%AB%CF%DF

2. ;管线绘制 ZZXXQQ 2004.11.11
   
3. (defun c:sx ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq oldos (getvar "osmode"))
   
6.   (setvar "osmode" 0)
   
7.   (setq d   (getdist "\n输入管子外径 d= <200>")
   
8.         d   (if (not d) 200 d)
   
9.         d5  (* d 0.5)
   
10.         r   (getreal (strcat "\n输入管子弯曲半径 <大于" (rtos d5 2 1) "> r= "))
    
11.         r   (if (not r) d5 r)
    
12.         r   (if (> d5 r) d5 r)
    
13.         rs  (- r d5)
    
14.         rd  (+ r d5)
    
15.         pt  (getpoint "\n管线起点 <0,0>: ")
    
16.         pt  (if (/= pt nil) pt (list 0 0))
    
17.         al1 (/ pi 2)
    
18.         al2 (- al1)
    
19.         pt1 (getpoint pt "\n管线下一点 :")
    
20.         a   (angle pt pt1)
    
21.         a1  (+ a al1)
    
22.         a2  (+ a al2)
    
23.         ds  (distance pt1 pt)
    
24.         p1  (polar pt a1 d5)
    
25.         p2  (polar pt a2 d5)
    
26.         p3  (polar p1 a (- ds r))
    
27.         p4  (polar p2 a (- ds r))
    
28.         pt  pt1
    
29.         fir p3
    
30.         sec p4
    
31.   )
    
32.   (command "line" p3 p1 "")
    
33.   (setq s1 (entlast))
    
34.   (command "line" p1 p2 p4 "")
    
35.   (setq s2 (entlast))
    
36.   (while (setq pt1 (getpoint pt "\n管线下一点 :"))
    
37.     (setq a0 (angle pt pt1)
    
38.           a1 (+ a0 al1)
    
39.           a2 (+ a0 al2)
    
40.           ds (distance pt1 pt)
    
41.           p1 (polar (polar pt a1 d5) a0 r)
    
42.           p2 (polar (polar pt a2 d5) a0 r)
    
43.           p3 (polar p1 a0 (- ds r r))
    
44.           p4 (polar p2 a0 (- ds r r))
    
45.     )
    
46.     (command "line" p1 p3 "")
    
47.     (setq s3 (entlast))
    
48.     (command "line" p2 p4 "")
    
49.     (setq s4 (entlast))
    
50.     (if (> (distance p1 fir) (distance p2 sec))
    
51.       (command "fillet" "r" rs "fillet" s2 s4 "fillet" "r" rd "fillet" s1 s3)
    
52.       (command "fillet" "r" rd "fillet" s2 s4 "fillet" "r" rs "fillet" s1 s3)
    
53.     )
    
54.     (setq a   a0
    
55.           pt  pt1
    
56.           s1  s3
    
57.           s2  s4
    
58.           fir p3
    
59.           sec p4
    
60.     )
    
61.   )
    
62.   (setq p1 (polar p3 a0 r)
    
63.         p2 (polar p4 a0 r)
    
64.   )
    
65.   (command "stretch" "c" p3 p3 "" p3 p1 "stretch" "c" p4 p4 "" p4 p2)
    
66.   (command "line" p1 p2 "")
    
67.   (setvar "osmode" oldos)
    
68.   (setvar "cmdecho" 1)
    
69.   (princ)
    
70. )

;管线绘制 ZZXXQQ 2004.11.11<br /> (defun c:sx () <br />   (setvar "cmdecho" 0)<br />   (setq oldos (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq d   (getdist "\n输入管子外径 d= <200>")<br />         d   (if (not d) 200 d)<br />         d5  (* d 0.5)<br />         r   (getreal (strcat "\n输入管子弯曲半径 <大于" (rtos d5 2 1) "> r= "))<br />         r   (if (not r) d5 r)<br />         r   (if (> d5 r) d5 r)<br />         rs  (- r d5)<br />         rd  (+ r d5)<br />         pt  (getpoint "\n管线起点 <0,0>: ")<br />         pt  (if (/= pt nil) pt (list 0 0))<br />         al1 (/ pi 2)<br />         al2 (- al1)<br />         pt1 (getpoint pt "\n管线下一点 :")<br />         a   (angle pt pt1)<br />         a1  (+ a al1)<br />         a2  (+ a al2)<br />         ds  (distance pt1 pt)<br />         p1  (polar pt a1 d5)<br />         p2  (polar pt a2 d5)<br />         p3  (polar p1 a (- ds r))<br />         p4  (polar p2 a (- ds r))<br />         pt  pt1<br />         fir p3<br />         sec p4<br />   )<br />   (command "line" p3 p1 "")<br />   (setq s1 (entlast))<br />   (command "line" p1 p2 p4 "")<br />   (setq s2 (entlast))<br />   (while (setq pt1 (getpoint pt "\n管线下一点 :")) <br />     (setq a0 (angle pt pt1)<br />           a1 (+ a0 al1)<br />           a2 (+ a0 al2)<br />           ds (distance pt1 pt)<br />           p1 (polar (polar pt a1 d5) a0 r)<br />           p2 (polar (polar pt a2 d5) a0 r)<br />           p3 (polar p1 a0 (- ds r r))<br />           p4 (polar p2 a0 (- ds r r))<br />     )<br />     (command "line" p1 p3 "")<br />     (setq s3 (entlast))<br />     (command "line" p2 p4 "")<br />     (setq s4 (entlast))<br />     (if (> (distance p1 fir) (distance p2 sec)) <br />       (command "fillet" "r" rs "fillet" s2 s4 "fillet" "r" rd "fillet" s1 s3)<br />       (command "fillet" "r" rd "fillet" s2 s4 "fillet" "r" rs "fillet" s1 s3)<br />     )<br />     (setq a   a0<br />           pt  pt1<br />           s1  s3<br />           s2  s4<br />           fir p3<br />           sec p4<br />     )<br />   )<br />   (setq p1 (polar p3 a0 r)<br />         p2 (polar p4 a0 r)<br />   )<br />   (command "stretch" "c" p3 p3 "" p3 p1 "stretch" "c" p4 p4 "" p4 p2)<br />   (command "line" p1 p2 "")<br />   (setvar "osmode" oldos)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

greatxs

大佬启发我了

panyakun

我怎么没看到插件在哪下载

杨89

谢谢提供分享

飞鱼98

你好楼主可以发我一份吗，万分感谢