Ai dim cen

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年6月5日 (日) 22:00時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (ai_dim_cen) ; 機能 : 直前の選択セットにある寸法の寸法値位置合わせ-中心にする。 ; 引数 :* なし ; 戻り...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(ai_dim_cen)


機能
直前の選択セットにある寸法の寸法値位置合わせ-中心にする。


引数
  • なし


戻り値
nil


サンプル


関数の定義は以下のとおり
(defun ai_dim_cen (/ ai_sysvar ai_dim_ss)
  (setq ai_sysvar (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (cond
    ((setq ai_dim_ss (ssget  "_P" '((0 . "DIMENSION"))))
      (command "_.dimoverride" "_dimjust" 0 "" ai_dim_ss "" "_.dimtedit" ai_dim_ss "_h")
    )
    (T nil)
  )
  (setvar "cmdecho" ai_sysvar)
  (princ)
)



関連事項

  • [[]]
  • [[]]