路线缓和曲线绘制，可以实现非对称缓和曲线绘制，可以根据自己需要重新绘图

下文没句号。

我竟然出现的错误

skg123

TT510122 发表于 2018-8-8 18:26
不知道缓和曲线精度是什么东东？

搞不清楚，设计一个默认值也行，这个程序没考虑用户体验

skg123

修改了一下，可用了，精度未验证

2. ;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=176586&extra=&highlight=%BB%BA%BA%CD%C7%FA%CF%DF&page=1
   
3. ;多义线摹拟缓和曲线。
   
4. ;;输入起止直线、半径、缓和曲线长或设计车速。
   
5. ;;命令：HH
   
6. (defun com_p (/)  
   
7.   (setq l   0)
   
8.   (command "ucs" "o" (list (- 0 x1) 0 0));;设置自定义坐标原点
   
9.         (setvar "cecolor" "3");设置对象颜色
   
10.   (command "pline" (list 0 0 0) "w" "0" "";;画多段线
    
11.     (repeat M
    
12.       (setq l (+ l (/ Ls M))
    
13.             x (+ (- l (/ (* l l l l l) 40 C C)) (/ (* l l l l l l l l l) 3456 C C C C))
    
14.             y (* id__ (+ (- (/ (* l l l) 6 C) (/ (* l l l l l l l) 336 C C C)) (/ (* l l l l l l l l l l l) 42240 C C C C C)))
    
15.       );setq end
    
16.       (command (list x y 0))
    
17.     );repaet end
    
18.   );command  end
    
19.   (setq pt5 (trans (list x y 0) 1 0))  ;（trans 点 原位置 新位置[位移]） 返回：转换坐标系统值
    
20.        
    
21. );com_p end
    
22. 
    
23. 
    
