Vla-put-closed

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年10月11日 (日) 11:29時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-closed ''vla-object'' ''bool'') ; 機能 : 3D ポリライン、ライトウェイト ポリライン、ロフト サーフェス、...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-closed vla-object bool)


機能
3D ポリライン、ライトウェイト ポリライン、ロフト サーフェス、ポリライン、スプラインが開いたものか閉じたものかを指定する。


引数
  • vla-object … 3DPolyline、LoftedSurface、LWPolyline、Polyline、SplineのVLAオブジェクト
  • bool … :vlax-true (閉じてる) or :vlax-false (閉じてない)


戻り値
nil


サンプル
(vl-load-com)
(defun c:Example_Closed()
    ;; ポリラインのclose プロパティをトグルするサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; ポリライン生成
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 8)))
    (vlax-safearray-fill 
        points 
        '(3 7 0   9 2 0   3 5 0)
    )

    (setq modelSpace (vla-get-ModelSpace doc))
    (setq plineObj (vla-AddPolyline modelSpace points))

    ;; closed プロパティを閉じるにセット
    (vla-put-Closed plineObj :vlax-true)      ;; Close Polyline
    (vla-Regen doc :vlax-true)

    ;; Retrieve and display the Closed property
    (setq closedState (if (= (vla-get-Closed plineObj) :vlax-true) "Closed" "Open"))
    (alert (strcat "大丈夫、ポリラインは " closedState "です"))

    ;; closed プロパティを閉じてないにセット
    (vla-put-Closed plineObj :vlax-false)      ;; Open Polyline
    (vla-Regen doc :vlax-true)

    ;; 状態を取得
    (setq closedState (if (= (vla-get-Closed plineObj) :vlax-true) "Closed" "Open"))
    (alert (strcat "大丈夫、ポリラインは " closedState  "です。"))
)


関連事項