Acet-annotation-ss

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)
)

---

関連事項

• Expresstools関数