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

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。
寸法値　疑尺
寸法値の疑尺を確認したいのですが寸法値で<>を含まないものを選択して
その寸法をすべて（補助線や寸法文字、矢印など）赤色をつけることは可能なのでしょうか？
そのようなlispは可能なのでしょうか？

寸法値で　<>+hole などは除外したいです
  • 初心者
  • 2025/04/08 (Tue) 23:12:03
返信フォームへ 
Re: 寸法値　疑尺
(defun c:ChangeDimColor ()
(vl-load-com)
(setq ss (ssget "X" '((0 . "DIMENSION")))) ;図面上の全ての寸法オブジェクトを検索
(setq i 0)
(command "undo" "be")
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq data (entget ent))
(setq text (cdr (assoc 1 data))) ;上書き文字抽出
(if (and text (not (= text "")) (not (vl-string-search "<>" text))) ; 空文字と<>を含む文字列以外なら
(command "dimoverride" "dimclre" "1" "dimclrd" "1" "dimclrt" "1" "" ent "") ;色を赤色へ
)
(setq i (1+ i))
)
(command "undo" "e")
(princ)
)
  • Hamu
  • 2025/04/09 (Wed) 10:02:02
返信フォームへ 
Re: 寸法値　疑尺
ありがとうございます。
思った通りの動作でした。
助かりました。
  • 初心者
  • 2025/04/09 (Wed) 16:45:32
返信フォームへ 

返信フォーム
プレビュー （投稿前に内容を確認）
  
Template by  マシマロック