对话框文字输入

newer · 发表于 2018-8-23 12:51:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2018-11-14 22:20 编辑

插入时候，可以动态的调整方向

命令:
〖移动〗插入点或{改基点[T]/改转角[R]/转90度[A]/对齐[F]/回退[U]/}<退出>:

搜狗截图20180823124952.png

(defun XD::Var:getDrawingScale ( / e u)
(setq e (xdrx_object_get "layer" "0"))
(setq #XD_Var_Global_Draw_Scale (car (xdrx_object_getxdata e "#XD_Var_Global_Draw_Scale")))
(if (not #XD_Var_Global_Draw_Scale)
(progn
(if (= 0 (XD::Registry:GetVar "DrawingUnit"))
(progn
(XD::Var:SetDrawingScale 1000)
(setq #XD_Var_Global_Draw_Scale 1000)
)
(progn
(XD::Var:SetDrawingScale 100)
(setq #XD_Var_Global_Draw_Scale 100)
)
)
)
)
#XD_Var_Global_Draw_Scale
)
(defun c:XDTB_TXTINPUT (/ txt TxtBox txtH TxtHeight TxtInput)
(defun *error* (msg)
(princ msg)
(xdrx_entity_delete etxt)
(xdrx_end)
)
(defun c:Cancel_OnClicked (/) (dcl_Form_Close TxtInput))
(defun c:TxtInput_OnInitialize (/)
(dcl-control-setfocus TxtBox)
(dcl_TextBox_SetSel TxtBox 0 -1)
(dcl-Control-SetText TxtBox "")
)
(defun c:ok_OnClicked (/)
(setq txt (dcl_Control_GetText TxtBox)
txtH (dcl_ComboBox_GetEBText TxtHeight)
)
(if (/= "" txt)
(progn (dcl_Form_Close TxtInput)
(setq TxtH (* (xd::var:getdrawratio) (atof TxtH)))
(setq etxt (xdrx_text_make '(0 0 0) txt txth (xdrx_vector_angle (getvar "ucsxdir"))))
;(xd::drag:simpleMove (entlast) "\n插入点:" 5 t)
(if (not (XD::Pickset:Drag etxt (xdrx_getpropertyvalue etxt "9pt" 5) (+ 1 2 4 128) 0 nil))
(xdrx_entity_delete etxt)
)
)
(progn (dcl_MessageBox "文字不能为空.\n" "温馨提示")
(dcl_TextBox_SetSel TxtBox 0 -1)
)
)
)
(xdrx_sysvar_push '("osmode" 0 "cmdecho" 0 "orthomode" 0))
(if (XD::Doc:AutoLoadOpenDCL)
(progn (dcl_Project_Load
(*ODCL:Samples:FindFile "XDOB_DCL.odcl")
t
)
(dcl_Form_Show TxtInput)
)
)
(setq *error* nil)
(xdrx_end)
(xdrx_sysvar_pop)
(princ)
)

(defun XD::Var:getDrawingScale ( / e u) 
  (setq e (xdrx_object_get "layer" "0")) 
  (setq #XD_Var_Global_Draw_Scale (car (xdrx_object_getxdata e "#XD_Var_Global_Draw_Scale"))) 
  (if (not #XD_Var_Global_Draw_Scale) 
    (progn 
      (if (= 0 (XD::Registry:GetVar "DrawingUnit")) 
        (progn 
          (XD::Var:SetDrawingScale 1000) 
          (setq #XD_Var_Global_Draw_Scale 1000) 
        ) 
        (progn 
          (XD::Var:SetDrawingScale 100) 
          (setq #XD_Var_Global_Draw_Scale 100) 
        ) 
      ) 
    ) 
  ) 
  #XD_Var_Global_Draw_Scale 
) 
(defun c:XDTB_TXTINPUT (/ txt TxtBox txtH TxtHeight TxtInput) 
  (defun *error* (msg) 
    (princ msg) 
    (xdrx_entity_delete etxt) 
    (xdrx_end) 
  ) 
  (defun c:Cancel_OnClicked (/) (dcl_Form_Close TxtInput)) 
  (defun c:TxtInput_OnInitialize (/) 
    (dcl-control-setfocus TxtBox) 
    (dcl_TextBox_SetSel TxtBox 0 -1) 
    (dcl-Control-SetText TxtBox "") 
  ) 
  (defun c:ok_OnClicked (/) 
    (setq txt  (dcl_Control_GetText TxtBox) 
          txtH (dcl_ComboBox_GetEBText TxtHeight) 
    ) 
    (if (/= "" txt) 
      (progn (dcl_Form_Close TxtInput) 
             (setq TxtH (* (xd::var:getdrawratio) (atof TxtH))) 
        (setq etxt (xdrx_text_make '(0 0 0) txt txth (xdrx_vector_angle (getvar "ucsxdir")))) 
        ;(xd::drag:simpleMove (entlast) "\n插入点:" 5 t) 
        (if (not (XD::Pickset:Drag etxt (xdrx_getpropertyvalue etxt "9pt" 5) (+ 1 2 4 128) 0 nil)) 
          (xdrx_entity_delete etxt) 
        ) 
      ) 
      (progn (dcl_MessageBox "文字不能为空.\n" "温馨提示") 
             (dcl_TextBox_SetSel TxtBox 0 -1) 
      ) 
    ) 
  ) 
  (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0 "orthomode" 0)) 
  (if (XD::Doc:AutoLoadOpenDCL) 
    (progn (dcl_Project_Load 
             (*ODCL:Samples:FindFile "XDOB_DCL.odcl") 
             t 
           ) 
           (dcl_Form_Show TxtInput) 
    ) 
  ) 
  (setq *error* nil) 
  (xdrx_end) 
  (xdrx_sysvar_pop) 
  (princ) 
)

newer · 发表于 2018-11-14 22:17:00

renyonghua2014 发表于 2018-11-14 21:41
版主，我在最新的11-11晓东工具箱中运行该程序，输入字后确认，为什么会出现：
参数类型错误: numberp: ni ...

重新拷贝下代码，试试

liuyj · 发表于 2018-8-23 14:41:38

有一点不好，不论是点击右键取消还是按esc取消，左下角生成的文字就留在那里了

liuyj · 发表于 2018-8-23 14:50:10

在(XD::Pickset:Drag (entlast) (xdrx_getpropertyvalue (entlast) "9pt" 5) (+ 1 2 4 128) 0 nil)下面加一句
(if (< (ACET-SYS-KEYSTATE 27) 0)
(entdel (entlast))
)
可以按esc取消，右键怎么实现？

newer · 发表于 2018-8-23 15:05:05

liuyj 发表于 2018-8-23 14:50
在(XD::Pickset:Drag (entlast) (xdrx_getpropertyvalue (entlast) "9pt" 5) (+ 1 2 4 128) 0 nil)下面加一 ...

自己定义个*error*

你要什么右键？

myairen · 发表于 2018-8-23 15:12:17

下载下来学习了！！！！！！！！！！！！！！！！！！！！

雨莫 · 发表于 2018-8-23 15:17:15

比较魔性的功能，我一般都是DT

cfc123456 · 发表于 2018-8-23 15:37:48

学习了，谢谢提供！

newer · 发表于 2018-8-23 15:58:37

liuyj 发表于 2018-8-23 14:50
在(XD::Pickset:Drag (entlast) (xdrx_getpropertyvalue (entlast) "9pt" 5) (+ 1 2 4 128) 0 nil)下面加一 ...

加一个IF就行,右键回车取消

(if (not (XD::Pickset:Drag (entlast) (xdrx_getpropertyvalue (entlast) "9pt" 5) (+ 1 2 4 128) 0 nil))
(entdel (entlast))
)

lw5297590 · 发表于 2018-8-23 16:20:04

要是能点击修改多行文字就好了

t666666 · 发表于 2018-8-23 17:04:46

好插件谢谢楼主了！

abenmao168 · 发表于 2018-8-30 10:10:03

挺炫的功能赞

liuchong1988 · 发表于 2018-9-2 18:03:21

好插件谢谢楼主了！

renyonghua2014 · 发表于 2018-11-14 21:41:19

版主，我在最新的11-11晓东工具箱中运行该程序，输入字后确认，为什么会出现：
参数类型错误: numberp: nil
我拷贝源码加载也是同样的提示，怎么回事，请解惑，谢谢。

renyonghua2014 · 发表于 2018-11-14 23:19:32

newer 发表于 2018-11-14 22:17
重新拷贝下代码，试试

N版主，大神啊，OK了，赞！

账号		自动登录	找回密码
密码			立即注册

[文字] 对话框文字输入

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评