「Vla-put-extensionlinecolor」の版間の差分

2016年1月14日 (木) 13:18時点における最新版

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

構文: (vla-put-extensionlinecolor vla-object color)

機能: 寸法補助線の色を指定する。

引数

vla-object … VLAオブジェクト（Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimOrdinate、DimRotated）
color … 0 から 256 のカラーインデックス番号か、以下の定数のうちの 1 つを使ってください。

acByBlock
acByLayer
acRed
acYellow
acGreen
acCyan
acBlue
acMagenta
acWhite

戻り値: nil

MEMO ：色を設定し、0 ～ 256 の範囲の数値のインデックス値として読み込むことができる。標準の 7 色だけでなく、ByBlock と ByLayer の名前にも、定数がある。
acByBlock を使用すると、AutoCAD は新しいオブジェクトを作成する際、ブロックにグループ化するまでは既定の色(環境設定により白または黒)を使用する。ブロックを図面に挿入すると、ブロック内のオブジェクトは現在の色のプロパティを継承する。
acByLayer を使用すると、新しいオブジェクトには画層の色が適用される。
このプロパティは、指定された寸法でシステム変数 DIMCLRE[補助線の色]の値を変更する。

サンプル

(vl-load-com)
(defun c:Example_ExtensionLineColor()
    ;; 3点角度寸法を作成して補助線の色を変えるサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; 3点角度寸法の定義
    (setq AngleVertex (vlax-3d-point 0 0 0)
          FirstPoint (vlax-3d-point 2 2 0)
          SecondPoint (vlax-3d-point 1 4 0)
          TextPoint (vlax-3d-point 6 6 0))

    ;; 3点角度寸法を作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
    (vla-ZoomAll acadObj)

    ;; 寸法線の設定を読み込み
    (alert (strcat "現在の寸法補助線の色 : " (itoa (vla-get-ExtensionLineColor DimPointAngularObj))))

    ;; 寸法補助線の色を変更
    (vla-put-ExtensionLineColor DimPointAngularObj acRed)
    (vla-Regen doc acAllViewports)
    
    ;; Read and display current extension line color
    (alert (strcat "寸法補助線の色を次に変更 : " (itoa (vla-get-ExtensionLineColor DimPointAngularObj)) " (Red)"))
)

@@ 5行目: / 5行目: @@
 ; 機能
-: ペーパー空間レイアウトのクロスヘアと文字の色を指定する。
+: 寸法補助線の色を指定する。
 ; 引数
-:* vla-object … PreferencesDisplay の VLAオブジェクト
+:* vla-object … VLAオブジェクト（Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimOrdinate、DimRotated）
-:* color … OLE_COLOR (定数)
+:* color …  0 から 256 のカラー インデックス番号か、以下の定数のうちの 1 つを使ってください。
-::* vbBlack
-::* vbRed
+::* acByBlock
-::* vbYellow
+::* acByLayer
-::* vbGreen
+::* acRed
-::* vbCyan
+::* acYellow
-::* vbBlue
+::* acGreen
-::* vbMagenta
+::* acCyan
-::* vbWhite
+::* acBlue
+::* acMagenta
+::* acWhite
@@ 25行目: / 28行目: @@
-* MEMO ：このプロパティの初期値は、Windows の標準文字色。モデル空間のレイアウトのクロスヘア カーソルの色を指定するには、[[vla-put-ModelCrosshairColor]] を使用する。
+* MEMO ： 色を設定し、0 ～ 256 の範囲の数値のインデックス値として読み込むことができる。標準の 7 色だけでなく、ByBlock と ByLayer の名前にも、定数がある。
+* acByBlock を使用すると、AutoCAD は新しいオブジェクトを作成する際、ブロックにグループ化するまでは既定の色(環境設定により白または黒)を使用する。ブロックを図面に挿入すると、ブロック内のオブジェクトは現在の色のプロパティを継承する。
+* acByLayer を使用すると、新しいオブジェクトには画層の色が適用される。
+* このプロパティは、指定された寸法でシステム変数 DIMCLRE[補助線の色]の値を変更する。
@@ 31行目: / 37行目: @@
 <pre class="brush:autolisp;">
 (vl-load-com)
-(defun c:Example_LayoutCrosshairColor()
+(defun c:Example_ExtensionLineColor()
-     ;; ペーパー空間のクロスヘア設定を読み込み、変更して元に戻すサンプル
+     ;; 3点角度寸法を作成して補助線の色を変えるサンプル
      (setq acadObj (vlax-get-acad-object))
-     (setq preferences (vla-get-Preferences acadObj))
+     (setq doc (vla-get-ActiveDocument acadObj))
-     ;; ペーパー空間に移動
+     ;; 3点角度寸法の定義
-     (vla-put-ActiveSpace doc acPaperSpace)
+     (setq AngleVertex (vlax-3d-point 0 0 0)
+          FirstPoint (vlax-3d-point 2 2 0)
-    ;; 規定値を読み込み
+          SecondPoint (vlax-3d-point 1 4 0)
-    (setq originalValue (vlax-variant-change-type (vla-get-LayoutCrosshairColor (vla-get-Display preferences)) vlax-vbLong))
+          TextPoint (vlax-3d-point 6 6 0))
-    (alert (strcat "The LayoutCrosshairColor preference is: " (itoa (vlax-variant-value originalValue))))
+     ;; 3点角度寸法を作成
-     ;; LayoutCrosshairColor の設定を赤に変更
+     (setq modelSpace (vla-get-ModelSpace doc))
-     (vla-put-LayoutCrosshairColor (vla-get-Display preferences) (vlax-make-variant acRed 19))
+     (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
-     (setq newValue (vlax-variant-change-type (vla-get-LayoutCrosshairColor (vla-get-Display preferences)) vlax-vbLong))
+     (vla-ZoomAll acadObj)
-     (vla-Regen doc acAllViewports)
+     ;; 寸法線の設定を読み込み
-     (alert (strcat "LayoutCrosshairColor の設定を次に変更 : " (itoa (vlax-variant-value newValue))))
+     (alert (strcat "現在の寸法補助線の色 : " (itoa (vla-get-ExtensionLineColor DimPointAngularObj))))
-     ;; 元に戻す
+     ;; 寸法補助線の色を変更
-    ;; * Note: 元に戻したくなくば、コメントアウトするがよい
+     (vla-put-ExtensionLineColor DimPointAngularObj acRed)
-     (vla-put-LayoutCrosshairColor (vla-get-Display preferences) (vlax-variant-change-type originalValue 19))
      (vla-Regen doc acAllViewports)
-     (alert (strcat "LayoutCrosshairColor の設定を次の値に戻します: " (itoa (vlax-variant-value originalValue))))
+    ;; Read and display current extension line color
+     (alert (strcat "寸法補助線の色を次に変更 : " (itoa (vla-get-ExtensionLineColor DimPointAngularObj)) " (Red)"))
 )
 </pre>
@@ 65行目: / 71行目: @@
 * [[vla-put-extensionlinecolor]]
 * [[vla-get-extensionlinecolor]]
-* [[vla-put-modelcrosshaircolor]]
-* [[vla-get-modelcrosshaircolor]]
 [[Category:AutoLISP]]