Lisp添加自定义注释

richardlim · 发表于 2022-7-6 09:55:06

（defun s：：启动（）
（命令“-scalelistedit”“A”“5:1”“5:1”“A”“1:200”“1:200”“A”“1:250”“1:250”“A”“1:500”“1:500”“A”“1:750”“1:750”“A”“1:1000”“1:1000”“A”“1:2000”“1:2000”“E”）

我想创建一个启动lisp，当您打开一个新图形时，它会根据上面的列表添加自定义注释比例。它适用于新图形。但当规模已经存在时。。。这是一个错误。能帮我个忙吗。

谢谢
理查德

pBe · 发表于 2022-7-6 10:16:08

我的建议：

使用模板

richardlim · 发表于 2022-7-6 10:26:58

如果我使用模板，则重置以消除多余的比例1:1\u外部参照。。。。。。它还删除了我需要使用的常规自定义比例。我知道2011年没有问题。
目前我们使用的是2008年和2010年。谢谢

理查德

irneb · 发表于 2022-7-6 10:34:22

我发现的“最佳”解决方案是创建一个DWT文件，其中只包含所需的比例。然后使用比例列表清理实用程序“同步”多个DWG以匹配，新DWG现在甚至有一个命令行，因此您可以设置windows的计划任务以定期运行。

否则请在此处尝试我的旧代码：
如果您想要不同的东西，请修改StdISOScaleList比例列表（大约在代码的一半）。您需要的命令是ScaleListMetric，用于将这些比例添加到DWG，或ScaleListForceMetric，用于同时删除列表中不包含的所有比例。

richardlim · 发表于 2022-7-6 10:53:04

Irneb，
这真是一个很棒的节目。。。。。我能说什么。。。。。你就是那个家伙！
非常感谢你！。。。。。Yahoooo！

irneb · 发表于 2022-7-6 10:56:12

不客气！很乐意帮忙。

[编程交流] Lisp添加自定义注释

发表回复

精选推荐