「Vla-addarc」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-addarc ''vla-object'' ''pt1'' ''pt2'' ''StartAngle'' ''EndAngle'') ; 機能 : 円弧を作図する。 ; 引数 :* vla-object … 生成...」)
 
編集の要約なし
 
30行目: 30行目:
  (setq pt2 (getreal "\n開始角度: "))
  (setq pt2 (getreal "\n開始角度: "))
  (setq pt3 (getreal "\n終了角度: "))
  (setq pt3 (getreal "\n終了角度: "))
  (command "._circle" "C" pt1 pt2 pt3 "")
  (command "._arc" "C" pt1 pt2 pt3 "")
)
)


64行目: 64行目:
   (princ)
   (princ)
) ;defun
) ;defun


</pre>
</pre>

2013年10月2日 (水) 13:17時点における最新版

構文
(vla-addarc vla-object pt1 pt2 StartAngle EndAngle)


機能
円弧を作図する。


引数
  • vla-object … 生成する空間のVLAオブジェクト
  • pt1 … 中心点の3Dポイント
  • rad1 … 半径
  • StartAngle … 円弧の開始角度
  • EndAngle … 円弧の終了角度


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


サンプル
 ; コマンドで円追加
(command "._arc" "C" pause pause pause)

; コマンドで構築線追加(変数利用版)
(defun c:cm-addcircle ()
 (setq pt1 (getpoint "\n中心点: "))
 (setq pt2 (getreal "\n開始角度: "))
 (setq pt3 (getreal "\n終了角度: "))
 (command "._arc" "C" pt1 pt2 pt3 "")
)

; コマンドで構築線追加(VLコマンド版)
(vl-cmdf "._arc" (getpoint "中心点:") (getpoint "開始角度:")  (getpoint "終了角度:")"")


; entmakeで円弧追加
(defun c:em-addarc ()
  (setq pt1 (getpoint "\n始点: "))
  (setq pt2 (getreal "\n半径: "))
  (setq ang1 (getreal "\n開始角度: "))
  (setq ang2 (getreal "\n終了角度: "))
  (entmake 
   '((0 . "ARC")
     (cons 10 pt1) 
     (cons 40 pt2)
     (cons 50 ang1)
     (cons 51 ang2)
     (210 0.0 0.0 1.0) 
  )))

; VLA で円弧追加(適当にactivex版)
(defun c:my-addarc ()
  (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object)))
  (setq mspace (vla-get-modelspace *actdoc*))
  (setq pt1 (getpoint "\n中心点: "))
  (setq rad (getreal "半径: "))
  (setq sang (getangle pt1 "開始角度 : ")
        eang (getangle pt1 "終了角度 : ")
  )
  (setq myarc (vla-addarc mspace (vlax-3d-point pt1) rad sang eang)))
  (princ)
) ;defun


関連事項