د همغږۍ گرډ جوړول

د خبرو اترو بلوک دلته هغه ځانګړي پښې دي چې نه پوهیږم زه د LISP غواړم ، پروګرم د ګریډونو جنریټ کولو ته چمتو دی؟ تاسو به زما خوښ اوسئ ... مننه

سلام، آیا تاسو کولی شئ دا څنګه تشریح کړئ؟ ما هڅه وکړه چې هغه اپلوډ سره اپلوډ کړي مګر زه دا نه لرم، څوک کولی شي ما ته تشریح کړي؟ زه به دا ستاینه وکړم، زه واقعا د خپل کار لپاره اړتیا ته اړتیا لرم.
مننه او سلامونه

په AutoCAD کې دا گرډ د لیپ معمول سره ترسره کیږي، زه یې د 10 کاله وړاندې کاروم

دلته دلته دی:

(د توپوګانو دفاع کول (aa / broad)
(اوږده سټق
(cond ((= x minX)
(سيقق ايل) ضميمه (د لسټ لېست))
)
(سټق لیست (cdr لیست)
)
(لیست (کار (کار ل) (کیډر لی) (ډیری (کار ل) (کیډر لی))
)

؛؛؛؛؛؛؛؛؛؛؛ ؛؛؛؛؛؛؛؛؛؛؛؛
;;
؛ کوډینډاډا ایکس ورکړئ
;;
(Defun CalculaY (ABCX)
(که (= 0.0 ب)؛ شتون نلري
نیل
(ب)
)
)

(Defun IntersecY (/ l لست)
(سیقق ()
لیست (لیست کول (د اک این این ایکس ایکس بکسومکس سيکسینومکس شروع ایکس) (د اکنټیک د ایکس اینوم ایکس بکسومکس سيکسومکس شروع ایکس)
(د اکیکونیم B3 c3 startX حساب کړئ) (حساب کول د اکنومکس بکسومکس سيکسومکس ایکس ایکس)
)
)
(په داسې حال کې چې / = = نیل لیست)
(سایق او (لیست)
(که (او (= = y نیل) (= y miny))
(ساکق لی) ضمیمه (د لیست یو لیست))
)
(سټق لیست (cdr لیست)
)
(لیست (کار (کار ل) (کیډر لی) (ډیری (کار ل) (کیډر لی))
)

؛؛؛؛؛؛؛؛؛؛؛ ؛؛؛؛؛؛؛؛؛؛؛؛
;;
؛ اصلي پروګرام
;;
(Defun c: cuadri (/ p1 p2 p3 p4 paux incx inc lhn maldato base
د الفا شروع X پېل MinX مننه MaxX MaxY)
(setvar "CMRIGHT" 0)
(کمانډ "پرت" "M" "گرډ" "C" "8" """))
(setq p1 (د ترلاسه کولو نقطه "\nد سیمې شاته داخل کړئ")
p2 (د ترلاسه کولو نقطه p1 "\nنور عمودی داخل کړئ")
)
(کمانډ "لاین" p1 p2 "")
(که (> (د کدر p1) (د کدر p2))؛ تل p1 ښکته کړئ
(ساکق پاکس p1 p1 p2 p2 paux)
)
(setq p3 (د ترلاسه کولو نقطه p1 "\nد سیمې د عرض لپاره نقطه دننه کړئ")
ل (فاصله p1 p3)؛ د پیژندلو ټکی p3 او p4، موازي
الفا (زاویه p1 p2)؛ p1 او p2 ته په فاصله کې
الفا (+ (/ pi 2) الفا)
)
(که (> (موټر p3) (موټر p1))
(سقق الفا (+ pi الفا)
)
(که (= کار p1) (کار p3))
(که) - - MaxY شروع () * * 2 لوړ ()
(کمانډ "متن" (لست (+ x1 dl) (+ startY dh)) لوړ 0 coordY)
(کمانډ "متن" "R" (لست (- x2 dl) (+ startY dh)) لوړ 0 coordY)
)
)
(د ساکق پیل (+ شروع پیل شوی)
)
(په داسې حال کې چې (- شروع ایکس منکس) (* 2 لوړ)
(کمانډ "متن" (لست (- startX dh) (+ y1 dl)) لوړ 100 coordX)
(کمانډ "متن" "R" (لست (- startX dh) (- y2 dl)) لوړ 100 coordX)
)
)
(ساکق شروع ایکس (+ StartX incx))
)
(که (> (فاصله p1 p3) (فاصله p1 p2))
(ساکق الفا اینګکسینومکسکسکسکس)
(ساکق الفا اینګکسینومکسکسکسکس)
)
(که (یا = الفا پی) (/ = الفا 0.0))
(سقق الفراداد (* -1 الفا)
الفا (* -1 (/ (* 180 الفا) پ))
p4 (لیست) - (* (کار p4) (کاغ الفراداد) (* (cadr p4) (پرته له الفراداد))
(+ (* (کار p4) (پرته له الفراداد) ((* (cadr p4) (کافر الفراداد))
)
p1 (لیست) - (* (کار p1) (کاغ الفراداد) (* (cadr p1) (پرته له الفراداد))
(+ (* (کار p1) (پرته له الفراداد) ((* (cadr p1) (کافر الفراداد))
)
بنسټ (د 0.0 0.0 لیست)؛ اصلي
)
)
)

جیججج له هرې مننه

حقیقت دا دی چې ما هم مینځ ته شوی دی، دا هم د نقشه سره ترسره کیدی شي؟

د AutoCAD مدني 3D سره، ځکه چې دا د پروجیکشن سیسټم اداره کوي. مګر هو د AutoCAD سره د نقشه زنګ تاسو کولی شئ داسې شی وکړئ.

دا د AutoCAD 3 د مدني 2009D سره ترسره کیدی شي، زه فکر کوم چې حتی د ګوګل ځمکې سره د نښلولو اجازه هم ورکوي، نو دا د اټکل ملاتړ کوي.