[求助]：怎样把DCL与lsp文件搞成一个文件？

handonglong

我在运行有调用DCL的LSP文件的时候得先把DCL文件先存到CAD文件夹里，然后通过LSP里面的LOAD_DIALOG调用！这样是很麻烦的，如何才能实现DCL与LSP文件合二为一，而且可以编译成FAS文件呢？

FLOODITIDE

编译成vlx

tgh56

在lisp编器里,编译成vlx

kevinchan

在编译的时候把"简单"改成专家就可以了,
第一步:选择LSP文件,
第二步:选择DCL文件.
编译...OK...

z954134

编译后可以在cad的不同版本中用吗?

YueFeng

编译后的文件可以在2000以上版本的CAD用。
另，可以在LISP文件内部生成一个临时文件（DCL文件）

handonglong

试过了，可以生成vlx文件，但还得把DCL文件复制粘贴到CAD文件夹里才能用，否则，就是quit/exit absort的提示，为什么？
我是按楼主所所，第一步加载LSP 文件，点next，第二步加载DCL文件的啊！

leslie114

我也去试试看到底行不行

Gu_xl

我试过了，编译成.vlx也不成！谁有办法？

kevinchan

是不是你的编写有误??

;;;LSP代码编写
;;;----------
(defun c:test ()
  (setvar "cmdecho" 0)
  (dcl_testdia1)                        ;调用对话框子程序
  (prin1)                                ;防止nil
)

(defun dcl_testdia1()
  (setq dcl_id (load_dialog "testdia1")) ;载入DCL文件
  (new_dialog "testdia1" dcl_id)        ;启动testdia1对话框
  (start_dialog)
  (prin1)
)


;;;DCL代码编写
;;;----------
testdia1:dialog{
     label="测试测试";
     :text{                    
         label="测试测试";  
         alignment=centered;
     }   
         :text{label="测试测试";}
         :text{label="测试测试";}
         :text{label="测试测试";}
         spacer_1;
         spacer_1;
         :text{label="测试测试";}
         :text{label="测试测试";}
         :text{label="测试测试";}
         :text{label="测试测试";}
         :text{label="测试测试";}
         :text{label="测试测试";}
          ok_only;
         }