「Vla-get-closed2」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-closed2 ''vla-object'') ; 機能 : スプラインが開いたものか閉じたものかを取得する。 ; 引数 :* vla-object...」)
 
編集の要約なし
 
61行目: 61行目:
* [[vla-get-closed]]
* [[vla-get-closed]]
* [[vla-put-closed]]
* [[vla-put-closed]]
* [[vla-get-closed2]]
* [[vla-put-closed2]]




[[Category:AutoLISP]]
[[Category:AutoLISP]]

2017年10月29日 (日) 15:15時点における最新版

構文
(vla-get-closed2 vla-object)


機能
スプラインが開いたものか閉じたものかを取得する。


引数
  • vla-object … SplineのVLAオブジェクト
戻り値
:vlax-true (閉じてる) or :vlax-false (閉じてない)


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

    ;; スプライン生成
    (setq startTan (vlax-3d-point 0.5 0.5 0)
          endTan (vlax-3d-point 0.5 0.5 0))
    (setq fitPoints (vlax-make-safearray vlax-vbDouble '(0 . 8)))
    (vlax-safearray-fill fitPoints '(1 1 0
                                     5 5 0
                                     10 0 0
                                    ))
  
    ;; スプラインの作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq splineObj (vla-AddSpline modelSpace fitPoints startTan endTan))

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

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

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

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


関連事項