转换Annotative Text到 Text

marting · 发表于 2017-1-17 10:14:29

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

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

×

;;; Scan entire drawing for Annotative Text and Convert to Text
;;; find mtext or text and remove dxf -1 102 330 360 and
;;; make new entity then delete old entity.
;;;
;;;
(defun c:AnnoConvertText (/ ss)
  (if (setq ss (ssget "_:L" '((0 . "MTEXT,TEXT"))))
    ((lambda (i / e)
       (while (setq e (ssname ss (setq i (1+ i))))
         (if (entmakex (vl-remove-if (function (lambda (x)
                                                 (vl-position (car x) '
                                                              (-1 102 330
                                                                  360
                                                              )
                                                 )
                                               )
                                     ) (entget e)
                       )
             )
           (entdel e)
         )
       )                               ; while
     ) -1
    )                                       ; lambda
  )                                       ; if
  (princ)
)

xvjiex · 发表于 2021-12-2 06:39:09

感谢分享转换Annotative Text到 Text

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

[每日一码] 转换Annotative Text到 Text

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