绘图单位

Baber62 · 发表于 2022-7-5 17:40:15

需要一个lisp例程来设置类似于-dwgunits命令的绘图单位，但需要带有单选按钮的用户界面，以便于选择。

任何帮助都将不胜感激。

Dadgad · 发表于 2022-7-5 17:56:11

您是在尝试更改现有图形中的单位，还是只是确保人们知道他们在做什么？

我喜欢-dwgunits命令，只是想知道在不同的单元中创建多个自定义模板是否可以更好地满足您的需求，其中包括许多其他专有样式？
然后，您可以创建具有不同名称的自定义调色板，或者为每个不同的调色板创建自定义宏。

我可以理解你对于在未经初始化的用户上释放-dwgunits命令的担忧。

一门松动的大炮真的会使船摇晃。

Baber62 · 发表于 2022-7-5 18:12:02

嗨，爸爸，不，这不是我正在处理的现有图纸，虽然上帝只知道我已经处理了多少次这个问题。这是关于设置一个新图形，因为未学习的人认为，通过将insunits设置为米，整个图形将转换为米。我已经创建了一个脚本文件，使用-dwgunits命令将单位设置为米，但是，如果我们有一个用户界面，在运行时向您提供了所有可以选择的单位，通过单击单选按钮，您可以快速设置图形的单位。正如您所知，不熟悉cad的人不倾向于探索cad命令，而只是使用最简单的命令。

BIGAL · 发表于 2022-7-5 18:35:54

像这样的

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)
)

Baber62 · 发表于 2022-7-5 18:47:29

谢谢Bigal，谢谢你的时间。
我会调查一下，然后再给你回复。

[编程交流] 绘图单位

发表回复

精选推荐