Vla-setrelativedraworder

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月18日 (月) 13:40時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-getrelativedraworder ''vla-object'' ''Objects'') ; 機能 : 最背面のオブジェクトから順に指定した相対表示順序を設...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
)


関連事項