Vla-setrelativedraworder

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-getrelativedraworder vla-object Objects)

機能: 最背面のオブジェクトから順に指定した相対表示順序を設定する。

引数

vla-object … VLAオブジェクト
Objects … 描画順にソートされたオブジェクトの配列。

戻り値: nil

サンプル

(defun c:sample_getrelativedraworder ()
  (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq dict (vla-getextensiondictionary (vla-get-modelspace *actdoc*)))
  (setq obj (vla-getobject dict "ACAD_SORTENTS"))
  (setq temp (mapcar '(lambda (x) (vlax-ename->vla-object (car x)))
    (list (entsel) (entsel))))
  (setq temp (vlax-safearray-fill 
    (vlax-make-safearray vlaxobject '(0 . 1)) temp))
  (vla-getrelativedraworder obj temp :vlax-true)
  (vla-Regen *actdoc* acAllViewports)

  (setq temp (mapcar '(lambda (x) (vlax-ename->vla-object (car x)))
    (list (entsel) (entsel))))
  (setq temp (vlax-safearray-fill 
    (vlax-make-safearray vlaxobject '(0 . 1)) temp))

  (vla-setrelativedraworder obj temp)
  (vla-getrelativedraworder obj temp :vlax-true)
  (vla-Regen *actdoc* acAllViewports)
)