සම්බන්ධීකරණ ජාලකය නිර්මාණය කිරීම

සුදු පැහැයෙන් කථා කරන්න මට ලිස්ප් අවශ්‍ය බව නොතේරෙන කකුල් කිහිපයක් තිබේ, ග්‍රිඩ් ජනනය කිරීමට වැඩසටහන දැනටමත් බාගත කර ඇත හරිද? ඔබ මට අනුග්‍රහය දක්වනවාද.....ස්තූතියි

හායි, එය සිදු කරන්නේ කෙසේදැයි පැහැදිලි කළ හැකිද? මම එය භාවිතා කිරීම සමඟ උඩුගත කිරීමට උත්සහ කළ නමුත් එය මට ලබා නොගන්න, මට එය මට පැහැදිලි කළ හැකිද? මම එය අගය කරනවා, මම ඇත්තෙන්ම එය මගේ රැකියාව සඳහා අවශ්ය.
ස්තුතියි සහ සුභ පැතුම්

AutoCAD තුළ ග්රිඩ් මාදිලියකින් සිදු කරනු ලබන අතර, මම එය 10 කට වඩා භාවිතා කරමි

මෙන්න එය:

(aa / පුළුල්)
(දිගු setq (str aa)
(cond ((= x minX))
(setq l (පරිශිෂ්ටය l (ලැයිස්තුව x)))
)
(Setq ලැයිස්තුව (cdr ලැයිස්තුව))
)
(ලයිස්තුව (මෝටර් රථය) (cadr l)) (max (car l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;;
;; කෝඩනඩා X නම් වූ අවකාශය
;;
(Defun CalculaY (abcx)
((= 0.0 b) නම්; ඡේදනයක් නොමැත
nil
(ආ)
)
)

(Defun IntersecY (/ l ලැයිස්තුව)
(setq l ()
ලැයිස්තුව (ලැයිස්තුගත කරන්න (calculateY a1 b1 c1 startX) (CalculateY a2 b2 c2 startX)
(ගණනය කරන්න a3 b3 c3 startX) (CalculateY a4 b4 c4 startX)
)
)
(/ = nil list)
(setq සහ (ලැයිස්තුව))
(සහ (/ = y nil) (= y minY))
(setq l (පරිශිලක I (ලැයිස්තුව y)))
)
(Setq ලැයිස්තුව (cdr ලැයිස්තුව))
)
(ලයිස්තුව (මෝටර් රථය) (cadr l)) (max (car l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;;
;; ප්රධාන වැඩසටහන
;;
(Defun c: cuadri (/ p1 p2 p3 p4 pux incx inc lhn maldato base
alpha startX startY minX minY maxX maxY)
(සෙට්වර් "CMRIGHT" 0)
(“LAYER” “M” “Grid” “C” “8” “”” විධානය))
(setq p1 (getpoint “\nකලාප ශීර්ෂයක් ඇතුල් කරන්න”)
p2 (getpoint p1 “\nඅනෙක් ශීර්ෂය ඇතුල් කරන්න”)
)
("LINE" p1 p2 "" විධානය)
(if (> (str p1)(str p2)) ; සෑම විටම පහළ p1
(setq paux p1 p1 p2 p2 paux)
)
(setq p3 (getpoint p1 “\nකලාප පළල සඳහා ලක්ෂ්‍යය ඇතුළත් කරන්න”)
l(දුර p1 p3) ; ලකුණු p3 සහ p4 ගණනය කිරීම, සමාන්තර
ඇල්ෆා (කෝණය p1 p2); දුරින් p1 සහ p2 දක්වා l
ඇල්ෆා (+ (/ pi 2) ඇල්ෆා)
)
(if (> (කාර් p3) (කාර් p1))
(setq alpha (+ pi alpha))
)
(= (කාර් p1) (කාර් p3))
((- maxY startY) (* 2 high))
(“TEXT” විධානය (ලැයිස්තුව (+ x1 dl) (+ startY dh)) ඉහළ 0 coordY)
(“TEXT” “R” විධානය (ලැයිස්තුව (- x2 dl) (+ startY dh)) ඉහළ 0 coordY)
)
)
(setq startY (+ startY incy))
)
((- startX minX) (* 2 high))
(“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 alpha angP1P3)
(setq alpha angP1P2)
)
(හෝ = alpha pi) (/ = ඇල්ෆා 0.0))
(setq alfarad (* -1 ඇල්ෆා)
ඇල්ෆා (* -1 (/ (* 180 alpha) pi))
p4 (ලැයිස්තු (- (* (කාර් p4) (cos alfarad)) (* (cadr p4) (ඇල්ෆරාඩ් තොරව)))
(+ (* (කාර් p4) (ඇල්ෆාඩාව තොරව)) (* (cadr p4) (cos alfarad)))
)
p1 (ලැයිස්තු (- (* (කාර් p1) (cos alfarad)) (* (cadr p1) (ඇල්ෆරාඩ් තොරව)))
(+ (* (කාර් p1) (ඇල්ෆාඩාව තොරව)) (* (cadr p1) (cos alfarad)))
)
පදනම (ලැයිස්තුව 0.0 0.0); සම්භවය
)
)
)

Jejejej කෙසේ වෙතත් ස්තුතියි

ඇත්ත වශයෙන්ම මා කුතුහලය දනවන බව සිතිය හැකිද?

AutoCAD Civil 3D සමඟ, නැත, මන්ද මේ සඳහා වැඩසටහන ප්‍රක්ෂේපණ පද්ධතිය හසුරුවයි. නමුත් AutoCAD Map 3D සමඟ ඔබට සමාන දෙයක් කළ හැකිය.

එය AutoCAD 3 හි සිවිල් 2009D සමග සිදු කළ හැකිය, මම සිතන හැටියට එය Google Earth වෙත සම්බන්ධ වීමට ඉඩ සලසයි, එබැවින් එය ප්රක්ෂේපණ සඳහා අනුමත කළ යුතුය.