(XD::Entity:TextOnlineEdit在位编辑，支持鼠标下的任意文字，包括尺寸、块（任意...)

XDSoft · 发表于 2013-11-25 23:32:23

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

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

×

;|
在位编辑，支持鼠标下的任意文字，包括尺寸、块（任意嵌套块）内文字、属性、TEXT
参数：
ent ---- 子实体（NENTSEL第一个图元）
parent-- 父实体（NENTSEL最后一个图元（如果有））
pt -- 鼠标点取位置(WCS)
返回值：
T
|;
(defun XD::Entity:TextOnlineEdit (ent parent pt / class classname flags len
mpt newtxt newvalue newwid repeatcount
txt wid x y
)
(setq class (xdrx_getpropertyvalue ent "IsA"))
(cond
((= "AcDbText" class)
(setq txt (xdrx_getpropertyvalue ent "TextString"))
)
((= "AcDbMText" class)
(setq txt (xdrx_getpropertyvalue ent "Contents"))
)
((= "AcDbAttribute" class)
(setq txt (xdrx_getpropertyvalue ent "TextString"))
)
)
(setq owner parent
ent1 ent
)
(defun c:XD_ONLINE_EDIT_FORM_OnInitialize (/)
(setq len (strlen txt))
(c:XD_ONLINE_EDIT_TBOX_OnEditChanged txt)
(dcl_Control_SetText XD_ONLINE_EDIT_TBOX txt)
)
(defun c:XD_ONLINE_EDIT_FORM_OnMouseEntered (/)
(dcl_Control_SetFocus XD_ONLINE_EDIT_FORM)
)
(defun c:XD_ONLINE_EDIT_TBOX_OnMouseMove (Flags X Y /)
(dcl_Control_SetFocus XD_ONLINE_EDIT_TBOX)
)
(defun c:XD_ONLINE_EDIT_FORM_OnCancel (/)
(dcl_form_close XD_ONLINE_EDIT_TBOX)
)
(defun c:XD_ONLINE_EDIT_TBOX_OnEditChanged (NewValue /)
(setq len (strlen NewValue)
wid (dcl_Control_GetWidth XD_ONLINE_EDIT_TBOX)
)
(if (> len 6)
(progn
(setq newwid (+ 42 (* 6 (- len 6))))
(dcl_Control_SetWidth XD_ONLINE_EDIT_TBOX newwid)
(dcl_Control_SetWidth XD_ONLINE_EDIT_FORM newwid)
)
(progn
(dcl_Control_SetWidth XD_ONLINE_EDIT_TBOX 42)
(dcl_Control_SetWidth XD_ONLINE_EDIT_FORM 42)
)
)
(princ)
)
(defun c:XD_ONLINE_EDIT_TBOX_OnKeyDown (Character RepeatCount Flags /)
(princ)
)
(defun c:XD_ONLINE_EDIT_TBOX_OnUpdate (NewValue /)
(princ)
)
(defun c:XD_ONLINE_EDIT_TBOX_OnReturnPressed (/)
(setq newtxt (dcl_Control_GetText XD_ONLINE_EDIT_TBOX))
(dcl_sendstring "(_cal)\n")
(dcl_form_close XD_ONLINE_EDIT_TBOX)
(princ)
)
(defun _cal ()
(setq classname (car (xdrx_object_classname owner)))
(cond
((= "DIMENSION" classname)
(xdrx_setpropertyvalue owner "DimText" newtxt)
)
((or
(= "ATTRIB" classname)
(= "INSERT" classname)
(= "TEXT" classname)
)
(xdrx_setpropertyvalue ent1 "TextString" newtxt)
)
)
(xdrx_object_regen owner)
(princ)
)
(dcl_Project_Load (findfile "XDOB_ONLINE_EDIT.odcl") )
(setq mpt (xdrx_document_GetMousePixel pt))
(dcl_Form_Show XD_ONLINE_EDIT_FORM (car (last mpt)) (cadr (last mpt)))
t
)

;| 
在位编辑，支持鼠标下的任意文字，包括尺寸、块（任意嵌套块）内文字、属性、TEXT 
参数： 
   ent ---- 子实体（NENTSEL第一个图元） 
   parent-- 父实体（NENTSEL最后一个图元（如果有）） 
   pt    -- 鼠标点取位置(WCS) 
返回值： 
  T 
