现有LISP routin的帮助

KHoughton · 发表于 2022-7-6 06:56:04

我在我公司的网络上找到了附加的LISP例程。它绘制了六角头螺栓的侧视图。它工作得很好，尽管它在命令结束时确实会弹出一些错误。我希望能够使用没有错误的命令，并希望对其进行一些修改，但我不太了解LISP。

该命令按预期绘制螺栓，但在输入方向角度后会执行以下操作：

输入方向角度：
未知命令“2DBOLT”。按F1键获取帮助。

拾取插入点：
未知命令“2DBOLT”。按F1键获取帮助。
未知命令“2DBOLT”。按F1键获取帮助。
未知命令“2DBOLT”。按F1键获取帮助。
未知命令“2DBOLT”。按F1键获取帮助。
未知命令“2DBOLT”。按F1键获取帮助。

然后正确地拔出螺栓。知道为什么吗？

而且

目前，您必须手动输入螺栓头和螺母/垫圈之间的夹点（间隙）距离，我希望能够选择螺栓的插入点和螺母的插入点，并使用这些值绘制螺栓，而不是手动输入夹点（间隙）距离和旋转角度。

希望这一切都有意义。。。

我正在使用AutoCAD 2013。

谢谢
2螺栓。lsp

BIGAL · 发表于 2022-7-6 07:12:02

只是一个猜测

copy

(redraw) ; not sure about this maybe (command "Redraw")
  (setvar "OSMODE" OM)
  (command "layer" "set" LYR "") ; make this (setvar "clayer" lyr) else the layer dialouge will display thats probably the error