求斑竹高手们增强CAD轨道弯道标注程序

cumtjh

本人工作中经常需要量取或计算圆弧曲线的α、R、T、Kp参数，作图采用cad手工作图，即缩小实际尺寸作图，最后1:1打印。

希望高手们改进增强下面的弯道标注程序
1、弯道标注选择对象前，输入要标注对象的作图比例。即测量因子，即图中标注尺寸=图实际尺寸*测量因子。输入测量因子后，保存在变量中，下次调用弯道标注时，显示当前默认的测量因子，根据需要来改变测量因子。
2、下面程序只支持圆弧对象标注，不支持多段线标注，请版主高手们编写同时兼容圆弧和多段线的弯道标注。
3、标注文字 缺少引线，能够增加标注文字的多段线引线 （粗线宽0.3）。如下图所示。如果麻烦的话，请帮忙完善上面两个功能。当然我自己也会努力，争取通过大家和自身努力，早日完成！谢谢

2. ;CAD轨道弯道标注程序
   
3. (defun c:wdbz (/)
   
4.     (prompt "\n 弯道标注程序加载成功")
   
5. ;;;     选取对象
   
6.     (setq en1 (entsel "\n 请选取轨道中心线弧线："))
   
7. ;;;     取得对象属性列表
   
8.     (setq en1_data (entget (car en1)))
   
9. ;;;     提取标注半径R：
   
10.     (setq radius (fix (atof (rtos (* 1000 (cdr (assoc 40 en1_data))) 2 0))))
    
11. ;;;     提取起至角度50和终止角度51以及计算夹角以及T值
    
12.     (setq ang1_rad (cdr (assoc 50 en1_data)))        ;ang1_rad是起至角度的弧度表示
    
13.         (setq ang2_rad (cdr (assoc 51 en1_data)))        ;ang2_rad是终止角度的弧度表示
    
14.     (setq ang3_rad (abs (- ang2_rad ang1_rad)))        ;ang3_rad是夹角的弧度表示
    
15.     (setq ang4 (/ (* ang3_rad 180) pi))            ;ang4是夹角的度数表示
    
16.     (setq ang9 (/ ang3_rad 2))                ;ang9是用弧度表述的夹角的半角
    
17.         (setq tg (/ (sin ang9) (cos ang9)))            ;计算ang9的正切
    
18.     (setq tt (fix (atof (rtos (* tg radius)))))
    
19.     (setq ang5 (fix ang4))                    ;ang5是角度的整数部分，既标注的度数部分
    
20.     (setq ang6 (* (- ang4 ang5) 60))
    
21.     (setq ang7 (fix ang6))                    ;ang7是标注的分数部分,rtos是四舍五入
    
22.     (setq ang8 (fix (atof (rtos (* (- ang6 ang7) 60) 2 0))));ang8是标注的秒数部分
    
23. ;;;     计算弧长K值
    
24.     (setq 2pi (* pi 2))
    
25.     (setq d (* radius 2))
    
26.     (setq c (* d pi))
    
27.     (setq k (fix (atof (rtos (/ (* c ang3_rad) 2pi) 2 0))))
    
28. ;;;     标注
    
29. ;;;     (setvar "cmdecho" 0)
    
30.     (setq pt1 (getpoint "\n请选择文本框左下点："))
    
31.     (setq x2 (+ (car pt1) 15))
    
32.     (setq y2 (+ (cadr pt1) 17))
    
33.     (setq pt2 (list x2 y2))
    
34.     (setq ang55 (itoa ang5))
    
35.     (setq ang77 (itoa ang7))
    
36.     (setq ang88 (itoa ang8))
    
37.     (setq radius_new (itoa radius))
    
38.     (setq tt_new (itoa tt))
    
39.     (setq k_new (itoa k))
    
40.     (setq ang_new (strcat "α=" ang55 "°" ang77 "′" ang88 "″"))
    
41.     (setq r (strcat "R=" radius_new))
    
42.     (setq ttt (strcat "T=" tt_new))
    
43.     (setq kkk (strcat "K=" k_new))
    
44.     (command "mtext" pt1 pt2 ang_new r ttt kkk"")
    
45. )
    

