ਕੋਆਰਡੀਨੇਟ ਗਰਿੱਡ ਬਣਾਉਣਾ

ਸਫੇਕ ਇਨ ਵ੍ਹਾਈਟ ਵਿੱਚ ਬੋਲੋ ਇੱਥੇ ਕਈ ਲੱਤਾਂ ਹਨ ਜੋ ਇਹ ਨਹੀਂ ਸਮਝਦੀਆਂ ਕਿ ਮੈਨੂੰ ਲਿਸਪ ਚਾਹੀਦਾ ਹੈ, ਪ੍ਰੋਗਰਾਮ ਪਹਿਲਾਂ ਹੀ ਗਰਿੱਡ ਬਣਾਉਣ ਲਈ ਡਾਊਨਲੋਡ ਕੀਤਾ ਗਿਆ ਹੈ ਠੀਕ ਹੈ? ਕੀ ਤੁਸੀਂ ਮੇਰੇ 'ਤੇ ਕਿਰਪਾ ਕਰੋਗੇ....ਤੁਹਾਡਾ ਧੰਨਵਾਦ

ਹੈਲੋ, ਕੀ ਤੁਸੀਂ ਦੱਸ ਸਕਦੇ ਹੋ ਕਿ ਇਹ ਕਿਵੇਂ ਕੀਤਾ ਗਿਆ? ਮੈਂ ਅਪਲੋਡ ਨਾਲ ਅਪਲੋਡ ਕਰਨ ਦੀ ਕੋਸ਼ਿਸ਼ ਕੀਤੀ, ਪਰ ਮੈਨੂੰ ਇਹ ਨਹੀਂ ਮਿਲ ਰਿਹਾ, ਕੋਈ ਮੈਨੂੰ ਇਹ ਸਮਝਾ ਸਕਦਾ ਹੈ? ਮੈਂ ਇਸ ਦੀ ਕਦਰ ਕਰਾਂਗਾ, ਮੇਰੀ ਨੌਕਰੀ ਲਈ ਸੱਚਮੁੱਚ ਇਸਦੀ ਲੋੜ ਹੈ.
ਧੰਨਵਾਦ ਅਤੇ ਮੇਰੇ ਵਲੋ ਪਿਆਰ

ਆਟੋ ਕਰੇਡ ਵਿਚ ਗਰਿੱਡ ਇਕ ਲਿਸਪ ਰੁਟੀਨ ਨਾਲ ਕੀਤਾ ਜਾਂਦਾ ਹੈ, ਮੈਂ ਇਸ ਨੂੰ 10 ਸਾਲ ਪਹਿਲਾਂ ਵਰਤਦਾ ਹਾਂ

ਇੱਥੇ ਇਹ ਹੈ:

(ਡਿਫੂਨ ਸਕ੍ਰਿਪਟ (ਏਏ / ਵਿਆਪਕ)
(ਲੰਬੇ ਸੈੱਟਕ (strlen aa))
(ਕਰੋਡ ((= x ਮਿਨੈਕਸ))
(ਸੈੱਟਕ ਐਲ (ਸੂਚੀ ਐਕ (ਸੂਚੀ x)))
)
(ਸੈੱਟਕ ਸੂਚੀ (ਸੀ ਡੀ ਡੀ ਸੂਚੀ))
)
(ਸੂਚੀ (ਮਿੰਟ (ਕਾਰ l) (ਕੈਡਰ l)) (ਅਧਿਕਤਮ (ਕਾਰ l) (ਕੈਡਰ l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;sis ;;;;;;;;;;;;;;;;
;;
;; ਇੰਟਰਸੈਕਸ਼ਨ ਨੂੰ ਕੋਡੇਨਡਾ ਐਕਸ ਦਿੱਤਾ ਗਿਆ
;;
(ਡਿਫਨ ਕੈਲਕੂਏ (ਅਬਸੀਐਕਸ)
(if (= 0.0 b) ; ਕੋਈ ਇੰਟਰਸੈਕਸ਼ਨ ਨਹੀਂ ਹੈ
ਨੀਲ
(ਬੀ)
)
)

(ਡੀਫੂਨ ਇਨਟਰਸੀਏ (/ l ਸੂਚੀ)
(ਸੈੱਟਕ ਐਲ ()
ਸੂਚੀ ਵਿੱਚ (ਸੂਚੀ (CalculaY a1 b1 c1 ਵਾਤਾਵਾਰਨ) (CalculaY a2 b2 c2 ਵਾਤਾਵਾਰਨ)
(ਕੈਲਕੂਲੇਟਿ ਏਐਕਸਯੂ.ਐਨ.ਐਨ.ਐੱ.ਐੱਸ.xx ਬੀਐਕਸਯੂਐਨਐਕਸ ਐਕਸਐਕਸਐਨਐੱਨਐੱਨ ਐਕਸ ਐਕਸਐਕਸਐਕਸ ਐਕਸ) (ਗਣਨਾ ਕਰੋ ਕਿ ਐਕਸੈਕਸ ਬੈਕਸੈਕਸ਼ਨ ਐਕਸ ਐਕਸਐਕਸ ਐਕਸਐੱਨ ਐਕਸਐੱਨ ਐਕਸ ਸ਼ੁਰੂਐਕਸ)
)
)
(ਜਦਕਿ (/ = ਨੀਲ ਸੂਚੀ)
(ਸੈੱਟਕ ਅਤੇ (ਸੂਚੀ))
(ਜੇ (ਅਤੇ (/ = y ਨੀਲ) (= y minY))
(ਸੈੱਟਕ ਐਲ (ਸੂਚੀ ਨੂੰ ਜੋੜਨਾ (ਸੂਚੀ y)))
)
(ਸੈੱਟਕ ਸੂਚੀ (ਸੀ ਡੀ ਡੀ ਸੂਚੀ))
)
(ਸੂਚੀ (ਮਿੰਟ (ਕਾਰ l) (ਕੈਡਰ l)) (ਅਧਿਕਤਮ (ਕਾਰ l) (ਕੈਡਰ l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;sis ;;;;;;;;;;;;;;;;
;;
;; ਮੁੱਖ ਪ੍ਰੋਗਰਾਮ
;;
(ਡਿਫੂਨ ਸੀ: ਕੁਆਡਰੀ (/ P1 P2 P3 P4 ਪੌਕਸ ਇਨੈਕਸ ਇੰਸੀ ਲੈਨ ਮਾਡਲ ਡਿਜ਼ਾਇਨ
ਅਲਫਾ startX startY minx miny maxx maxy)
(setvar “CMRIGHT” 0)
(ਕਮਾਂਡ “ਲੇਅਰ” “ਐਮ” “ਗਰਿੱਡ” “ਸੀ” “8” “”))
(setq p1 (getpoint “\nਇੱਕ ਖੇਤਰ ਵਰਟੈਕਸ ਦਾਖਲ ਕਰੋ”)
p2 (ਪ੍ਰਾਪਤ ਬਿੰਦੂ p1 “\nਦੂਜੇ ਸਿਰੇ ਨੂੰ ਦਾਖਲ ਕਰੋ “)
)
(ਕਮਾਂਡ “ਲਾਈਨ” p1 p2 “”)
(if (> (str p1)(str p2)); ਹਮੇਸ਼ਾ ਥੱਲੇ p1
(ਸੈੱਟਕ ਪੌਕਸ p1 p1 p2 p2 ਪੌਕਸ)
)
(setq p3 (getpoint p1 “\nਖੇਤਰ ਚੌੜਾਈ ਲਈ ਬਿੰਦੂ ਦਰਜ ਕਰੋ”)
l(ਦੂਰੀ p1 p3); ਬਿੰਦੂ p3 ਅਤੇ p4 ਦੀ ਗਣਨਾ, ਸਮਾਨਾਂਤਰ
ਅਲਫ਼ਾ (ਕੋਣ p1 p2); ਦੂਰੀ 'ਤੇ p1 ਅਤੇ p2 ਤੱਕ l
ਅਲਫਾ (+ (/ Pi 2) ਐਲਫ਼ਾ)
)
(ਜੇ (> (ਕਾਰ ਪੀ 3) (ਕਾਰ ਪੀ 1))
(ਸੈੱਟਕੀ ਅਲਫ਼ਾ (+ ਪਾਈ ਅਲਫ਼ਾ))
)
(ਜੇ (= (ਕਾਰ p1) (ਕਾਰ p3))
(ਜੇ ((- ਵੱਧ ਤੋਂ ਵੱਧ ਸ਼ੁਰੂ) (* 2 ਉੱਚਾ))
(ਕਮਾਂਡ “TEXT” (ਸੂਚੀ (+ x1 dl) (+ startY dh)) ਉੱਚ 0 coordY)
(ਕਮਾਂਡ “TEXT” “R” (ਸੂਚੀ (- x2 dl) (+ startY dh)) ਉੱਚ 0 coordY)
)
)
(setq startY (+ starty incy))
)
(ਜਦਕਿ ((- startX minx) (* 2 ਉੱਚਾ))
(ਕਮਾਂਡ “TEXT” (ਸੂਚੀ (- startX dh) (+ y1 dl)) ਉੱਚ 100 coordX)
(ਕਮਾਂਡ “TEXT” “R” (ਸੂਚੀ (- startX dh) (- y2 dl)) ਉੱਚ 100 coordX)
)
)
(setq startX (+ startX incx))
)
(ਜੇ (> (ਦੂਰੀ p1 p3) (ਦੂਰੀ p1 p2))
(ਸੈੱਟਕੀ ਅਲਫਾ ਏਂਗਪੈਕਸ NUMXP1)
(ਸੈੱਟਕੀ ਅਲਫਾ ਏਂਗਪੈਕਸ NUMXP1)
)
(ਜੇ (ਜਾਂ = ਐਲਫ਼ਾ ਪਾਈ) (/ = ਐਲਫ਼ਾ 0.0))
(ਸੈੱਟਕ ਅਲਫਾਰਾਡ (* -1 ਐਲਫ਼ਾ)
ਅਲਫਾ (* -1 (/ (* 180 ਅਲਫ਼ਾ) pi))
p4 (ਸੂਚੀ (- (* (ਕਾਰ p4) (alfarad COS)) (* (cadr p4) (ਕੋਈ alfarad)))
(+ (* (ਕਾਰ p4) (ਅਲਫਾਰਡ ਤੋਂ ਬਿਨਾਂ) (* (cadr p4) (cos alfarad)))
)
p1 (ਸੂਚੀ (- (* (ਕਾਰ p1) (cos alfarad)) (* (cadr p1) (ਅਲਫਾਰਡ ਤੋਂ ਬਿਨਾਂ)))
(+ (* (ਕਾਰ p1) (ਅਲਫਾਰਡ ਤੋਂ ਬਿਨਾਂ) (* (cadr p1) (cos alfarad)))
)
ਅਧਾਰ (ਸੂਚੀ 0.0 0.0); ਮੂਲ
)
)
)

Jejejej ਕਿਸੇ ਵੀ ਤਰ੍ਹਾਂ ਦਾ ਧੰਨਵਾਦ

ਸੱਚਾਈ ਇਹ ਹੈ ਕਿ ਮੈਨੂੰ ਇਹ ਵੀ ਚਿੰਤਤ ਹੈ, ਮੈਪ ਨਾਲ ਇਹੋ ਗੱਲ ਹੋ ਸਕਦੀ ਹੈ?

ਆਟੋਕੈਡ ਸਿਵਲ 3D ਦੇ ਨਾਲ, ਨਹੀਂ, ਕਿਉਂਕਿ ਇਸਦੇ ਲਈ ਪ੍ਰੋਗਰਾਮ ਪ੍ਰੋਜੈਕਸ਼ਨ ਸਿਸਟਮ ਨੂੰ ਹੈਂਡਲ ਕਰਦਾ ਹੈ। ਪਰ ਆਟੋਕੈਡ ਮੈਪ 3D ਨਾਲ ਤੁਸੀਂ ਕੁਝ ਅਜਿਹਾ ਹੀ ਕਰ ਸਕਦੇ ਹੋ।

ਇਹ ਆਟੋਕੈਡ 3 ਦੇ ਸਿਵਲ ਐਕਸਐਂਗਐਕਸਡੀ ਨਾਲ ਕੀਤਾ ਜਾ ਸਕਦਾ ਹੈ, ਮੈਂ ਸਮਝਦਾ ਹਾਂ ਕਿਉਂਕਿ ਇਹ ਗੂਗਲ ਧਰਤੀ ਨਾਲ ਜੁੜਨ ਦੀ ਇਜਾਜ਼ਤ ਵੀ ਦਿੰਦਾ ਹੈ, ਇਸ ਲਈ ਇਹ ਅਨੁਮਾਨਾਂ ਨੂੰ ਸਮਰਥਨ ਦੇਣ ਵਾਲਾ ਮੰਨਿਆ ਜਾਂਦਾ ਹੈ.