cad批量文字,对应一一替换 20
cad批量文字,相对应的一一进行替换,如下图,图中目前全部显示的是前面一列的编号,我想把它替换成相对应的后面的编号,由于数量太大,重复性动作太多,所以请教有没有快捷方法,...
cad批量文字,相对应的一一进行替换,如下图,
图中目前全部显示的是前面一列的编号,我想把它替换成相对应的后面的编号,由于数量太大,重复性动作太多,所以请教有没有快捷方法,重谢 展开
图中目前全部显示的是前面一列的编号,我想把它替换成相对应的后面的编号,由于数量太大,重复性动作太多,所以请教有没有快捷方法,重谢 展开
4个回答
2013-10-30 · 知道合伙人软件行家
关注
展开全部
(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里面使用;
展开全部
最后解决了?最后用什么方法的??
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询