이 파일이 왜 출력이 안되죠??
화면에는 보이는데..여기선 출력이 안되는데..
초보라서…미리보기에도 보이지가 안네요..ㅜ,ㅠ
도와주셈

허접한 리습을 짜봤는데 자꾸 선이 다른쪽으로 갑니다..

(defun c:tray (/)

; (setvar “osmode” 1)

(setq pt1 (getpoint “nFirst Point :”)
pt2 (getpoint “nSecond Point :”)
pt3 (getpoint “nthird Point :”)
; p4 (getpoint “nfourth Point :”)
le1 (distance pt1 pt2)
wi1 (distance pt2 pt3)
)

(setq ang_d (angle pt1 pt2)) ;270 아래
(setq ang_u (angle pt2 pt1)) ;90 위
(setq ang_l (angle pt3 pt2)) ;180 왼쪽
(setq ang_r (angle pt2 pt3)) ;0 오른쪽

(setq
p4 (polar pt3 ang_u le1)
p5 (polar pt2 ang_d 187)
p6 (polar p5 ang_d le1)
p7 (polar p6 ang_r wi1)
p8 (polar p7 ang_u le1)
p9 (polar pt2 ang_l le1)
p10(polar p9 ang_u (/ wi1 2))
p11(polar p10 ang_r le1)
p12(polar pt3 ang_r le1)
p13(polar p12 ang_u (/ wi1 2))
p14(polar p13 ang_l le1)
p15(polar p5 ang_l le1)
p16(polar p15 ang_d (/ wi1 2))
p17(polar p16 ang_r le1)
p18(polar p8 ang_r le1)
p19(polar p18 ang_d (/ wi1 2))
p20(polar p19 ang_l le1)
p21(polar pt1 ang_u 70)
p22(polar p4 ang_u 70)

)

(command “line” pt2 pt3 “”)
(command “line” pt1 p4 “”)
(command “line” pt2 p5 “”)
(command “line” pt3 p8 “”)
(command “line” p5 p8 “”)
(command “line” p6 p7 “”)
(command “line” p10 p16 “”)
(command “line” p13 p19 “”) ; 몸통
(command “line” pt2 p9 “”)
(command “line” p10 p11 “”)
(command “line” p11 pt2 “”) ; 왼쪽 상단 날개
(command “line” pt3 p12 “”)
(command “line” p13 p14 “”)
(command “line” p14 pt3 “”) ; 오른쪽 상단 날개
(command “line” p5 p15 “”)
(command “line” p16 p17 “”)
(command “line” p17 p5 “”) ; 왼쪽 하단 날개
(command “line” p8 p18 “”)
(command “line” p19 p20 “”)
(command “line” p20 p8 “”) ; 오른쪽 하단 날개
(command “line” pt1 p21 “”)
(command “line” p21 p22 “”)
(command “line” p22 p4 “”)
(redraw)
)

각도 주는 방법이 잘못해서그런지 자꾸 이상해집니다.. ㅡㅡ;
종이 박스 만드는 리습인데요..
사각형의 3점을 찍으면 포장박스를 만드는 리습을 만들어봤습니다..
전에도 했었는데 당체 허접해서..

지적해주세용..

일정한간격을 두고 홀을 표기할순 없나요?
그려져있는 사각형안에 홀을 일정한 간격으로배열 해야거던요
이런사각형이 너무 많이있고 이런홀의 간격유형이 30~40개
정도 됩니다
이런거 가능한가요?
그리고 좀쉽게 할려고하니 힘드네요
소스라도 있어면 부탁드릴께요