「Vla-put-diameter」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-diameter ''vla-object'' ''diameter'' ) ; 機能 : 円の直径を指定する。 ; 引数 :* vla-object … Circle のVLAオブジ...」) |
(相違点なし)
|
2016年2月3日 (水) 22:36時点における最新版
- 構文
- (vla-put-diameter vla-object diameter )
- 機能
- 円の直径を指定する。
- 引数
-
- vla-object … Circle のVLAオブジェクト
- diameter … 円の直径。
- 戻り値
- nil
- サンプル
(vl-load-com) (defun c:Example_Diameter() ;; 円を作成して直径を変更するサンプル (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; 円の定義 (setq centerPoint (vlax-3d-point 0 0 0) radius 5) ;; 円を作成 (setq modelSpace (vla-get-ModelSpace doc)) (setq circleObj (vla-AddCircle modelSpace centerPoint radius)) (vla-ZoomAll acadObj) (alert (strcat "円の直径は: " (rtos (vla-get-Diameter circleObj) 2))) (vla-put-Diameter circleObj 15) (alert (strcat "新しい円の直径は: " (rtos (vla-get-Diameter circleObj) 2))) )
関連事項