文字转高程插件

newer · 发表于 2016-5-3 13:12:15

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

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

×

[sell]

;|
数字文字转高程点
|;
(defun c:XDTB_Num2** ( / base blk e es len num ss ss1 tf txt)
(princ "\n选取转高程的数字文字<退出>:")
(if (setq ss (ssget '((0 . "*text"))))
(progn
(xdrx_begin)
(xdrx_setsstodb ss 0)
(setq len (sslength ss))
(setq tf 0 num 0)
(while (setq e (xdrx_getentdata 0))
(setq txt (xdrx_getpropertyvalue e "textstring"))
(if (xd::string:isnum txt)
(progn
(setq num (1+ num))
(setq base (xdrx_getpropertyvalue e "position")
base (list (car base)(cadr base)(atof txt))
)
(if (= tf 0)
(progn
(setq tf 1)
(setq blk (xdrx_block_make "**" e base t))
(xdrx_block_Text2Attribute blk)
)
(progn
(xdrx_insert_make "**" base)
(setq es (xdrx_getpropertyvalue (entlast) "attributeentities"))
(xdrx_setpropertyvalue (car es) "textstring" txt)
)
)
(xdrx_setpropertyvalue (entlast) "layer" "**")
(xdrx_entity_delete e)
)
)
)
(xdrx_prompt "\n共选取了" len "个文字，其中" num "个数字文字转换成高程属性块实体.")
(xdrx_end)
)
)
(princ)
)

;| 
数字文字转高程点 
|; 
(defun c:XDTB_Num2** ( / base blk e es len num ss ss1 tf txt) 
  (princ "\n选取转高程的数字文字<退出>:") 
  (if (setq ss (ssget '((0 . "*text")))) 
    (progn 
      (xdrx_begin) 
      (xdrx_setsstodb ss 0) 
      (setq len (sslength ss)) 
      (setq tf 0 num 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq txt (xdrx_getpropertyvalue e "textstring")) 
        (if (xd::string:isnum txt) 
          (progn 
            (setq num (1+ num)) 
            (setq base (xdrx_getpropertyvalue e "position") 
                  base (list (car base)(cadr base)(atof txt)) 
            ) 
            (if (= tf 0) 
              (progn 
                (setq tf 1) 
                (setq blk (xdrx_block_make "**" e base t)) 
                (xdrx_block_Text2Attribute blk) 
              ) 
              (progn 
                (xdrx_insert_make "**" base) 
                (setq es (xdrx_getpropertyvalue (entlast) "attributeentities")) 
                (xdrx_setpropertyvalue (car es) "textstring" txt) 
              ) 
            ) 
            (xdrx_setpropertyvalue (entlast) "layer" "**") 
            (xdrx_entity_delete e) 
          ) 
        ) 
      ) 
      (xdrx_prompt "\n共选取了" len "个文字，其中" num "个数字文字转换成高程属性块实体.") 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

[/sell]

st788796 · 发表于 2016-5-4 08:20:04

本帖最后由 st788796 于 2016-5-4 08:21 编辑

见过某个专业软件的【字转高程】可以自定义字的特征点为属性块的插入点，比如字的第一stretchpoint(考虑多种对齐方式情况，只取左下）或者字左侧正中（或者偏移一个固定值）

newer · 发表于 2016-5-4 11:13:16

st788796 发表于 2016-5-4 08:20
见过某个专业软件的【字转高程】可以自定义字的特征点为属性块的插入点，比如字的第一stretchpoint(考虑多 ...

在转高程前，还是用**工具先把文字的对齐点调好吧，这些工作应该有个很严谨的过程。都放到转高程里面定可能还会影响效率。

spp_wall · 发表于 2016-8-10 11:07:16

怎么用完后文字不见了？

xcxjxh@sohu.com · 发表于 2016-8-20 22:24:36

怎么用完后文字不见了？

zhouzhiy · 发表于 2017-3-27 06:58:04

谢谢楼主分享！

zhouzhiy · 发表于 2017-3-27 09:51:36

谢谢楼主分享

rhb154119442 · 发表于 2017-4-30 23:31:25

你好，怎么我用lisp插件的形式做成插件加载以后。运行插件在提示我输入
“选取转高程的数字文字<退出>:
选择对象: 指定对角点: 找到 4 个
选择对象: ; 错误: no function definition: XDRX_BEGIN”
是怎么回事

点灯 · 发表于 2017-5-6 08:52:43

好，省事了。

tanwei1 · 发表于 2017-8-27 13:44:55

怎么转完后文字不见了？

liulisheng · 发表于 2017-9-7 16:29:53

yhyhyhyhyh · 发表于 2018-7-5 16:14:58

12388556655

majiczhou · 发表于 2018-9-20 14:18:43

好东西啊，感谢分享

zhgcjl · 发表于 2018-9-20 21:28:36

谢谢楼主分享

86533045 · 发表于 2018-10-11 01:03:15

很实用的插件
来自: 微社区

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

[文字] 文字转高程插件

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

点评