批量提取单行文本内容及坐标

hongliang224 · 发表于 2017-12-8 22:18:36

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

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

×

本帖最后由 newer 于 2018-1-10 14:52 编辑

麻烦大神能不能编程实现批量提取单行文本的内容及文本左下角坐标到txt文档中，每个单行文本内容及对应坐标在txt文本中占一行！

（如图）白色文本为单行文本，绿色文本包框及坐标是便于表达加入的，要达到的效果如截图右半部分！

newer · 发表于 2017-12-8 22:35:02

按规矩，把执行前后的对比图截大图贴到论坛，同时把DWG文件压缩传到论坛供测试。

newer · 发表于 2017-12-9 00:31:33

生成的文字里面，是否需要把X,Y 反过来？

newer · 发表于 2017-12-9 01:19:00

本帖最后由 newer 于 2017-12-9 01:21 编辑

试试

1、文字从上到下，从左到右排序
2、Z 可选
3、允许设置保留位数
4、生成ACAD表格，转CSV, EXCEL,剪切板用晓东工具箱表格菜单里面的工具。

搜狗截图20171209011631.png

(defun c:tt ()
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(if (not #xd-var-global-tol)
(setq #xd-var-global-tol 4)
)
(xdrx_initget "Y N")
(setq zflag (= 1 (xdrx_yesorno "是否保留Z坐标" 0)))
(if (setq
val (getint
(xdrx_prompt "\n坐标保留位数<" #xd-var-global-tol ">:" t)
)
)
(setq #xd-var-global-tol val)
)
(if (and (xdrx_initssget "\n选取提取坐标的单行文本<退出>:")
(setq ss (xdrx_ssget '((0 . "TEXT"))))
)
(progn
(setq h (xdrx_getpropertyvalue (ssname ss 0) "textheight"))
(xdrx_document_setprec h 1.0)
(setq
ents (xd::pickset:tablesort ss 0 3 '> '<)
lst (xdrx_entity_getproperty ents "textstring" "position")
lst (mapcar
'(lambda (x)
(setq val
(list (car x)
(rtos (car (nth 1 x)) 2 #xd-var-global-tol)
(rtos (cadr (nth 1 x)) 2 #xd-var-global-tol)
)
)
(if zflag
(progn
(setq z (caddr (nth 1 x)))
(if (equal z 0.0 1e-3)
(setq z "0.0")
(setq z (rtos z 2 #xd-var-global-tol))
)
(setq val (append val
(list z
)
)
)
)
)
val
)
lst
)
)
(xd::text:init 1)
(setq h (* h (xd::var:getratio) (xd::var:getscaleratio)))
(if zflag
(setq lst (cons (list "内容" "X坐标" "Y坐标" "Z坐标") lst)
lst (cons (list "文字坐标表" nil nil nil) lst)
)
(setq lst (cons (list "内容" "X坐标" "Y坐标") lst)
lst (cons (list "文字坐标表" nil nil) lst)
)
)
(xd::table:makefromlist lst '(0 0 0) h (/ h 3.0))
(XD::Drag:SimpleMove (entlast) "\n表格插入点:" 8 t)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (xdrx_begin) 
  (xdrx_sysvar_push '("dimzin" 0)) 
  (if (not #xd-var-global-tol) 
    (setq #xd-var-global-tol 4) 
  ) 
  (xdrx_initget "Y N") 
  (setq zflag (= 1 (xdrx_yesorno "是否保留Z坐标" 0))) 
 
  (if (setq 
        val (getint 
              (xdrx_prompt "\n坐标保留位数<" #xd-var-global-tol ">:" t) 
            ) 
      ) 
    (setq #xd-var-global-tol val) 
  ) 
  (if (and (xdrx_initssget "\n选取提取坐标的单行文本<退出>:") 
           (setq ss (xdrx_ssget '((0 . "TEXT")))) 
      ) 
    (progn 
      (setq h        (xdrx_getpropertyvalue (ssname ss 0) "textheight")) 
      (xdrx_document_setprec h 1.0) 
      (setq 
            ents (xd::pickset:tablesort ss 0 3 '> '<) 
            lst        (xdrx_entity_getproperty ents "textstring" "position") 
            lst        (mapcar 
                  '(lambda (x) 
                     (setq val 
                            (list (car x) 
                                  (rtos (car (nth 1 x)) 2 #xd-var-global-tol) 
                                  (rtos (cadr (nth 1 x)) 2 #xd-var-global-tol) 
                            ) 
                     ) 
                     (if zflag 
                       (progn 
                         (setq z (caddr (nth 1 x))) 
                         (if (equal z 0.0 1e-3) 
                           (setq z "0.0") 
                           (setq z (rtos z 2 #xd-var-global-tol)) 
                         ) 
                         (setq val (append val 
                                           (list z 
                                           ) 
                                   ) 
                         ) 
                       ) 
                     ) 
                     val 
                   ) 
                  lst 
                ) 
      ) 
      (xd::text:init 1) 
      (setq h (* h (xd::var:getratio) (xd::var:getscaleratio))) 
      (if zflag 
        (setq lst (cons (list "内容" "X坐标" "Y坐标" "Z坐标") lst) 
              lst (cons (list "文字坐标表" nil nil nil) lst) 
        ) 
        (setq lst (cons (list "内容" "X坐标" "Y坐标") lst) 
              lst (cons (list "文字坐标表" nil nil) lst) 
        ) 
      ) 
      (xd::table:makefromlist lst '(0 0 0) h (/ h 3.0)) 
      (XD::Drag:SimpleMove (entlast) "\n表格插入点:" 8 t) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

hongliang224 · 发表于 2017-12-9 15:54:06

newer 发表于 2017-12-9 01:19

这是什么情况，cad版本2004，是不是没有加载文件!安装xdrx_api后里面很多文件，分别代表什么意思呢
如acetutil.16.arx OpenDCL.16.arx XDRx.Init.16.arx xd-lisp-lib.VLX Splash.hta

数字是不是对应的CAD版本号，要不要重新加载。

marting · 发表于 2017-12-9 15:56:12

hongliang224 发表于 2017-12-9 15:54

2004没有表格实体的，你要2005以上版本才行，保险点，用2008吧。

hongliang224 · 发表于 2017-12-9 17:17:31

marting 发表于 2017-12-9 15:56

哦，好的谢谢！那些晓东工具箱或者API里的文件都是些什么呢（如上图），能不能解惑一下！
还有以前低版本安装好了晓东工具箱和API后，在新安装的高版本的CAD中能不能直接加载晓东工具箱或者API呢，要加载那些项目，还是只能重新再安装一次晓东工具箱或API

newer · 发表于 2017-12-9 17:32:31

hongliang224 发表于 2017-12-9 17:17

API有安装程序，你直接点安装就行了。加载CAD后就有API环境了。
如果你安装完工具箱或者API，后来又新安装了别的版本的CAD，需要重新在安装下API和工具箱才能支持你后来安装的CAD。

API和工具箱支持 2004-2016

dyjwyqz5221 · 发表于 2018-1-10 14:29:52

学习学习再学习

searienon · 发表于 2022-6-13 11:47:09

好厉害的插件

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

[已解决] 批量提取单行文本内容及坐标

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