*****他の補助線作成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 "")
)
;;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 "")
)
※コメント投稿者のブログIDはブログ作成者のみに通知されます