|; 
(defun XD::Entity:TextOnlineEdit (ent parent pt / class classname flags len 
                                      mpt newtxt newvalue newwid repeatcount 
                                      txt wid x y 
                                 ) 
  (setq class (xdrx_getpropertyvalue ent "IsA")) 
  (cond 
    ((= "AcDbText" class) 
      (setq txt (xdrx_getpropertyvalue ent "TextString")) 
    ) 
    ((= "AcDbMText" class) 
      (setq txt (xdrx_getpropertyvalue ent "Contents")) 
    ) 
    ((= "AcDbAttribute" class) 
      (setq txt (xdrx_getpropertyvalue ent "TextString")) 
    ) 
  ) 
  (setq owner parent 
        ent1 ent 
  ) 
  (defun c:XD_ONLINE_EDIT_FORM_OnInitialize (/) 
    (setq len (strlen txt)) 
    (c:XD_ONLINE_EDIT_TBOX_OnEditChanged txt) 
    (dcl_Control_SetText XD_ONLINE_EDIT_TBOX txt) 
  ) 
  (defun c:XD_ONLINE_EDIT_FORM_OnMouseEntered (/) 
    (dcl_Control_SetFocus XD_ONLINE_EDIT_FORM) 
  ) 
  (defun c:XD_ONLINE_EDIT_TBOX_OnMouseMove (Flags X Y /) 
    (dcl_Control_SetFocus XD_ONLINE_EDIT_TBOX) 
  ) 
  (defun c:XD_ONLINE_EDIT_FORM_OnCancel (/) 
    (dcl_form_close XD_ONLINE_EDIT_TBOX) 
  ) 
  (defun c:XD_ONLINE_EDIT_TBOX_OnEditChanged (NewValue /) 
    (setq len (strlen NewValue) 
          wid (dcl_Control_GetWidth XD_ONLINE_EDIT_TBOX) 
    ) 
    (if (> len 6) 
      (progn 
        (setq newwid (+ 42 (* 6 (- len 6)))) 
        (dcl_Control_SetWidth XD_ONLINE_EDIT_TBOX newwid) 
        (dcl_Control_SetWidth XD_ONLINE_EDIT_FORM newwid) 
      ) 
      (progn 
        (dcl_Control_SetWidth XD_ONLINE_EDIT_TBOX 42) 
        (dcl_Control_SetWidth XD_ONLINE_EDIT_FORM 42) 
      ) 
    ) 
    (princ) 
  ) 
  (defun c:XD_ONLINE_EDIT_TBOX_OnKeyDown (Character RepeatCount Flags /) 
    (princ) 
  ) 
  (defun c:XD_ONLINE_EDIT_TBOX_OnUpdate (NewValue /) 
    (princ) 
  ) 
  (defun c:XD_ONLINE_EDIT_TBOX_OnReturnPressed (/) 
    (setq newtxt (dcl_Control_GetText XD_ONLINE_EDIT_TBOX)) 
    (dcl_sendstring "(_cal)\n") 
    (dcl_form_close XD_ONLINE_EDIT_TBOX) 
    (princ) 
  ) 
  (defun _cal () 
    (setq classname (car (xdrx_object_classname owner))) 
    (cond 
      ((= "DIMENSION" classname) 
        (xdrx_setpropertyvalue owner "DimText" newtxt) 
      ) 
      ((or 
         (= "ATTRIB" classname) 
         (= "INSERT" classname) 
         (= "TEXT" classname) 
       ) 
        (xdrx_setpropertyvalue ent1 "TextString" newtxt) 
      ) 
    ) 
    (xdrx_object_regen owner) 
    (princ) 
  ) 
  (dcl_Project_Load (findfile "XDOB_ONLINE_EDIT.odcl") ) 
  (setq mpt (xdrx_document_GetMousePixel pt)) 
  (dcl_Form_Show XD_ONLINE_EDIT_FORM (car (last mpt)) (cadr (last mpt))) 
  t 
)

需要的ODCL文件见附件

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:XDOB_ONLINE_EDIT.odcl
下载次数:608 文件大小:772 Bytes
下载权限: 不限以上 [免费赚D豆]

lgb711010 · 发表于 2014-5-18 21:26:28

任意层都能进去，如果能移动位置就更好了。

slzneed2012 · 发表于 2015-5-14 13:48:58

不会，那个文件放在哪里

benny_zhang · 发表于 2016-9-12 15:51:17

楼主辛苦了。学习一下

sunshinejwt · 发表于 2017-1-6 08:24:34

楼主辛苦了。学习一下，这个怎么用呢

wm_chen · 发表于 2017-1-7 12:58:57

啥也不说了，感谢楼主分享哇！

wm_chen · 发表于 2017-1-10 09:46:03

啥也不说了，感谢楼主分享哇！

wm_chen · 发表于 2017-1-11 11:10:58

啥也不说了，感谢楼主分享哇！

snow15338 · 发表于 2017-5-12 16:13:30

请问楼主这个是什么原因？

Lisphk · 发表于 2017-5-12 16:17:26

snow15338 发表于 2017-5-12 16:13

加载晓东通用函数库或在晓东工具箱环境下运行。

snow15338 · 发表于 2017-5-13 08:37:01

Lisphk 发表于 2017-5-12 16:17

谢谢楼主，已经解决了

dyjwyqz5221 · 发表于 2018-1-17 13:58:56

学习学习再学习

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

[文本] (XD::Entity:TextOnlineEdit在位编辑，支持鼠标下的任意文字，包括尺寸、块（任意...)

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