请问下我这个LSP程序哪里错

jslxt · 发表于 2011-10-5 14:59:23

(defun c:n()
   (setvar "cmdecho" 0)
   (dcl_xtg)  ;
   (prin1)
)
(defun dcl_xtg()
   (setq dcl_id (load_dialog "xtg")) ;
   (new_dialog "xtg" dcl_id);
   (action_tile "bb1" "(done_dialog 1)")
   (action_tile "bb2" "(done_dialog 2)")
   (setq dd (start_dialog))
(cond  ((= dd 1) ( c:cd))
((= dd 2) (c:bs))  ;
   ( t (alert "程序出错!!!"))
      )
      )

jslxt · 发表于 2011-10-5 15:00:37

请告诉指点下为什么中间那段不执行直接就跑到( t (alert "程序出错!!!"))
这句啦

jslxt · 发表于 2011-10-5 15:06:33

我知道啦

1548845899 · 发表于 2011-10-5 19:52:13

提示: 作者被禁止或删除内容自动屏蔽

jslxt · 发表于 2011-10-8 19:29:53

1548845899 发表于 2011-10-5 19:52
兄弟，路还远，加油！！。作为新一代明经人，发展lisp靠你们了。

谢谢夸奖

账号		自动登录	找回密码
密码			注册

请问下我这个LSP程序哪里错

点评

浏览过的版块

1548845899 1548845899 当前离线积分 1584 明经币个注册时间 2010-11-12 在线时间小时威望金钱个贡献激情	发表于 2011-10-5 19:52:13 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

请问下我这个LSP程序 哪里错

点评

浏览过的版块

请问下我这个LSP程序哪里错