LISP在di上的行为不同

Andrew1979 · 发表于 2022-7-5 22:40:42

我已经编写了一个lisp例程来绘制木制屋架。这一点效果很好。

不过，我还制作了一个lisp，用于绘制屋架上的屋顶瓦和屋顶板条。
这是一个独立的liso例程。

出于某种原因，在一台计算机上一切都很好，但在另一台计算机上，屋顶瓷砖和板条是颠倒的，从后到前。

知道是什么AutoCAD设置导致了这个问题吗？

下面是正在发生的事情的屏幕截图。

Andrew1979 · 发表于 2022-7-5 22:51:45

我已经解决了这个问题。打开“单位”命令，然后确保“顺时针”勾选框未选中。易于理解的

Andrew1979 · 发表于 2022-7-5 23:03:14

我试图更改“unit”命令窗口下的顺时针勾选框。我希望能够使用AutoCAD命令更改值，而不是使用为units命令打开的窗口中的勾选框。

是否有这样一个命令可以从命令提示符更改此值？

我基本上想使用LISP例程来打开或关闭勾选框，因此如果我知道AutoCAD命令要更改它，那么我可以将其合并到我的程序中。

Andrew1979 · 发表于 2022-7-5 23:03:24

好的，我找到了，是ANGDIR

MSasu · 发表于 2022-7-5 23:12:54

为了避免编程上出现这种情况，可以在代码中添加ANGDIR系统变量的验证。

BIGAL · 发表于 2022-7-5 23:23:14

一个有用的技巧是通过自动加载defun一次性设置所有单位变量，然后可以用任何程序中的一行代码调用它。同样，完成后重置。

copy


(defun civ_units ()
(SETQ ANGBASEE (GETVAR "ANGBASE"))
(SETQ ANGDIRR (GETVAR "ANGDIR"))
(SETQ LUNITSS (GETVAR "LUNITS"))
(SETQ LUPRECC (GETVAR "LUPREC"))
(SETQ AUNITSS (GETVAR "AUNITS"))
(SETQ AUPRECC (GETVAR "AUPREC"))
(SETVAR "LUNITS" 2)
(SETVAR "ANGBASE" 0.0)
(SETVAR "ANGDIR" 0)
(SETVAR "LUPREC" 0)
(SETVAR "AUNITS" 0)
(SETVAR "AUPREC" 0)
)
(civ_units)
.....
(old_civ_units)