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

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。
寸法精度一括変更
すべての寸法スタイルに対して一括で寸法精度を変更するlispは作成できるでしょうか？
  • 名無し
  • 2025/05/08 (Thu) 19:09:08
返信フォームへ 
Re: 寸法精度一括変更
(defun c:cngdec (/ val pos num dst)
(setq val (getstring "\n寸法の精度を入力:"))
(if (setq pos (vl-string-search "." val))
(setq num (strlen (substr val (+ 2 pos))))
(setq num 0)
)

(setq dst (cdr (assoc 2 (tblnext "dimstyle" T))))

(while dst
(setvar "dimdec" num)
(command-s "-dimstyle" "s" dst "y")
(setq dst (cdr (assoc 2 (tblnext "dimstyle"))))
)
(princ)
)
  • LUNE
  • 2025/06/09 (Mon) 16:28:05
返信フォームへ 

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