この掲示板は AutoCADマクロ屋本舗 の掲示板です。

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。

属性定義の文字解除
AutoCAD 2024を使用しています。



ある文字をクリックすると、プロパティには”属性定義”となっており、文字をダブルクリックすると

属性定義を編集できるウィンドウが表示されます。(名称、プロンプト、規定が入力される画面になります)



この文字の属性定義を解除し、普通の文字としたいのですが、何か方法はあるのでしょうか。

Express Toolsで"EXPLODE ATTRIBUTES"をクリックしても、

対象の文字はブロック化されていない為、選択が出来ません。



宜しくお願い致します。
  • syu
  • 2025/04/10 (Thu) 11:11:57
Re: 属性定義の文字解除
https://www.dotsoft.com/index.htmから以前入手したものです
ただ、垂直方向の位置合わせが間違っていたので、そこだけ修正しています。

(defun C:TAG2TXT ()
(setq sset (ssget '((0 . "ATTDEF"))))
(setq num (sslength sset) itm 0)
(while (< itm num)
(setq hnd (ssname sset itm))
(setq ent (entget hnd))
(setq new '((0 . "TEXT")))
(setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
(setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72))
(foreach grp dolst
(setq addto (assoc grp ent))
(if (/= addto nil)
(setq new (append new (list (assoc grp ent))))
)
)
(setq new (append new (list (cons 73 (cdr (assoc 74 ent))))))
(entdel hnd)
(entmake new)
(setq itm (1+ itm))
)
(princ)
)
  • LUNE
  • 2025/04/10 (Thu) 11:52:18
Re: 属性定義の文字解除
素晴らしいです。ありがとうございました。
  • syu
  • 2025/04/10 (Thu) 12:12:25

返信フォーム






プレビュー (投稿前に内容を確認)