通过函数创建文本，并查询是否有次图层 如果没有创建图层

NZG36900

• 
  
  • 结合上一帖子，创建文本创建文本，并查询是否有次图层 如果没有创建图层
  • (defun c:CJWB-N( / Tstr Th);文字
  •   (princ "程序快捷指令：")
  •   (princ   "  CJWB-N\n")
  •   (setvar "cmdecho" 0)  ;关闭系统打印步骤
  •   (setq  txt-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 )
  • )
    
  
  

muai2010

能分享下dcl么，用不起来

czb203

这么高级的代码，看不太懂