;CAD轨道弯道标注程序<br /> (defun c:wdbz (/) <br />     (prompt "\n 弯道标注程序加载成功") <br /> ;;;     选取对象 <br />     (setq en1 (entsel "\n 请选取轨道中心线弧线：")) <br /> ;;;     取得对象属性列表 <br />     (setq en1_data (entget (car en1))) <br /> ;;;     提取标注半径R： <br />     (setq radius (fix (atof (rtos (* 1000 (cdr (assoc 40 en1_data))) 2 0)))) <br /> ;;;     提取起至角度50和终止角度51以及计算夹角以及T值 <br />     (setq ang1_rad (cdr (assoc 50 en1_data)))        ;ang1_rad是起至角度的弧度表示 <br />         (setq ang2_rad (cdr (assoc 51 en1_data)))        ;ang2_rad是终止角度的弧度表示 <br />     (setq ang3_rad (abs (- ang2_rad ang1_rad)))        ;ang3_rad是夹角的弧度表示 <br />     (setq ang4 (/ (* ang3_rad 180) pi))            ;ang4是夹角的度数表示 <br />     (setq ang9 (/ ang3_rad 2))                ;ang9是用弧度表述的夹角的半角 <br />         (setq tg (/ (sin ang9) (cos ang9)))            ;计算ang9的正切 <br />     (setq tt (fix (atof (rtos (* tg radius))))) <br />     (setq ang5 (fix ang4))                    ;ang5是角度的整数部分，既标注的度数部分 <br />     (setq ang6 (* (- ang4 ang5) 60)) <br />     (setq ang7 (fix ang6))                    ;ang7是标注的分数部分,rtos是四舍五入 <br />     (setq ang8 (fix (atof (rtos (* (- ang6 ang7) 60) 2 0))));ang8是标注的秒数部分 <br /> ;;;     计算弧长K值 <br />     (setq 2pi (* pi 2)) <br />     (setq d (* radius 2)) <br />     (setq c (* d pi)) <br />     (setq k (fix (atof (rtos (/ (* c ang3_rad) 2pi) 2 0)))) <br /> ;;;     标注 <br /> ;;;     (setvar "cmdecho" 0) <br />     (setq pt1 (getpoint "\n请选择文本框左下点：")) <br />     (setq x2 (+ (car pt1) 15)) <br />     (setq y2 (+ (cadr pt1) 17)) <br />     (setq pt2 (list x2 y2)) <br />     (setq ang55 (itoa ang5)) <br />     (setq ang77 (itoa ang7)) <br />     (setq ang88 (itoa ang8)) <br />     (setq radius_new (itoa radius)) <br />     (setq tt_new (itoa tt)) <br />     (setq k_new (itoa k)) <br />     (setq ang_new (strcat "α=" ang55 "°" ang77 "′" ang88 "″")) <br />     (setq r (strcat "R=" radius_new)) <br />     (setq ttt (strcat "T=" tt_new)) <br />     (setq kkk (strcat "K=" k_new)) <br />     (command "mtext" pt1 pt2 ang_new r ttt kkk"") <br /> )<br />

该贴已经同步到 cumtjh的微博

Gu_xl

回复 cumtjh 的帖子

根据你的代码，稍加改造，比较粗糙，你可以借鉴下：

1. ;;;返回 (圆心 起点弧度 终点弧度 半径)
   
2. (defun gxl-Bulge->ArcData ( p1 p2 bulg / ang cen rad )
   
3.   (setq ang (* 2.0 (atan bulg))
   
4.         rad (/ (distance p1 p2) (* 2.0 (sin ang)))
   
5.         cen (polar p1 (+ (- (/ pi 2.) ang) (angle p1 p2)) rad)
   
6.   )
   
7.   (if (minusp bulg)
   
8.     (list cen (angle cen p2) (angle cen p1) (abs rad))
   
9.     (list cen (angle cen p1) (angle cen p2) (abs rad))
   
10.   )
    
11. )
    
12. ;;;计算两点的中点
    
13. ;;;==================================================================
    
14. (defun gxl-MidPoint (p1 p2)
    
15.   (if (and (> (length p1) 2)(> (length p2) 2))
    
16.       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))) (* 0.5 (+ (caddr p1) (caddr p2))))
    
17.       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))))
    
18.   )  
    
19.   )
    
20. 
    
