畫鑰匙孔
;鎖匙孔
(defun c:line2(/ a b c)
(setvar "cmdecho" 0)
(setvar "OSMODE" 0)
(if
(= (tblsearch "layer" "標註線") nil)
(command "-layer" "n" "標註線" "c" "13" "標註線"
""))
(if (= (tblsearch "layer" "正折") nil)
(command "-layer" "n" "正折" "c"
"6" "正折" ""))
(if (= (tblsearch "layer" "畫線") nil)
(command "-layer" "n"
"畫線" "c" "2" "畫線" ""))
(if (= (tblsearch "layer" "打點") nil)
(command
"-layer" "n" "打點" "c" "4" "打點" ""))
(if (= (tblsearch "layer" "文字")
nil)
(command "-layer" "n" "文字" "c" "5" "文字" ""))
(if (= (tblsearch
"layer" "虛線") nil)
(command "-layer" "n" "虛線" "c" "3" "虛線" "L" "DASHED" "虛線"
""))
(if (= (tblsearch "layer" "中心線") nil)
(command "-layer" "n" "中心線" "c" "1" "中心線" "L" "CENTER" "中心線" ""))
(if (=
(tblsearch "layer" "圖框線") nil)
(command "-layer" "n" "圖框線" "c" "8" "圖框線"
""))
(if (= (tblsearch "layer" "圖框") nil)
(command "-layer" "n" "圖框" "c"
"8" "圖框" ""))
(if (= (tblsearch "layer" "反折") nil)
(command "-layer" "n"
"反折" "c" "3" "反折" "L" "DASHED" "反折" ""))
(setq p1(getpoint "\n鎖匙孔中心:"))
(setq p2(list(- (car p1) 20) (cadr
p1)))
(setq p3(list(+ (car p1) 20) (cadr p1)))
(setvar "CLAYER"
"0")
(command "circle" p2 "d" "9")
(command "circle" p3 "d"
"9")
(command "circle" p1 "d" "22")
(setvar "OSMODE" 167)
)
;鎖匙孔
(defun c:line2(/ a b c)
(setvar "cmdecho" 0)
(setvar "OSMODE" 0)
(if
(= (tblsearch "layer" "標註線") nil)
(command "-layer" "n" "標註線" "c" "13" "標註線"
""))
(if (= (tblsearch "layer" "正折") nil)
(command "-layer" "n" "正折" "c"
"6" "正折" ""))
(if (= (tblsearch "layer" "畫線") nil)
(command "-layer" "n"
"畫線" "c" "2" "畫線" ""))
(if (= (tblsearch "layer" "打點") nil)
(command
"-layer" "n" "打點" "c" "4" "打點" ""))
(if (= (tblsearch "layer" "文字")
nil)
(command "-layer" "n" "文字" "c" "5" "文字" ""))
(if (= (tblsearch
"layer" "虛線") nil)
(command "-layer" "n" "虛線" "c" "3" "虛線" "L" "DASHED" "虛線"
""))
(if (= (tblsearch "layer" "中心線") nil)
(command "-layer" "n" "中心線" "c" "1" "中心線" "L" "CENTER" "中心線" ""))
(if (=
(tblsearch "layer" "圖框線") nil)
(command "-layer" "n" "圖框線" "c" "8" "圖框線"
""))
(if (= (tblsearch "layer" "圖框") nil)
(command "-layer" "n" "圖框" "c"
"8" "圖框" ""))
(if (= (tblsearch "layer" "反折") nil)
(command "-layer" "n"
"反折" "c" "3" "反折" "L" "DASHED" "反折" ""))
(setq p1(getpoint "\n鎖匙孔中心:"))
(setq p2(list(- (car p1) 20) (cadr
p1)))
(setq p3(list(+ (car p1) 20) (cadr p1)))
(setvar "CLAYER"
"0")
(command "circle" p2 "d" "9")
(command "circle" p3 "d"
"9")
(command "circle" p1 "d" "22")
(setvar "OSMODE" 167)
)