Vla-put-constantwidth

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

構文: (vla-put-constantwidth vla-object width )

機能: ポリラインのすべてのセグメントに対する全体的な幅を指定する。

引数

vla-object … VLAオブジェクト(LWPolyline、Polyline)
width … オブジェクトのすべてのセグメントに対する全体的な幅

戻り値: nil

MEMO：このプロパティは、ポリラインのすべてのセグメントの開始幅と終了幅を同一の値に設定する。このプロパティは、すべてのセグメントが同一の幅に設定されている場合に定数幅を戻すだけ。
SetWidth および GetWidth メソッドを使用して個々のセグメントの幅を指定する。

サンプル

(vl-load-com)
(defun c:Example_ConstantWidth()
    ;; ポリラインを作成して、幅を変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; ポリラインの定義
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 9)))
    (vlax-safearray-fill points '(1 1
                                  1 2
                                  2 2
                                  3 2
                                  4 4))
        
    ;; ポリラインを作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq plineObj (vla-AddLightWeightPolyline modelSpace points))
    (vla-ZoomAll acadObj)
    
    ;; セグメント 1 の幅を変更する前にセグメント情報を表示。
    ;; セグメントの幅が均一であるかどうかを確認
    (setq err (vl-catch-all-apply 'vla-get-ConstantWidth (list plineObj)))
    (if (vl-catch-all-error-p err)
        (setq msg " 同じじゃない。")
        (setq msg " 全部同じ。"
              CWidth err)
    )
    
    (alert (strcat "新しいポリラインのセグメントの幅は" msg))    

    ;; 最初のセグメント幅を指定
    (vla-SetWidth plineObj 1 0.1 0.3)
    (vla-Regen doc acAllViewports)
    
    ;; セグメント 1 の幅を変更する前にセグメント情報を表示。
    ;; セグメントの幅が均一であるかどうかを確認
    (setq err (vl-catch-all-apply 'vla-get-ConstantWidth (list plineObj)))
    (if (vl-catch-all-error-p err)
        (setq msg " 同じじゃない。")
        (setq msg " 全部同じ。"
              CWidth err)
    )
    
    (alert (strcat "新しいポリラインのセグメントの幅は" msg))    

    ;;全部同じ幅に
    (vla-put-ConstantWidth plineObj 0.1)
    (vla-Regen doc acAllViewports)
    
    ;; セグメントを統一したらセグメント情報を表示。
    ;; セグメントの幅が均一であるかどうかを確認。
    (setq err (vl-catch-all-apply 'vla-get-ConstantWidth (list plineObj)))
    (if (vl-catch-all-error-p err)
        (setq msg " 同じじゃない。")
        (setq msg " すべて同じ。"
              CWidth err)
    )
    
    (alert (strcat "新しいポリラインのセグメントの幅は" msg))    
)