（XD::MTEXT:GetTextStringAt）获得指定行号或者光标位置行的字符串

Lispboy · 发表于 2017-4-18 23:16:44

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

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

×

(defun XD::MTEXT:GetTextstringAt (str row / box e ents i ss x)
(if (= (type row) 'list)
(progn
(setq e (xdrx_entity_copy str)
ss (xdrx_entity_explode e t)
ents (xdrx_pickset->ents ss)
)
(setq i -1
row (trans row 1 0)
)
(vl-some '(lambda (x)
(setq i (1+ i)
box (xdrx_text_box x)
)
(if (or
(xd::pnt:isinside row box)
(xd::pnt:ison row box)
)
(setq row i)
nil
)
) ents
)
(xdrx_entity_delete ents)
)
)
(if (= (type row) 'int)
(progn
(setq str (xd::mtext:gettextstring str)
str (xdrx_string_split str "\\\\P")
)
(nth row str)
)
)
)

(defun XD::MTEXT:GetTextstringAt (str row / box e ents i ss x) 
  (if (= (type row) 'list) 
    (progn 
      (setq e (xdrx_entity_copy str) 
            ss (xdrx_entity_explode e t) 
            ents (xdrx_pickset->ents ss) 
      ) 
      (setq i -1 
            row (trans row 1 0) 
      ) 
      (vl-some '(lambda (x) 
                  (setq i (1+ i) 
                        box (xdrx_text_box x) 
                  ) 
                  (if (or 
                        (xd::pnt:isinside row box) 
                        (xd::pnt:ison row box) 
                      ) 
                    (setq row i) 
                    nil 
                  ) 
                ) ents 
      ) 
      (xdrx_entity_delete ents) 
    ) 
  ) 
  (if (= (type row) 'int) 
    (progn 
      (setq str (xd::mtext:gettextstring str) 
            str (xdrx_string_split str "\\\\P") 
      ) 
      (nth row str) 
    ) 
  ) 
)

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

[实体] （XD::MTEXT:GetTextStringAt）获得指定行号或者光标位置行的字符串

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

浏览过的版块