(2024.05.23日更新）XDRX_API FOR ACAD 2004-2025

beimin

Done, thank you

newer

beimin 发表于 2018-1-8 16:07

知道了，你是不是没装 EXPRESS 啊，这个工具里面用了ET的一个函数，

修改了下代码，你拷贝这个回去试试。

1. (defun c:XDTB_TXTINPUT ( /  txt TxtBox txtH TxtHeight TxtInput)
   
2.   (defun c:Cancel_OnClicked (/)
   
3.     (dcl_Form_Close TxtInput)
   
4.   )
   
5.   (defun c:TxtInput_OnInitialize (/)
   
6.     (dcl_TextBox_SetSel TxtBox 0 -1)
   
7.   )
   
8.   (defun c:ok_OnClicked (/)
   
9.     (setq txt (dcl_Control_GetText TxtBox)
   
10.           txtH (dcl_ComboBox_GetEBText TxtHeight)
    
11.     )
    
12.     (if (/= "" txt)
    
13.       (progn
    
14.         (dcl_Form_Close TxtInput)
    
15.         (setq TxtH (* #XD_DRAW_SCALE_RATIO (atof TxtH)))
    
16.         ($XDOB_TEXT_MAKE '(0 0 0) Txth 0.0 Txt)
    
17.         (xd::drag:simpleMove (entlast) "\n插入点:" 5 t)
    
18.       )
    
19.       (progn
    
20.         (dcl_MessageBox "文字不能为空.\n" "温馨提示")
    
21.         (dcl_TextBox_SetSel TxtBox 0 -1)
    
22.       )
    
23.     )
    
24.   )
    
25.   (xdrx_sysvar_push "osmode" "cmdecho" "orthomode")
    
26.   (setvar "osmode" 0)
    
27.   (setvar "cmdecho" 0)
    
28.   (setvar "osmode" 0)
    
29.   (command "_opendcl")
    
30.   (dcl_Project_Load (*ODCL:Samples:FindFile "XDOB_DCL.odcl") t)
    
31.   (dcl_Form_Show TxtInput)
    
32.   (xdrx_end)
    
33.   (xdrx_sysvar_pop)
    
34.   (princ)
    
35. )
    
36. 
    

(defun c:XDTB_TXTINPUT ( /  txt TxtBox txtH TxtHeight TxtInput)<br />   (defun c:Cancel_OnClicked (/)<br />     (dcl_Form_Close TxtInput)<br />   )<br />   (defun c:TxtInput_OnInitialize (/)<br />     (dcl_TextBox_SetSel TxtBox 0 -1)<br />   )<br />   (defun c:ok_OnClicked (/)<br />     (setq txt (dcl_Control_GetText TxtBox)<br />           txtH (dcl_ComboBox_GetEBText TxtHeight)<br />     )<br />     (if (/= "" txt)<br />       (progn<br />         (dcl_Form_Close TxtInput)<br />         (setq TxtH (* #XD_DRAW_SCALE_RATIO (atof TxtH)))<br />         ($XDOB_TEXT_MAKE '(0 0 0) Txth 0.0 Txt)<br />         (xd::drag:simpleMove (entlast) "\n插入点:" 5 t)<br />       )<br />       (progn<br />         (dcl_MessageBox "文字不能为空.\n" "温馨提示")<br />         (dcl_TextBox_SetSel TxtBox 0 -1)<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_push "osmode" "cmdecho" "orthomode")<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (command "_opendcl")<br />   (dcl_Project_Load (*ODCL:Samples:FindFile "XDOB_DCL.odcl") t)<br />   (dcl_Form_Show TxtInput)<br />   (xdrx_end)<br />   (xdrx_sysvar_pop)<br />   (princ)<br /> )<br /> <br />

beimin

请看，谢谢，API和工具箱貌似都启动了

marting

beimin 发表于 2018-1-8 15:19

启动CAD后，F2，文本屏幕截屏贴下看看。你安装了2018.0108的工具箱，就不用装API了，如果装API，要确保和工具箱一个目录。

beimin

不正常啊，不报错，不出字，我说的是图片能贴出来了

newer

beimin 发表于 2018-1-8 13:09

正常了？ 怎么正常的？

beimin

刚才没插入，现在好了

beimin

就是这样子，也不报错

newer

beimin 发表于 2018-1-8 11:30

用 屏幕录像  搜索论坛，有下载。

请把启动CAD后，F2文本屏幕截屏贴上来看看。

你不能执行这个文字输入，命令行有出错信息吗？

beimin

安装了，其他功能都行就这个东西不行，不会录这个GIF

newer

beimin 发表于 2018-1-8 11:24

安装 晓东工具箱了吗？ 最新版？

beimin

对，就是这个文字输入，输入内容后显示不出来

newer

beimin 发表于 2018-1-8 02:16

哪个单行文字？

ldz53131

beimin

单行文字输入不了