cad批量文字,对应一一替换 20

cad批量文字,相对应的一一进行替换,如下图,图中目前全部显示的是前面一列的编号,我想把它替换成相对应的后面的编号,由于数量太大,重复性动作太多,所以请教有没有快捷方法,... cad批量文字,相对应的一一进行替换,如下图,

图中目前全部显示的是前面一列的编号,我想把它替换成相对应的后面的编号,由于数量太大,重复性动作太多,所以请教有没有快捷方法,重谢
展开
 我来答
朱06CAD
2013-10-30 · 知道合伙人软件行家
朱06CAD
知道合伙人软件行家
采纳数:4172 获赞数:18068
高中,熟悉AutoCAD。会autolisp及VBA程序。

向TA提问 私信TA
展开全部
(defun c:MJL3 ( / #k1 #kw $kw #k %k)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (setq #k1 (ttes6))
 (if (/= #k1 nil)
  (progn
   (setq #kw (ttes5))
   (if (= #kw nil) (alert "\n没有选择需要被替换的文字") )
   (if (/= #kw nil)
    (progn
     (setq $kw nil)
     (initget "X C")
     (setq %k (getkword "\n请选择要替换的文字范围[框选指定范围(C)/整个图形范围(X)]:<框选指定范围(C)>"))
     (if (= %k nil) (setq %k "C") )
     (if (/= (member %k (list "C" "c")) nil) (setq $kw (ssget (list (cons 0 "TEXT,MTEXT") (cons 1 #kw)))) )
     (if (/= (member %k (list "X" "x")) nil) (setq $kw (ssget "X" (list (cons 0 "TEXT,MTEXT") (cons 1 #kw)))) )
     (if (/= $kw nil)
      (progn
       (setq n 0)
       (repeat (sslength $kw)
        (setq %k (entget (ssname $kw n)))
        (setq n (+ n 1))
        (setq #k (assoc 1 %k))
        (setq %k (subst #k1 #k %k))
        (entmod %k)
       )
      )
     )
    )
   )
  )
 )
 (prin1)
)
(defun ttes5 ( / #kw %k)
 (initget "T")
 (setq #kw (entsel "\n请选择要被替换的文字内容或输入文字(T)[输入文字(T)]: <选择文字> "))
 
 (if (and (/= #kw nil) (= (member #kw (list "t" "T")) nil))
  (progn
   (setq #kw (entget (car #kw)))
   (setq %k (cdr (assoc 0 #kw)))
   (if (or (= %k "TEXT") (= %k "MTEXT"))
    (setq %k (cdr (assoc 1 #kw))) )
  )
 )
 (if (/= (member #kw (list "t" "T")) nil)
  (progn
   (setq %k (getstring "\n请输入要被替换的文字内容: "))
   (if (= %k nil) (alert "\n未输入文字") )
  )
 )
 %k
)
(defun ttes6 ( / #kw1 #k #k1)
 (setq #kw1 (entsel "\n请选择用来替换的文字"))
 (if (/= #kw1 nil)
  (progn
   (setq #k1 nil)
   (setq #kw1 (car #kw1))
   (setq #kw1 (entget #kw1))
   (setq #k (cdr (assoc 0 #kw1)))
   (if (or (= #k "TEXT") (= #k "MTEXT")) (setq #k1 (assoc 1 #kw1)) )
   (if (= #k1 nil) (alert "\n选择的不是文字") )
  )
 )
 #k1
)
;;以上内容复制并粘贴到记事本,以:(MJL3.lsp)命名
(prompt "\n《MJL3》替换文字")
(prin1)

autolisp程序,可以批量修改文字。程序命令为:MJL3;加载到AutoCAD里面使用;

yue_lele
2013-10-30 · TA获得超过292个赞
知道答主
回答量:97
采纳率:0%
帮助的人:83.4万
展开全部

去下个“贱人工具箱”,里面好像有你要的这个功能。

更多追问追答
追问
我装了贱人工具箱的,不可以的
追答
那就没有什么好办法了,看可不可请到高人做个程序了,没帮到你不好意思。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
寂寞lzr
2013-10-30 · TA获得超过1087个赞
知道小有建树答主
回答量:723
采纳率:80%
帮助的人:252万
展开全部
左右两边的相对位置是统一的吗,就是说第一行两个文字的节点间隔与第二行第三行...的节点间隔是一致且平行的吗,还有最终要替换成什么样的,发个最终结果的图上来,你的说明不是很清楚
追问

替换前

替换后

这是一个小局部位置,整栋楼都需要这样替换

追答
如果只有一张图建议直接使用自带功能“查找与替换”进行操作,如果图很多,就需要程序了,把你前面那张替换对应图发到我邮箱76822478@qq.com,我给你弄一个,可以进行一次性替换
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
辰洧彬
2020-02-25
知道答主
回答量:2
采纳率:0%
帮助的人:1852
展开全部
最后解决了?最后用什么方法的??
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式