通过函数创建文本，并查询是否有次图层 如果没有创建图层
[*]
[*]结合上一帖子，创建文本创建文本，并查询是否有次图层 如果没有创建图层
[*](defun c:CJWB-N( / Tstr Th);文字
[*](princ "程序快捷指令：")
[*](princ "CJWB-N\n")
[*](setvar "cmdecho" 0);关闭系统打印步骤
[*](setqtxt-DCL (load_dialog "N2TOOL.DCL"));加载dcl
[*](new_dialog "CJTXT" txt-DCL);启动dcl
[*](action_tile "dyok" "(setq Tstr (get_tile \"KTXTz\") Th (atof(get_tile \"KTXTGD\"))) (done_dialog 1)")
[*](setq JG (start_dialog))
[*](cond ((= JG 1) (dytxt-N Tstr Th)))
[*](start_dialog);弹出对话框
[*](unload_dialog txt-DCL);卸载对话框
[*])
[*](defun dytxt-N(Tstr Th );打印
[*](setq TTxy (getpoint"\n指定点:" ))
[*](NN_CJTC "图层" 1)
[*](NN_TEXT_tyhs(list;*号必须材料
[*] (cons "Tx*" Tstr )(cons "Tc" "图层" )
[*] (cons "XY*" TTxy )(cons "Th*" Th )
[*] (cons "ang*" 0);angle
[*] ))
[*](princ )
[*])
能分享下dcl么，用不起来 这么高级的代码，看不太懂
页:
[1]