写个AutoCAD 2022的插件,格式是LSP, 命令是LJT,需要满足的内容是画直线时,在直线居中位置自带一个箭头,箭头大小为5
时间: 2024-03-12 07:43:18 浏览: 201
好的,您需要在LSP文件中添加以下代码来实现这个插件功能:
```
(defun c:LJT (/)
(command "._line" pause pause)
(setq pt1 (getpoint "Specify start point: "))
(setq pt2 (getpoint pt1 "Specify end point: "))
(setq midpt (mapcar '/ (mapcar '+ pt1 pt2) '(2.0 2.0 2.0)))
(setq arrpt1 (mapcar '+ midpt '(0.0 2.5 0.0)))
(setq arrpt2 (mapcar '- midpt '(0.0 2.5 0.0)))
(command "._line" pt1 pt2 "")
(command "._line" arrpt1 midpt "")
(command "._line" arrpt2 midpt "")
)
(princ)
```
这将创建一个新的命令"LJT",当您调用它时,它将提示您指定线的起点和终点,然后自动在该线的中心位置绘制一个箭头。箭头大小为5。
请将上述代码复制到您的LSP文件中,然后在AutoCAD中加载该LSP文件。您可以通过输入"LJT"命令来测试该插件。
阅读全文