新手请教多段线顶点到圆弧中点距离

Lispboy

Free-Lancer 发表于 2013-5-15 08:11
理解 Vlax-curve-getFirstDeriv Vlax-curve-getSecondDeriv

恩，一阶导数是曲线在该点的切线，二阶导数是在该店的曲率。

牢固

1. (defun c:tt ()
   
2.   (setq e (entsel "\n选择多段线圆弧位置:"))
   
3.   (setq pt    (cadr e)
   
4.         e     (car e)
   
5.         param (fix (vlax-curve-getParamAtPoint
   
6.                      e
   
7.                      (vlax-curve-getclosestpointto e (trans pt 1 0))
   
8.                      )
   
9.                    ) ;_ 顶点参数
   
10.         mp    (vlax-curve-getPointAtParam e (+ param 0.5)) ;_ 圆弧中点
    
11.         pt    (vlax-curve-getPointAtParam e param) ;_ 顶点
    
12.         )
    
13.   (entmake (list
    
14.              '(0 . "line")
    
15.              (cons 10 pt)
    
16.              (cons 11 mp)
    
17.              '(62 . 1)
    
18.              )
    
19.            )
    
20.   (princ "\n顶点到圆弧中点距离 = ")
    
21.   (princ (rtos (distance pt mp) 2 3))
    
22.   (princ)
    
23.   )

(defun c:tt ()<br />   (setq e (entsel "\n选择多段线圆弧位置:"))<br />   (setq pt    (cadr e)<br />         e     (car e)<br />         param (fix (vlax-curve-getParamAtPoint<br />                      e<br />                      (vlax-curve-getclosestpointto e (trans pt 1 0))<br />                      )<br />                    ) ;_ 顶点参数<br />         mp    (vlax-curve-getPointAtParam e (+ param 0.5)) ;_ 圆弧中点<br />         pt    (vlax-curve-getPointAtParam e param) ;_ 顶点<br />         )<br />   (entmake (list<br />              '(0 . "line")<br />              (cons 10 pt)<br />              (cons 11 mp)<br />              '(62 . 1)<br />              )<br />            )<br />   (princ "\n顶点到圆弧中点距离 = ")<br />   (princ (rtos (distance pt mp) 2 3))<br />   (princ)<br />   )

sicky111

牢固 发表于 2013-5-15 11:30

如果没理解错的话，楼主要的是两条线的延伸交点到圆弧中点的距离，而G版的这个程式是圆弧端点到中点的距离。

kqqt6236

谢谢各位。

Throne

Free-Lancer 发表于 2013-5-15 08:11
理解 Vlax-curve-getFirstDeriv Vlax-curve-getSecondDeriv

谢谢。受教了。

Throne

Free-Lancer 发表于 2013-5-15 08:11
理解 Vlax-curve-getFirstDeriv Vlax-curve-getSecondDeriv

谢谢。受教了。

                               
登录/注册后可看大图