써보시고 수정 부탁드립니다……//

“高”수님들 함도와주삼……../
오스냅모드 E/N/C/INT잡히도록…….//
가운데 라인 빨간색 으로……..//
왼족/오른쪽 (수직)추가………..//
(defun c:tap()
(graphscr)(terpri)
(SETQ s (GETVAR “OSMODE”))
(SETVAR “OSMODE” 32)
(setvar “cmdecho” 0)
(setq pnt1 (getpoint “Pick the base point: “)) (terpri)
(setq m (getdist “Enter the tap size: “)) (terpri)
(setq d (getdist “Enter the tap depth or type spc for < m x 2 > : “)) (terpri)
(if ( = d nil ) ( setq d ( * m 2 )))
(setq p (getstring 5 “Enter the direction (R/L)R : “))
(SETVAR “OSMODE” 0)
(setq x (car pnt1))
(setq y (cadr pnt1))
(if ( = p “L”) (setq p “l”))
(if ( = p “l”) (setq f -1) (setq f 1))
(command “layer”
“m” “2” “”)
(command “Line”
(list ( + x ( * d f )) ( – y ( / m 2 )))
(list ( + x ( * d f)) ( + y ( / m 2 )))
“”)
(command “Line”
(list x ( + ( – y ( / m 2 )) ( / m 10 )))
(list ( + x ( * ( + d ( / m 3 )) f )) ( + ( – y ( / m 2 )) ( / m 10 )))
(list ( + x ( * ( + d ( / m 3 )) f )) ( – ( + y ( / m 2 )) ( / m 10 )))
(list x ( – ( + y ( / m 2 )) ( / m 10 )))
“”)
(command “Line”
(list ( + x ( * ( + d ( / m 3 )) f )) ( + ( – y ( / m 2 )) ( / m 10 )))
(list ( + x ( * ( + ( + d ( / m 3 )) ( / ( / ( * m 4 ) 5 ) 3.464 )) f)) y)
(list ( + x ( * ( + d ( / m 3 )) f )) ( – ( + y ( / m 2 )) ( / m 10 )))
“”)
(command “layer”
“m” “3” “”)
(command “Line”
(list x ( – y ( / m 2)))
(list ( + x ( * d f )) ( – y ( / m 2 )))
“”)
(command “Line”
(list ( + x ( * d f)) ( + y ( / m 2 )))
(list x ( + y ( / m 2 )))
“”)
(command “Line”
(list ( + x ( * d f )) ( – y ( / m 2 )))
(list ( + x ( * ( + d ( / m 10 )) f )) ( + ( – y ( / m 2)) ( / m 10 )))
“”)
(command “Line”
(list ( + x ( * d f)) ( + y ( / m 2 )))
(list ( + x ( * ( + d ( / m 10 )) f )) ( – ( + y ( / m 2)) ( / m 10 )))
“”)
(command “layer”
“m” “3” “”)
(command “Line”
(list ( – x ( * ( / ( * 2 m ) 7.0 ) f )) y )
(list ( + x ( * ( + d 2 ( / m 8.0 ) ( * m 0.5 )) f )) y )
“”)
(command “layer”
“m” “3” “”)
( SETVAR “OSMODE” 32)
)