预览DCL对话框的LISP程式

sicky111

预览DCL对话框的LISP程式

jj2098

(defun C:VIEWDCL (/ DCL_FILE DCL_ID DCL_PT DD DIA_NAME PRINC)

这一行中为什么要把PRINC放在局部变量中？我测试了一下，要把PRINC去掉才行

BDYCAD

测试了一下, 发现上传的代码有一点笔误, 改正如下

(defun C:VIEWDCL (/ DCL_FILE DCL_ID DCL_PT DD DIA_NAME PRINC)
  (if (null dcl_pt)
    (setq dcl_pt '(-1 -1))
  )
  (setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2))
  (princ "DCL文件名:")
  (princ dcl_file)
  (setq dia_name (getstring "\nDialog对话框名:"))
  (if (= dia_name "")
    (exit)
  )
  (setq dcl_id (load_dialog dcl_file))
  (new_dialog dia_name dcl_id)
  (action_tile "accept" "(setq dcl_pt (done_dialog 1))")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dd (start_dialog))
  (cond ((= dd 1)
 (princ "\n确定<OK>!!!"))
  ((= dd 0))
  (princ "\n取消<cancel>!!!")
)
(prin1))

LISP 编辑本身有DCL的预览功能, 如下图所示

 

qianglcq

下载看看，真的好用

donggs

我也来学习一下!

wiuu

还是开始那个好用！谢谢！！

skyshine

好东西，正在找呢，感谢中！

yjtdkj

BDYCAD 发表于 2006-11-20 08:40
测试了一下, 发现上传的代码有一点笔误, 改正如下
(defun C:VIEWDCL (/ DCL_FILE DCL_ID DCL_PT DD DIA_NAM ...

为什么中文版CAD中没有这个功能，难道英文版专用？