[Lisp] 경사선 그리는 리습을 둑마루와 경사선을 그리는 리습으로 수정하고 싶습니다.

[펠로]

성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^

① CAD 종류   : AutoCAD2017 64bit

② VERSION   : 64bit

③ 운영 체제    : Windows10 64bit

④ 질문내용 및 스크린샷(이미지 및동영상)

아래 이미지에서 보시는것처럼 현재 가지고 있는 경사선 그리는 리습을 보완해서

리습실행 후 선시작점과 경사 방향을 클릭 후

둑마루폭 입력하고 경사도 1:n 값 입력하면

경사 방향으로 둑마루폭과 경사선이 그려지는 리습으로 변경하고 싶습니다.

다른 리습 샘플들 구해서 몇번 수정하고 테스트해봤지만

모두 실패했네요ㅠ

아직 리습 명령체계를 잘 몰라서 스스로 할수가 없어

이렇게 문의드립니다.

; Drawing Slope Line

;       By

;  Lee Hyuk Jin

;  ('98. 2. 27)

(DEFUN C:GG(/ p1 p2 dx dy p1x p1y p2y p2x g gd env)

(setq env (getvar "orthomode"))

(setvar "orthomode" 0)

(prompt " <Drawing Slope Line>")

(setq p1 (getpoint "\nPick 1st Point : ")

      p2 (getpoint p1 "\nPick 2nd Point : ")

      g (getstring "\nInput  Slope Percent(%)/1:<3.0> " )

      p1x (car p1)    p1y (cadr p1)

      p2x (car p2)    p2y (cadr p2)

      dx (- p2x p1x)  dy  (- p2y p1y))

(if (= g "") (setq g "3"))

(if (wcmatch (substr g (strlen g) 1) "#") (progn

   (setq gd (atof g))

   (if (> dx 0) (progn (setq x (+ (* (abs dy) gd) p1x))))

   (if (< dx 0) (progn (setq x (- p1x (* (abs dy) gd)))))

   (command "line" p1 (list x p2y) "")

))

(if (not (wcmatch (substr g (strlen g) 1) "#")) (progn

   (setq gd (atof (substr g 1 (1- (strlen g)))))

   (if (> dy 0) (progn (setq y (+ (* (abs dx) gd 0.01) p1y))))

   (if (< dy 0) (progn (setq y (- p1y (* (abs dx) gd 0.01)))))

   (command "line" p1 (list p2x y) "")

))

(setvar "orthomode" env)

(princ))

⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.

선그리기리습(사선GG).LSP

※ 유의사항

 - ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^(필수 선택)

 - ②Screenshot : 이해를 돕기위해 삽입요망.

 - ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.

                          해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.

 - ④제       목 : 질문 내용 반영(개략적인 내용),       예) 해치를 만들고 싶어요, pline을 연결할려면?

                     금지어(만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등)

 - ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.

    여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음. 

※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.

    회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해

    검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.

    이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.