Question

cad 如何用vba实现修改图纸中的文字？谢谢啦高手们

Answer 1

;;;修改文字内容
(defun C:ZX10 ( / #k1 %k2 %k3 %k4 %k5 %k6 %k7 &k1 &kw1 i)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (princ "\n请选择文字")
 (setq &kw1 (ssget ":S" (list (cons 0 "TEXT"))) %k2 t);选择文字
 (if (/= &kw1 nil);如果有选择
  (progn
   (while %k2;循环修改
    (setq %k2 (ZX10~1));取得要修改的文字代码
    (if (/= %k2 nil);如果选择了
     (progn
      (setq %k3 (ZX10~2));那么取得要修改的内容
      (if (= %k3 nil) (setq %k2 nil) );如果没有取得内容就结束
     )
    )
    (if (/= %k3 nil);如果符合以上条件
     (progn
      (setq i 0 %k3 (cons 1 %k3));修改内容变为表里面的元素
      (repeat (sslength &kw1);对所有的文字进行查看
       (setq &k1 (ssname &kw1 i);取得一个对象
             #k1 (entget &k1);取得属性列表
             %k4 (assoc 1 #k1);取得内容元素
             %k6 (assoc 40 #k1);取得高度元素
             %k7 (cons 40 150);修改高度元素
             %k5 (cdr %k4);取得文字内容
       )
       (if (= %k2 %k5);如果文字内容符合
        (progn
         (setq #k1 (subst %k3 %k4 #k1));替换文字内容
         (setq #k1 (subst %k7 %k6 #k1));替换高度
         (entmod #k1);刷新文字
        )
       )
       (setq i (+ i 1));下一个
      )
     )
    )
   )
  )
 )
 (prin1)
)

;;子程序;;
(defun ZX10~1 ( / %k1 &kw2)
 (setq %k1 nil)
 (princ "\n请选择要修改的文字内容")
 (setq &kw2 (ssget ":S" (list (cons 0 "TEXT"))))
 (if (/= &kw2 nil)
  (progn
   (setq %k1 (cdr (assoc 1 (entget (ssname &kw2 0)))))
   (princ "\n选择文字为")
   (princ %k1)
  )
 )
 %k1
)
;;;子程序;;
(defun ZX10~2 ( / %k1 &kw2)
 (setq %k1 nil)
 (princ "\n请选择要替换的内容")
 (setq &kw2 (ssget ":S" (list (cons 0 "TEXT"))))
 (if (/= &kw2 nil)
  (progn
   (setq %k1 (cdr (assoc 1 (entget (ssname &kw2 0)))))
   (princ "\n修改内容为")
   (princ %k1)
  )
 )
 %k1
);内容复制到记事本，以【ZX10.lsp】命名，加载到autoLISP，命令：ZX10

操作过程：首先框选需要修改的文字；然后点选需要修改的文字得到内容，然后点选需要修改的内容【文字】；autoLISP程序。