CAD中使用OpenDCL记录

OpenDCL使用记录

OpenDCL文件加载⚓︎

(defun c:cs(/)
  (command "OPENDCL"); 命令确保加载适合的 OpenDCL ARX 文件。
   ; 加载 文件名.odcl 文件。
   (dcl-Project-Load "D:/dhkjh.odcl" T)
(dcl_form_show dhkjh/pldy))

把OpenDCL和LSP合成一个文件打包⚓︎

• openDCl文件另存为 ***.odcl.lsp

• 代码修改 在'() 内粘贴 ***.odcl.lsp 中内容

  (defun c:cs(/)
    (command "OPENDCL"); 命令确保加载适合的 OpenDCL ARX 文件。
    ; 加载 文件名.odcl 文件。
    (dcl-Project-import '() T)
  (dcl_form_show dhkjh/pldy))