作者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/m.aspx?n=bbs/Cad_Cae/M.1516965771.A.DF6.html