निर्देशांक ग्रिड कसा तयार करावा

स्पोकन ब्लेंक तेथे काही लेग आहेत जी मला कळू शकत नाहीत, मला LISP पाहिजे, प्रोग्रॅम आधीपासून जनरेटिंग ग्रीडसाठी डाउनलोड केले आहे का? आपण मला आवडेल ... धन्यवाद

हॅलो, आपण ते कसे केले जाते हे स्पष्ट करू शकता? मी ते ओझे लोड करण्याचा प्रयत्न केला परंतु मला ते मिळत नाही, कोणी मला हे समजावून सांगू शकेल? मी त्याचा आभारी आहे, मला माझ्या कामासाठी खरोखरच गरज आहे.
धन्यवाद आणि विनम्र

AutoCAD मध्ये ग्रीड लिसेप नियमानुसार केले जाते, मी त्याचा वापर 10 वर्षापूर्वी केला आहे

हे असे आहे:

(डिफुन स्ट्रप्टो (एए / लांब)
(सेटिक लाँग (स्ट्रेलॅन एए))
(कॉन्स ((एक्स = x))
(setq एल (जोडणी एल (सूची x)))
)
(setq सूची (cdr सूची))
)
(यादी (मि (कार l) (कॅडर l)) (कमाल (कार l) (कॅडर l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;; l ;;;;;;;;;;;;;;;;
;;
;; चौरावांनी एक्स समन्वय दिला
;;
(डिफन कॅलकुए (abcx)
(जर (= 0.0 बी); कोणतेही छेदनबिंदू नाही
शून्य
(/ (- c (* ax)) ब)
)
)

(डिफुन इनटेक्वाय (/ l सूची)
(सेटक एल ()
यादी (यादी (CalculaY a1 b1 c1 startx) (CalculaY a2 b2 c2 startx)
(CalculaY a3 b3 c3 startx) (CalculaY a4 b4 c4 startx)
)
)
(जेव्हा (/ = यादी शून्य)
(सेटक आणि (कार सूची))
(जर (आणि (/ = आणि शून्य) (= आणि मिनी))
(setq एल (जोडणी एल (सूची y)))
)
(setq सूची (cdr सूची))
)
(यादी (मि (कार l) (कॅडर l)) (कमाल (कार l) (कॅडर l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;; l ;;;;;;;;;;;;;;;;
;;
;; मुख्य कार्यक्रम
;;
(Defun क: कादरी (/ p1 p2 p3 p4 paux incx incy maldato आधार lhn
अल्फा startX startY मिनेस मिनवाय maxx maxy)
(सेटवार “CMRIGHT” 0)
(कमांड “लेयर” “एम” “ग्रिड” “सी” “8” “”)))
(setq p1 (गेटपॉइंट “\nप्रदेश शिरोबिंदू प्रविष्ट करा”)
p2 (गेटपॉइंट p1 “\nदुसरा शिरोबिंदू एंटर करा “)
)
("लाइन" p1 p2 "" कमांड)
(जर (> (कॅडर पी 1) (कॅडर पी 2)) नेहमी पी 1 खाली ठेवा
(सेटक पॉक्स p1 पीएक्सयुएनएक्सएक्सएक्सएक्सएक्सएक्सएक्सएक्सएक्सएक्सएक्सएक्स)
)
(setq p3 (getpoint p1 “\nप्रदेश रुंदीसाठी बिंदू प्रविष्ट करा”)
एल (अंतर पी 1 पी 3); समांतर, बिंदू पी 3 आणि पी 4 ची गणना
अल्फा (कोन पी 1 पी 2); p1 आणि p2 अंतरावर l
अल्फा (+ (/ पी 2) अल्फा)
)
(जर (> (कार पी 3) (कार पी 1))
(सेटक अल्फा (+ पी अल्फा))
)
(जर (= (कार पीएक्सयुएक्सएक्सएक्स) (कार पीएक्सएनजीएएनएक्सएक्स))
(जर ((- कमाल प्रारंभ) (* 2 उच्च))
("TEXT" कमांड (सूची (+ x1 dl) (+ startY dh)) उच्च 0 coordY)
("TEXT" "R" कमांड (सूची (- x2 dl) (+ startY dh)) उच्च 0 coordY)
)
)
(setq startY (+ प्रारंभिक incy))
)
(परंतु ((startx minx) (* 2 उच्च))
("TEXT" कमांड (सूची (- startX dh) (+ y1 dl)) उच्च 100 coordX)
("TEXT" "R" कमांड (सूची (- startX dh) (- y2 dl)) उच्च 100 coordX)
)
)
(सेटिक स्टार्टएक्स (+ प्रारंभ ग्रॅक्स)
)
(जर (> (अंतर पी 1 पी 3) (अंतर पी 1 पी 2))
(सेटक अल्फा एन्जेक्स XXXXXX)
(सेटक अल्फा एन्जेक्स XXXXXX)
)
(जर (किंवा (/ = अल्फा पी) (/ = alpha 0.0))
(सेटक अल्फाराड (* -1 alfa)
अल्फा (* -1 (/ (* 180 अल्फा) pi))
p4 (यादी (- (* (कार p4) (alfarad cos)) (* (cadr p4) (नाही alfarad)))
(+ (* (कार पीएक्सएक्सएक्सएक्स) (अल्फाराड शिवाय)) (* (कॅडर पीएक्सएएनएक्सएक्स) (कॉस अलफार्ड)))
)
p1 (यादी (- (* (कार p1) (alfarad cos)) (* (cadr p1) (नाही alfarad)))
(+ (* (कार पीएक्सएक्सएक्सएक्स) (अल्फाराड शिवाय)) (* (कॅडर पीएक्सएएनएक्सएक्स) (कॉस अलफार्ड)))
)
बेस (यादी 0.0 0.0); मूळ
)
)
)

Jejejej तरीही आपण धन्यवाद

सत्य हेच आहे की मलाही या गोष्टीला धक्का बसला आहे की नकाशाबरोबर हे करता येईल का?

ऑटोकॅड सिव्हिल 3 डी सह नाही, कारण यासाठी प्रोग्राम प्रोजेक्शन सिस्टम व्यवस्थापित करतो. परंतु हो ऑटोकॅड नकाशा 3 डी सह आपण असेच काही करू शकता.

तो ऑटोकॅड 3 सिव्हल 2009D सह करता येईल, मला वाटते कारण ते Google Earth सह कनेक्ट होण्यास परवानगी देखील देते, त्यामुळे हे प्रोजेक्शन समर्थन करण्यास अपेक्षित आहे.