编码帮助请求

EricARCH · 发表于 2022-1-8 20:01:44

我一直在运行2017版的AutoCAD以及第三方定制的ARX文件。我已经升级到最新版本的AutoCAD，现在ARX文件已经过时。我没有原始编码器的联系信息，只有当前文件。我想与编程经验的人重写ARX工作与AutoCAD22。如果你感兴趣，请告诉我。

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

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

EricARCH · 发表于 2022-1-8 20:27:53

我想那是我的，我会找源头的

EricARCH · 发表于 2022-1-8 20:31:58

我认为这是这里的来源；
http://www.theswamp.org/index.php?topic=21875.msg264050#msg264050
这看起来对吗？

EricARCH · 发表于 2022-1-8 20:52:00

看看是不是这个，如果是，你可以在上面的链接中复制一份源代码

EricARCH · 发表于 2022-1-9 00:52:43

你的回答可能是一个绝对的奇迹！我不知道该怎么做。此外，对我不利的是，我是一个低级用户，而不是程序员。我只是摆弄东西，直到“代码探针”使AutoCAD退缩的方式，我想。这对我来说就像一个糟糕的科学项目，而你可能是真正的老师。这些年来，我基本上一直跟随一位同事，他向我展示了如何做事。我们的关系已经不存在了，因为我已经跳槽了。正如我所说的，我已经安装了一个新版本的CAD软件，但是却被一堆我很想使用的lisp程序搞得焦头烂额。我所理解的是，为了使用我的lisp例程，我需要一些代码钻入或链接到AutoCAD的基本代码。我相信CrpARX24.64.arx就是这个链接代码。在这个概念上，我可能有点糊涂。请帮助我理解，我提前道歉，因为我对这些事情没什么经验。
以下是我在您的ARX文件中发现的内容:我已经将它保存到一个包含几个lisp例程的文件夹中——我的“主”lisp加载ARX现在引用新版本(CrpARX24.64).arx。(注意:我在名称中添加了括号，以便与我的主lisp代码匹配。)我可以弹出AutoCAD 2022 APPLOAD对话框，加载(CrpARX24.64)。arx，或者至少它说“成功加载”我想它正在工作。然而，当我加载我的master lisp引用(CrpARX24.64)时。ARX I get:
$ Load { CAD }-visibility . LSP加载成功。
命令:；错误:ARXLOAD失败
这是我的“主”lisp的代码，名为:＄Load { CAD }-visibility . LSP你愿意帮助黑客解决这个问题吗？

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/---\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
(VL-load-com)alerts
(if(/=(getvar " pstylemode ")0)
(progn
(princ "；))(print)
(princ "此图形使用颜色相关的打印样式")(print)
(princ "；")(打印)
(princ)
)；progn
)；if
(defun if-load(fn)(if(findfile fn)(load fn(strcat fn)”加载失败！！!")))(princ))
(if-load "+main . LSP ")
(if-load " ActiveX tools . LSP ")
(if-load " Block tools . LSP ")
(if-load " Lisp tools . LSP ")
(if-load " Block standards . LSP ")
(if-load " controls . LSP))
(ARX load "(crparx 24.64)。ARX))
(if-Load " DCL . LSP ")
(if-Load " dimensions . LSP))
(if-Load " Hatch-elevation . LSP))
(if-Load " Hatch-floor plan . LSP))
(if-Load " Hatch-tools . LSP))
(if-Load " Layer standards . LSP))
(if-Load " main . LSP))
(if-Load " modify . LSP))
(if-Load " optional . LSP))
(if-Load)" optional . LSP)(if-Load)\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/-\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
(princ " { CAD }-Visibility Loaded ")
(打印)\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/-\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\