21. (defun c:tt (/)
    
22.     (prompt "\n 弯道标注程序加载成功")
    
23. ;;;     选取对象
    
24.     (setq en1 (entsel "\n 请选取轨道中心线弧线："))
    
25.   
    
26. ;;;     取得对象属性列表
    
27.     (setq en1_data (entget (car en1)))
    
28.   (if (= "ARC" (cdr (assoc 0 en1_data)))
    
29.     (progn
    
30.       ;;;     提取标注半径R：
    
31.     (setq radius (fix (atof (rtos (* 1000 (cdr (assoc 40 en1_data))) 2 0))))
    
32. ;;;     提取起至角度50和终止角度51以及计算夹角以及T值
    
33.     (setq ang1_rad (cdr (assoc 50 en1_data)))        ;ang1_rad是起至角度的弧度表示
    
34.         (setq ang2_rad (cdr (assoc 51 en1_data)))        ;ang2_rad是终止角度的弧度表示
    
35.     (setq ang3_rad (abs (- ang2_rad ang1_rad)))        ;ang3_rad是夹角的弧度表示
    
36.     (setq ang4 (/ (* ang3_rad 180) pi))            ;ang4是夹角的度数表示
    
37.     (setq ang9 (/ ang3_rad 2))                ;ang9是用弧度表述的夹角的半角
    
38.         (setq tg (/ (sin ang9) (cos ang9)))            ;计算ang9的正切
    
39.     (setq tt (fix (atof (rtos (* tg radius)))))
    
40.     (setq ang5 (fix ang4))                    ;ang5是角度的整数部分，既标注的度数部分
    
41.     (setq ang6 (* (- ang4 ang5) 60))
    
42.     (setq ang7 (fix ang6))                    ;ang7是标注的分数部分,rtos是四舍五入
    
43.     (setq ang8 (fix (atof (rtos (* (- ang6 ang7) 60) 2 0))));ang8是标注的秒数部分
    
44. ;;;     计算弧长K值
    
45.     (setq 2pi (* pi 2))
    
46.     (setq d (* radius 2))
    
47.     (setq c (* d pi))
    
48.     (setq k (fix (atof (rtos (/ (* c ang3_rad) 2pi) 2 0))))
    
49. ;;;     标注
    
50. ;;;     (setvar "cmdecho" 0)
    
51.     (setq pt1 (getpoint "\n请选择文本框左下点："))
    
52.     (setq x2 (+ (car pt1) 15))
    
53.     (setq y2 (+ (cadr pt1) 17))
    
54.     (setq pt2 (list x2 y2))
    
55.     (setq ang55 (itoa ang5))
    
56.     (setq ang77 (itoa ang7))
    
57.     (setq ang88 (itoa ang8))
    
58.     (setq radius_new (itoa radius))
    
59.     (setq tt_new (itoa tt))
    
60.     (setq k_new (itoa k))
    
61.     (setq ang_new (strcat "α=" ang55 "°" ang77 "′" ang88 "″"))
    
62.     (setq r (strcat "R=" radius_new))
    
63.     (setq ttt (strcat "T=" tt_new))
    
64.     (setq kkk (strcat "K=" k_new))
    
65.     (command "mtext" pt1 pt2 ang_new r ttt kkk"")
    
66. 
    
67.       )
    
68.     (if (= "LWPOLYLINE" (cdr (assoc 0 en1_data)))
    
69.     (progn
    
70.   (setq i 0 obj (vlax-ename->vla-object (car en1)))
    
71.   (repeat (fix (vlax-curve-getEndParam obj))
    
72.     (if (/= 0 (setq bulge (vla-GetBulge obj i)))
    
73.       (progn
    
74.         ;;;计算(<centre> <start angle> <end angle> <radius>)
    
75.         (setq data (gxl-Bulge->ArcData (vlax-curve-getPointAtParam obj i) (vlax-curve-getPointAtParam obj (1+ i)) bulge))
    
76.        
    
77. ;;;     提取标注半径R：
    
78.     (setq radius (fix (nth 3 data)) )
    
79. ;;;     提取起至角度50和终止角度51以及计算夹角以及T值
    
80.         (if (MINUSP bulge)
    
81.        (setq ang1_rad (nth 2 data)        ;ang1_rad是起至角度的弧度表示
    
82.         ang2_rad (nth 1 data))        ;ang2_rad是终止角度的弧度表示
    
83.        (setq ang1_rad (nth 1 data)        ;ang1_rad是起至角度的弧度表示
    
84.         ang2_rad (nth 2 data))        ;ang2_rad是终止角度的弧度表示
    
85.           )
    
86.     (setq ang3_rad (- ang2_rad ang1_rad))        ;ang3_rad是夹角的弧度表示
    
87.         (if (MINUSP ang3_rad) (setq ang3_rad (+ ang3_rad pi pi)))
    
88.     (setq ang4 (/ (* ang3_rad 180) pi))            ;ang4是夹角的度数表示
    
89.     (setq ang9 (/ ang3_rad 2))                ;ang9是用弧度表述的夹角的半角
    
90.         (setq tg (/ (sin ang9) (cos ang9)))            ;计算ang9的正切
    
91.     (setq tt (fix (atof (rtos (* tg radius)))))
    
92.     (setq ang5 (fix ang4))                    ;ang5是角度的整数部分，既标注的度数部分
    
93.     (setq ang6 (* (- ang4 ang5) 60))
    
94.     (setq ang7 (fix ang6))                    ;ang7是标注的分数部分,rtos是四舍五入
    
95.     (setq ang8 (fix (atof (rtos (* (- ang6 ang7) 60) 2 0))));ang8是标注的秒数部分
    
96. ;;;     计算弧长K值
    
97.     (setq 2pi (* pi 2))
    
98.     (setq d (* radius 2))
    
99.     (setq c (* d pi))
    
100.     (setq k (fix (atof (rtos (/ (* c ang3_rad) 2pi) 2 0))))
     
101. ;;;     标注
     
102. ;;;     (setvar "cmdecho" 0)
     
103.     ;(setq pt1 (getpoint "\n请选择文本框左下点："))
     
104.         (setq pt1 (GXL-MIDPOINT (GXL-MIDPOINT cp p1) (GXL-MIDPOINT cp p2)))
     
105.     (setq x2 (+ (car pt1) 15))
     
106.     (setq y2 (+ (cadr pt1) 17))
     
107.     (setq pt2 (list x2 y2))
     
108.     (setq ang55 (itoa ang5))
     
109.     (setq ang77 (itoa ang7))
     
110.     (setq ang88 (itoa ang8))
     
111.     (setq radius_new (itoa radius))
     
112.     (setq tt_new (itoa tt))
     
113.     (setq k_new (itoa k))
     
114.     (setq ang_new (strcat "α=" ang55 "°" ang77 "′" ang88 "″"))
     
115.     (setq r (strcat "R=" radius_new))
     
116.     (setq ttt (strcat "T=" tt_new))
     
117.     (setq kkk (strcat "K=" k_new))
     
118.     (command "mtext" pt1 pt1 ang_new r ttt kkk"")
     
119.     (command "line" (setq p1 (vlax-curve-getPointAtParam obj i)) (setq cp (car data)) (setq p2 (vlax-curve-getPointAtParam obj (1+ i))) "")
     
120.     )
     
121.       )
     
122.     (setq i (1+ i))
     
123.     )
     
124.   )
     
125.       )
     
126.     )
     
127.   (princ)
     
128. )
     

