Te hanga i te Mahinga Whakahaere

KORERO MAI HE HEI TIKI NGA TIKI KAORE E MAHI Kei te hiahia au ki te raru, Kua TUKUAKIA TE KAIWHIRI KI TE WHAKANUI I NGA KAUPAPA OK? KA TAUTOHIA E OE KI AKU… NGA MAHI KATOA

Hi, ka taea e koe te whakamarama pehea e mahia ana? I tamata ahau ki te tuku i taua mea me te tono engari kaore au e whiwhi, ka taea e tetahi te whakaatu mai ki ahau? Ka mihi ahau, ka tino hiahia au mo taku mahi.
Ngā mihi me ngā mihi

I roto i te AutoCAD ka whakamahia te maatua ki te mahinga ako, ka whakamahia e ahau i runga i te 10 tau ki mua

Tenei ko:

(defun strpto (aa / whanui)
(taahi roa (strlen aa))
(cond ((= x minX))
(setq l (whakauruhia te l (rarangi x)))
)
(rārangi huinga (rārangi cdr))
)
(rarangi (min (motokā l) (cadr l)) (max (motokā l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
; Ko te whakawhitinga i hoatu i te ahorangi X
;;
(Defun CalculaY (abcx)
(ki te (= 0.0 b); kahore he hononga
Tuhinga o mua
(b)
)
)

(Defun IntersecY (/ rarangi)
(setq l ()
rārangi (rārangi (Tātaihia a1 b1 c1 startX) (Tātaihia a2 b2 c2 startX)
(Tātaihia a3 b3 c3 startX) (Tātaihia a4 b4 c4 startX)
)
)
(i te (/ = rārangi nil)
(tautuhinga me te (rārangi))
(ki te (me (/ = y nil) (= y minY))
(tautuhi (whakauruhia te l (rarangi y)))
)
(rārangi huinga (rārangi cdr))
)
(rarangi (min (motokā l) (cadr l)) (max (motokā l) (cadr l)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
; Te kaupapa matua
;;
(Defun c: cuadri (/ p1 p2 p3 p4 paux incx incy lhn maldato turanga
alpha startX startY MINX MINY maxX maxY)
(setvar “CMRIGHT” 0)
(whakahaua “APA” “M” “matiti” “C” “8” “””))
(tautuhia p1 (tohu tohu "\nTauruhia he tohu rohe")
p2 (getpoint p1 “\nE tomo te tahi atu pito”)
)
(whakahau “LINE” p1 p2 “”)
(mena (> (cadr p1) (cadr p2)); i nga wa katoa p1 ki raro
(setq paux p1 p1 p2 p2 paux)
)
(tautuhi p3 (tohu tohu p1 “\nTauru ira mo te Rohe Whanui”)
l (p1 p3 tawhiti); te tautuhi i nga tohu p3 me te p4, he pararite
alpha (p1 p2 koki); ki te p1 me te p2 i tawhiti tawhiti
alpha (+ (/ pi 2) alpha)
)
(mena (> (motokā p3) (motokā p1))
(tautuhi taara (+ pi alpha))
)
(ki te (= (p1 motokā) (p3 motokā))
(ki te ((maxY startY) (* 2 teitei))
(whakahaua “TEXT” (rārangi (+ x1 dl) (+ startY dh)) teitei 0 coordY)
(whakahaua “TEXT” “R” (rārangi (- x2 dl) (+ startY dh)) teitei 0 coordY)
)
)
(setq startY (+ startY incy))
)
(i te ((- startX minX) (* 2 teitei))
(whakahaua “TEXT” (rārangi (- startX dh) (+ y1 dl)) teitei 100 coordX)
(whakahaua “TEXT” “R” (rārangi (- startX dh) (- y2 dl)) teitei 100 coordX)
)
)
(setq startX (+ startX incx))
)
(mena (> (tawhiti p1 p3) (tawhiti p1 p2))
(angitu tautuhinga angP1P3)
(angitu tautuhinga angP1P2)
)
(ki te (alpha = alpha pi) (/ = alpha 0.0))
(setq alfarad (* -1 alpha)
alpha (* -1 (/ (* 180 alpha) pi))
p4 (rārangi (- (* (p4 motokā) (cos alfarad)) (* (p4 cadr) (i waho i te whakaoti))
(+ (* (p4 motokā) (kaore he tipu)) (* (p4 cadr) (cos alfarad)))
)
p1 (rārangi (- (* (p1 motokā) (cos alfarad)) (* (p1 cadr) (i waho i te whakaoti))
(+ (* (p1 motokā) (kaore he tipu)) (* (p1 cadr) (cos alfarad)))
)
turanga (rarangi 0.0 0.0); te takenga
)
)
)

Ko te whakawhetai a Jejejej

Ko te pono ko ahau ano hoki i mataku, ka taea te mahi i tenei mea ki te Mahere?

Ki te AutoCAD Civil 3D no, no te mea ko te take tenei e whakahaere ai te papatono i te pūnaha whakamatautau. Engari ae ki te AutoCAD Mahere 3D ka taea e koe te mahi i tetahi mea pera.

Ka taea te mahi tahi me te 3D XAXX o AutoCAD 2009, ko taku whakaaro na te mea ka taea ai te hono atu ki a Google Earth, na te mea e tautoko ana i nga tohu.