Vla-addellipse

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

構文: (vla-addellipse vla-object center MajorRadius RadiusRatio　)

機能: 楕円を作図する。

引数

vla-object … 生成する空間のVLAオブジェクト
center … 中心点の3Dポイント
MajorRadius … 楕円の主軸（正数）
RadiusRatio … 楕円の主軸と副軸の比率を定義する正数 1.0=円

戻り値: 作成した楕円のVLAオブジェクト

サンプル

 ; コマンドで 楕円 を追加
(command "._ellipse" pause pause pause)

; コマンドで 楕円 追加（変数利用版）
(defun c:cm-addecone ()
 (setq pt1 (getpoint "\n楕円の中心点: "))
 (setq rad1 (getreal "\n長径: "))
 (setq rad2 (getreal "\n短径: "))
 (command "._ellipse" pt1 rad1 rad2)
)

; VLA で 楕円 追加（適当にactivex版）
(defun c:ax-addellipse (/ pt1 rad1 rad2)
  (vl-load-com)
  (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object)))
  (setq mspace (vla-get-modelspace *actdoc*))
  (setq pt1 (vlax-3d-point (setq pt (getpoint "\n楕円の中心点: "))))
  (setq rad1 (getdist "\n長径: " pt))
  (setq rad2 (/ rad1 (getdist "\n短径: " pt)))
  (vla-addellipse mspace pt1 rad1 rad2)
  (princ)
) ;defun