社区 › Auto Lisp › 从外部P到椭圆的法线

SOFITO_SOFT 发表于 2022-7-6 10:00:41

从外部P到椭圆的法线

大家好：
有人知道如何在Alips和/或Vlisp（2D）中从外（外）点求解椭圆的法线吗？
提前谢谢。

Tharwat 发表于 2022-7-6 10:17:36

从法线到椭圆是什么意思？
 
是从圆到椭圆吗？
 
塔瓦特

GP_ 发表于 2022-7-6 10:30:28

你是说椭圆上离外点最近的点？
 
(setq ELL (vlax-ename->vla-object (car (entsel "Select Ellipse"))))
(setq Pt_ext (getpoint "Exterior Point"))
(setq Pt_ell (vlax-curve-getClosestPointTo ELL Pt_ext))

SOFITO_SOFT 发表于 2022-7-6 10:31:07

Tharwat你好，向大家致意：
是我工作中非常常见的几何构造，使用AutoCAD对象捕捉“PER”效果很好。但是我想计算从一个点（到椭圆）到一条垂直于椭圆的线（根据通常的几何术语为“法线”）的Autolisp。在谷歌上找不到关于这个几何问题的有用参考资料。
谢谢你的关注。

Lee Mac 发表于 2022-7-6 10:45:55

沿着这些路线？
 

(defun c:test ( / e p ) (vl-load-com)
;; Example by Lee Mac 2010 - www.lee-mac.com

(if
   (and (setq e (car (entsel)))
   (not
       (vl-catch-all-error-p
         (vl-catch-all-apply 'vlax-curve-getEndParam (list e))
       )
   )
   (setq p (getpoint "\nSpecify Point: "))
   )
   (entmakex
   (list
       (cons 0 "LINE")
       (cons 10 (trans p 1 0))
       (cons 11 (vlax-curve-getClosestPointto e (trans p 1 0)))
   )
   )
)

(princ)
)

SOFITO_SOFT 发表于 2022-7-6 10:57:15

http://img691.imageshack.us/img691/6075/problematangenciaaelips.jpg对不起，我是新手，手指头走得很快。

SOFITO_SOFT 发表于 2022-7-6 11:02:48

大家好：
李-麦克的解决方案是完美的（而且很快……在周日！！！）继续我的计划。但问题是如何以经典方式解决这个问题。。。有直线、角度、垂线和指南针。。。。谢谢大家。。。来自马德里（西班牙）
PD。在这幅图中，对于古典几何爱好者来说：里德：搜索解决方案，格林：数据，品红色：AUXLIARS POSSIBLES line？，蓝色：已知比例。

查看完整版本: 从外部P到椭圆的法线