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

jsrlibao

我购买了，点击进入了百度网盘，可是点下载没反应，是不是我必须也是百度网盘的注册用户，才能下载啊？

jsrlibao

打算下载，可我还没权限。

一只小猪啊

第一次接触各种函数，有点晕乎乎，努力多看

XDSoft

XDRX API 更新 2018.01.18 - 2

weiyao586

谢谢分享

liuyj

问题已经完美解决！

XDSoft

XDRX API  更新 2018.0118版本。

543628024

再一次下载

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

刚才没插入，现在好了