상하수도 평면작업 리습을 자동화(?)하는 방밥에대해서…
안녕하세요~
리습을 잘아시는분들께 조언을 받고자 글을 올립니다.
기존에 있던 “변강쇠 V1.00 BETA” 리습에서 2가지 기능을 자동으로 바꾸고자하는데요.
(작성자 분께 문의 메일은 드렸습니다만, 답장을 아직 못받았습니다.)
현재 리습은 관로명을 입력받아 써주고, 연장을 입력받아 써주는 방식입니다. (슬로프 작성은 삭제 된 리습입니다.)
원하는 기능은 처음시작하면서 관로명(AAA)만을 입력해주고,
마우스로 찍어가면 자동으로 관경(200), 연장(L=55.00)이 입력되도록 하고자합니다.
리습파일을 열어보시면 아시겠지만, defun 부가 여러가지 조건으로로 나뉘어져 있는 방식입니다.
간단하게 요약을 해본다면, 관로 연장이 25m 이상일때는 선상에 재원을 써주고, 25m 이하일때는 지시선을 빼주는데, 지시선이 위쪽으로 꺽일때와 아래쪽으로 꺽일때 2가지 타입이 더 있습니다.
메인 리습은 중복되는 리습들이고, 조건을 부여해서 나뉘어 놓은 방식입니다.
— 관로번호 입력받아 써주는 부분
(setq tx1 (getstring “n관로번호: “)
b2 (polar b1 (+ (dtr 270) aa) 4))
(command “text” “m” b2 “3.4” aabb (strcat “WM1” tx1))
— 이부분을 처음에 입력받은 AAA 에서 AAA-001, AAA-002 처럼 증가되면서 자동으로 입력되게 하고 싶은것이며,
— 관로 거리 입력하여 써주는 부분
(setq tx4 (getstring “n거리: “) tx4 (strcat “L=” tx4 “.00”))
(command “text” “m” b5 “3.1” aabb tx4)
— 이부분을 포인트 P1 P2 의 거리를 측정하여 자동으로 L= 과함께 소숫점일경우 정수 (L=33.00)으로 입력되게 하고 싶습니다.
여러가지 리습들을 참고하여 조합해보며 시도해보았으나, 2일째 계속 실패를 거듭하다가. 이렇게 문의 드립니다.
고수분들에 조언 부탁드립니다.
평안하시고, 웃음 넘치는 날 되시기를…