object DCL的问题

CADghost

wzh发表于2004-7-5 21:01:00你的MyHello.odc没有做好，（VarName）下应该是MyHello_DclForm1而不是Untitled_DclForm1。 试试看。

这个变量是自动设的呀

meflying

你用appload命令自己加载这个objectdcl2004.arx

wzh

我也不知道为什么，如果第一个窗口不更改Name的名称，好象VarName的内容不自动更新，我试过你的程序，更改Name或VarName后，程序是没有问题的。

CADghost

如果ODcl_LoadProject变成了蓝色，应该就是说我加载了objectARX2004.arx了吧！


我再试试





然后再请教！

CADghost

晕，还是不行，我现在把我的步骤贴出来，请大家看一下， LSP程序如下，这个没有什么问题 (defun C:MyHello()
;确保将ObjectDCL.arx 载入 AutoCAD
(if (not (member "objectdcl2004.arx" (arx)))
(arxload "objectdcl2004.arx" "加载objectdcl2004.arx 失败.")
)

;加载对话框odc文件
(ODcl_LoadProject "MyHello")

;显示DclForm1对话框
(Odcl_Form_Show "MyHello" "DclForm1")
(princ);
) 1，保存以上LSP到D:\DCL文件夹中，并复制objectARX2004到D:\autoCAD2004\support，打开object,新建窗体，选取add modal form (objectDCL安装在D盘中，这个不会有问题吧） 2，把标题栏文字改为hello 3,拉出Label控件，并把内容(caption)改为234 4,展开visual/auto lisp file name，定位程序为以上 5，保存到D:\DCL 6，加载程序运行！ 各位看看有什么问题！

meflying

把你做的东西发上来吧

CADghost

这个文大概就是这样的

wzh

下面的程序是没有问题的。 (defun C:MyHello()
(if (not (member "objectdcl2004.arx" (arx)))
(arxload "objectdcl2004.arx" "加载objectdcl2004.arx 失败.")
)
(ODcl_LoadProject "MyHello")
(Odcl_Form_Show "MyHello" "Hello")
(princ);
)

CADghost

对不起，我现在打开文件有点不方便，我那个哪里错了呢，我对那个是一点也不会

yjrun

你是不是odc文件没有放到cad能搜索到的目录下面