Acet-annotation-ss

提供：GizmoLabs - だいたい CAD LISP なサイト
2025年8月2日 (土) 18:46時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-annotation-ss) ; 機能 : 現在のスペースにあるすべての注釈オブジェクト（寸法、文字、引出線など）の選択セットを作成する。 ; 引数 :* なし ; 戻り値 : 選択セット、注釈オブジェクトがない場合は nil ; サンプル <pre class="brush:autolisp;"> (defun SelectAnno () (if-let (ss (acet-annotation-ss)) (progn (command "._CHPROP" ss "" "C" "1" "") ; 注釈…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター
構文
(acet-annotation-ss)


機能
現在のスペースにあるすべての注釈オブジェクト（寸法、文字、引出線など）の選択セットを作成する。


引数
  • なし


戻り値
選択セット、注釈オブジェクトがない場合は nil


サンプル
(defun SelectAnno ()
  (if-let (ss (acet-annotation-ss))
    (progn
      (command "._CHPROP" ss "" "C" "1" "") ; 注釈オブジェクトの色を赤に変更
      (princ (strcat "\n" (itoa (sslength ss)) "個の注釈オブジェクトが見つかりました。"))
    )
    (princ "\n注釈オブジェクトはねぇっす。")
  )
  (princ)
)

関連事項

「https://wiki.gz-labs.net/index.php?title=Acet-annotation-ss&oldid=14090」から取得