求助，能不能帮我把这个图框生成程序改写一下，是其能用？

auto_lisp · 发表于 2003-5-29 11:57:00

这里有两个文件，是图框生成程序。一个是DCL对话框文件，一个是autolisp驱动文件，如何改动一下autolisp文件使其能正常应用？

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

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

auto_lisp · 发表于 2003-5-29 17:34:00

加载一个程序就可以用了，我想修改一下绕开这个程序，这个程序是看不了的arx程序，每次启动cad是自动加载了这个程序才能用这个对话框程序。见附件

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:3gqjzx1a1s3.arx
下载次数:0 文件大小:9 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

auto_lisp · 发表于 2003-5-30 17:10:00

我就是要生成图框，并且这个程序能驱动上面的那个对话框文件，看看怎么改写一下lisp程序，是其支持那个DCL文件，谢谢！！！

meflying · 发表于 2003-5-30 17:25:00

你说的“支持”是指什么呢？仅仅是显示，还是要使用，如果仅仅是显示只要几行就行了，你需要给我这么大一段程序吗？
如果是要按原来的要求使用，好象还缺很多东西。
你说说你的这个东西的来历，还有用途，这样才好下手，
由于有很多地方需要别的东西支持，所以也无法完全看懂，而且根本无法调试

auto_lisp · 发表于 2003-5-31 17:05:00

是使用生成图框，其他的没有用，只要能生产图框就可以，其他的是一些图框文件，我可以该的，就是能够把这个图框生成文件的dcl驱动起来就行了。显示怎么显示？怎么加几行？谢谢，我不太懂，帮忙好吗？
这是在别人那里拷贝过来的一个电气绘图cad软件，其他的用不着，就是想用它的图框生成程序，很好用的。各种比例的图框生成。
只要前面的一小段程序，后面的我更不懂了，前面是图框的生成程序。

meflying · 发表于 2003-6-2 08:57:00

(if (not (setq dcl_id (load_dialog "settag"))) (exit))
(new_dialog "settag1" dcl_id)
(start_dialog)
(unload_dialog dcl_id)
;settag为DCL文件名，如不在搜索路径里，须包括全路径