S;;비엠점만들기(김지수)
(defun c:bm(/ os cl pt1 pt2 pt3 pt4)
(setq os (getvar “osmode”))
(setvar “osmode” 8)
(setq cl (getvar “clayer”))
(prompt “nCommand: 비엠점만들기…”)
(setq pt1 (getpoint “n 비엠점클릭 “))
(setvar “osmode” 0)
(setq pt2 (list (-(car pt1) 1.8)(cadr pt1)))
(setq pt3 (list (+(car pt1) 1.8)(cadr pt1)))
(setq pt4 (list (car pt1)(-(cadr pt1) 1.8)))
(setq pt5 (list (car pt1)(+(cadr pt1) 1.8)))
(setq pt6 (list (-(car pt1) 1.8)(-(cadr pt1) 1.8)))
(setq pt7 (list (+(car pt1) 1.8)(+(cadr pt1) 1.8)))
(setq pt8 (list (-(car pt1) 1.8)(+(cadr pt1) 1.8)))
(setq pt9 (list (+(car pt1) 1.8)(-(cadr pt1) 1.8)))
(setq pt10 (list (-(car pt1) 10.0)(+(cadr pt1) 0)))
(setq pt11 (list (-(car pt1) 10.0)(+(cadr pt1) 3.79)))
(setq pt12 (list (-(car pt1) 10.0)(+(cadr pt1) 7.58)))
(setq pt13 (list (-(car pt1) 10.0)(+(cadr pt1) 11.37)))
(setq pt14 (list (-(car pt1) 10.0)(+(cadr pt1) 16.03)))
(setq pt15 (list (-(car pt1) 33.0)(+(cadr pt1) 16.03)))
(setq pt16 (list (-(car pt1) 33.0)(+(cadr pt1) 11.37)))
(setq pt17 (list (-(car pt1) 33.0)(+(cadr pt1) 7.58)))
(setq pt18 (list (-(car pt1) 33.0)(+(cadr pt1) 3.79)))
(setq pt19 (list (-(car pt1) 33.0)(+(cadr pt1) 0)))
(setq pt20 (list (-(car pt1) 24.0)(+(cadr pt1) 0)))
(setq pt21 (list (-(car pt1) 24.0)(+(cadr pt1) 11.37)))
(setq pnt1 (list (-(car pt1) 26.255)(+(cadr pt1) 12.2231)))
(setq pnt2 (list (-(car pt1) 31.9024)(+(cadr pt1) 8.3378)))
(setq pnt3 (list (-(car pt1) 31.9024)(+(cadr pt1) 4.5478)))
(setq pnt4 (list (-(car pt1) 31.9024)(+(cadr pt1) 0.7578)))
(setq pnt5 (list (-(car pt1) 12.4442)(+(cadr pt1) 8.3378)))
(setq pnt6 (list (-(car pt1) 12.4442)(+(cadr pt1) 4.5478)))
(setq pnt7 (list (-(car pt1) 12.4442)(+(cadr pt1) 0.7578)))
; (laset “a-note-symb-lgt”)
(command “layer” “m” “bm” “”)
(command “circle” pt1 1.25 “”)
(command “line” pt2 pt3 “”)
(command “line” pt4 pt5 “”)
(command “line” pt6 pt8 “”)
(command “line” pt8 pt7 “”)
(command “line” pt7 pt9 “”)
(command “line” pt9 pt6 “”)
(command “line” pt15 pt14 “”)
(command “line” pt16 pt13 “”)
(command “line” pt17 pt12 “”)
(command “line” pt18 pt11 “”)
(command “line” pt19 pt10 “”)
(command “line” pt15 pt19 “”)
(command “line” pt14 pt10 “”)
(command “line” pt21 pt20 “”)
(command “style” “굴림체” “hy헤드라인m” “” “” “” “” “”)
(command “text” “s” “굴림체” “j” “bl” pnt1 “2.6852” “0” “T.B.M” “” TXT)
(command “text” “s” “굴림체” “j” “bl” pnt2 “1.8954” “0” “X좌표” “” TXT)
(command “text” “s” “굴림체” “j” “bl” pnt3 “1.8954” “0” “Y좌표” “” TXT)
(command “text” “s” “굴림체” “j” “bl” pnt4 “1.8954” “0” “Z좌표” “” TXT)
(command “text” “s” “굴림체” “j” “br” pnt5 “1.8954” “0” (rtos (car pt1) 2 0) “” )
(command “text” “s” “굴림체” “j” “br” pnt6 “1.8954” “0” (rtos (cadr pt1) 2 0) “” )
(command “text” “s” “굴림체” “j” “br” pnt7 “1.8954” “0” (rtos (caddr pt1) 2 3) “” )
(command “layer” “s” cl “”)
(setvar “osmode” 33)
(prin1)
)
이러케 수정 해서 됏는데요
마지막에 블럭씌우고 싶은데 어케 할줄 모르겟어요
블럭은 어케 그려진것만 할수 없나요??
공유