안녕하세요.
텍스트 (1.2 1.3)를 선택하면 1.2와 1.3을 분리하여서
가로 1.5m 세로2.0m 상자를 만들려고합니다.
당연 각도도 주려하구요
(setq ss (entsel “n>>text 선택하십시요! : “))
(setq st (car ss))
(setq se (entget st))
(setq tex (cdr (assoc 1 se)));;텍스트내용출
(setq tex1 (read tex));;가로 규격
(setq tex2 (read (reverse tex)));;세로규격
(setq sp (getpoint “n 박스각도 방향을 선택하세요 : “));박스뱡향선택
(cond (( = tex1 “0.2”) “1.5”))
(cond (( = tex1 “0.3”) “2.0”))
(cond (( = tex2 “0.2”) “1.5”))
(cond (( = tex2 “0.3”) “2.0”))
1.가로 규격까지는 나오는데요 세로규격을 추출하는방법.
2.가로나 세로의 1.2 1.3일때 각각 1.5 2.0으로 바꾸는방법.
박스규격은 0.2×0.3일때 read 명령어를 사용할려니 공백을기준으로해서 처음 값만 읽어 들이더라구요. 그래서 공백으로표현했읍니다.
가로 세로 규격은 여러가지이지만 예를 들어 두개만 올렸읍니다.
cond 명령어 자체가 아닌것 같기도하구요,,,,ㅋㅋ
도움주시면 감사하겠읍니다.