ಕೋಆರ್ಡಿನೇಟ್ ಗ್ರಿಡ್ ರಚಿಸಲಾಗುತ್ತಿದೆ

ಸ್ಪೀಕ್ ಬ್ಲ್ಯಾಂಕ್ ನಾನು ಲಿಸ್ಪ್ ಬಯಸುತ್ತೇನೆ ಎಂದು ಅರ್ಥಮಾಡಿಕೊಳ್ಳದ ತೀವ್ರ ಕಾಲುಗಳಿವೆ, ಪ್ರೋಗ್ರಾಂ ಈಗಾಗಲೇ ಗ್ರಿಡ್ಗಳನ್ನು ಸಾಮಾನ್ಯಗೊಳಿಸಲು ಡೌನ್‌ಲೋಡ್ ಮಾಡಲಾಗಿದೆಯೇ? ನೀವು ನನಗೆ ಸಹಾಯ ಮಾಡುತ್ತೀರಿ ... ಧನ್ಯವಾದಗಳು

ಹಲೋ, ಇದು ಹೇಗೆ ಮಾಡಲಾಗುತ್ತದೆ ಎಂಬುದನ್ನು ನೀವು ವಿವರಿಸಬಹುದೇ? ನಾನು ಅದನ್ನು ಲೋಡ್ ಮಾಡಲು ಪ್ರಯತ್ನಿಸುತ್ತಿದ್ದೇನೆ ಆದರೆ ನಾನು ಅದನ್ನು ಪಡೆಯುವುದಿಲ್ಲ, ಅದನ್ನು ನನಗೆ ವಿವರಿಸಬಲ್ಲ ಯಾರಾದರೂ? ನಾನು ಅದನ್ನು ಶ್ಲಾಘಿಸುತ್ತೇನೆ, ನನ್ನ ಕೆಲಸಕ್ಕೆ ಇದು ನಿಜವಾಗಿಯೂ ಅಗತ್ಯ.
ಧನ್ಯವಾದಗಳು ಮತ್ತು ಗೌರವಿಸಿದೆ

ಆಟೋ CAD ಯಲ್ಲಿ ಗ್ರಿಡ್ ಅನ್ನು ಲಿಸ್ಪ್ ವಾಡಿಕೆಯೊಂದಿಗೆ ಮಾಡಲಾಗುತ್ತದೆ, ನಾನು ಇದನ್ನು 10 ವರ್ಷಗಳ ಹಿಂದೆ ಬಳಸುತ್ತೇನೆ

ಇಲ್ಲಿ ಅದು:

