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

自动LISPING可视化命令

你好
到目前为止，使用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

你好
 
别告诉我没有办法了？
页: [1]
查看完整版本: 自动LISPING可视化命令