BricsCAD L字形配線 その1

ようやく、補助線を描かない方法でできた。現在のコーディングは次の通り。

;;Kim_WiringL
;;
;;L字型配線
;;
;;February 13,2006 Original
;;February 19,2006 Version 0.7
;;April 14,2006 Version 0.8
;;
;;Coding by Kim Grossa
::
;;midpoint-----------startpoint
;; |
;; |
;; |
;; endpoint

(defun C:Kim_WiringL()
;*****始点、終点を取得
(setq startpoint (getpoint "\npick startpoint:"))

(setq endpoint (getpoint "\npick endpoint:"))

;*****中間点のY座標を求める（=始点のY座標）
(setq midpointy (car (cdr startpoint)))

;*****中間点のX座標を求める　(=終点のX座標)
(setq midpointx (car endpoint))

;*****中間点のリストを求める
(setq midpoint (list midpointx midpointy))

;*****始点、中間点、終点を通るポリラインを描画
(command "POLYLINE" startpoint midpoint endpoint "")

;*****ポリラインを選択
(setq mypolyline(entlast))

;*****丸めの半径の入力
(setq nowrad (getvar "filletrad"));現在の設定値を取得
(princ "\n(radius=");現在の設定値を表示
(princ nowrad)
(princ "):")
(setq str1(getstring"Setting:"));設定値を変更する場合
(if (or(= str1 "s")(= str1 "S"));小文字か大文字のsが押下されたら
(progn
(setq real1(getreal"Enter a radius:"));新しい設定値を入力
(setvar "filletrad" real1);新しい丸めの半径
)
)

;*****ポリラインを丸める
(command "FILLET" "P" mypolyline);ポリラインを丸める

)