循环dcl时怎么找出 : dialog 前面的字符串
 

循环dcl时怎么找出 : dialog 前面的字符串
www.dimcax.com
循环dcl时怎么找出 : dialog 前面的字符串
amend_block : dialog { label = "李敏的图块修改程序";
上面的一句是dcl中的一行，我想找出 : dialog 前面的amend_block这个字符串
请问一下怎么可以最快的找出它呢
d
可以啦
d
(defun ko-get->dialogname (file / f tmp dianame)
(if (setq f (open file "r"))
(progn
(while (setq tmp (read-line f))
(if (wcmatch (strcase tmp t) "*dialog*")
(setq dianame (vl-princ-to-string (read "\"tmp\"")))
)
)
(close f)
)
)
dianame
)
怎么不行呀，授回的tmp
d
我的dcl的这一句
amend_blockaa : dialog { label = "李敏的图块修改程序";
我想用我上面的程序读出来变成一个字符串"amend_blockaa"
然后再写入一个txt文件中
(princ (strcat "(if (not (new_dialog " dianame " dclid)) (progn (alert \"dcl对话框加载失败.\")(exit)))\n") fn);fn为open并w的模式来的
txt文件中就是这样子，请看
(if (not (new_dialog "amend_blockaa" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))
d