Re: [請益] CAD的單行文字大量更改內容

看板Cad_Cae (電腦輔助設計)作者diskk (oi)時間6年前 (2018/01/26 19:22)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/3 (看更多)

第一個問題的解答如下程式你把程式貼到記事本存成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://www.ptt.cc/bbs/Cad_Cae/M.1516965771.A.DF6.html