福建师大附中 发表于 2015-12-27 17:59:05

visual lisp菜鸟，求助各位大神

搬运书本上的编码，但是执行时不会显示对话框，怎么回事
(defun c:dia5a()
(setvar "cmdecho" 0)         ;防止命令执行的过程显示
(dcl_dia5a)                  ;调用dcl_dia5a子程序
(prin1)                        ;防止nil
)
(defun dcl_dia5a()
(setq dcl_id (load_dialog "dia5a"))   ;载入DCL文件
(new_dialog "dia5a" dcl_id)             ;启动新的dialog对话框dia5a
(set_tile "edit_p" (rtos (getvar "plinewid")))
(set_tile "edit_f" (rtos (getvar "filletrad")))
(set_tile "edit_t" (rtos (getvar "textsize")))
(set_tile "edit_s" (rtos (getvar "savetime")))
(action_tile "accept" "(ok_dia5a)(done_dialog l)")
(start_dialog)                        ;将控制权交给DCL
)
(defun ok_dia5a()
(setvar "plinewid" (atof (get_tile "edit_p")))
(setvar "filletrad" (atof (get_tile "edit_f")))
(setvar "textsize" (atof (get_tile "edit_t")))
(setvar "savetime" (atof (get_tile "edit_s")))
)
   

dia5a:dialog{
label="AutoCAD绘图默认值设定";
:edit_box{
    label="pline宽度";
    key="edit_p";      //key值=>DCL对象名称
    edit_width=6;
    }
:edit_box{
    label="fillef半径";
    key="edit_f";      //key值=>DCL对象名称
    edit_width=6;
    }
:edit_box{
    label="text字高";
    key="edit_t";      //key值=>DCL对象名称
    edit_width=6;
    }
:edit_box{
    label="自动保存时间";
    key="edit_s";      //key值=>DCL对象名称
    edit_width=6;
    }
ok_cancel;
}




masterlong 发表于 2015-12-27 18:24:20

dcl是否单独的文件
dcl是否cad支持路径下

福建师大附中 发表于 2015-12-27 19:56:25

masterlong 发表于 2015-12-27 18:24 static/image/common/back.gif
dcl是否单独的文件
dcl是否cad支持路径下

dcl和lsp是分开写的，支持路径怎么讲

福建师大附中 发表于 2015-12-27 20:02:00

masterlong 发表于 2015-12-27 18:24 static/image/common/back.gif
dcl是否单独的文件
dcl是否cad支持路径下

我执行时就是appload，加载dia5a.lsp，然后在命令行输入dia5a，什么都没显示出来

yshf 发表于 2015-12-27 21:50:58

(setq dcl_id (load_dialog "dia5a"))
应为改为：
(setq dcl_id (load_dialog DCL文件完整路径名)) 。
例如：dia5a.dcl存于e:\Lisp程序\DCL文件夹中，则为(setq dcl_id (load_dialog "e:\\Lisp程序\\DCL\\dia5a.dcl"))

福建师大附中 发表于 2015-12-27 22:25:10

yshf 发表于 2015-12-27 21:50 static/image/common/back.gif
(setq dcl_id (load_dialog "dia5a"))
应为改为：
(setq dcl_id (load_dialog DCL文件完整路径名)) 。


原来是这样啊，谢谢大神
页: [1]
查看完整版本: visual lisp菜鸟，求助各位大神