「Vla-adddimdiametric」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-adddimdiametric ''vla-object'' ''ChordPoint'' ''FarChordPoint'' ''LeaderLength'' ) ; 機能 : 直径上の 2 点と引出線の長さを指...」) |
細編集の要約なし |
||
1行目: | 1行目: | ||
{{AutoLISP}} | {{AutoLISP}} | ||
; | ; 構文adddimdiametric | ||
: (vla- | : (vla-''vla-object'' ''ChordPoint'' ''FarChordPoint'' ''LeaderLength'' ) | ||
; 機能 | ; 機能 | ||
: 直径上の 2 | : 直径上の 2 点と引出線の長さを指定して、円または円弧の直径寸法を作成する。 | ||
; 引数 | ; 引数 | ||
:* vla-object … VLAオブジェクト(Block、ModelSpace、PaperSpace) | :* vla-object … VLAオブジェクト(Block、ModelSpace、PaperSpace) | ||
:* ChordPoint … | :* ChordPoint … 円または円弧の直径の 1 番目の点を指定する 3D WCS 座標。 | ||
:* FarChordPoint… | :* FarChordPoint… 円または円弧の直径の 2 番目の点を指定する 3D WCS 座標。 | ||
:* LeaderLength… 寸法補助線の 2 番目の端点を指定する 3D WCS 座標。 | :* LeaderLength… 寸法補助線の 2 番目の端点を指定する 3D WCS 座標。 | ||
2015年2月8日 (日) 12:36時点における最新版
- 構文adddimdiametric
- (vla-vla-object ChordPoint FarChordPoint LeaderLength )
- 機能
- 直径上の 2 点と引出線の長さを指定して、円または円弧の直径寸法を作成する。
- 引数
-
- vla-object … VLAオブジェクト(Block、ModelSpace、PaperSpace)
- ChordPoint … 円または円弧の直径の 1 番目の点を指定する 3D WCS 座標。
- FarChordPoint… 円または円弧の直径の 2 番目の点を指定する 3D WCS 座標。
- LeaderLength… 寸法補助線の 2 番目の端点を指定する 3D WCS 座標。
- 戻り値
- 新しく作成される直径寸法の VLA オブジェクト
- Memo
- さまざまな種類の直径寸法が、次の値を基に記入される。
- 円または円弧のサイズ
- 引出線の長さ
- 以下の CAD のシステム変数の値
- DIMUPT[寸法値位置指定]
- DIMTOFL[寸法線内側記入]
- DIMFIT[寸法値フィット]
- DIMTIH[補助線内水平]
- DIMTOH[補助線外水平]
- DIMJUST[寸法値水平位置]
- DIMTAD[寸法線上記入]
- 寸法線の角度が水平より 15 度を超えている場合、および寸法線が円または円弧の外側にある場合には、寸法値を水平に表示するため、ランディングまたはドッグレッグと呼ばれるフックラインが描かれる。フックラインは矢印 1 個分の長さを持ち、寸法値の隣りに配置される。
- この関数では、パラメータ LeaderLength を、ChordPoint から注釈文字への水平参照線(ドッグレグ)まで(参照線が不要な場合は寸法線の端)までの距離として使用する。
- LeaderLength の設定は寸法作成時のみ(しかも、その寸法が、既定の文字位置を使用するように設定されている場合のみ)使用される。いったん寸法を閉じた後は、LeaderLength の値を変更しても寸法の表示方法は変わらないが、新しい設定は保存されて、DXF、LISP、ARX に反映される。
- サンプル
(vl-load-com) (defun c:Example_AddDimDiametric() ;; モデル空間に直径寸法を作成するサンプル (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; 寸法を定義 (setq chordPoint (vlax-3d-point 5 3 0) farChordPoint (vlax-3d-point 5 5 0) leaderLength 1) ;; モデル空間に直径寸法を作成 (setq modelSpace (vla-get-ModelSpace doc)) (setq dimObj (vla-AddDimDiametric modelSpace chordPoint farChordPoint leaderLength)) (vla-ZoomAll acadObj) )
関連事項