664571221 发表于 2016-3-28 13:36:00

求一个提取功能

求一个提取功能，如图轴线符号，提取其中的文字，如果提取多个用中间用/来间隔7-E/7-D

永不言弃 发表于 2016-3-28 22:31:11

不知道是 不是这个意思

;;;需要小懒人工具箱支持
;;;下载地址
;;;http://yunpan.cn/c3iAVqYptpwj9访问密码 cc19
;;;QQ群： 208388011
(defun c:tt();;;文字合并输出
(vl-load-com)
(setq ss (ssget (list(cons 0 "TEXT"))))
(if (/= ss nil)
    (progn
      (setq tex (xlr_ss_ssptn ss 1))
      (setq text "")
      (foreach tx tex
(if (= text "")
    (setq text tx)
    (setq text (strcat tx "/" text))
    )
)
      (xlr_dttexttext 1.5   3 )
      )
    )
)
页: [1]
查看完整版本: 求一个提取功能