数字文字字首补位插件

newer · 发表于 2016-12-13 20:08:28

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

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

×

上面动画演示了本插件配合添加前缀插件（http://bbs.xdcad.net/thread-706478-1-1.html），完成路桩号的标注

新用到的函数 xd::string:toNum 见 http://bbs.xdcad.net/thread-706485-1-1.html

[sell]

(defun c:XDTB_TEXTNUMPAD ( / bits ch i key num ss str str1 str2 x y)
  (defun _keyword(key)
    (cond
      ((= key "B")
        (if (setq bits (getint (xdrx_prompt "\n数字位数<" #text_pad_bits ">:" t)))
          (setq #text_pad_bits bits)
        )
      )
      ((= key "N")
        (if (setq ch (getstring t (xdrx_prompt "\n补位的字符<" #text_pad_ch ">:" t)))
          (setq #text_pad_ch ch)
        )
      )
    )
    (_prompt)
  )
  (defun _prompt()
     (xdrx_prompt "\n当前设置: 数字位数(" #text_pad_bits ") 补位字符(" #text_pad_ch ")")
  )
  (if (not #text_pad_ch)
    (setq #text_pad_ch "0")
  )
  (if (not #text_pad_bits)
    (setq #text_pad_bits 3)
  )
  (xdrx_begin)
  (_prompt)
  (xdrx_initget "B N")
  (xdrx_initssget "\n选取要补位的数字文字[数字位数(B)/补位字符(N)]<退出>" "N B" "" "_KEYWORD")
  (if (setq ss (xdrx_ssget '((0 . "text"))))
    (progn
      (setq i 0)
      (mapcar
        '(lambda (x)
           (setq str (xdrx_getpropertyvalue x "textstring"))
           (if (setq num (xdrx_string_regexps "[0-9.]+" str))
             (progn
               (mapcar
                 '(lambda (y)
                    (setq str1 (xd::string:strpad (xd::string:tonum y) #text_pad_bits #text_pad_CH -1))
                    (setq str2 (xdrx_string_regexpr y str str1))
                    (setq i (1+ i))
                  )
                 num
               )
               (xdrx_setpropertyvalue x "textstring" str2)
             )
           )
         )
        (xdrx_pickset->ents ss)
      )
      (xdrx_prompt "\n成功补位了 " i " 个数字字符串.")
    )
  )
  (xdrx_end)
  (princ)
)

[/sell]

longer1000 · 发表于 2016-12-14 09:58:38

正需要，支持楼主大人了！

sicky111 · 发表于 2017-2-18 00:09:15

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

zhangq_cai1 · 发表于 2017-2-18 08:10:34

确实是难得好帖啊，顶先

ming1789 · 发表于 2017-2-21 06:48:34

正需要，支持楼主大人了！

URD911 · 发表于 2017-3-19 06:57:06

不错很实用的功能感谢分享

land100 · 发表于 2017-11-3 11:23:23

不粗的哦，加油给力很少看见大家

lzy1979 · 发表于 2017-11-3 13:43:51

真的是不错的谢谢发布

renyonghua2014 · 发表于 2018-11-10 14:25:18

实用，谢谢版主提供

7079977a · 发表于 2019-1-30 17:17:04

多谢分享...

m0033m · 发表于 2019-4-22 16:17:44

不错，有用,谢谢分享

暴力的坚果 · 发表于 2019-4-23 18:10:50

感谢分享，看看怎么用先

暴力的坚果 · 发表于 2019-5-29 16:32:17

怎么修改一下变成字末补位呢

s100sp · 发表于 2021-9-29 08:26:04

谢谢分享，谢谢分享

hh_lj007 · 发表于 2021-10-19 09:45:45

感谢分享源码

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

[文字] 数字文字字首补位插件

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