(ಡಿಫನ್ ಸ್ಟ್ರಪ್ಟೊ (ಎಎ / ಲಾಂಗ್)
(ಸೆಟ್ಕ್ ಲಾಂಗ್ (ಸ್ಟ್ರ್ಲೆನ್ ಆ))
(ಖಂಡ ((= x minX))
(ಸಿಟಕ್ ಎಲ್ (ಅಂದಾಜು ಎಲ್ (ಪಟ್ಟಿ ಎಕ್ಸ್)))
)
(ಸೆಟ್ಕ್ ಪಟ್ಟಿ (ಸಿಡಿಆರ್ ಪಟ್ಟಿ))
)
(ಪಟ್ಟಿ (ನಿಮಿಷ (ಕಾರ್ ಎಲ್) (ಕ್ಯಾಡರ್ ಎಲ್)) (ಗರಿಷ್ಠ (ಕಾರ್ ಎಲ್) (ಕ್ಯಾಡರ್ ಎಲ್))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; ಛೇದಕವು X ನಿರ್ದೇಶಾಂಕವನ್ನು ನೀಡಿದೆ
;;
(ಡಿಫುನ್ ಕ್ಯಾಲ್ಕುಲಾವೈ (ಎಬಿಸಿಎಕ್ಸ್)
(if (= 0.0 b); ಯಾವುದೇ .ೇದಕವಿಲ್ಲ
ನೀಲ್
(/ (- (ಸಿ (* ಕೊಡಲಿ)) ಬಿ)
)
)

(ಡಿಫುನ್ ಇಂಟೆರ್ಸೆಸಿ (/ l)
(ಸೆಟ್ಕ್ ಎಲ್ ()
ಪಟ್ಟಿ (ಪಟ್ಟಿ (CalculaY a1 b1 c1 startX) (CalculaY a2 b2 c2 startX)
(ಗಣಕಯಂತ್ರ A3 b3 c3 startX) (ಗಣಕಯಂತ್ರ a4 b4 c4 startX)
)
)
(ಆದರೆ (/ = ಪಟ್ಟಿ ನಾಲ್)
(ಸೆಟ್ಕ್ ಮತ್ತು (ಕಾರ್ ಪಟ್ಟಿ))
(ಮತ್ತು (ಮತ್ತು (/ = ಮತ್ತು ನೀಲ್) (= ಮತ್ತು ಮೈನಿ))
(ಸಿಟಕ್ ಎಲ್ (ಅಟೆಂಡ್ ಎಲ್ (ಪಟ್ಟಿ ವೈ)))
)
(ಸೆಟ್ಕ್ ಪಟ್ಟಿ (ಸಿಡಿಆರ್ ಪಟ್ಟಿ))
)
(ಪಟ್ಟಿ (ನಿಮಿಷ (ಕಾರ್ ಎಲ್) (ಕ್ಯಾಡರ್ ಎಲ್)) (ಗರಿಷ್ಠ (ಕಾರ್ ಎಲ್) (ಕ್ಯಾಡರ್ ಎಲ್))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; ಮುಖ್ಯ ಪ್ರೋಗ್ರಾಂ
;;
(ಡಿಫನ್ ಸಿ: ಕ್ವಾಡ್ರಿ (/ p1 p2 p3 p4 paux incx incy lhn maldato base
ಆಲ್ಫಾ ಪ್ರಾರಂಭ XXY MINX MINY maxX maxY)
(ಸೆಟ್ವರ್ "CMRIGHT" 0)
(ಕಮಾಂಡ್ “ಲೇಯರ್” “ಎಂ” “ಗ್ರಿಡ್” “ಸಿ” “8” “””))
(setq p1 (getpoint “\nಒಂದು ಪ್ರದೇಶ ಶೃಂಗವನ್ನು ನಮೂದಿಸಿ”)
p2 (getpoint p1 “\nಇತರ ಶೃಂಗವನ್ನು ನಮೂದಿಸಿ”)
)
(“LINE” p1 p2 “” ಆಜ್ಞೆ)
(if (> (cadr p1) (cadr p2)); ಯಾವಾಗಲೂ p1 ಡೌನ್
(ಸೆಟ್ಕ್ ಪ್ಯಾಕ್ಸ್ p1 p1 p2 pXux)
)
(setq p3 (getpoint p1 “\nRegion Width ಗೆ ಪಾಯಿಂಟ್ ನಮೂದಿಸಿ”)
l (ದೂರ p1 p3); ಅಂಕಗಳ ಲೆಕ್ಕಾಚಾರ p3 ಮತ್ತು p4, ಸಮಾನಾಂತರ
ಆಲ್ಫಾ (ಕೋನ p1 p2); ದೂರದಲ್ಲಿ p1 ಮತ್ತು p2 ಗೆ
ಆಲ್ಫಾ (+ (ಪೈ (ಎಮ್ಎನ್ಎಕ್ಸ್) ಆಲ್ಫಾ)
)
(if (> (ಕಾರ್ ಪಿ 3) (ಕಾರ್ ಪಿ 1))
(ಸೆಟ್ಕ್ ಆಲ್ಫಾ (+ ಪಿ ಪಿ ಆಲ್ಫಾ))
)
(ವೇಳೆ (= (ಕಾರು p1) (ಕಾರು p3))
((- (maxY startY) (* 2 ಹೈ))
(“TEXT” ಆಜ್ಞೆ (ಪಟ್ಟಿ (+ x1 dl) (+ startY dh)) ಹೆಚ್ಚಿನ 0 coordY)
(“TEXT” “R” ಆಜ್ಞೆ (ಪಟ್ಟಿ (- x2 dl) (+ startY dh)) ಹೆಚ್ಚಿನ 0 coordY)
)
)
(ಸೆಟ್ಕ್ ಸ್ಟಾಂಟಿವೈ (+ ಸ್ಟಾಂಟಿ ಇಂಜಿ))
)
((- (ಎಕ್ಸ್ ಎಕ್ಸ್ಎಕ್ಸ್ಎಕ್ಸ್) (* ಎಕ್ಸ್ಯುಎನ್ಎಕ್ಸ್ ಹೈ))
(“TEXT” ಆಜ್ಞೆ (ಪಟ್ಟಿ (- startX dh) (+ y1 dl)) ಅಧಿಕ 100 coordX)
(“TEXT” “R” ಆಜ್ಞೆ (ಪಟ್ಟಿ (- startX dh) (- y2 dl)) ಅಧಿಕ 100 coordX)
)
)
(ಸೆಟ್ಕ್ ಪ್ರಾರಂಭ XX (+ startX incx))
)
(if (> (ದೂರ p1 p3) (ದೂರ p1 p2))
(ಸೆಟ್ಕ್ ಆಲ್ಫಾ angP1P3)
(ಸೆಟ್ಕ್ ಆಲ್ಫಾ angP1P2)
)
(ಅಥವಾ (/ (ಆಲ್ಫಾ ಪೈ) (/ = ಆಲ್ಫಾ ಎಕ್ಸ್ಎನ್ಎನ್ಎಕ್ಸ್))
(ಸೆಟ್ಕ್ ಅಲ್ಫಾರಾಡ್ (* -1 ಅಲ್ಫಾ)
ಆಲ್ಫಾ (* -1 (/ (* 180 ಆಲ್ಫಾ) ಪೈ))
p4 (ಪಟ್ಟಿ (- (* (ಕಾರು p4) (cos alfarad)) (* (cadr p4) (alfarad ಇಲ್ಲದೆ)))
(+ (* (ಕಾರು p4) (ಅಲ್ಫರಾಡ್ ಇಲ್ಲದೆ)) (* (ಕ್ಯಾಡರ್ p4) (cos alfarad)))
)
p1 (ಪಟ್ಟಿ (- (* (ಕಾರು p1) (cos alfarad)) (* (cadr p1) (alfarad ಇಲ್ಲದೆ)))
(+ (* (ಕಾರು p1) (ಅಲ್ಫರಾಡ್ ಇಲ್ಲದೆ)) (* (ಕ್ಯಾಡರ್ p1) (cos alfarad)))
)
ಮೂಲ (ಪಟ್ಟಿ 0.0 0.0); ಮೂಲ
)
)
)

ಜೆಜೆಜೆಜ್ ಹೇಗಾದರೂ ಧನ್ಯವಾದ

ನಿಜಕ್ಕೂ ನಾನು ತುಂಬಾ ಆಸಕ್ತಿ ಹೊಂದಿದ್ದೇನೆ, ಇದು ನಕ್ಷೆಯೊಂದಿಗೆ ಮಾಡಬಹುದೇ?

ಆಟೋಕ್ಯಾಡ್ ಸಿವಿಲ್ 3D ಯೊಂದಿಗೆ ಅಲ್ಲ, ಏಕೆಂದರೆ ಇದಕ್ಕಾಗಿ ಪ್ರೋಗ್ರಾಂ ಪ್ರೊಜೆಕ್ಷನ್ ವ್ಯವಸ್ಥೆಯನ್ನು ನಿರ್ವಹಿಸುತ್ತದೆ. ಆದರೆ ಹೌದು ಆಟೋಕ್ಯಾಡ್ ನಕ್ಷೆ 3D ಯೊಂದಿಗೆ ನೀವು ಇದೇ ರೀತಿಯದ್ದನ್ನು ಮಾಡಬಹುದು.

ಇದನ್ನು ಆಟೋಕಾಡ್ 3 ನ ಸಿವಿಲ್ 2009D ಯೊಂದಿಗೆ ಮಾಡಬಹುದಾಗಿದೆ, ಏಕೆಂದರೆ ಅದು ಗೂಗಲ್ ಅರ್ಥ್ಗೆ ಸಂಪರ್ಕ ಕಲ್ಪಿಸಲು ಅವಕಾಶ ನೀಡುತ್ತದೆ, ಆದ್ದರಿಂದ ಇದು ಪ್ರಕ್ಷೇಪಗಳಿಗೆ ಬೆಂಬಲವನ್ನು ನೀಡುತ್ತದೆ.