椭圆8段弧法模拟

尘缘一生

晓东那边有这段源代码，不是可以运行的，为此改写探讨

改写代码如下：

2. ;取得图元参数值内容-----(一级)-------
   
3. ;(setq h (dxf1 ent 40))
   
4. ;ent 为实体nam obj 或实体表 entget
   
5. (defun dxf1 (ent i / tmp tp)
   
6.   (setq tp (type ent))
   
7.   (cond
   
8.     ((= tp 'VLA-OBJECT)
   
9.       (setq ent (entget (obj2en ent) '("*")))
   
10.     )
    
11.     ((= tp 'ENAME)
    
12.       (setq ent (entget ent '("*")))
    
13.     )
    
14.   )
    
15.   (setq tmp (cdr (assoc i (vl-remove-if-not '(lambda (x) (= (car x) i)) ent))))
    
16.   (if (null tmp)
    
17.     (cond
    
18.       ((= i 66) 0)
    
19.       ((= i 48) (getvar "CELTSCALE"))
    
20.       ((member i '(6 62))
    
21.         (cdr (assoc i (entget (tblobjname "LAYER" (cdr (assoc 8 ent)))))) ;对象所在图层颜色
    
22.       )
    
23.       ((= i 370) -1)
    
24.       ((= i 7) $hz)
    
25.     )
    
26.     tmp
    
27.   )
    
28. )
    
29. ;;点集镜像---(一级)----
    
30. (defun sl-ptlst-mirror (pl p1 p2 / ang)
    
31.   (setq ang (* 2 (angle p1 p2)))
    
32.   (mapcar '(lambda (p) (polar p1 (- ang (angle p1 p)) (distance p1 p))) pl)
    
33. )
    
34. ;;点镜像---(一级)----
    
35. (defun sl-pt-mirror (p p1 p2)
    
36.   (setq p (polar p1 (- (* 2 (angle p1 p2)) (angle p1 p)) (distance p1 p)))
    
37.   p
    
38. )
    
39. ;;-测试镜像点集-----------
    
40. (defun c:tt1 (/ ss pl p1 p2)
    
41.   (setq ss (ssget))
    
42.   (setq p1 (getpoint "\n 镜像轴第一点"))
    
43.   (setq p2 (getpoint p1 "\n 镜像轴第二点"))
    
44.   (setq pl (getpt ss))
    
45.   (setq pl (sl-ptlst-mirror pl p1 p2))
    
46.   (makelwpolyline pl 0 nil)
    
47.   pl
    
48. )
    
49. ;;椭圆8弧点位---(一级)----
    
50. ;;Modify by SLdesign V3.0 尘缘一生 QQ:15290049 2024年7月20号
    
51. (defun ellto8arc (nam / p0 star_seg end_seg star_node end_node p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 nod1 nod2 nod3 nod4 epl
    
52.                    long_vectors length_ratio major_axis sub_axis sub_x1 sub_y1 node_radius radius_len8 radius_sho2 alpha trl1 trl2 trl3 trl trm trm1 trm2
    
53.                    trn trn1 circle_xc1 circle_yc1 trk trk1 trv trv1 circle_xm1 circle_ym1 trr trw trw1 trw2 circle_xn1 circle_yn1 circle_yc2 circle_xc2
    
54.                    circle_xc8 circle_yc8 ellipse_xc ellipse_yc ellipse_xc1 ellipse_yc1 ellipse_xm ellipse_ym ellipse_xm1 ellipse_ym1 ellipse_xn ellipse_yn
    
55.                    ellipse_xn1 ellipse_yn1 ellipse_xc2 ellipse_yc2 ellipse_xc8 ellipse_yc8
    
56.                  )
    
57.   (if (= (dxf1 nam 0) "ELLIPSE")
    
58.     (progn
    
59.       (setq p0 (trans (dxf1 nam 10) 0 1));对圆心进行坐标变换
    
60.       (setq long_vectors (dxf1 nam 11));椭圆的长轴端点矢量
    
61.       (setq length_ratio (dxf1 nam 40));椭圆的长轴与短轴的比例
    
62.       ;(setq ellipse_star (dxf1 nam 41));椭圆弧的起点角度
    
63.       ;(setq ellipse_end (dxf1 nam 42));椭圆弧的终点角度
    
64.       (setq major_axis (sqrt (+ (expt (car long_vectors) 2) (expt (cadr long_vectors) 2))));长半轴的长度
    
65.       (setq sub_axis (* major_axis length_ratio));短半轴的长度
    
66.       (setq sub_x1 (* (cadr long_vectors) length_ratio -1));短轴矢量的X轴分量
    
67.       (setq sub_y1 (* (car long_vectors) length_ratio));短轴矢量的Y轴分量
    
68.       (setq nod1 (list (+ (car p0) (car long_vectors)) (+ (cadr p0) (cadr long_vectors)) 0.0));从椭圆长轴起点开始逆时针确定四个端点
    
69.       (setq nod2 (list (+ (car p0) sub_x1) (+ (cadr p0) sub_y1) 0.0))
    
70.       (setq nod3 (list (- (car p0) (car long_vectors)) (- (cadr p0) (cadr long_vectors)) 0.0))
    
71.       (setq nod4 (list (- (car p0) sub_x1) (- (cadr p0) sub_y1) 0.0))
    
72.       (setq node_radius (sqrt (* major_axis sub_axis)));过渡圆1的半径
    
73.       (setq radius_len8 (/ (expt sub_axis 2) major_axis));长轴附近插补圆半径
    
74.       (setq radius_sho2 (/ (expt major_axis 2) sub_axis));短轴附近插补圆半径
    
75.       (setq alpha (atan (cadr long_vectors) (car long_vectors)));根据XY轴的正负值（象限）确定旋转角度
    
76.       (if (or (and (> (car long_vectors) 0) (< (cadr long_vectors) 0)) (and (> (car long_vectors) 0) (> (cadr long_vectors) 0)))
    
77.         (setq alpha (+ alpha pi))
    
78.       )
    
79.       (if (and (< (car long_vectors) 0) (> (cadr long_vectors) 0))
    
80.         (setq alpha (+ alpha 2pi))
    
81.       )
    
82.       ;求得插补圆的圆心C坐标、起点M和终点N点坐标（中心点在原点的正椭圆）
    
83.       (setq trl1 (* 1.5 sub_axis))
    
84.       (setq trl2 (* (- (expt major_axis 3) (expt sub_axis 3)) node_radius))
    
85.       (setq trl3 (* (- (expt major_axis 2) (expt sub_axis 2)) major_axis))
    
86.       (setq trl (- trl1 (/ trl2 trl3)))
    
87.       (setq trm1 (- trl (/ (- (expt sub_axis 2) (expt major_axis 2)) sub_axis)))
    
88.       (setq trm2 (1+ (/ (expt sub_axis 2) (expt major_axis 2))))
    
89.       (setq trm (* length_ratio (/ trm1 trm2)))
    
90.       (setq trn1 (- (expt trm1 2) (expt (- (/ (expt major_axis 2) sub_axis) node_radius) 2)))
    
91.       (setq trn (/ trn1 trm2))
    
92.       (setq circle_xc1 (- trm (sqrt (- (expt trm 2) trn))))
    
93.       (setq circle_yc1 (+ (* (* -1 length_ratio) circle_xc1) trl))
    
94.       (setq trk1 (- (/ (- (expt sub_axis 2) (expt major_axis 2)) sub_axis) circle_yc1))
    
95.       (setq trk (/ circle_xc1 trk1))
    
96.       (setq trv1 (- (+ (expt sub_axis 2) (* major_axis sub_axis)) (+ (* 2 (expt major_axis 2)) (expt circle_xc1 2) (expt circle_yc1 2))))
    
97.       (setq trv (/ trv1 (* 2 trk1)))
    
98.       (setq circle_xm1 (/ (* trk (- (/ (- (expt sub_axis 2) (expt major_axis 2)) sub_axis) trv)) (1+ (expt trk 2))))
    
99.       (setq circle_ym1 (+ (* trk circle_xm1) trv))
    
100.       (setq trr (/ (- (/ (- (expt major_axis 2) (expt sub_axis 2)) major_axis) circle_xc1) circle_yc1))
     
101.       (setq trw1 (+ (expt circle_xc1 2) (expt circle_yc1 2) (/ (expt sub_axis 4) (expt major_axis 2))))
     
102.       (setq trw2 (+ (expt node_radius 2) (expt (/ (- (expt major_axis 2) (expt sub_axis 2)) major_axis) 2)))
     
103.       (setq trw (/ (- trw1 trw2) (* 2 circle_yc1)))
     
104.       (setq circle_xn1 (/ (- (/ (- (expt major_axis 2) (expt sub_axis 2)) major_axis) (* trw trr)) (1+ (expt trr 2))))
     
105.       (setq circle_yn1 (+ (* trr circle_xn1) trw))
     
106.       (setq circle_yc2 (+ (- sub_axis radius_sho2) (cadr p0)))
     
107.       (setq circle_xc2 (car p0))
     
108.       (setq circle_xc8 (+ (- major_axis radius_len8) (car p0)))
     
109.       (setq circle_yc8 (cadr p0))
     
110.       ;对几个点做平移旋转变换，求得图元中真实椭圆的插补特征点
     
111.       (setq ellipse_xc (+ circle_xc1 (car p0)));平移后插补圆1的圆心坐标
     
112.       (setq ellipse_yc (+ circle_yc1 (cadr p0)))
     
113.       (setq ellipse_xc1 (+ (* ellipse_xc (cos alpha)) (* -1 ellipse_yc (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标
     
114.       (setq ellipse_yc1 (+ (* ellipse_xc (sin alpha)) (* ellipse_yc (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))
     
115.       (setq p2 (list ellipse_xc1 ellipse_yc1 0.0));平移旋转后插补圆1的圆心坐标
     
116.       (setq ellipse_xm (+ circle_xm1 (car p0)))
     
117.       (setq ellipse_ym (+ circle_ym1 (cadr p0)))
     
118.       (setq ellipse_xm1 (+ (* ellipse_xm (cos alpha)) (* -1 ellipse_ym (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的终点M坐标
     
119.       (setq ellipse_ym1 (+ (* ellipse_xm (sin alpha)) (* ellipse_ym (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))
     
120.       (setq p3 (list ellipse_xm1 ellipse_ym1 0.0));平移旋转后插补圆1的起点坐标
     
121.       (setq ellipse_xn (+ circle_xn1 (car p0)))
     
122.       (setq ellipse_yn (+ circle_yn1 (cadr p0)))
     
123.       (setq ellipse_xn1 (+ (* ellipse_xn (cos alpha)) (* -1 ellipse_yn (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标
     
124.       (setq ellipse_yn1 (+ (* ellipse_xn (sin alpha)) (* ellipse_yn (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))
     
125.       (setq p1 (list ellipse_xn1 ellipse_yn1 0.0));平移旋转后插补圆1的终点坐标
     
126.       (setq ellipse_xc2 (+ (* circle_xc2 (cos alpha)) (* -1 circle_yc2 (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标
     
127.       (setq ellipse_yc2 (+ (* circle_xc2 (sin alpha)) (* circle_yc2 (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))
     
128.       (setq p4 (list ellipse_xc2 ellipse_yc2 0.0));平移旋转后插补圆1的圆心坐标
     
129.       (setq ellipse_xc8 (+ (* circle_xc8 (cos alpha)) (* -1 circle_yc8 (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标
     
130.       (setq ellipse_yc8 (+ (* circle_xc8 (sin alpha)) (* circle_yc8 (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))
     
131.       (setq p16 (list ellipse_xc8 ellipse_yc8 0.0));平移旋转后插补圆1的圆心坐标
     
132.       ;利用DXF数据求得其他特征点的坐标信息
     
133.       (setq p6 (trans (sl-pt-mirror p2 nod2 nod4) 0 1))
     
134.       (setq p8 (trans (sl-pt-mirror p16 nod2 nod4) 0 1))
     
135.       (setq p10 (trans (sl-pt-mirror p6 nod3 nod1) 0 1))
     
136.       (setq p12 (trans (sl-pt-mirror p4 nod1 nod3) 0 1))
     
137.       (setq p14 (trans (sl-pt-mirror p2 nod1 nod3) 0 1))
     
138.       (setq p5 (trans (sl-pt-mirror p3 nod2 nod4) 0 1))
     
139.       (setq p11 (trans (sl-pt-mirror p5 nod1 nod3) 0 1))
     
140.       (setq p13 (trans (sl-pt-mirror p3 nod1 nod3) 0 1))
     
141.       (setq p7 (trans (sl-pt-mirror p1 nod2 nod4) 0 1))
     
142.       (setq p9 (trans (sl-pt-mirror p7 nod1 nod3) 0 1))
     
143.       (setq p15 (trans (sl-pt-mirror p1 nod1 nod3) 0 1))
     
144.       (setq epl (list (list p1 p2 p3) (list p3 p4 p5) (list p5 p6 p7) (list p7 p8 p9) (list p9 p10 p11) (list p11 p12 p13) (list p13 p14 p15)  (list p15 p16 p1)))
     
145.       ;(setq epl (list p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16))
     
146.     )
     
147.   )
     
148.   epl ;返回8段弧的坐标表 ((起点1 圆心1 终点1)(起点2 圆心2 终点2).....(起点8 圆心8 终点8))) 逆时针
     
149. )
     
150. ;圆弧--------(一级)------------
     
151. ;图层=nil，为当前图层  ;颜色=nil，为当前图层颜色 ;线型比例=nil，为1
     
152. ;(slch:arc 圆心坐标 圆半径 圆弧起点弧度 圆弧终点弧度 图层 颜色 线型比例)
     
153. ;(slch:arc (getpoint "插入点") 40 (* pi (/ 270 180.0)) (* pi (/ 180 180.0)) "中心线" 6 5)
     
154. (defun slch:arc (pt r ang1 ang2 lay arccol arcbili)
     
155.   (entmake
     
156.     (list
     
157.       '(0 . "ARC")
     
158.       (cons 10 pt)   ;圆心坐标
     
159.       (cons 40 r)    ;圆半径
     
160.       (cons 50 ang1) ;圆弧起点弧度
     
161.       (cons 51 ang2) ;圆弧终点弧度
     
162.       (if lay
     
163.         (cons 8 lay)   ;图层
     
164.         (cons 8 (getvar "CLAYER"))
     
165.       )
     
166.       (if arccol
     
167.         (cons 62 arccol)   ;颜色
     
168.         (cons 62 256)
     
169.       )
     
170.       (if arcbili
     
171.         (cons 48 arcbili)   ;线型比例
     
172.         (cons 48 (* 0.01 (getvar "DIMLFAC")))
     
173.       )
     
174.     )
     
175.   )
     
176. )
     
177. ;;椭圆转8弧测试-----
     
178. (defun c:tt (/ nam pis)
     
179.   (setq nam (car (entsel "\n 选择椭圆")))
     
180.   (setq pis (ellto8arc nam))
     
181.   ;(draw-pt pis "PT-") 画点测试
     
182.   (mapcar '(lambda (x) (slch:arc (cadr x) (distance (cadr x) (car x)) (angle (cadr x) (car x)) (angle (cadr x) (caddr x)) nil 1 nil )) pis)
     
183.   ;(entdel nam)
     
184. )

;取得图元参数值内容-----(一级)-------<br /> ;(setq h (dxf1 ent 40))<br /> ;ent 为实体nam obj 或实体表 entget<br /> (defun dxf1 (ent i / tmp tp)<br />   (setq tp (type ent))<br />   (cond <br />     ((= tp 'VLA-OBJECT)<br />       (setq ent (entget (obj2en ent) '("*")))<br />     )<br />     ((= tp 'ENAME)<br />       (setq ent (entget ent '("*")))<br />     )<br />   )<br />   (setq tmp (cdr (assoc i (vl-remove-if-not '(lambda (x) (= (car x) i)) ent))))<br />   (if (null tmp)<br />     (cond<br />       ((= i 66) 0)<br />       ((= i 48) (getvar "CELTSCALE"))<br />       ((member i '(6 62))<br />         (cdr (assoc i (entget (tblobjname "LAYER" (cdr (assoc 8 ent)))))) ;对象所在图层颜色<br />       )<br />       ((= i 370) -1)<br />       ((= i 7) $hz)<br />     )<br />     tmp<br />   )<br /> )<br /> ;;点集镜像---(一级)----<br /> (defun sl-ptlst-mirror (pl p1 p2 / ang)<br />   (setq ang (* 2 (angle p1 p2)))<br />   (mapcar '(lambda (p) (polar p1 (- ang (angle p1 p)) (distance p1 p))) pl)<br /> )<br /> ;;点镜像---(一级)----<br /> (defun sl-pt-mirror (p p1 p2)<br />   (setq p (polar p1 (- (* 2 (angle p1 p2)) (angle p1 p)) (distance p1 p)))<br />   p<br /> )<br /> ;;-测试镜像点集-----------<br /> (defun c:tt1 (/ ss pl p1 p2)<br />   (setq ss (ssget))<br />   (setq p1 (getpoint "\n 镜像轴第一点"))<br />   (setq p2 (getpoint p1 "\n 镜像轴第二点"))<br />   (setq pl (getpt ss))<br />   (setq pl (sl-ptlst-mirror pl p1 p2))<br />   (makelwpolyline pl 0 nil)<br />   pl<br /> )<br /> ;;椭圆8弧点位---(一级)----<br /> ;;Modify by SLdesign V3.0 尘缘一生 QQ:15290049 2024年7月20号<br /> (defun ellto8arc (nam / p0 star_seg end_seg star_node end_node p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 nod1 nod2 nod3 nod4 epl<br />                    long_vectors length_ratio major_axis sub_axis sub_x1 sub_y1 node_radius radius_len8 radius_sho2 alpha trl1 trl2 trl3 trl trm trm1 trm2<br />                    trn trn1 circle_xc1 circle_yc1 trk trk1 trv trv1 circle_xm1 circle_ym1 trr trw trw1 trw2 circle_xn1 circle_yn1 circle_yc2 circle_xc2<br />                    circle_xc8 circle_yc8 ellipse_xc ellipse_yc ellipse_xc1 ellipse_yc1 ellipse_xm ellipse_ym ellipse_xm1 ellipse_ym1 ellipse_xn ellipse_yn<br />                    ellipse_xn1 ellipse_yn1 ellipse_xc2 ellipse_yc2 ellipse_xc8 ellipse_yc8<br />                  )<br />   (if (= (dxf1 nam 0) "ELLIPSE")<br />     (progn<br />       (setq p0 (trans (dxf1 nam 10) 0 1));对圆心进行坐标变换<br />       (setq long_vectors (dxf1 nam 11));椭圆的长轴端点矢量<br />       (setq length_ratio (dxf1 nam 40));椭圆的长轴与短轴的比例<br />       ;(setq ellipse_star (dxf1 nam 41));椭圆弧的起点角度<br />       ;(setq ellipse_end (dxf1 nam 42));椭圆弧的终点角度<br />       (setq major_axis (sqrt (+ (expt (car long_vectors) 2) (expt (cadr long_vectors) 2))));长半轴的长度<br />       (setq sub_axis (* major_axis length_ratio));短半轴的长度<br />       (setq sub_x1 (* (cadr long_vectors) length_ratio -1));短轴矢量的X轴分量<br />       (setq sub_y1 (* (car long_vectors) length_ratio));短轴矢量的Y轴分量<br />       (setq nod1 (list (+ (car p0) (car long_vectors)) (+ (cadr p0) (cadr long_vectors)) 0.0));从椭圆长轴起点开始逆时针确定四个端点<br />       (setq nod2 (list (+ (car p0) sub_x1) (+ (cadr p0) sub_y1) 0.0))<br />       (setq nod3 (list (- (car p0) (car long_vectors)) (- (cadr p0) (cadr long_vectors)) 0.0))<br />       (setq nod4 (list (- (car p0) sub_x1) (- (cadr p0) sub_y1) 0.0))<br />       (setq node_radius (sqrt (* major_axis sub_axis)));过渡圆1的半径<br />       (setq radius_len8 (/ (expt sub_axis 2) major_axis));长轴附近插补圆半径<br />       (setq radius_sho2 (/ (expt major_axis 2) sub_axis));短轴附近插补圆半径<br />       (setq alpha (atan (cadr long_vectors) (car long_vectors)));根据XY轴的正负值（象限）确定旋转角度<br />       (if (or (and (> (car long_vectors) 0) (< (cadr long_vectors) 0)) (and (> (car long_vectors) 0) (> (cadr long_vectors) 0)))<br />         (setq alpha (+ alpha pi))<br />       )<br />       (if (and (< (car long_vectors) 0) (> (cadr long_vectors) 0))<br />         (setq alpha (+ alpha 2pi))<br />       )<br />       ;求得插补圆的圆心C坐标、起点M和终点N点坐标（中心点在原点的正椭圆）<br />       (setq trl1 (* 1.5 sub_axis))<br />       (setq trl2 (* (- (expt major_axis 3) (expt sub_axis 3)) node_radius))<br />       (setq trl3 (* (- (expt major_axis 2) (expt sub_axis 2)) major_axis))<br />       (setq trl (- trl1 (/ trl2 trl3)))<br />       (setq trm1 (- trl (/ (- (expt sub_axis 2) (expt major_axis 2)) sub_axis)))<br />       (setq trm2 (1+ (/ (expt sub_axis 2) (expt major_axis 2))))<br />       (setq trm (* length_ratio (/ trm1 trm2)))<br />       (setq trn1 (- (expt trm1 2) (expt (- (/ (expt major_axis 2) sub_axis) node_radius) 2)))<br />       (setq trn (/ trn1 trm2))<br />       (setq circle_xc1 (- trm (sqrt (- (expt trm 2) trn))))<br />       (setq circle_yc1 (+ (* (* -1 length_ratio) circle_xc1) trl)) <br />       (setq trk1 (- (/ (- (expt sub_axis 2) (expt major_axis 2)) sub_axis) circle_yc1))<br />       (setq trk (/ circle_xc1 trk1))<br />       (setq trv1 (- (+ (expt sub_axis 2) (* major_axis sub_axis)) (+ (* 2 (expt major_axis 2)) (expt circle_xc1 2) (expt circle_yc1 2))))<br />       (setq trv (/ trv1 (* 2 trk1)))<br />       (setq circle_xm1 (/ (* trk (- (/ (- (expt sub_axis 2) (expt major_axis 2)) sub_axis) trv)) (1+ (expt trk 2))))<br />       (setq circle_ym1 (+ (* trk circle_xm1) trv))<br />       (setq trr (/ (- (/ (- (expt major_axis 2) (expt sub_axis 2)) major_axis) circle_xc1) circle_yc1))<br />       (setq trw1 (+ (expt circle_xc1 2) (expt circle_yc1 2) (/ (expt sub_axis 4) (expt major_axis 2))))<br />       (setq trw2 (+ (expt node_radius 2) (expt (/ (- (expt major_axis 2) (expt sub_axis 2)) major_axis) 2)))<br />       (setq trw (/ (- trw1 trw2) (* 2 circle_yc1)))<br />       (setq circle_xn1 (/ (- (/ (- (expt major_axis 2) (expt sub_axis 2)) major_axis) (* trw trr)) (1+ (expt trr 2))))<br />       (setq circle_yn1 (+ (* trr circle_xn1) trw))<br />       (setq circle_yc2 (+ (- sub_axis radius_sho2) (cadr p0)))<br />       (setq circle_xc2 (car p0))<br />       (setq circle_xc8 (+ (- major_axis radius_len8) (car p0)))<br />       (setq circle_yc8 (cadr p0))<br />       ;对几个点做平移旋转变换，求得图元中真实椭圆的插补特征点<br />       (setq ellipse_xc (+ circle_xc1 (car p0)));平移后插补圆1的圆心坐标<br />       (setq ellipse_yc (+ circle_yc1 (cadr p0)))<br />       (setq ellipse_xc1 (+ (* ellipse_xc (cos alpha)) (* -1 ellipse_yc (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标<br />       (setq ellipse_yc1 (+ (* ellipse_xc (sin alpha)) (* ellipse_yc (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))<br />       (setq p2 (list ellipse_xc1 ellipse_yc1 0.0));平移旋转后插补圆1的圆心坐标<br />       (setq ellipse_xm (+ circle_xm1 (car p0)))<br />       (setq ellipse_ym (+ circle_ym1 (cadr p0)))<br />       (setq ellipse_xm1 (+ (* ellipse_xm (cos alpha)) (* -1 ellipse_ym (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的终点M坐标<br />       (setq ellipse_ym1 (+ (* ellipse_xm (sin alpha)) (* ellipse_ym (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))<br />       (setq p3 (list ellipse_xm1 ellipse_ym1 0.0));平移旋转后插补圆1的起点坐标<br />       (setq ellipse_xn (+ circle_xn1 (car p0)))<br />       (setq ellipse_yn (+ circle_yn1 (cadr p0)))<br />       (setq ellipse_xn1 (+ (* ellipse_xn (cos alpha)) (* -1 ellipse_yn (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标<br />       (setq ellipse_yn1 (+ (* ellipse_xn (sin alpha)) (* ellipse_yn (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))<br />       (setq p1 (list ellipse_xn1 ellipse_yn1 0.0));平移旋转后插补圆1的终点坐标<br />       (setq ellipse_xc2 (+ (* circle_xc2 (cos alpha)) (* -1 circle_yc2 (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标<br />       (setq ellipse_yc2 (+ (* circle_xc2 (sin alpha)) (* circle_yc2 (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))<br />       (setq p4 (list ellipse_xc2 ellipse_yc2 0.0));平移旋转后插补圆1的圆心坐标<br />       (setq ellipse_xc8 (+ (* circle_xc8 (cos alpha)) (* -1 circle_yc8 (sin alpha)) (* (- 1 (cos alpha)) (car p0)) (* (cadr p0) (sin alpha))));旋转后的圆心坐标<br />       (setq ellipse_yc8 (+ (* circle_xc8 (sin alpha)) (* circle_yc8 (cos alpha)) (* (- 1 (cos alpha)) (cadr p0)) (* -1 (car p0) (sin alpha))))<br />       (setq p16 (list ellipse_xc8 ellipse_yc8 0.0));平移旋转后插补圆1的圆心坐标<br />       ;利用DXF数据求得其他特征点的坐标信息<br />       (setq p6 (trans (sl-pt-mirror p2 nod2 nod4) 0 1))<br />       (setq p8 (trans (sl-pt-mirror p16 nod2 nod4) 0 1))<br />       (setq p10 (trans (sl-pt-mirror p6 nod3 nod1) 0 1))<br />       (setq p12 (trans (sl-pt-mirror p4 nod1 nod3) 0 1))<br />       (setq p14 (trans (sl-pt-mirror p2 nod1 nod3) 0 1))<br />       (setq p5 (trans (sl-pt-mirror p3 nod2 nod4) 0 1))<br />       (setq p11 (trans (sl-pt-mirror p5 nod1 nod3) 0 1))<br />       (setq p13 (trans (sl-pt-mirror p3 nod1 nod3) 0 1))<br />       (setq p7 (trans (sl-pt-mirror p1 nod2 nod4) 0 1))<br />       (setq p9 (trans (sl-pt-mirror p7 nod1 nod3) 0 1))<br />       (setq p15 (trans (sl-pt-mirror p1 nod1 nod3) 0 1))<br />       (setq epl (list (list p1 p2 p3) (list p3 p4 p5) (list p5 p6 p7) (list p7 p8 p9) (list p9 p10 p11) (list p11 p12 p13) (list p13 p14 p15)  (list p15 p16 p1)))<br />       ;(setq epl (list p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16))<br />     )<br />   )<br />   epl ;返回8段弧的坐标表 ((起点1 圆心1 终点1)(起点2 圆心2 终点2).....(起点8 圆心8 终点8))) 逆时针<br /> )<br /> ;圆弧--------(一级)------------<br /> ;图层=nil，为当前图层  ;颜色=nil，为当前图层颜色 ;线型比例=nil，为1<br /> ;(slch:arc 圆心坐标 圆半径 圆弧起点弧度 圆弧终点弧度 图层 颜色 线型比例)<br /> ;(slch:arc (getpoint "插入点") 40 (* pi (/ 270 180.0)) (* pi (/ 180 180.0)) "中心线" 6 5)<br /> (defun slch:arc (pt r ang1 ang2 lay arccol arcbili)<br />   (entmake<br />     (list<br />       '(0 . "ARC")<br />       (cons 10 pt)   ;圆心坐标<br />       (cons 40 r)    ;圆半径<br />       (cons 50 ang1) ;圆弧起点弧度<br />       (cons 51 ang2) ;圆弧终点弧度<br />       (if lay<br />         (cons 8 lay)   ;图层<br />         (cons 8 (getvar "CLAYER"))<br />       )<br />       (if arccol<br />         (cons 62 arccol)   ;颜色<br />         (cons 62 256)<br />       )<br />       (if arcbili<br />         (cons 48 arcbili)   ;线型比例<br />         (cons 48 (* 0.01 (getvar "DIMLFAC")))<br />       )<br />     )<br />   )<br /> )<br /> ;;椭圆转8弧测试-----<br /> (defun c:tt (/ nam pis)<br />   (setq nam (car (entsel "\n 选择椭圆")))<br />   (setq pis (ellto8arc nam))<br />   ;(draw-pt pis "PT-") 画点测试<br />   (mapcar '(lambda (x) (slch:arc (cadr x) (distance (cadr x) (car x)) (angle (cadr x) (car x)) (angle (cadr x) (caddr x)) nil 1 nil )) pis)<br />   ;(entdel nam)<br /> )

从模拟结果来看，误差不算小，还达不到使用级别，
大家有兴趣，进一步研究吧
实际上，有椭圆4心法模拟，如果误差可以，不用8弧
以下也是晓东的截图，这是膜结构小助手的，我看这4弧模拟倒还比8弧误差更小，谁能搞出来源码吗？
或谁新写个，因为高中的数学都忘干净了，这4弧的点位忘了怎么求了。

liuhe

https://jingyan.baidu.com/article/2f9b480dfb0ba441cb6cc204.html

估计是这个吧

尘缘一生

liuhe 发表于 2024-7-22 13:22
https://jingyan.baidu.com/article/2f9b480dfb0ba441cb6cc204.html

估计是这个吧

这是如何画出来，反过来，有了椭圆后，作4个弧的缺没有，而我们需要的就是反过来。

gble119

路过 支持源码

cchessbd

这个代码太长了。精度貌似也不高。四心法精度更差一点。

CAD高精度模拟画法应该是类似下图的过程，来一段循环就行了，每3点画一段圆弧，n够大可以直接画多线。

还可以控制精度(4*90/n)。生成的圆弧也可连接为多线。

我这收藏了一个16段圆弧模拟的lsp。

尘缘一生

cchessbd 发表于 2024-7-24 16:23
这个代码太长了。精度貌似也不高。四心法精度更差一点。

CAD高精度模拟画法应该是类似下图的过程，来一 ...

直接转多段线的，节点多，
之所以转为圆弧，因为圆弧转为多段线代码完善，最终还是转为多段线，这样通过中间弧的过度一下能降低节点的数量。