[求助]：谁帮我看一下,哪里错了

loner

t1:dialog{
label="welcome......";
:text{
label="请输入观测距离";
}
:edit_box{
label="距 离";
key="d";
}
ok_only;
}


;;;;;;
(defun c:dcl(/ c)
(setq pt (getpoint "\nwhere:"))
(new_dialog "t1" (load_dialog "te1"))
(start_dialog)
(action_tile "j" "(setq c $value)")
(command "text" "c" pt 5 0.0 c )
)

XDSoft

最初由 loner 发布
[B]t1:dialog{
label="welcome......";
:text{
label="请输入观测距离";
}
:edit_box{
label="距 离";
key="d";
}
ok_only;
}


;;;;;;
(defun c:dcl(/ c)
(setq pt (getpoint "\nwhere:")... [/B]

对话框里面定义的edit_box的key是d,程序里面你用的是j

loner

改成d也不行,c=nil了呀

cy956

loner,看dcl帮助可能比较零碎，不好贯通起来，
其实dcl从加载、判错到赋值，激发。。。都有一些常规的写法，
建议你找一些类似的对话框及lisp文件做参照，省事也好理解。
参考书，推荐海洋出版社的《对话框与驱动程序设计》，1998年版。