24. (defun ll_d()  
    
25.   (setq os (getvar "osmode"))
    
26.   (setvar "osmode" 0)  
    
27.   (setq Ls ls1
    
28.         qq1 (- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 R R R R R R))
    
29.         pp1 (+ (- (/ (* Ls Ls) 24 R) (/ (* Ls Ls Ls Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R))
    
30.               pt1 (cdr (assoc 10 (entget (car p1))))
    
31.         pt2 (cdr (assoc 11 (entget (car p1))))
    
32.         pt10 (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
    
33.         pt3 (cdr (assoc 10 (entget (car p2))))
    
34.         pt4 (cdr (assoc 11 (entget (car p2))))
    
35.         pt20(polar pt3 (angle pt3 pt4) (/ (distance pt3 pt4) 2))
    
36.               jd  (inters pt1 pt2 pt3 pt4 nil);求交点
    
37.         alf1(angle pt10 jd)
    
38.         alf2(angle pt20 jd)
    
39.         alf (- (angle jd pt20) alf1)       
    
40.   );setq
    
41.   (setq Ls ls2
    
42.               qq2 (- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 R R R R R R))
    
43.         pp2 (+ (- (/ (* Ls Ls) 24 R) (/ (* Ls Ls Ls Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R))
    
44.         )
    
45.   (if (or (> alf pi) (and (< alf 0) (> alf (- 0 pi))))
    
46.     (progn
    
47.       (setq id__ -1)
    
48.       (if (> alf pi) (setq alf (- (+ pi pi) alf)) (setq alf (abs alf)))
    
49.     );progn
    
50.     (progn
    
51.       (setq id__ 1)
    
52.       (if (<= alf (- 0 pi)) (setq alf (+ pi pi alf)))
    
53.     );progn
    
54.   );if
    
55.   (setq  C   (* ls1 R)
    
56.                ls ls1
    
57.          x0  (-(/ (* (+ pp1 R) (sin(/ alf 2.0))) (cos(/ alf 2.0)))(/(- pp1 pp2) (sin alf)) )
    
58.          x1  (+ x0 qq1);切线长
    
59.          C1  (+ (*  alf R) Ls);曲线长
    
60.          E   (- (/ (+ R pp1) (cos(/ alf 2))) R);外矢距
    
61.   );setq  
    
62.   (command "ucs" "o" jd)
    
63.   (command "ucs" "z" (/ (* 180 alf1) pi))
    
64.   (com_p)
    
65.   (setq pt6 pt5)
    
66.   (setq ppt1 (list x1 0 0))  
    
67.   (command "ucs" "")
    
68.   (if (> (abs(distance jd pt1)) (abs(distance jd pt2)))
    
69.     (setq ptt1 pt1)
    
70.     (setq ptt1 pt2)
    
71.     );if
    
72.   (setq ptt2 (polar jd alf1 (- 0 x1)))  
    
73.   (thh p1 ptt1 10)
    
74.   (thh p1 ptt2 11)
    
75.   (command "ucs" "o" jd)
    
76.   (command "ucs" "z" (/ (* 180 alf2) pi))
    
77.   (setq id__ (- 0 id__))
    
78.   (setq C (* ls2 R)
    
79.               ls ls2
    
80.         x0  (+(/ (* (+ pp2 R) (sin(/ alf 2.0))) (cos(/ alf 2.0))) (/(- pp1 pp2) (sin alf)))
    
81.         x1  (+ x0 qq2);切线长
    
82.         Cl  (+ (*  alf R) Ls);曲线长
    
83.         E   (- (/ (+ R pp2) (cos(/ alf 2))) R);外矢距
    
84.   );setq  
    
85.   (com_p)
    
86.   (setq ppt2 (list x1 0 0))  
    
87.   (command "ucs" "")
    
88.   
    
89.   (if (> (abs(distance jd pt3)) (abs(distance jd pt4)))
    
90.     (setq ptt3 pt3)
    
91.     (setq ptt3 pt4)
    
92.     );if
    
93.   (setq ptt4 (polar jd alf2 (- 0 x1)))
    
94.   (thh p2 ptt3 10)
    
95.   (thh p2 ptt4 11)
    
96.         (setvar "cecolor" "1");设置对象颜色
    
97.   (if (= id__ 1) (command "arc" pt5 "e" pt6 "r" R) (command "arc" pt6 "e" pt5 "r" R))
    
98.   (setq alfd (angf alf))
    
99.   (setvar "osmode" os)  
    
100.   (command "cmdecho" "1")
     
101.         (setq strcat_QXYS (strcat (strcat "偏　　角=" alfd) "\n半　　径=" (rtos R 2 2) "\n切　线　长=" (rtos x1 2 2) "\n曲　线　长=" (rtos Cl 2 2)  "\n外　　距=" (rtos E 2 2) "\n缓和曲线长=" (rtos Ls 2 2)     ) );曲线要素
     
102.         (setq pt (getpoint "\n指定曲线要素位置: "))
     
103.                                 (entmake (list '(0 . "MTEXT")
     
104.                                                           '(100 . "AcDbEntity")
     
105.                                                     '(100 . "AcDbMText")
     
106.                                                                  '(62 . 3)
     
107.                                                                  (cons 1 strcat_QXYS ) ;
     
108.                                                                    (cons 10  pt )
     
109.                                                                   (cons 40 5 )
     
110.                                                                  '(71 . 1)
     
111.                                                            '(72 . 5)
     
112.                                                                  (cons 50 0)
     
113.                                                              (cons 8 "中心")
     
114.                                                         )         
     
115.                           )        ;;书写曲线要素
     
116.                                                                                                                                          (entmake (list '(0 . "LINE")
     
117.                                                                                                                                                         (cons 10 Pt1 )
     
118.                                                                                                                                                         (cons 11 Pt2 )
     
119.                                                                                                                                                         (cons 8 "中心")
     
120.                                                                                                                                                         (cons 62 6)
     
121.                                                                                                                                                 )
     
122.                                                                                                                                  )
     
123.                                                                                                                                          (entmake (list '(0 . "LINE")
     
124.                                                                                                                                                         (cons 10 Pt3 )
     
125.                                                                                                                                                         (cons 11 Pt4 )
     
126.                                                                                                                                                         (cons 8 "中心")
     
127.                                                                                                                                                         (cons 62 6)
     
128.                                                                                                                                                 )
     
129.                                                                                                                                  )       
     
130.                 (setvar "cecolor" "7");设置颜色
     
131. );ll_d
     
132. 
     
133. ;(defun ll_v()
     
134.   ;(setq V   (getreal "\n输入速度（km/h):")
     
135.        ; Ls1 (* V 0.85)
     
136.        ; Ls2 (/ (* 0.0357 V V V) R)
     
137.        ; Ls  (max Ls1 Ls2 (/ R 9))
     
138.         ;Ls  (* (fix (/ Ls 10)) 10.0)
     
139.   ;);setq
     
140.   ;(if (> Ls R) (setq Ls R))
     
141.   ;(ll_d)
     
142. ;)ll_v
     
143. 
     
144. (defun angf (alf)
     
145.   (setq alff (angtos alf 1 4);angtos 将一个以弧度为单位的角度值转换成字符串,1表示度分秒，4表示精度
     
146.               n 1
     
147.               kk (strlen alff));(strlen 字符串)返回:字符串构成的字符数(即字符串长度)
     
148.   (repeat kk
     
149.     (setq alfn (substr alff n 1));(substr  字符串 起始 长度)返回:取出于字符串
     
150.     (if (= alfn "d")
     
151.         (setq nn n));if
     
152.         (setq n (+ n 1))
     
153.     );repeat
     
154.   (strcat (substr alff 1 (- nn 1)) "%%" (substr alff nn))
     
155. );angf,角度弧度值变为度分秒
     
156. 
     
157. 
     
158. (defun ND()
     
159.   (setq newdraw (getstring "\n重画输入 hh，绘制下一段曲线："))
     
160.   (if(= newdraw "hh")
     
161.     (c:hh)
     
162.     )
     
163. )
     
164. 
     
165. 
     
166. (defun c:hh(/ p1 p2 pt1 pt2 pt3 pt4 pt5 pt6 pt10 pt20 id__  R  Ls E ls1 ls2
     
167.                 r1 x y l x0 x1 C jd alf alf1 alf2 qq1 qq2 pp1 pp2 Cl  M newdraw NN)
     
168.   (command "ucs" "")
     
169.   (setq p1 nil p2 nil)  
     
170.   (while (= p1 nil) (setq p1 (entsel "\n拾取第一条直线<Line>:")))
     
171.   (redraw (car p1) 3)
     
172.   (while (= p2 nil) (setq p2 (entsel "\n拾取第二条直线<Line>:")))
     
173.   (redraw (car p2) 3)
     
174.   (initget 1)
     
175.   (setq NN (getint "\n点取圆(1) or 输入圆半径(2):"))
     
176.   (if(= NN 1) (setq R (cdr (assoc 40 (entget (car (entsel "\n拾取圆:")))))))
     
177.   (if(= NN 2) (setq R (getdist "\n请输入弯道半径 R:  ")))
     
178.   ;(initget 1 "Ls V")
     
179.   ;(setq ls1 (getdist "\n输入缓和曲线长度(Ls1):  "))
     
180.   ;(setq ls2 (getdist "\n输入缓和曲线长度(Ls2)： "))
     
181.   ;(setq M (getint "\n输入缓和曲线段数<例>："))
     
182. 
     
183. 
     
184.                                 (or ls1_old
     
185.                                         (setq ls1_old 80)
     
186.                                 )
     
187.                                  (princ "\n输入第一段缓和曲线段长度(Ls1)<")
     
188.                                  (princ ls1_old)
     
189.                                 (if        (setq tmp (getreal ">: "))
     
190.                                         (setq ls1_old tmp)
     
191.                                 )  
     
192.                                  (setq ls1 ls1_old);第一段       
     
193.        
     
194.                                 (or ls2_old
     
195.                                         (setq ls2_old 120)
     
196.                                 )
     
197.                                  (princ "\n输入第二缓和曲线段长度(Ls2)<")
     
198.                                  (princ ls2_old)
     
199.                                 (if        (setq tmp (getreal ">: "))
     
200.                                         (setq ls2_old tmp)
     
201.                                 )  
     
202.                                  (setq ls2 ls2_old);第二段               
     
203.        
     
204.                                 (or M_old
     
205.                                         (setq M_old 100)
     
206.                                 )
     
207.                                  (princ "\n输入缓和曲线分段数<")
     
208.                                  (princ M_old)
     
209.                                 (if        (setq tmp (getint ">: "))
     
210.                                         (setq M_old tmp)
     
211.                                 )  
     
212.                                  (setq M M_old);       
     
213.        
     
214.   ;(if (= p3 "V") (ll_v) (progn))
     
215.   (ll_d)
     
216.   (ND)
     
217.   (princ)
     
218. );eline
     
219. 
     
220. 
     
221. (defun thh (len pt h /);修改len的参数 len为线，pt为点，h为10 或 11
     
222.   (setq en_data (entget (car len));entget获得对象的定义数据 (entget ename [applist]) 参数 ename 要查询的图元的名称。ename 可以为图形或非图形图元。 applist 注册应用名的列表
     
223.         old_data (assoc h en_data);（assoc  关键元素 联合列表）根据关键元素找寻联合列表中关系信息
     
224.               new_data (cons h pt);（cons  新元素 列表）返回：将新元素添加到列表
     
225.               en (subst new_data old_data en_data)
     
226.         );setq  （subst  新项旧项列表）返回：替换新旧列表后的列表
     
227.   (entmod en);（entmod  对象列表）根据更新的信息列表更新屏幕上元体
     
228. );thh

;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=176586&extra=&highlight=%BB%BA%BA%CD%C7%FA%CF%DF&page=1<br /> ;多义线摹拟缓和曲线。<br /> ;;输入起止直线、半径、缓和曲线长或设计车速。<br /> ;;命令：HH<br /> (defun com_p (/)  <br />   (setq l   0)<br />   (command "ucs" "o" (list (- 0 x1) 0 0));;设置自定义坐标原点<br />         (setvar "cecolor" "3");设置对象颜色<br />   (command "pline" (list 0 0 0) "w" "0" "";;画多段线<br />     (repeat M<br />       (setq l (+ l (/ Ls M))<br />             x (+ (- l (/ (* l l l l l) 40 C C)) (/ (* l l l l l l l l l) 3456 C C C C))<br />             y (* id__ (+ (- (/ (* l l l) 6 C) (/ (* l l l l l l l) 336 C C C)) (/ (* l l l l l l l l l l l) 42240 C C C C C)))<br />       );setq end<br />       (command (list x y 0))<br />     );repaet end<br />   );command  end<br />   (setq pt5 (trans (list x y 0) 1 0))  ;（trans 点 原位置 新位置[位移]） 返回：转换坐标系统值<br />         <br /> );com_p end<br /> <br /> <br /> (defun ll_d()  <br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)  <br />   (setq Ls ls1<br />         qq1 (- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 R R R R R R))<br />         pp1 (+ (- (/ (* Ls Ls) 24 R) (/ (* Ls Ls Ls Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R))<br />               pt1 (cdr (assoc 10 (entget (car p1))))<br />         pt2 (cdr (assoc 11 (entget (car p1))))<br />         pt10 (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))<br />         pt3 (cdr (assoc 10 (entget (car p2))))<br />         pt4 (cdr (assoc 11 (entget (car p2))))<br />         pt20(polar pt3 (angle pt3 pt4) (/ (distance pt3 pt4) 2))<br />               jd  (inters pt1 pt2 pt3 pt4 nil);求交点<br />         alf1(angle pt10 jd)<br />         alf2(angle pt20 jd)<br />         alf (- (angle jd pt20) alf1)        <br />   );setq<br />   (setq Ls ls2<br />               qq2 (- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 R R R R R R))<br />         pp2 (+ (- (/ (* Ls Ls) 24 R) (/ (* Ls Ls Ls Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R))<br />         )<br />   (if (or (> alf pi) (and (< alf 0) (> alf (- 0 pi))))<br />     (progn<br />       (setq id__ -1)<br />       (if (> alf pi) (setq alf (- (+ pi pi) alf)) (setq alf (abs alf)))<br />     );progn<br />     (progn<br />       (setq id__ 1)<br />       (if (<= alf (- 0 pi)) (setq alf (+ pi pi alf)))<br />     );progn<br />   );if<br />   (setq  C   (* ls1 R)<br />                ls ls1<br />          x0  (-(/ (* (+ pp1 R) (sin(/ alf 2.0))) (cos(/ alf 2.0)))(/(- pp1 pp2) (sin alf)) )<br />          x1  (+ x0 qq1);切线长<br />          C1  (+ (*  alf R) Ls);曲线长<br />          E   (- (/ (+ R pp1) (cos(/ alf 2))) R);外矢距<br />   );setq  <br />   (command "ucs" "o" jd)<br />   (command "ucs" "z" (/ (* 180 alf1) pi))<br />   (com_p)<br />   (setq pt6 pt5)<br />   (setq ppt1 (list x1 0 0))  <br />   (command "ucs" "")<br />   (if (> (abs(distance jd pt1)) (abs(distance jd pt2)))<br />     (setq ptt1 pt1)<br />     (setq ptt1 pt2)<br />     );if<br />   (setq ptt2 (polar jd alf1 (- 0 x1)))  <br />   (thh p1 ptt1 10)<br />   (thh p1 ptt2 11)<br />   (command "ucs" "o" jd)<br />   (command "ucs" "z" (/ (* 180 alf2) pi))<br />   (setq id__ (- 0 id__))<br />   (setq C (* ls2 R)<br />               ls ls2<br />         x0  (+(/ (* (+ pp2 R) (sin(/ alf 2.0))) (cos(/ alf 2.0))) (/(- pp1 pp2) (sin alf)))<br />         x1  (+ x0 qq2);切线长<br />         Cl  (+ (*  alf R) Ls);曲线长<br />         E   (- (/ (+ R pp2) (cos(/ alf 2))) R);外矢距<br />   );setq  <br />   (com_p)<br />   (setq ppt2 (list x1 0 0))  <br />   (command "ucs" "")<br />   <br />   (if (> (abs(distance jd pt3)) (abs(distance jd pt4)))<br />     (setq ptt3 pt3)<br />     (setq ptt3 pt4)<br />     );if<br />   (setq ptt4 (polar jd alf2 (- 0 x1)))<br />   (thh p2 ptt3 10)<br />   (thh p2 ptt4 11)<br />         (setvar "cecolor" "1");设置对象颜色<br />   (if (= id__ 1) (command "arc" pt5 "e" pt6 "r" R) (command "arc" pt6 "e" pt5 "r" R))<br />   (setq alfd (angf alf))<br />   (setvar "osmode" os)  <br />   (command "cmdecho" "1")<br />         (setq strcat_QXYS (strcat (strcat "偏　　角=" alfd) "\n半　　径=" (rtos R 2 2) "\n切　线　长=" (rtos x1 2 2) "\n曲　线　长=" (rtos Cl 2 2)  "\n外　　距=" (rtos E 2 2) "\n缓和曲线长=" (rtos Ls 2 2)     ) );曲线要素<br />         (setq pt (getpoint "\n指定曲线要素位置: "))<br />                                 (entmake (list '(0 . "MTEXT")<br />                                                           '(100 . "AcDbEntity")<br />                                                     '(100 . "AcDbMText")<br />                                                                  '(62 . 3)<br />                                                                  (cons 1 strcat_QXYS ) ; <br />                                                                    (cons 10  pt )<br />                                                                   (cons 40 5 )<br />                                                                  '(71 . 1)<br />                                                            '(72 . 5)<br />                                                                  (cons 50 0)<br />                                                              (cons 8 "中心") <br />                                                         )         <br />                           )        ;;书写曲线要素<br />                                                                                                                                          (entmake (list '(0 . "LINE")<br />                                                                                                                                                         (cons 10 Pt1 )<br />                                                                                                                                                         (cons 11 Pt2 )<br />                                                                                                                                                         (cons 8 "中心")<br />                                                                                                                                                         (cons 62 6)<br />                                                                                                                                                 )<br />                                                                                                                                  )<br />                                                                                                                                          (entmake (list '(0 . "LINE")<br />                                                                                                                                                         (cons 10 Pt3 )<br />                                                                                                                                                         (cons 11 Pt4 )<br />                                                                                                                                                         (cons 8 "中心")<br />                                                                                                                                                         (cons 62 6)<br />                                                                                                                                                 )<br />                                                                                                                                  )        <br />                 (setvar "cecolor" "7");设置颜色<br /> );ll_d<br /> <br /> ;(defun ll_v()<br />   ;(setq V   (getreal "\n输入速度（km/h):")<br />        ; Ls1 (* V 0.85)<br />        ; Ls2 (/ (* 0.0357 V V V) R)<br />        ; Ls  (max Ls1 Ls2 (/ R 9))<br />         ;Ls  (* (fix (/ Ls 10)) 10.0)<br />   ;);setq<br />   ;(if (> Ls R) (setq Ls R))<br />   ;(ll_d)<br /> ;)ll_v<br /> <br /> (defun angf (alf)<br />   (setq alff (angtos alf 1 4);angtos 将一个以弧度为单位的角度值转换成字符串,1表示度分秒，4表示精度<br />               n 1<br />               kk (strlen alff));(strlen 字符串)返回:字符串构成的字符数(即字符串长度)<br />   (repeat kk<br />     (setq alfn (substr alff n 1));(substr  字符串 起始 长度)返回:取出于字符串<br />     (if (= alfn "d")<br />         (setq nn n));if<br />         (setq n (+ n 1))<br />     );repeat <br />   (strcat (substr alff 1 (- nn 1)) "%%" (substr alff nn))<br /> );angf,角度弧度值变为度分秒<br /> <br /> <br /> (defun ND()<br />   (setq newdraw (getstring "\n重画输入 hh，绘制下一段曲线："))<br />   (if(= newdraw "hh")<br />     (c:hh)<br />     ) <br /> )<br /> <br /> <br /> (defun c:hh(/ p1 p2 pt1 pt2 pt3 pt4 pt5 pt6 pt10 pt20 id__  R  Ls E ls1 ls2<br />                 r1 x y l x0 x1 C jd alf alf1 alf2 qq1 qq2 pp1 pp2 Cl  M newdraw NN)<br />   (command "ucs" "")<br />   (setq p1 nil p2 nil)  <br />   (while (= p1 nil) (setq p1 (entsel "\n拾取第一条直线<Line>:")))<br />   (redraw (car p1) 3)<br />   (while (= p2 nil) (setq p2 (entsel "\n拾取第二条直线<Line>:")))<br />   (redraw (car p2) 3)<br />   (initget 1)<br />   (setq NN (getint "\n点取圆(1) or 输入圆半径(2):"))<br />   (if(= NN 1) (setq R (cdr (assoc 40 (entget (car (entsel "\n拾取圆:")))))))<br />   (if(= NN 2) (setq R (getdist "\n请输入弯道半径 R:  ")))<br />   ;(initget 1 "Ls V")<br />   ;(setq ls1 (getdist "\n输入缓和曲线长度(Ls1):  "))<br />   ;(setq ls2 (getdist "\n输入缓和曲线长度(Ls2)： "))<br />   ;(setq M (getint "\n输入缓和曲线段数<例>："))<br /> <br /> <br />                                 (or ls1_old<br />                                         (setq ls1_old 80)<br />                                 )<br />                                  (princ "\n输入第一段缓和曲线段长度(Ls1)<")<br />                                  (princ ls1_old)<br />                                 (if        (setq tmp (getreal ">: "))<br />                                         (setq ls1_old tmp)<br />                                 )  <br />                                  (setq ls1 ls1_old);第一段        <br />         <br />                                 (or ls2_old<br />                                         (setq ls2_old 120)<br />                                 )<br />                                  (princ "\n输入第二缓和曲线段长度(Ls2)<")<br />                                  (princ ls2_old)<br />                                 (if        (setq tmp (getreal ">: "))<br />                                         (setq ls2_old tmp)<br />                                 )  <br />                                  (setq ls2 ls2_old);第二段                <br />         <br />                                 (or M_old<br />                                         (setq M_old 100)<br />                                 )<br />                                  (princ "\n输入缓和曲线分段数<")<br />                                  (princ M_old)<br />                                 (if        (setq tmp (getint ">: "))<br />                                         (setq M_old tmp)<br />                                 )  <br />                                  (setq M M_old);        <br />         <br />   ;(if (= p3 "V") (ll_v) (progn))<br />   (ll_d)<br />   (ND)<br />   (princ)<br /> );eline<br /> <br /> <br /> (defun thh (len pt h /);修改len的参数 len为线，pt为点，h为10 或 11<br />   (setq en_data (entget (car len));entget获得对象的定义数据 (entget ename [applist]) 参数 ename 要查询的图元的名称。ename 可以为图形或非图形图元。 applist 注册应用名的列表<br />         old_data (assoc h en_data);（assoc  关键元素 联合列表）根据关键元素找寻联合列表中关系信息<br />               new_data (cons h pt);（cons  新元素 列表）返回：将新元素添加到列表<br />               en (subst new_data old_data en_data)<br />         );setq  （subst  新项旧项列表）返回：替换新旧列表后的列表<br />   (entmod en);（entmod  对象列表）根据更新的信息列表更新屏幕上元体<br /> );thh

p-3-ianlcc

skg123 发表于 2024-6-13 22:32
修改了一下，可用了，精度未验证

謝謝您的分享！
請問這二個檔案有什麼差別呢？
還滿需要這方面的插件～～

skg123

p-3-ianlcc 发表于 2024-6-14 09:12
謝謝您的分享！
請問這二個檔案有什麼差別呢？
還滿需要這方面的插件～～

今晚研究了，感觉精度不行。

完整缓和曲线和非完整缓和曲线交点法坐标计算应用
完整缓和曲线和非完整缓和曲线交点法坐标计算应用_不完整缓和曲线-CSDN博客
https://blog.csdn.net/starmings/article/details/126614777

测量助理专业版V3.0.221225
测量助理专业版V3.0.221225_路桥365 (luqiao365.cn)  http://www.luqiao365.cn/ruanjianxiazai/106.html


声明一下，本人不认识博主，上面的链接是软件下载地址，非推销，有需要的自己研究