从外部P到椭圆的法线

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

大家好：
有人知道如何在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

沿着这些路线？

copy


(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

登录/注册后可看大图

对不起，我是新手，手指头走得很快。

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

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

[编程交流] 从外部P到椭圆的法线

发表回复

精选推荐