;;;返回 (圆心 起点弧度 终点弧度 半径)<br /> (defun gxl-Bulge->ArcData ( p1 p2 bulg / ang cen rad )<br />   (setq ang (* 2.0 (atan bulg))<br />         rad (/ (distance p1 p2) (* 2.0 (sin ang)))<br />         cen (polar p1 (+ (- (/ pi 2.) ang) (angle p1 p2)) rad)<br />   )<br />   (if (minusp bulg)<br />     (list cen (angle cen p2) (angle cen p1) (abs rad))<br />     (list cen (angle cen p1) (angle cen p2) (abs rad))<br />   )<br /> )<br /> ;;;计算两点的中点<br /> ;;;==================================================================<br /> (defun gxl-MidPoint (p1 p2)<br />   (if (and (> (length p1) 2)(> (length p2) 2))<br />       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))) (* 0.5 (+ (caddr p1) (caddr p2))))<br />       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))))<br />   )  <br />   )<br /> <br /> (defun c:tt (/) <br />     (prompt "\n 弯道标注程序加载成功") <br /> ;;;     选取对象 <br />     (setq en1 (entsel "\n 请选取轨道中心线弧线："))<br />   <br /> ;;;     取得对象属性列表 <br />     (setq en1_data (entget (car en1)))<br />   (if (= "ARC" (cdr (assoc 0 en1_data)))<br />     (progn<br />       ;;;     提取标注半径R： <br />     (setq radius (fix (atof (rtos (* 1000 (cdr (assoc 40 en1_data))) 2 0)))) <br /> ;;;     提取起至角度50和终止角度51以及计算夹角以及T值 <br />     (setq ang1_rad (cdr (assoc 50 en1_data)))        ;ang1_rad是起至角度的弧度表示 <br />         (setq ang2_rad (cdr (assoc 51 en1_data)))        ;ang2_rad是终止角度的弧度表示 <br />     (setq ang3_rad (abs (- ang2_rad ang1_rad)))        ;ang3_rad是夹角的弧度表示 <br />     (setq ang4 (/ (* ang3_rad 180) pi))            ;ang4是夹角的度数表示 <br />     (setq ang9 (/ ang3_rad 2))                ;ang9是用弧度表述的夹角的半角 <br />         (setq tg (/ (sin ang9) (cos ang9)))            ;计算ang9的正切 <br />     (setq tt (fix (atof (rtos (* tg radius))))) <br />     (setq ang5 (fix ang4))                    ;ang5是角度的整数部分，既标注的度数部分 <br />     (setq ang6 (* (- ang4 ang5) 60)) <br />     (setq ang7 (fix ang6))                    ;ang7是标注的分数部分,rtos是四舍五入 <br />     (setq ang8 (fix (atof (rtos (* (- ang6 ang7) 60) 2 0))));ang8是标注的秒数部分 <br /> ;;;     计算弧长K值 <br />     (setq 2pi (* pi 2)) <br />     (setq d (* radius 2)) <br />     (setq c (* d pi)) <br />     (setq k (fix (atof (rtos (/ (* c ang3_rad) 2pi) 2 0)))) <br /> ;;;     标注 <br /> ;;;     (setvar "cmdecho" 0) <br />     (setq pt1 (getpoint "\n请选择文本框左下点：")) <br />     (setq x2 (+ (car pt1) 15)) <br />     (setq y2 (+ (cadr pt1) 17)) <br />     (setq pt2 (list x2 y2)) <br />     (setq ang55 (itoa ang5)) <br />     (setq ang77 (itoa ang7)) <br />     (setq ang88 (itoa ang8)) <br />     (setq radius_new (itoa radius)) <br />     (setq tt_new (itoa tt)) <br />     (setq k_new (itoa k)) <br />     (setq ang_new (strcat "α=" ang55 "°" ang77 "′" ang88 "″")) <br />     (setq r (strcat "R=" radius_new)) <br />     (setq ttt (strcat "T=" tt_new)) <br />     (setq kkk (strcat "K=" k_new)) <br />     (command "mtext" pt1 pt2 ang_new r ttt kkk"") <br /> <br />       )<br />     (if (= "LWPOLYLINE" (cdr (assoc 0 en1_data)))<br />     (progn<br />   (setq i 0 obj (vlax-ename->vla-object (car en1)))<br />   (repeat (fix (vlax-curve-getEndParam obj))<br />     (if (/= 0 (setq bulge (vla-GetBulge obj i)))<br />       (progn<br />         ;;;计算(<centre> <start angle> <end angle> <radius>)<br />         (setq data (gxl-Bulge->ArcData (vlax-curve-getPointAtParam obj i) (vlax-curve-getPointAtParam obj (1+ i)) bulge))<br />         <br /> ;;;     提取标注半径R： <br />     (setq radius (fix (nth 3 data)) )<br /> ;;;     提取起至角度50和终止角度51以及计算夹角以及T值<br />         (if (MINUSP bulge)<br />        (setq ang1_rad (nth 2 data)        ;ang1_rad是起至角度的弧度表示 <br />         ang2_rad (nth 1 data))        ;ang2_rad是终止角度的弧度表示 <br />        (setq ang1_rad (nth 1 data)        ;ang1_rad是起至角度的弧度表示 <br />         ang2_rad (nth 2 data))        ;ang2_rad是终止角度的弧度表示<br />           )<br />     (setq ang3_rad (- ang2_rad ang1_rad))        ;ang3_rad是夹角的弧度表示<br />         (if (MINUSP ang3_rad) (setq ang3_rad (+ ang3_rad pi pi)))<br />     (setq ang4 (/ (* ang3_rad 180) pi))            ;ang4是夹角的度数表示 <br />     (setq ang9 (/ ang3_rad 2))                ;ang9是用弧度表述的夹角的半角 <br />         (setq tg (/ (sin ang9) (cos ang9)))            ;计算ang9的正切 <br />     (setq tt (fix (atof (rtos (* tg radius))))) <br />     (setq ang5 (fix ang4))                    ;ang5是角度的整数部分，既标注的度数部分 <br />     (setq ang6 (* (- ang4 ang5) 60)) <br />     (setq ang7 (fix ang6))                    ;ang7是标注的分数部分,rtos是四舍五入 <br />     (setq ang8 (fix (atof (rtos (* (- ang6 ang7) 60) 2 0))));ang8是标注的秒数部分 <br /> ;;;     计算弧长K值 <br />     (setq 2pi (* pi 2)) <br />     (setq d (* radius 2)) <br />     (setq c (* d pi)) <br />     (setq k (fix (atof (rtos (/ (* c ang3_rad) 2pi) 2 0)))) <br /> ;;;     标注 <br /> ;;;     (setvar "cmdecho" 0) <br />     ;(setq pt1 (getpoint "\n请选择文本框左下点："))<br />         (setq pt1 (GXL-MIDPOINT (GXL-MIDPOINT cp p1) (GXL-MIDPOINT cp p2)))<br />     (setq x2 (+ (car pt1) 15)) <br />     (setq y2 (+ (cadr pt1) 17)) <br />     (setq pt2 (list x2 y2)) <br />     (setq ang55 (itoa ang5)) <br />     (setq ang77 (itoa ang7)) <br />     (setq ang88 (itoa ang8)) <br />     (setq radius_new (itoa radius)) <br />     (setq tt_new (itoa tt)) <br />     (setq k_new (itoa k)) <br />     (setq ang_new (strcat "α=" ang55 "°" ang77 "′" ang88 "″")) <br />     (setq r (strcat "R=" radius_new)) <br />     (setq ttt (strcat "T=" tt_new)) <br />     (setq kkk (strcat "K=" k_new)) <br />     (command "mtext" pt1 pt1 ang_new r ttt kkk"")<br />     (command "line" (setq p1 (vlax-curve-getPointAtParam obj i)) (setq cp (car data)) (setq p2 (vlax-curve-getPointAtParam obj (1+ i))) "")<br />     )<br />       )<br />     (setq i (1+ i))<br />     )<br />   )<br />       )<br />     )<br />   (princ)<br /> )<br />

