Lisp始终在z处绘制pline

broncos15 · 发表于 2022-7-5 18:42:00

我之前不小心把这个贴错了论坛。我有一个快速的问题，关于我在lisp例程中做了什么错误。我正在尝试更正lisp例程，该例程将我绘制的多段线的高程设置为高程0，无论捕捉到的点是什么。我不熟悉lisp例程，所以我仍在学习很多，我很难看到我做错了什么。我的lisp例程是：

copy


(defun c:plinezero ()
(setvar "Osnapz" 1)
(command "pline")
(command "osnap" "0")
(princ)
)

rkmcswain · 发表于 2022-7-5 18:46:19

一种方法是这样。

copy


(defun c:plinezero ()
 (setvar "elevation" 0.0)
 (setvar "osnapz" 1)
 (command "._PLINE")
 (while (= (logand (getvar "CMDACTIVE") 1) 1)
   (command PAUSE)
 ) 
(princ)
)

注意，osnapz=1意味着它将使用当前高程，而不一定是0.0
您可能希望保存这两个系统变量的当前值，然后再恢复它们。
这里没有显示。

broncos15 · 发表于 2022-7-5 18:50:18

非常感谢你的帮助！所以我使用了你发送的代码，这很有效。我的问题是，该命令没有与实际pline命令相同的提示。我之所以要添加提示，是为了让不熟悉CAD的人能够理解pline的一切。我在末尾添加了一行，我认为这会将osnapz设置回0，但它似乎不是出于某种原因这样做的。
代码：
（defun c:plinezero（）
（setvar“elevation”0.0）
（setvar“osnapz”1）
（命令“_PLINE”）
（while（=（logand（getvar“CMDACTIVE”）1）1）
（命令暂停）
)
（setvar“osnapz”0）
（普林斯）
)

iconeo · 发表于 2022-7-5 18:54:38

另一个选项是简单地设置选项>>绘图>>用当前高程替换Z值

broncos15 · 发表于 2022-7-5 18:57:54

iconeo，有没有一种命令行方式可以做到这一点（即，我可以不用键入命令行选项，然后选择“绘图”选项卡，然后选择“替换z”）吗

iconeo · 发表于 2022-7-5 18:59:47

是的。

copy

(command "setvar" "osnapz" "1")

我们把它放在我们的阿卡多克。lsp，因此它适用于所有用户。我们很少在3D环境下工作，所以如果用户确实需要它，就必须将其关闭。

我们也把这个放进去，以防有人对他们的UCS发疯。

copy

(if (/= (getvar "WorldUCS") 1)
(alert "Warning. Your UCS is not set to world.")        
)

broncos15 · 发表于 2022-7-5 19:02:37

Iconeo，谢谢你的帮助。这就是我试图合并到原始命令中的内容，但我无法使用lisp例程将osnapz设置回0。这很重要，因为我们在3D中广泛工作。

iconeo · 发表于 2022-7-5 19:07:15

如果是这样的话，我会设置一个按钮用作切换。像这样：

copy

^C^C osnapz $M=$(-,1,$(getvar,osnapz))

或

copy

(if (zerop (getvar "osnapz"))(setvar "osnapz" 1)(setvar "osnapz" 0))

然后，当你需要在模式之间切换时，只需点击一下即可。

Dadgad · 发表于 2022-7-5 19:08:32

我喜欢UCS大喊Iconeo，对于那些在这些事情上没有经验的人来说，非常有帮助。
关于一致性，有很多话要说。

当图形单位不是公制时，我使用modemacro发出警报，因为这是我们的stanard MO。

iconeo · 发表于 2022-7-5 19:11:52

哈哈，我用同样的当不在帝国。。。然后我们在墨西哥找到了很多工作。。。

[编程交流] Lisp始终在z处绘制pline

发表回复

精选推荐