seat ring인데요.
잘 그려졌는데 함 봐주실래요?
이거 제출용이거든요.
걱정이 태산입니다.
이런것도 어려워하니.원.
답변 부탁드립니다.
입력된 값이 출력이 안됩니다.
또한 레이어 자체를 MH라는 것으로 지정 하고자 Command 명령을 써서 짯는데 맞는지 함 봐주세요
(defun c:mh(/ x1 x2 x3 x4 y1 y2 y3 y4 ax ay pt1 pt2 pt3 pt4 )
(setvar “cmdecho” 0)
(setvar “osmode” 1)
(setq aa (getstring “n맨홀 NO를 입력 하십시요? “))
(setq bb (getstring “n맨홀 깊이를 입력 하십시요? “))
(setq pt1 (getpoint “nPick 1st point: “))
(COMMAND “layer” “s” “MH” “”)
(setvar “osmode” 0)
(setq pt2 (getpoint “nPick 2st flag point: “))
(command “line” pt1 pt2 “”)
(setq pt3 (getpoint “nPick Left or Right point: “))
(setq x1 (car pt1))
(setq y1 (cadr pt1))
(setq ax (strcat “MH-” aa))
(setq ay (strcat “H=” bb))
(setq x2 (car pt2))
(setq y2 (cadr pt2))
(setq x3 (car pt3))
(setq y3 (cadr pt3))
(if (< x3 x2) (setq x4 (- x2 10)))
(if (> x3 x2) (setq x4 (+ x2 10)))
(setq y4 y2)
(setq pt4 ( list x4 y4))
(command “line” pt2 pt4 “”)
(setq x1 (/ (+ x2 x4) 2))
(setq y1 (+ y2 0.5))
(setq pt1 (list x1 y1))
(SETQ scale (GETVAR “DIMSCALE”))
(SETQ sc (* SCALE 1.6))
(command “text” “c” pt1 sc 0 ax)
(setq y1 (- y2 2.5))
(setq pt1 (list x1 y1))
(command “text” “c” pt1 sc 0 ay)
)
공유
추가적으로 말씀드리면 단면도에 파이표기가 전혀 없습니다 그리고 외경부 챔퍼가 있는데 표기가 없구요..
1. 내경과 외경에 공차를 줘야합니다. 2. 길이를 합산한 치수가 표기되야 합니다. 물론 공차도 필요하고 3. 은선은 숨겨진걸 표시하는건데 은선으로 도면을 표현했네요.반단면을 쳤으니 실선으로 표현해야..
우선 두분 감사드리구요.하늘아빠님~ 전체길이표기라 하면 무엇을 말씀하시는건지요? 은선은 머에요?. ㅠ 사실 님이 말씀하신 내용다 모른다는.. 표기 좀 해주시면 감사해요.
1. 취부되는 내외경 공차 ? 2. 전체 길이 표기 3. 은선
건축도면이 아니라서 모라 말씀을 못드리겟네여.ㅎㅎ