강화된 콘크리트의 기갑 붕대를 위한 Lisp

[gigio_2020]

안녕하세요.
나는 c.a에서 schooner에 대한 armor 바늘을 그리는 lisp를 준비하고 있습니다. zwcad 또는 autocad에 대한.
사용자가 두 가지 포인트를 요청하고 lisp는 두 가지 포인트의 차이와 같은 길이의 pline (녹색)을 반환해야하며 절반 또는 (y1 + y2) / 2에 배치됩니다. 할당량과 바의 브랜드를 나타내는 쓰기를 나타냅니다. 나는 포인트에서 추출 좌표에서 시작 명령 (pline etc.)을 실행할 때 문제가있다. 항상 객체를 올바르게 배치하고 때로는 항상 수평해야 할 때 막대를 기울이지 않습니다. 변수의 정의가 잘못되었다면 (실제가 문자열과 vice versa로 간주되는 경우).
나는 dwg 파일과 lisp를 첨부한다. 누군가가 나를 도울 수 있습니까?
감사합니다.

 

[Cristallo]

나는 목록을 검사하지 않았다, 그러나 내 습관에 나는 작업의 시작으로 돌아가 (모든 계산 및 기능에 대한) 이러한 지침

(setq 이전)
(설정 "smode" 0)

그리고 당신은이 다른 모든 작업을 완료 할 때 (숨겨진 닫힘)

( "smode" oldosmode 설정)

이것은 당신이 활성 osnap을 가지고있는 것처럼 헤드 라이트 기능에 포인트를 전환하기 전에 osnap을 삭제 할 수 있습니다, 계산을 통해 기능을 통과 포인트를 낭비.
모든 목록의 첫 번째는 osnap의 설정을 저장합니다.
그때 osnap을 0로 넣으십시오 (따라서 끄는 것)
모든 것을 ...
마지막 문자열은 osnap을 복원하기 전에 결정.

이 추가와 함께 그것을 보는 것을 시도

 

[Cristallo]

속도를 와우. ·

 

[Betoniera]

c.a.를 위한 끌고 인용 철은 당신이 lisp로 할 수 있는 가장 유용한 프로그램의 한개입니다.
우리는 주제에 대한 토론을 헌신하고 프로그램을 사용할 수 있습니다.
g.p.는 다림질에 따라 sizing를 자동으로 업데이트하는 코드를 작성했습니다.
프로그래밍을 계속하지 않는 gigio_2020의 목록은 줄을 그리기 위해 제한됩니다.
실제로, polyline, 추출물과 같은 바늘을 그리는 필요는 개인적인 특색을 인용하고 그 후에 n, 직경 및 총계 길이를 씁니다.
안녕하세요.