【标注】怎样把选中的标注改成自定义值

ucuc2003 · 发表于 2012-12-24 01:06:34

最近遇到一家公司，要求把标注的值改成“DIM” 或者“分格尺寸”，怎么批量修改啊？谢谢了
如图，把选中的第一个标注值改成第二个或者第三个

xiabin68 · 发表于 2012-12-24 01:34:19

因该是可以了三，直接取1出来把内容加进去就要的了，，，

xiabin68 · 发表于 2012-12-24 01:46:55

(defun c:hk ()
  (setq a (ssget)
n 0)
      (if (/= a nil)
(progn
   (repeat (sslength a)
(setq aa (entget (ssname a n))
      name (cdr (assoc 0 aa))
      lr (cdr (assoc 1 aa))
      nr (cons 1 "分格尺寸")
      )
(if (= name "DIMENSION")
   (progn
      (setq aa (subst nr (assoc 1 aa) aa))
      (entmod aa)
      )
   )
(setq n (1+ n))
)
   )
)
  )

xyp1964 · 发表于 2012-12-24 06:31:28

;; 自定义函数下载: http://bbs.mjtd.com/thread-95673-1-1.html
(defun c:tt (/ i ss s1 pt)
(setq i -1)
(if (setq ss (ssget '((0 . "DIMENSION"))))
(xyp-SubUpd ss 1 "DIM")
)
(princ)
)

ll_j · 发表于 2012-12-24 09:36:14

(defun c:nt() (command "dim1" "newtext"))
或
(defun c:nt() (command "dimedit" "new"))

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

【标注】怎样把选中的标注改成自定义值

本帖子中包含更多资源