어떻게 그리드 좌표 만들 수 있습니다

SPEAK BLANK LISP를 원한다는 것을 이해하지 못하는 다리가 여러 개 있습니다. 프로그램이 이미 그리드 생성을 위해 다운로드되었습니다. OK? 당신은 저에게 호의를 베풀 것입니다… 감사합니다

안녕, 어떻게하는지 설명해 주시겠습니까? appload를 사용하여 업로드하려고 시도했지만 얻지 못했지만 누군가 나에게 설명 할 수 있습니까? 나는 그것을 고맙게 여길 것이고, 나는 정말로 그것을해야한다.
감사 관련

AutoCAD에서 그리드는 림프 루틴 (lisp routine)으로 끝났습니다. 몇 년 전 10 이상 사용했습니다.

여기있다 :

(defun strpto (aa / broad)
(긴 setq (strlen aa))
(cond ((= x minX))
(setq l (append l (list x)))
)
(setq list (cdr list))
)
(목록 (min (car l) (cadr l)) (max (car l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;
;;
;; 교차로 X 주어진 cordenada
;;
(Defun CalculaY (abcx)
(if (= 0.0 b), 교차가 없음
무
(b)
)
)

(Defun IntersecY (/ l 목록)
(setq l ()
목록 (list (CalculateY a1 b1 c1 startX) (CalculateY a2 b2 c2 startX)
(a3 b3 c3 startX 계산) (CalculateY a4 b4 c4 startX)
)
)
(동안 (/ = nil 목록)
(setq 및 (list))
(if (그리고 (/ y y nil) (= y min Y))
(setq l (append l (list y)))
)
(setq list (cdr list))
)
(목록 (min (car l) (cadr l)) (max (car l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;
;;
;; 주요 프로그램
;;
(Defun c : cuadri (/ p1 p2 p3 p4 pxx incy in lyn maldato base
alpha startX startY minX minY maxX maxY)
(setvar "CMRIGHT" 0)
(명령 "레이어" "M" "그리드" "C" "8" """))
(setq p1(getpoint "\n영역 정점 입력")
p2(getpoint p1 "\n다른 꼭짓점 입력")
)
(명령 "라인" p1 p2 "")
(if (> (cadr p1) (cadr p2)); 항상 p1 아래로
(setq paux p1 p1 p2 p2 paux)
)
(setq p3(getpoint p1 "\n영역 너비에 대한 포인트 입력")
l (거리 p1 p3); 계산 포인트 p3 및 p4, 병렬
알파 (각도 p1 p2); 거리 l에서 p1 및 p2에 연결
알파 (+ (/ pi2) 알파)
)
(만약 (> (자동차 p3) (자동차 p1))
(setqα (+ piα))
)
(if (= (car p1) (car p3))
(if ((- maxY startY) (* 2 high))
(명령 "TEXT"(list (+ x1 dl) (+ startY dh)) high 0 coordY)
(명령 "TEXT" "R"(list (- x2 dl) (+ startY dh)) high 0 coordY)
)
)
(setq startY (+ startY incy))
)
(while ((- startX minX) (* 2 high))
(명령 "TEXT"(목록 (- startX dh) (+ y1 dl)) 높은 100 coordX)
(명령 "TEXT" "R"(목록 (- startX dh) (- y2 dl)) 높은 100 coordX)
)
)
(setq startX (+ startX incx))
)
(if (> (거리 p1 p3) (거리 p1 p2))
(setq alpha angP1P3)
(setq alpha angP1P2)
)
(if (또는 = alpha pi) (/ = alpha 0.0))
(setq alfarad (* -1 alpha)
알파 (* -1 (/ (* 180α) pi))
p4 (list (- (* (car p4) (cos alfarad)) (* (cadr p4) (alfarad없이)))
(+ (* (car p4) (alfarad없이)) (* (cadr p4) (cos alfarad)))
)
p1 (list (- (* (car p1) (cos alfarad)) (* (cadr p1) (alfarad없이)))
(+ (* (car p1) (alfarad없이)) (* (cadr p1) (cos alfarad)))
)
기본 (목록 0.0 0.0); 원점
)
)
)

어쨌든 제제 예 감사합니다.

진실은 내가 또한 흥미를 돋웠다는 것입니다,이 같은 일이지도로 할 수 있습니까?

AutoCAD Civil 3D no는 프로그램이 투영 시스템을 관리하는 이유입니다. 그러나 AutoCAD Map 3D를 사용하면 비슷한 것을 할 수 있습니다.

AutoCAD 3의 Civil 2009D로 수행 할 수 있습니다. Google 어스에 연결할 수 있기 때문에 프로젝션을 지원할 예정이기 때문입니다.