Ташкили шабакаи ҳамоҳанг

БЛАНК ГУФТ ЧАНД ПОЙҲОСТ, КИ МЕФАҲМАНД, КИ ЛИССПРО НАФАХМИДАНД, ПРОГРАММАРО АЛЛАКА БАРОН ТАВОНИДАНИ ГРЕЗИДҲО ХОНДАНД? ШУМО БА МАН МЕҲРУБОНЙ МЕКУНЕД ... РАХМАТ

Салом, оё тавзеҳ медиҳед, ки чӣ тавр анҷом дода мешавад? Ман кӯшиш мекардам, ки бо асбобу анҷоми он кор кунам, вале ман онро ба касе нагирифтаам? Ман онро қадр мекунам, ман дар ҳақиқат ба кори ман ниёз дорам.
Гирифтани гулҳо

Дар AutoCAD шабака бо реҷаи либос иҷро мешавад, ман онро аз солҳои 10 истифода мебарам

Дар он ҷо:

(аъло)
(дарозии дароз (strlen aa))
(шарт ((= x minX))
(линк л) (замимаи l (рӯйхати x)))
)
(рӯйхати сабти ҷойгиршуда)
)
(ном) (min (автомашинаи l) (cadr l)) (max (автомашинаи l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Саттори додашудаи коэффитсиенти X
;;
(Набудани CalculaY (abcx)
(агар (= 0.0 b) бошад, на интерпретатсия нест
Нил
(/ (- c (* ax)) b)
)
)

(Нишони дохилӣ) (рӯйхат)
(setq l ()
рӯйхат (рӯйхат (CalculaY a1 b1 c1 startX) (CalculaY a2 bxNUMX c2 startX)
(CalculaY a3 bxNUMX c3 startX) (CalculaY a3 bxNUMX c4 startX)
)
)
(дар ҳоле (/ = list nil)
(сатҳ ва (рӯйхати мошинҳо))
(агар (ва (/ = ва нил) (= ва minY))
(луғат) 1 (лифофӣ л (рӯйхат)))
)
(рӯйхати сабти ҷойгиршуда)
)
(ном) (min (автомашинаи l) (cadr l)) (max (автомашинаи l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Барномаи асосӣ
;;
(Набудани C: quadri (/ p1 p2 p3 p4 paux incx incy lhn maldato base
alpha startX startY minX minY maxX maxY)
(сетвар "CMRIGHT" 0)
(фармони "LAYER" "M" "сетка" "C" "8" """))
(setq p1 (дастрасии "\nКулҳои минтақаро ворид кунед")
p2 (getpoint p1 "\nБа қуллаи дигар ворид шавед ")
)
(фармони "LINE" p1 p2 "")
(if (> (cadr p1) (cadr p2)); ҳамеша p1 поён
(setq paux p1 p1 p2 p2 paux)
)
(setq p3 (getpoint p1 "\nнуқтаро барои паҳнои минтақа ворид кунед ")
l (дарозии p1 p3); Ҳисоб кардани нуқтаҳои p3 ва p4, баробари
alpha (кунҷи p1 p2); ба p1 ва p2 дар масофаи l
alpha (+ (/ pi 2) alpha)
)
(агар (> (мошини p3) (мошини p1))
(аломати alpha (+ pi alpha))
)
(агар (= (автомашина p1) (мошин p3))
(агар ((- maxY startY) (* баландсифати 2))
(фармони "TEXT" (рӯйхат (+ x1 dl) (+ startY dh)) баланд 0 coordY)
(фармони “TEXT” “R” (рӯйхат (- x2 dl) (+ startY dh)) 0 coordY баланд)
)
)
(оғозёбӣ) (startY
)
(ҳангоми ((- startX minX) (* баландии 2))
(фармони "TEXT" (рӯйхат (- startX dh) (+ y1 dl)) баланд 100 coordX)
(фармони “TEXT” “R” (рӯйхат (- startX dh) (- y2 dl)) high 100 coordX)
)
)
(setq startX (+ startX incx))
)
(агар (> (масофаи p1 p3) (масофаи p1 p2))
(тасвири Алфа)
(тасвири Алфа)
)
(агар (ё (/ = alpha pi) (/ = alpha 0.0))
(квадрат алфара (* -1 alfa)
Алфа (* -1 (/ (180 alpha) pi))
p4 (рӯйхати ((* (автомашина p4) (cos alfarad)) * * (қудрати p4) (бе alpharad)))
(+ (* p4 автомобилӣ) (бе alpharad)) * * (cadr p4) (cos alfarad)))
)
p1 (рӯйхати ((* (автомашина p1) (cos alfarad)) * * (қудрати p1) (бе alpharad)))
(+ (* p1 автомобилӣ) (бе alpharad)) * * (cadr p1) (cos alfarad)))
)
базаи (рӯйхати 0.0 0.0); пайдоиш
)
)
)

Jejejej ҳаргиз thank you

Дар ҳақиқат ин аст, ки ман низ шавқовар будам, оё ин корро бо Map иҷро карда метавонам?

Бо AutoCAD Civil 3D ҳеҷ гуна, зеро ин аст, ки барнома системаи идоракунии лоиҳаро идора мекунад. Аммо ҳа ҳа, бо AutoCAD Map 3D, шумо метавонед як чизро монанд кунед.

Он метавонад бо 3D аз AutoCAD 2009 анҷом дода шавад, ман фикр мекунам, ки он ҳатто имкон медиҳад, ки ба Google Earth пайваст шавад, бинобар ин, бояд тавре,