goo blog サービス終了のお知らせ 

Grossa Speaks Final

コンピュータに関するテーマを
気の向くまま取り上げています。
(時々雑談...)

補助線(構築線)の作成 水平

2006年05月07日 | CAD
*****他の補助線作成LISPは省略

;;Kim_InfH.lsp
;;Command Name "xh"
;;水平の補助線
;;
;;May 06.2006 Version 1.0
;;
;;Coding by Kim Grossa
;;
;;*****使用方法
;;コマンドラインで"xh"と入力し、Enter
;;任意の点をクリック
;;

(defun C:xh()

;*****補助線を描く
(setq anyP (getpoint "\nLocation:"))
(command "INFLINE" "H" anyP "")

)

最新の画像もっと見る

コメントを投稿

サービス終了に伴い、10月1日にコメント投稿機能を終了させていただく予定です。