DenSin 作成ノート その３

blockを挿入するlispコードの修正版を作成。
コードは以下の通り。

;;File Name "densin.lsp"
;;Command Name "ib"
;;Code Begin----------
(defun C:des()
;;external block
(setq exblk_name "c:\\CAD\\DenBuro\\S42Konsento\\CT01.DWG")

;;internal block
(setq inblk_name "CT01")

;;
(if (tblsearch "block" "CT01")
(setq ins_name inblk_name)
(setq ins_name exblk_name)
)

;;
(setq ins_p "0,0,0")
(setq ins_x "50")
(setq ins_y "50")
(setq ins_a "2.5")

;;
(command "insert" ins_name ins_p ins_x ins_y ins_a)

;;
(setq myblock (entlast))
;;
(command "move" myblock "" ins_p )
(setq ins_np (getpoint))
(command ins_np)

;;
(command "rotate" myblock "" ins_np )

)
;;Code End-------------