过曲线上的一点做曲线的垂线

dcg553496180

如何做过曲线上一点做曲线的垂线，请教各位大神，是否有函数可以实现。先在此谢过

自贡黄明儒

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95149

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109038#lastpost

wxd20130610

arx中有函数getClosestPoint()可以获得垂足点

dcg553496180

wxd20130610 发表于 2014-1-16 15:01
arx中有函数getClosestPoint()可以获得垂足点

这个函数我知道，那是不在曲线上的点，我现在是在曲线上的点，过这个点做曲线的垂线

xyp1964

求曲线上点的法向点

Andyhon

info:
http://www.bricsys.com/common/support/forumthread.jsp?id=18314

2. 
   
3. (defun c:perpl (/ from_object from_point first_derivative line_angle loop perp_line grread_result end_point str)
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq old_osmode (getvar "osmode"))
   
6.   (if (and (setq from_object (entsel "\nSelect curve at point to start the perpendicular line."))
   
7.                                                                      ; select
   
8.            (setvar "osmode" 0)
   
9.            (setq from_point (cadr from_object))                      ; get the point part
   
10.            (setq from_object (car from_object))                      ; get the entity part
    
11.            (setq from_point (vlax-curve-getclosestpointto from_object from_point))
    
12.                                                                      ; adjust point to be on the entity
    
13.            (not (vl-catch-all-error-p
    
14.                   (setq first_derivative (vl-catch-all-apply
    
15.                                 'vlax-curve-getFirstDeriv
    
16.                                   (list from_object (vlax-curve-getParamAtPoint from_object from_point))
    
17.                               )
    
18.                   )
    
19.                 )
    
20.            )                                                         ; get the first derivative
    
21.       )
    
22.     (progn
    
23.       (entmake (list '(0 . "LINE") (cons 10 from_point) (cons 11 from_point)))
    
24.                                                                      ; create initial line
    
25.       (setq perp_line  (entlast)                                     ; store the initial line
    
26.             line_angle  (angle '(0 0 0) first_derivative)            ; get the slope
    
27.             loop T                                                   ; loop
    
28.       )
    
29. ;      (princ "\nSpecify line length: ")
    
30.       (while (and (setq grread_result (grread T 12 0))               ; control cursor, no error on ESC, normal crosshairs
    
31.                   (/= (car grread_result) 3)                         ; 3 = point selected
    
32.                   loop                                               ; loop is active
    
33.              )
    
34.         (cond
    
35.           ((= (car grread_result) 5)                                 ; mouse action
    
36.             (setq end_point (polar from_point
    
37.                             (if (minusp (sin (- (angle from_point (cadr grread_result)) line_angle)))
    
38.                               (- line_angle (/ pi 2))
    
39.                               (+ line_angle (/ pi 2))
    
40.                             )
    
41.                             (distance from_point (cadr grread_result))
    
42.                      )
    
43.             )                                                        ; calculate end point
    
44.             (entmod (subst (cons 11 (trans end_point 1 0)) (assoc 11 (entget perp_line)) (entget perp_line)))
    
45.                                                                      ; modify the line
    
46.           )
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (setvar "osmode" old_osmode)
    
52.   (princ)
    
53. )
    

<br /> (defun c:perpl (/ from_object from_point first_derivative line_angle loop perp_line grread_result end_point str)<br />   (setvar "CMDECHO" 0)<br />   (setq old_osmode (getvar "osmode"))<br />   (if (and (setq from_object (entsel "\nSelect curve at point to start the perpendicular line."))<br />                                                                      ; select<br />            (setvar "osmode" 0)<br />            (setq from_point (cadr from_object))                      ; get the point part<br />            (setq from_object (car from_object))                      ; get the entity part<br />            (setq from_point (vlax-curve-getclosestpointto from_object from_point))<br />                                                                      ; adjust point to be on the entity<br />            (not (vl-catch-all-error-p<br />                   (setq first_derivative (vl-catch-all-apply<br />                                 'vlax-curve-getFirstDeriv<br />                                   (list from_object (vlax-curve-getParamAtPoint from_object from_point))<br />                               )<br />                   )<br />                 )<br />            )                                                         ; get the first derivative<br />       )<br />     (progn<br />       (entmake (list '(0 . "LINE") (cons 10 from_point) (cons 11 from_point)))<br />                                                                      ; create initial line<br />       (setq perp_line  (entlast)                                     ; store the initial line<br />             line_angle  (angle '(0 0 0) first_derivative)            ; get the slope<br />             loop T                                                   ; loop<br />       )<br /> ;      (princ "\nSpecify line length: ")<br />       (while (and (setq grread_result (grread T 12 0))               ; control cursor, no error on ESC, normal crosshairs<br />                   (/= (car grread_result) 3)                         ; 3 = point selected<br />                   loop                                               ; loop is active<br />              )<br />         (cond<br />           ((= (car grread_result) 5)                                 ; mouse action<br />             (setq end_point (polar from_point<br />                             (if (minusp (sin (- (angle from_point (cadr grread_result)) line_angle)))<br />                               (- line_angle (/ pi 2))<br />                               (+ line_angle (/ pi 2))<br />                             )<br />                             (distance from_point (cadr grread_result))<br />                      )<br />             )                                                        ; calculate end point<br />             (entmod (subst (cons 11 (trans end_point 1 0)) (assoc 11 (entget perp_line)) (entget perp_line)))<br />                                                                      ; modify the line<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "osmode" old_osmode)<br />   (princ)<br /> )<br />

dcg553496180

自贡黄明儒 发表于 2014-1-16 11:39
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95149

http://bbs.mjtd.com/forum.php?mod=viewthre ...

我又想到了一个思路，将原来的曲线偏移然后得到一条新的曲线，然后过原来曲线上的点做新曲线上的垂线，然后把新曲线删除。这样就找到了过曲线上一点做曲线的垂线，并且可以通过偏移的大小和方向控制垂线的长度和方向。能不能再创建这条新曲线的时候同时将它设置成为不可见，系统变量是什么呢？

dcg553496180

自贡黄明儒 发表于 2014-1-16 11:39
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95149

http://bbs.mjtd.com/forum.php?mod=viewthre ...

我查了下系统变量没有找到控制对象可见性的系统变量，那就只能将新曲线的颜色用chprop改成纯黑，这样就看不见了，但是这种方法实在不好

自贡黄明儒

vlax-curve-getFirstDeriv
可以得到切线，转90度就是法线了。

dcg553496180

自贡黄明儒 发表于 2014-1-24 11:26
vlax-curve-getFirstDeriv
可以得到切线，转90度就是法线了。

试了下我的思路，在转角处附近就不行了，看来这种思路还是不可行