如何求得，一个点到指定圆弧线的垂直点

u=asdf

如何求得，一个点到指定圆弧线的垂直点，给点代码学习下。谢谢

lisperado

tzfcn 发表于 2018-10-24 18:38
思路：
指定点向圆弧圆心方向移动一个两点距离减去圆弧半径的距离。

(defun c:tt (/ s e o l c p q)
  (princ "\n拾取圆弧.. ")
  (if (and (setq s (ssget "_:E:S+." '((0 . "ARC,CIRCLE"))))
           (setq e (ssname s 0))
           (setq o (vlax-ename->vla-object e)
                 l (mapcar '(lambda (x) (vlax-get o x)) '(center radius))
                 c (trans (car l) e 1)
                 )
           )
    (while (and (setq q (grread t 13 1)) (= (car q) 5) (setq p (cadr q)))
      (redraw)
      (grdraw p (polar p (angle p c) (- (distance p c) (cadr l))) 1)
      )
    (princ "\n退出?")
    )
  (princ)
  )

Lisphk

1. (defun c:tt ()
   
2.   (if (and (setq e (car (entsel "\n拾取圆弧<退出>:")))
   
3.            (setq pt (getpoint "\n点取测试点<退出>:"))
   
4.       )
   
5.     (progn
   
6.       (setq p1 (vlax-curve-getclosestpointto e pt))
   
7.       (setvar "osmode" 0)
   
8.       (command "line" p1 pt "")
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    

(defun c:tt ()<br />   (if (and (setq e (car (entsel "\n拾取圆弧<退出>:")))<br />            (setq pt (getpoint "\n点取测试点<退出>:"))<br />       )<br />     (progn<br />       (setq p1 (vlax-curve-getclosestpointto e pt))<br />       (setvar "osmode" 0)<br />       (command "line" p1 pt "")<br />     )<br />   )<br />   (princ)<br /> )<br />

tzfcn

思路：
指定点向圆弧圆心方向移动一个两点距离减去圆弧半径的距离。