自动LISPING可视化命令

samifox · 发表于 2022-7-6 06:52:00

你好
到目前为止，使用Autolisp函数与Autocad中的命令行交互是一个完美的场景。没有引起注意的是如何对向量进行“点击”编码，以使函数工作。
例如，“修剪/延伸”命令将沿单击点的方向修剪或延伸直线，我如何告诉Autolisp在特定位置单击？

谢谢
谢伊

MSasu · 发表于 2022-7-6 07:49:56

您可以提供要拾取的点，类似于您将在屏幕上执行的操作：

(if (and (setq point1st (cadr (entsel)))
        (setq point2nd (cadr (entsel))))
(command "_EXTEND" point1st "" point2nd "")
)

但是，请注意，结果可能会受到当前缩放级别和拾取框大小的影响。

samifox · 发表于 2022-7-6 08:03:20

你好

别告诉我没有办法了？

[编程交流] 自动LISPING可视化命令