Rick_Ismael 发表于 2022-7-6 08:32:58

通过getpoint获取正交点

如何获得点的正交点。就像当我们使用“复制/移动”命令并且“正交”处于启用状态时一样。拾取基点，图元将垂直于拾取的点进行复制/移动。非常感谢。

Lee Mac 发表于 2022-7-6 08:58:15

我的一个老功能：
 
http://lee-mac.com/orthopoint.html

Rick_Ismael 发表于 2022-7-6 09:18:51

当我读到你的网站时，我错过了那个。谢谢李。

Lee Mac 发表于 2022-7-6 09:50:22

不客气，瑞克。
 
为了好玩，我决定使用向量演算而不是反函数来编写该函数的另一个版本：
 
[颜色=绿色]---------------------=={正交点}==---------------；；；；；；将相对于基点转换的点返回到；；；；说明当前UCS中正交模式的激活；；；；-----------------------------------------------------------------；；；；作者：Lee Mac，版权所有©2011-www.Lee-Mac。通用域名格式；；；；-----------------------------------------------------------------；；；；参数：；；；；base-转换的基点（UCS）；；；；点-要变换的点（UCS）；；；；-----------------------------------------------------------------；；；；返回：转换为正交的点（UCS）；；；；-----------------------------------------------------------------；；（defunLM：正射点（基点/dx dy vp vx vy）（if（zerop（getvar'正交模式））点（progn（setqvx（trans（getvar'UCSXDIR）0 1t）vy（v^v'（0.0 0.0 1.0）vx）vp（mapcar'-点基）dx（vxv vx vp）dy（vxv vy vp））（mapcar'+基（if（
页: [1]
查看完整版本: 通过getpoint获取正交点