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

谁有

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

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")
页: [1]
查看完整版本: 谁有