作者diskk (oi)
标题Re: [请益] CAD的单行文字大量更改内容
时间Fri Jan 26 19:22:49 2018
第一个问题的解答如下程式
你把程式贴到记事本存成modtext.lsp
然後在autocad里载入程式即可
至於第二个问题
我看你的CAD档案Q= 1是两个不同的物件
这是不是应该要求设计人员把文字放一起，而不是拆成两串
而且我不太懂什麽是1~99自己跑一次
你可能要把你做好的结果CAD档再寄出来
(defun c:modtext ()
(setq ent (entget (car (entsel "Select text"))))
(setq input_text (cdr (assoc 1 ent)))
(if (and (>= (vl-string-search "-m" input_text) 0)
(>= (vl-string-search "-t" input_text) 0)
)
(progn
(setq modified_text (vl-string-subst " m=" "-m" input_text))
(setq modified_text (vl-string-subst " t=" "-t" modified_text))
(setq text_length (strlen modified_text))
(setq prefix (substr modified_text 1 1))
(setq tail (substr modified_text 2 text_length))
(setq result_text (strcat prefix "=" tail))
(setq old_property (assoc 1 ent))
(setq new_property (cons 1 result_text))
(setq ent (subst new_property old_property ent))
(entmod ent)
)
)
)
※ 引述《assassinbear ()》之铭言：
: 在钣金厂工作，最近发现修改tag的时间太长
: 爬了文，但是都没有相关的说明
: 想请问各位前辈
: CAD有办法录制巨集或动作
: 让电脑可以自动修改单行文字符合我需要的内容吗?
: 例如单行文字内容如下:
: pA123456-mSS-t3
: q= 1
: 想要修改成
: p=A123456 m=SS t=3
: q=1
: "1" 有办法自己设定成1~99都自己跑一次吗?
: 这样只要下个指令把"q="删除就可以
: 感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 5.21.14.68
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Cad_Cae/M.1516965771.A.DF6.html