안녕하세요.
LISP 관련 수정부탁드립니다.
PLINE를 사용하여 바로 CLOUD모양으로 변환하는 LISP인데요.
PLINE을 사용하다가 밑의 그림처럼 선이 모자르거나 넘칠경우에
모양이 안나오는 관계로 이렇게 올리게 되었습니다.
거의 클라우드 모양을 “ㄱ”, “ㄴ”, “ㄷ”, “ㅗ” 이런형태로 사용하는데
PLINE의 마지막 마무리가 딱 맞춰서 할 수 없어서 CLOUD모양이
제대로 나오지 않습니다..
수정가능할까요?
둘 다 만족시키지 못한다면… 넘어가는 방향으로 수정가능할까요?
공유
삭제한 이전 질문은 사각형를 pline으로 고치는 것이었죠.
올린 질문을 해답을 구하고 나서 삭제하는 것은 예의에 벗어나는 것입니다.
부족한게 있으실 때는 같은 글에 연결해서 질문을 하셔야 합니다.
그래야 같은 의문을 가지거나 배우시는 분들이 단계적으로 변화를 확인할 수 있습니다.
*** 시샵입니다 ***
김잉구님, 님께서는
알고 하셨는지 모르고 하셨는지 매우 이기적인 행동을 하셨습니다
늘 말씀드리리지만, 고캐드는 설계인들의 공용커뮤니티입니다
님께서는 원하는답을 얻자 바로 글을 지우셨습니다
강력히 경고드립니다
한번더 이런일이 있으면, 바로 강퇴 조치하겠습니다
시샵드림
네 죄송합니다..다른글 삭제하려다가…다시는 이런일 없도록 하겠습니다.
XCSH님 죄송합니다~(_ _)꾸벅
죄송합니다. 제 실수로 인해 기분을 언짢게 만들어 드렸네요…
앞으로 주의할께요^-^ 너그러이 이해바랍니다~
지난번 변경은 WHILE문에 COMMAND문을 나누어 쓰도록 변경한 것이지만
이번 질문은 첫점과 끝점을 만나게 하는 것이므로
선의 방향을 기록해서 첫점과 마지막점을 변경해야 합니다.
(DEFUN C:VCC()
;——- PLINE 그리는 부분 첫두점을 p1 P2에 기억 마지막두점을 P3 P4에 저장
(SETQ P1 (GETPOINT “POINT :”)) ;–시작점을 저장
(SETQ P2 (GETPOINT P1 “POINT :”))
(COMMAND “PLINE” P1)
(SETQ P4 P1 P5 P2)
(WHILE P5 ;——–WHILE시작
(COMMAND P5)
(SETQ P3 P4 P4 P5)
(SETQ P5 (GETPOINT P5 “POINT :”))
) ;——–WHILE 끝
(COMMAND “U” “C”)
;——– 그려진 PLINE 선택 부분
(SETQ Q2 (ENTLAST))
;——– 그려진 PLINE 시작점변경
(SETQ P0 (INTERS P1 P2 P3 P4 NIL)) ; —— 교차점 찾기
(SETQ OS_M (GETVAR “OSMODE”))
(SETVAR “OSMODE” 0)
(COMMAND “PEDIT” Q2 “E” “M” P0 “X” “”)
(SETVAR “OSMODE” OS_M)
;——– CLOUD 모양 변환 부분
(COMMAND “REVCLOUD” “A” “5” “” “” Q2 “”)
)
너무 감사드립니다.
진짜 제가 배울점이 너무 많네요. 정말 만나서 배우고 싶을정도에요 ㅠ.ㅠ(감동)
앞으로도 많은 가르침 부탁드립니다(_ _)꾸벅
정말 죄송한데요.. 주석 상세히 설명 한번만 부탁드려도 될까요?
리습은 코팅보다는 자신의 작업방법을 잘 이해하고 옮기는것이 중요합니다.
사실 구문은 다른 사람이 짠것을 보고 응용해서 사용하면 됩니다.
정말감사합니다. 이해가 잘 되네요. 실행취소부분이 왜 들어갔나 이해가 안됐었거든요.
감사드립니다^^ 앞으로도 잘 부탁드려요~