DenSin 作成ノート その２

lispでblock挿入のコードを作成。

コードの内容は次の通り。

;;File Name "densin.lsp"
;;Command Name "ib"
;;Code Begin----------
(defun C:ib()

(setq ins_name "c:\\CAD\\fl441.dwg")
(setq ins_p "0,0,0")
(setq ins_x "1")
(setq ins_y "1")
(setq ins_a "0")

(if (tblsearch "block" "fl441")
(setq ins_blk "fl441")
(setq ins_blk ins_name)
)
(command "insert" ins_blk ins_p ins_x ins_y ins_a)
(setq myblock(entlast))
(command "move" myblock "" ins_p)
)
;;Code End-------------