负载dll并运行

andy_lee · 发表于 2022-7-5 21:55:09

我有一个带有commandmethod（“cmdtest”）的dll（mytest.dll）
我想使用lisp加载和运行。
以下代码有问题。

如果“mytest.dll”存在，请运行此代码，
但仍提示“mytest.dll未加载！”

如果“mytest.dll”不存在，请运行此代码，
提示“TextToGeom.dll未找到！”\nTextToGeom。dll未找到！“？？？重复提示

copy


(defun c:test ()
(if (member "mytest.DLL" (mapcar 'strcase (arx)))
 (command "cmdtest")
 (if (findfile "mytest.dll")
   (progn
     (princ "\nmytest.dll not loaded!")
     (setvar "cmdecho" 0)
     (command "netload" (findfile "mytest.dll"))
     (princ "\nOk, ")
     (princ (findfile "mytest.dll"))
     (princ " loaded!")
     (command "cmdtest")
   )
   (princ "\nmytest.dll not find!")
 )
)
)

Tharwat · 发表于 2022-7-5 22:17:16

不管剩下的例程是否工作，但与成员函数相关的这部分应该是这样的。

copy


(member "MYTEST.DLL" (mapcar 'strcase (arx)))

andy_lee · 发表于 2022-7-5 22:43:39

谢谢你，塔尔瓦大师，现在没事了！
在末尾添加（princ）。

Tharwat · 发表于 2022-7-5 22:56:15

很好，很高兴听到

需要冷静地退出

[编程交流] 负载dll并运行

发表回复

精选推荐