DenSien InsertBlock.lsp その4 (少し長い）

;-----------------------------

;ダイアログの表示 ShowDialog

;-----------------------------

(defun ShowDialog()

(setq DclId (load_dialog "InsertBLK.dcl"))

(new_dialog "InsertBLK" DclId)

(set_tile "Title" "Insert Block")



(setq ImgC 9)

;1 Red 2 Yellow 3 Green 4 Cyan 5 Blue 6 Magenta 7 White 8 Dark Gray 9 Gray



(start_image "Slide1")(setq X# (- (dimx_tile "Slide1") 2)) ;;

(setq Y# (- (dimy_tile "Slide1") 2))(end_image)



(cond

((= dispamu 0 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile4 )(end_image)

(start_image "Slide5")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile5 )(end_image)

(start_image "Slide6")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile6)(end_image)

(start_image "Slide7")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile7)(end_image)

(start_image "Slide8")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile8 )(end_image)

(start_image "Slide9")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile9 )(end_image)

(start_image "Slide10")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile10)(end_image)

)



((= dispamu 1 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

)

((= dispamu 2 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

)

((= dispamu 3 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

)

((= dispamu 4 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile4 )(end_image)

)

((= dispamu 5 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile4 )(end_image)

(start_image "Slide5")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile5 )(end_image)

)

((= dispamu 6 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile4 )(end_image)

(start_image "Slide5")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile5 )(end_image)

(start_image "Slide6")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile6)(end_image)

)

((= dispamu 7 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile4 )(end_image)

(start_image "Slide5")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile5 )(end_image)

(start_image "Slide6")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile6)(end_image)

(start_image "Slide7")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile7)(end_image)

)

((= dispamu 8 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile4 )(end_image)

(start_image "Slide5")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile5 )(end_image)

(start_image "Slide6")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile6)(end_image)

(start_image "Slide7")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile7)(end_image)

(start_image "Slide8")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile8 )(end_image)

)

((= dispamu 9 )

(start_image "Slide1")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile1 )(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile2 )(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile3 )(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile4 )(end_image)

(start_image "Slide5")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile5 )(end_image)

(start_image "Slide6")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile6)(end_image)

(start_image "Slide7")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile7)(end_image)

(start_image "Slide8")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile8 )(end_image)

(start_image "Slide9")(fill_image 0 0 X# Y# ImgC)(slide_image 0 0 X# Y# sldfile9 )(end_image)

)

);cond



(cond

((= fFileNum 99 ) ;;SLDイメージのクリア

(start_image "Slide1")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide2")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide3")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide4")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide5")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide6")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide7")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide8")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide9")(fill_image 0 0 X# Y# 9)(end_image)

(start_image "Slide10")(fill_image 0 0 X# Y# 9)(end_image)

)

);cond



(start_list "DList" 3) ;;ディレクトリリストの項目

(mapcar 'add_list DList)

(end_list)



(start_list "SList" 3) ;;尺度リストの項目

(mapcar 'add_list SList)

(end_list)



(set_tile "text1" SelectedDIR) ;選択したディレクトリを表示

(set_tile "text2" StScale) ;選択した尺度を表示



(action_tile "Back#" "(done_dialog)(BackSec)")

(action_tile "Insert#" "(done_dialog)(InsertBlock)")

(action_tile "Next#" "(done_dialog)(NextSec)")

(action_tile "Orth#" "(done_dialog)(OrthOnOff)")

(action_tile "Quit#" "(done_dialog)(QuitLisp)")



(action_tile "Slide1" "(setq blknum 1)(setq fSel 1)")

(action_tile "Slide2" "(setq blknum 2)(setq fSel 1)")

(action_tile "Slide3" "(setq blknum 3)(setq fSel 1)")

(action_tile "Slide4" "(setq blknum 4)(setq fSel 1)")

(action_tile "Slide5" "(setq blknum 5)(setq fSel 1)")

(action_tile "Slide6" "(setq blknum 6)(setq fSel 1)")

(action_tile "Slide7" "(setq blknum 7)(setq fSel 1)")

(action_tile "Slide8" "(setq blknum 8)(setq fSel 1)")

(action_tile "Slide9" "(setq blknum 9)(setq fSel 1)")

(action_tile "Slide10" "(setq blknum 10)(setq fSel 1)")



(action_tile "accept1" "(CHDir)(done_dialog)") ;;フォルダ変更ボタンを押した場合

(action_tile "accept2" "(CHScale)(done_dialog)") ;;尺度変更ボタンを押した場合



(start_dialog) ;;Start Dialog

(unload_dialog DclId) ;; Unload Dialog



);defun





;-----------------------------

;メイン command name densin4

;-----------------------------

(defun C:ibl()

(InitSet) ;;初期設定

(SetPopList) ;;ポップアップリストの設定

(CHDisp) ;;表示画像の変更

(while (> QUITFLAG 1) ;;ダイアログの表示

(ShowDialog)

);while



);defun





;-----End of File-----