3d 폴리라인을 2d로 변환하는 Lisp

[querycad]

좋은 아침

나는 다음 상황을 해결하기 위해 lisp 명령을 만들기 :

날짜 폴리롤라 3d
2d 폴리라인으로 전환합니다.

다음과 같은 코드를 나는 그것이 괜찮은 경우 요청 :

(defun c:river ()
c:리버

(주)
(세트)

명령 평평한 (ssget)
명령 폭발 (ssget)
합동 명령 (p)

_ 한국어

모든 txt.
감사합니다!

 

[Cristallo]

당신은 lisp와 그것의 문법에 대해 더 많은 이해해야
1, 즉 "setq a"와 닫히는 하나의 의미와 유일한 행
나머지는 autolisp에서 어떤 감각을 만들지 않습니다.

 

[GP.]

다음의 상황을 해결하기 위해 lisp 명령을 작성하고 있습니다. ·

나는 당신이 학습하거나이 첨부 파일과 같은 좋은 하나가 이미 완료 될 수 있도록 만드는 경우 모른다.
polylinea 3d는 원래의 첫 번째 요약의 공유에 대응하는 고도를 가진 2d에 의해 대체됩니다.

 

[Cristallo]

나는 당신이 학습하거나이 첨부 파일과 같은 좋은 하나가 이미 완료 될 수 있도록 만드는 경우 모른다.
polylinea 3d는 원래의 첫 번째 요약의 공유에 대응하는 고도를 가진 2d에 의해 대체됩니다.

아주 좋은
그리고 나는 중재 해발로 그녀에게 데려 가고 싶은 경우에, 나는 어떻게 intervene 합니까?
(cons 38 (마지막 (차 v)))) 올바른?

 

[GP.]

정확한, 코드 라인을 제거하면 위도는 기본적으로 0으로 설정됩니다.
나는 같은 고도에 vertices (of course)를 가진 3d polylinee에 의해 형성된 수준 곡선에 일하기 때문에 이 특징을 놓았습니다, 나는 그 고도에 2d polylinee를 두었습니다.

 

[Cristallo]

탱크 당신