谁有

ImaJayhawk · 发表于 2004-9-2 10:52:19

有没有一种方法可以将一些代码添加到模板绘图中，以检查打开绘图的人是否加载了WhoHas.arx？如果没有，尝试加载它？
谢谢。
-意象之鹰

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Keith · 发表于 2004-9-2 11:12:11

缩写为 -

(if 
    (null 
        (member 
            (setq app "WHOHAS.ARX") 
            (mapcar 'strcase (arx))
        )
    )
    (arxload app)
)

这假设 whohas.arx 是支持路径中的合法应用。您可能需要添加 add'l 代码才能使此防弹。

JohnK · 发表于 2004-9-2 11:51:02

MP，每次都必须加载该lisp以使其有效，如果您将其加载到每个绘图上，则它不符合使用特定模板时加载的标准。
您可以创建一个VBA应用程序，并使用VBA管理器将宏嵌入绘图文件中。

Keith · 发表于 2004-9-2 11:56:39

自我提醒:开始发帖前先喝咖啡。我看到了template，而不是template dwg，并假设海报只是指他们的startup lisp。

ImaJayhawk · 发表于 2004-9-2 12:51:25

不，那是很酷的MP；你可以用那个代码。使用持久性反应器。(虽然我强烈建议你不要这样做，但是如果你勇敢的话，你可以做到。)

Keith · 发表于 2004-9-2 14:19:07

看起来嵌入是一条出路。我已经有一段时间没有做VB了，有人能给我一个正确的方向来加载arx吗？谢了。
-意象之鹰

ImaJayhawk · 发表于 2004-9-2 16:39:18

使用此场景：


ACADApplication.LoadArx("WhoHax.arx")