ایجاد شبکه مختصات

صحبت کردن با خلوص چند پا وجود دارد که درک نمی کنند من می خواهم لیسپ شوم ، برنامه برای بارگیری گریدها در حال حاضر بارگیری می شود؟ شما به من لطف خواهید کرد ... با تشکر

سلام، آیا می توانید توضیح دهید که چگونه انجام می شود؟ من سعی کردم آن را با appload بارگذاری کنم، اما من آن را دریافت نمی، کسی که می تواند آن را به من توضیح دهد؟ من از آن قدردانی می کنم، من واقعا برای کارم نیاز دارم.
با تشکر از شما و با توجه به

در اتوکد شبکه با روش معمولی اجرا می شود، از 10 سال پیش استفاده می کنم

در اینجا این است:

(defun strpto (aa / long)
(setq long (strlen aa))
(cond ((= x minX))
(setq l (append l (list x)))
)
(setq لیست (list cdr))
)
(فهرست (min (ماشین l) (cadr l)) (حداکثر (car l) (cadr l)))
)

؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛ ؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛
;;
؛؛ تقاطع با توجه به مختصات X
;;
(Defun CalculaY (abcx)
(اگر (= 0.0 ب)، هیچ تقاطع وجود دارد
صفر
(/ (- c (* ax)) ب)
)
)

(Defun IntersecY (/ l لیست)
(setq l ()
لیست (فهرست (CalCulaY a1 b1 c1 startX) (CalculaY a2 b2 c2 startX)
(CalCulaY a3 b3 c3 startX) (CalCulaY a4 b4 c4 startX)
)
)
(در حالی که (/ = لیست نهایی)
(setq و (لیست ماشین))
(if (و (/ = و nil) (= و minY))
(setq l (append l (list y)))
)
(setq لیست (list cdr))
)
(فهرست (min (ماشین l) (cadr l)) (حداکثر (car l) (cadr l)))
)

؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛ ؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛
;;
؛؛ برنامه اصلی
;;
(Defun c: quadri (/ p1 p2 p3 p4 paux incx incy lhn maldato base
alpha startX شروع می شود minX minY maxX maxY)
(setvar "CMDECHO" 0)
(فرمان "LAYER" "M" "grid" "C" "8" """))
(setq p1 (نقطه دریافت "\nراس منطقه را وارد کنید")
p2 (نقطه دریافت p1 "\nراس دیگر را وارد کنید")
)
(فرمان "LINE" p1 p2 "")
(if (> (cadr p1) (cadr p2)) ؛ همیشه p1 پایین
(setx paux p1 p1 p2 p2 paux)
)
(setq p3 (getpoint p1 "\nنقطه را برای عرض منطقه وارد کنید")
l (فاصله p1 p3)؛ محاسبه نقاط p3 و p4، موازی
آلفا (زاویه p1 p2)؛ به p1 و p2 در فاصله l
آلفا (+ (/ pi 2) آلفا)
)
(if (> (car p3) (car p1))
(setq alpha (+ alpha))
)
(اگر (= (ماشین p1) (ماشین p3))
(اگر ((- maxY startY) (* 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))
)
(if (> (فاصله p1 p3) (فاصله p1 p2))
(setq alfa angP1P3)
(setq alfa angP1P2)
)
(if (or (/ = alpha pi) (/ = alpha 0.0))
(setq alfarad (* -1 alpha)
alpha (* -1 (/ (* 180 alpha) pi))
p4 (لیست (- (* (ماشین p4) (cos alfarad)) (* (cadr p4) (بدون alfarad)))
(+ (* (ماشین p4) (بدون alfarad)) (* (cadr p4) (cos alfarad)))
)
p1 (لیست (- (* (ماشین p1) (cos alfarad)) (* (cadr p1) (بدون alfarad)))
(+ (* (ماشین p1) (بدون alfarad)) (* (cadr p1) (cos alfarad)))
)
پایه (لیست 0.0 0.0)؛ منشاء
)
)
)

Jejejej از شما متشکرم

حقیقت این است که من نیز تحسین شده ام، آیا می توان با نقشه آن را انجام داد؟

با AutoCAD Civil 3D نه، به همین دلیل این برنامه سیستم پیش بینی را مدیریت می کند. اما بله با AutoCAD Map 3D شما می توانید چیزی مشابه را انجام دهید.

این می تواند با Civil 3D از اتوکد 2009 انجام شود، من فکر می کنم که حتی اجازه می دهد تا به اتصال به Google Earth، به طوری که آن را انتظار می رود از پیش بینی پشتیبانی می کند.