[求助]大家看看这个程序哪里错了

huajie111 · 发表于 2004-4-29 19:19:00

这是我的一个小程序，想通过DCL对话框的输入，实现在当前图的动态的插入一个属性块，这个属性块要是取得对话框前的LABEL标签还有DCL中的TEXT中输入的字符。运行后我的程序有点错误，不错错哪里了。各位大侠们帮我看看好吗错误是
菜单实用程序已加载。
命令:
命令:
命令: _vlide
命令:
命令: 'VLIDE
命令:
命令: 'VLIDE
命令:
命令: 指定对角点:
命令: (load "mixi")
OK_MIXI
命令: mixi
未知命令“1”。按 F1 查看帮助。
未知命令“11”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“MIXI”。按 F1 查看帮助。
未知命令“MIXI”。按 F1 查看帮助。
未知命令“MIXI”。按 F1 查看帮助。
未知命令“MIXI”。按 F1 查看帮助。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

BDYCAD · 发表于 2004-4-29 19:43:00

(command "insert" blkname '(0 0) 1 1 0 ww wa wb wc wd we wf wg wh wi wj wk )
怎麼可以這樣用呢?

alin · 发表于 2004-4-29 20:25:00

把dcl文件也贴上来吧

huajie111 · 发表于 2004-4-30 20:17:00

现这里也帮我看看有什么错吧(defun ok_mixi()
(setq ww (itoa (get_tile "ww")));这里是取得各dcl中的KEY对应的TEXT内容
(setq wa (itoa (get_tile "wa")))
(setq wb (itoa (get_tile "wb")))
(setq wc (itoa (get_tile "wc")))；如果改成atoi还是错的。该用什么好。
(setq wd (itoa (get_tile "wd")))
(setq we (itoa (get_tile "we"))) 请问怎么把取出的字符插到块里。

huajie111 · 发表于 2004-4-30 20:18:00

mixi.DCL
这是我的DCL文件

秋枫 · 发表于 2004-4-30 20:30:00

有可能是你的 ATTREQ 系统变量的问题。设成1试试。

NetBee · 发表于 2004-4-30 22:15:00

语法 (itoa int)功能及参数此函数可用来将整型数转换成字符串, 并返回此字符串。范例(itoa 33) 返回 "33" (itoa -17) 返回 “-17”而(get_tile "wc")本来返回的就是字符串嘛！------------------ (action_tile "ins_ok" "(ok_mixi)(done_dialog l)")
其中done_dialog 后面你的是字符 l 而不是数字 1 ----------------------最后是你的块没有这么多属性吧？而且你完全可以直接这种嘛：(command "insert" blkname inspt 1 "" 0 ww wa wb wc wd we wf wg wh wi wj wk ) 我在轴线标注中的轴号块插入：它只有一个块属性其中P是一个点表，C0是比例,n1、n2、n3则是字符

copy


(command ".insert"
           (strcat Netbee_Block "_AXISO")
           p
           c0
           ""
           0
           (strcat n1 n2 n3)
       ) ;_ 结束command

huajie111 · 发表于 2004-5-1 03:27:00

按以上方法改过后。仍然是错误    命令: (load "mixi")
OK_MIXI
命令: mixi
; 错误: no function definition: INT    我改过后的代码是这样的    (action_tile "ins_ok" "(ok_mixi)(done_dialog 1)")
   (setq dd (start_dialog))
   (if (= dd 1)
   (progn
   (command "insert"    blkname    inspt 1 "" 0    ww wa    wb wc wd we wf wg wh wi wj wk    )

   (command "move" (entlast) "" '(0 0) pause)
   )
   )
)
(defun ok_mixi ()
   (setq ww (itoa    (get_tile "ww")))
   (setq wa (itoa    (get_tile "wa")))
   (setq wb (itoa    (get_tile "wb")))
   (setq wc (itoa    (get_tile "wc")))
   (setq wd (itoa    (get_tile "wd")))
   (setq we (itoa    (get_tile "we")))
   (setq wf (itoa    (get_tile "wf")))
   (setq wg (itoa    (get_tile "wg")))
   (setq wh (itoa    (get_tile "wh")))
   (setq wi (itoa    (get_tile "wi")))
   (setq wj (itoa    (get_tile "wj")))
   (setq wk (itoa    (get_tile "wk")))
)
七楼能把 insert 的使用实例给我看一下吗。这样看不太懂

alin · 发表于 2004-5-2 22:48:00

程序中有几个错误
明显的如7楼的ITOA 的问题
隐蔽的如把prin1打成prinl,不过这不要紧，致命的是下面一句
(action_tile "ins_ok" "(ok_mixi)(done_dialog l)")
这回却把1看成l了！

[求助]大家看看这个程序哪里错了

发表回复

精选推荐

浏览过的版块