كيفية إنشاء شبكة للتنسيق

تحدث فارغًا ، هل هناك العديد من الأرجل التي لا تفهم أنني أريد LISP ، هل تم تنزيل البرنامج مسبقًا لتوليد الشبكات بشكل جيد؟ سوف تصنع لي خدمة ... شكرا لك

مرحبا، هل يمكن أن تشرح كيف يتم ذلك؟ حاولت تحميل ذلك مع أبلود ولكن أنا لا تحصل عليه، يمكن للشخص أن يفسر لي؟ وأود أن نقدر ذلك، وأنا حقا في حاجة إليها لمهمتي.
الشكر والتحيات

في أوتوكاد يتم الشبكة مع روتين ليسب، وأنا استخدامه على شنومك سنوات مضت

ومن هنا:

(ديفون ستربتو (آ / برود)
(طويل سيتك (سترلين آ))
(كوند ((= x مينكس))
(سيتك ل (إلحاق ل (قائمة س)))
)
(قائمة سيتك (قائمة سدر))
)
(كحد أقصى (سيارة l) (كادر l)) (ماكس (سيارة l) (كادر l)))
)

؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛ ؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛
;;
؛؛ تقاطع نظرا كوردنادا X
;;
(ديفون كالكولاتي (أبكس)
(إذا (= شنومك b)؛ لا يوجد تقاطع
صفر
(/ (- ج (* الفأس)) ب)
)
)

(ديفون إنترسيسي (/ l ليست)
(سيتك l ()
قائمة (قائمة (احسب أكسنومكس بزنومكس كسنومكس ستارتكس) (كالكولاتي أكسنومكس بزنومكس كسنومكس ستارتكس)
(كالكولاتي أكسنومكس بزنومكس كسنومكس ستارتكس) (كالكولاتي أكسنومكس بزنومكس كسنومكس ستارتكس)
)
)
(بينما (/ = لا شيء قائمة)
(سيتك و (القائمة))
(إف (و (/ = y نيل) (= y ميني))
(سيتك ل (إلحاق ل (قائمة ذ)))
)
(قائمة سيتك (قائمة سدر))
)
(كحد أقصى (سيارة l) (كادر l)) (ماكس (سيارة l) (كادر l)))
)

؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛ ؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛
;;
؛؛ البرنامج الرئيسي
;;
(ديفون c: كوادري (/ بسنومكس بسنومكس بسنومكس بسنومكس بوس إنكس إنسي لن مالداتو بيس
ألفا ستارتكس ستارتيس مينكس ميني ماكس ماكس)
(سيتفار "CMRIGHT" 0)
(الأمر "LAYER" "M" "الشبكة" "C" "8" "" "))
(setq p1 (نقطة الحصول "\ n أدخل قمة المنطقة")
p2 (الحصول على نقطة p1 "\ n أدخل الرأس الآخر")
)
(الأمر "LINE" p1 p2 "")
(إذا (> (cadr p1) (cadr p2)) ؛ دائمًا p1 down
(Setq paux p1 p1 p2 p2 Paux)
)
(setq p3 (getpoint p1 "\ n أدخل نقطة لعرض المنطقة")
l (المسافة بسنومكس بسنومكس)؛ حساب نقاط بسنومكس و بسنومكس، موازية
ألفا (زاوية بسنومكس بسنومكس)؛ إلى بسنومكس و بسنومكس على مسافة ل
ألفا (+ (/ بي شنومكس) ألفا)
)
(إذا (> (السيارة p3) (السيارة p1))
(سيتك ألفا (+ بي ألفا))
)
(إذا (= (سيارة بسنومكس) (سيارة بسنومكس))
(إذا ((- ماكسي ستارتي) (* شنومك عالية))
(الأمر "TEXT" (قائمة (+ x1 dl) (+ startY dh)) عالية 0 تنسيق)
(الأمر "TEXT" "R" (القائمة (- x2 dl) (+ startY dh)) ارتفاع 0 تنسيق)
)
)
(سيتك ستارتي (+ ستارتسي إنسي))
)
(بينما ((- ستارتكس مينكس) (* شنومكس عالية))
(الأمر "TEXT" (القائمة (- startX dh) (+ y1 dl)) ارتفاع 100 تنسيق)
(الأمر "TEXT" "R" (القائمة (- startX dh) (- y2 dl)) ارتفاع 100 تنسيق)
)
)
(سيتك ستارتكس (+ ستارتكس إنكس))
)
(إذا (> (المسافة p1 p3) (المسافة p1 p2))
(سيتك ألفا أنغسنومكسبنومك)
(سيتك ألفا أنغسنومكسبنومك)
)
(إف (أور = ألفا بي) (/ = ألفا شنومكس))
(سيتك ألفراد (* -NNUMX ألفا)
ألفا (* -1 (/ (* شنومك ألفا) بي))
بسنومك () (* ((بسنومكس) (كوز ألفراد)) (* (كادر بسنومك) (بدون ألفراد)))
(+ (* (سيارة بسنومكس) (بدون ألفراد)) (* (كادر بسنومكس) (كوس ألفراد)))
)
بسنومك () (* ((بسنومكس) (كوز ألفراد)) (* (كادر بسنومك) (بدون ألفراد)))
(+ (* (سيارة بسنومكس) (بدون ألفراد)) (* (كادر بسنومكس) (كوس ألفراد)))
)
قاعدة (قائمة شنومكس شنومكس)؛ الأصل
)
)
)

جيجيجيج شكرا على أي حال

والحقيقة هي أنني أيضا مفتون، وهذا الشيء نفسه يمكن القيام به مع الخريطة؟

مع أوتوكاد المدنية شنومكسد لا، لأن هذا هو السبب في أن البرنامج يدير نظام الإسقاط. ولكن نعم مع أوتوكاد خريطة شنومكسد يمكنك أن تفعل شيئا مماثلا.

ويمكن أن يتم ذلك مع شنومكسد المدني من أوتوكاد شنومك، أفترض لأنه حتى يسمح للاتصال جوجل الأرض، لذلك فمن المفترض أن تدعم التوقعات.