尝试去除标注前缀,不太成功，结论：还是用Vla方便些

/db_自贡黄明儒_ · 发表于 2020-6-4 13:35:46

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

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

×

;;尝试去除标注前缀,不太成功，结论：还是用Vla方便些
(defun c:q1 (/ E E1 EN ENT FLAG NAME STR)
  (setq e (car (entsel)))
  (setq en (entget e))
  (setq Name (cdr (assoc 2 en)))
  (setq e1 (tblobjname "block" Name))
  (while (and (not Flag)
      (setq e1 (entnext e1))
      (setq ent (entget e1))
   )
(if (equal "MTEXT" (cdr (assoc 0 ent)))
   (progn
(setq str (cdr (assoc 1 ent)))
;;取后面的数字
(setq str (car (parse3 str "[0-9.]+$")))
(setq ent (subst (cons 1 str)(assoc 1 ent) ent))
(setq Lst (cons ent Lst))
(entupd e)
(setq Flag T)
   )
   (setq Lst (cons ent Lst))
)
  )
  (princ str)
  (princ)
)

Lispboy · 发表于 2020-6-5 22:41:15

黄工，缺parse3函数标注前缀是什么？能帖个图片吗

WhoCanSay · 发表于 2020-6-6 16:55:51

Lispboy 发表于 2020-6-5 22:41
黄工，缺parse3函数标注前缀是什么？能帖个图片吗

机械零件尺寸，对于圆，常有前缀Φ

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

[研讨] 尝试去除标注前缀,不太成功，结论：还是用Vla方便些

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

点评