cumtjh

Gu_xl 发表于 2011-7-11 23:21
回复 cumtjh 的帖子

根据你的代码，稍加改造，比较粗糙，你可以借鉴下：

非常感谢，已经基本解决问题 我会再接再厉 完善的

zbwei120

能否请Gu_xl版主加上这样的功能，就是对整个一条多段线而言，可能由几个这样的弧段组成，点击这条多段线多自动全部予以标注。

Gu_xl

回复 zbwei120 的帖子

什么意思？上面的代码就是可以将多段线全部弧段标注的！

zbwei120

一第多段线如果包含直线及弧段组成，运行程序后出现“选取轨道中心线弧线：; 错误: 参数类型错误: numberp: nil”，如果将其分解成单个的弧段，则可以正常标注。
我的意思是多段线不分解成单个的弧线段，点选哪个弧段即标注到那个弧段。

Gu_xl

回复 zbwei120 的帖子

看下面代码：

1. (setq en (car (entsel "\n选取弧段:"))
   
2.       pt (cadr en)
   
3.       en (car en)
   
4.       pt (vlax-curve-getclosestpointto en) ;_ 弧段上点
   
5.       param (fix (vlax-curve-getParamAtPoint en pt)) ;_ 弧段起点参数
   
6.       bulge (vla-GetBulge (vlax-ename->vla-object en)) ;_ 弧段弓弦比
   
7.       p1 (vlax-curve-getPointAtParam en param) ;_ 弧段起点
   
8.       p2 (vlax-curve-getPointAtParam en (1+ param)) ;_ 弧段终点
   
9.       )
   

(setq en (car (entsel "\n选取弧段:"))<br />       pt (cadr en)<br />       en (car en)<br />       pt (vlax-curve-getclosestpointto en) ;_ 弧段上点<br />       param (fix (vlax-curve-getParamAtPoint en pt)) ;_ 弧段起点参数<br />       bulge (vla-GetBulge (vlax-ename->vla-object en)) ;_ 弧段弓弦比<br />       p1 (vlax-curve-getPointAtParam en param) ;_ 弧段起点<br />       p2 (vlax-curve-getPointAtParam en (1+ param)) ;_ 弧段终点<br />       )<br />

czb203

感觉很不错的谢谢楼主啊

xgr

去看看，是否对你有帮助
http://bbs.mjtd.com/thread-92752-1-3.html

leung-g

楼主。你这快捷键设的是什么啊