שאַפֿן די קאָאָרדינאַטע גריד

רעדן ליידיק עס זענען עטלעכע לעגס וואָס טאָן ניט פֿאַרשטיין איך וועלן די ליספּ. די פּראָגראַם איז שוין דאַונלאָודיד צו דזשענערייט גרידס. איר וועט טאָן מיר אַ פאַוואָר ... דאַנקען דיר

העלא, קען איר דערקלערן ווי עס איז געשען? איך געפרוווט צו מאַסע אַז מיט אַפּלאָאַד אָבער איך טאָן ניט באַקומען עס, עמעצער וואס קענען דערקלערן עס צו מיר? איך וואָלט אָפּשאַצן עס, איך טאַקע דאַרפֿן עס פֿאַר מיין אַרבעט.
דאַנקען און גרוס

אין אַוטאָקאַד די גריד איז געטאן מיט אַ ליספּ רוטין, איך נוצן עס איבער קסנומקס יאָרן צוריק

דאָ עס איז:

(דעפון סטרפּטאָ (אַאַ / לאַנג)
(setq long (strlen aa))
(קאָנד ((x = מאַקס))
(setq l (append l (list x)))
)
(setq רשימה (cdr רשימה))
)
(מאַקס (מאַשין ל) (קאַדר ל)) (מאַקס (מאַשין ך) (קאַדר ך)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; ינטערסעקשאַן געגעבן די X קאָואָרדאַנאַט
;;
(דעפון קאַלקולאַי (אַבקקס)
(אויב (= 0.0 ב), עס איז קיין ינטערסעקשאַן
נול
(/ (- C (* האַק)) b)
)
)

(דעפון ינטערסעקי (/ ל רשימה)
(סעטק ל ()
רשימה (רשימה (קאַלקולייַ אַקסנומקס בקסנומקס קקסנומקס סטאַרטקס) (קאַלקולייַ אַקסנומקס בקסנומקס קקסנומקס סטאַרטקס)
(קאַלקולייַ אַקסנומקס בקסנומקס קקסנומקס סטאַרטקס) (קאַלקולייַ אַקסנומקס בקסנומקס קקסנומקס סטאַרטקס)
)
)
(בשעת (/ = רשימה נול)
(סעטק און (מאַשין רשימה))
(אויב (און (/ = און נאַל) (= און מין))
(setq l (append l (list y)))
)
(setq רשימה (cdr רשימה))
)
(מאַקס (מאַשין ל) (קאַדר ל)) (מאַקס (מאַשין ך) (קאַדר ך)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; הויפּט פּראָגראַם
;;
(דעפעניק C: קוואַדרי (/ פּקסנומקס פּקסנומקס פּקסנומקס פּקסנומקס פּאַקס ינקקס ינסי לן מאַלדאַטאַ באַזע
אַלף סטאַרטקס סטאַרטי מינקס מין מאַקסקס מאַקסי)
(סעטוואַר "CMRIGHT" 0)
(באַפֿעלן "שיכטע" "עם" "גריד" "C" "8" "")))
(setq p1 (געפּוינט "\n אַרייַן אַ געגנט ווערטעקס")
p2 (געפּוינט פּ1 "\n אַרייַן די אנדערע ווערטעקס")
)
(באַפֿעל "LINE" p1 p2 "")
(אויב (> (קאַדר פּ 1) (קאַדר פּ 2)); שטענדיק פּ 1 אַראָפּ
(סעטק פּאַקס פּקסנומקס פּקסנומקס פּקסנומקס פּקסנומקס פּאַקס)
)
(setq p3 (getpoint p1 "\n אַרייַן פונט פֿאַר געגנט ברייט ")
ך (ווייַטקייט פּ 1 פּ 3); כעזשבן פון ווייזט פּ 3 און פּ 4, פּאַראַלעל
אַלף (ווינקל פּ 1 פּ 2); צו פּ 1 און פּ 2 אין דיסטאַנסע ל
אַלף (+ (/ פּי קסנומקס) אַלף)
)
(אויב (> (מאַשין פּ 3) (מאַשין פּ 1))
(setq alpha (+ pi alpha))
)
(אויב (= (פּקסנומקס מאַשין) (מאַשין פּקסנומקס))
(אויב ((- מאַקסי סטאַרטי) (* קסנומקס הויך))
(באַפֿעל "טעקסט" (רשימה (+ x1 דל) (+ startY dh)) הויך 0 קאָאָרדי)
(באַפֿעל "טעקסט" "ר" (רשימה (- x2 דל) (+ startY dh)) הויך 0 קאָאָרדי)
)
)
(setq startY (+ startY incy))
)
(בשעת ((- סטאַרטקס מינקס) (* קסנומקס הויך))
(באַפֿעל "טעקסט" (רשימה (- startX dh) (+ י1 דל)) הויך 100 קאָאָרדקס)
(באַפֿעל "טעקסט" "ר" (רשימה (- סטאַרטקס דה) (- י2 דל)) הויך 100 קאָאָרדקס)
)
)
(סעטק סטאַרטקס (+ סטאַרטקס ינקקס))
)
(אויב (> (ווייַטקייט פּ 1 פּ 3) (ווייַטקייט פּ 1 פּ 2))
(באַשטעטיק אַלפאַ פּנקסנומקספּקסנומקס)
(באַשטעטיק אַלפאַ פּנקסנומקספּקסנומקס)
)
(אויב (אָדער (/ = אַלף פּי) (/ = אַלף קסנומקס))
(* (* -קסנומקס אַלף)
אַלף (* -קסנומקס (/ (* קסנומקס אַלף) פּי))
פּקסנומקס (רשימה (- (* (מאַשין פּקסנומקס) (קאָס אַלפאַראַד)) (* (קאַדר פּקסנומקס) (אָן אַלפאַראַד)))
(+ (* (מאַשין פּקסנומקס) (אָן אַלפאַראַד)) (* (קאַדר פּקסנומקס) (קאָס אַלפאַראַד)))
)
פּקסנומקס (רשימה (- (* (מאַשין פּקסנומקס) (קאָס אַלפאַראַד)) (* (קאַדר פּקסנומקס) (אָן אַלפאַראַד)))
(+ (* (מאַשין פּקסנומקס) (אָן אַלפאַראַד)) (* (קאַדר פּקסנומקס) (קאָס אַלפאַראַד)))
)
באַזע (רשימה 0.0 0.0); דער אָפּשטאַם
)
)
)

דאַנקען איר דאנק איר

דער אמת איז אַז איך אויך געווען ינטריגד, קענען דאָס זיין געטאן מיט די מאפע?

ניט מיט אַוטאָקאַד סיוויל 3 ד, ווייַל פֿאַר דעם עס זאָרגן אַז די פּראָגראַם כאַנדאַלז די פּרויעקציע סיסטעם. אָבער מיט AutoCAD Map 3D איר קענען טאָן עפּעס ענלעך.

עס קען זיין געטאן מיט סיוויל קסנומקסד פון אַוטאָקאַד קסנומקס, איך באַטראַכטן ווייַל עס אַפֿילו אַלאַוז צו פאַרבינדן צו Google ערד, אַזוי עס איז געמיינט צו שטיצן פּראַדזשעקשאַנז.