እንዴት ፍርግርግ ለማስተባበር ወደ ለመፍጠር

ይናገሩ ባዶነት ሊስፕን እንደፈለግኩ የማይረዱኝ በርካታ እግሮች አሉ ፕሮግራሙ ቀድሞውኑ የወራጅ ዝርያዎችን ለማውረድ ወርዷል? ሞገስን ታደርግልኛለህ… አመሰግናለሁ

ሰላም, እንዴት እንደሚደረግ መግለጽ ይችላሉን? በመተግበሪያ ጫኝ ውስጥ ለመጫን ሞክሬ ነገር ግን አላገኘሁትም, ሊያብራራልኝ የሚችል ሰው? እኔ ደስ ይለኛል, ለሥራዬ እፈልጋለው.
እናመሰግናለን

በንፅፅር መርሃ ግብር ውስጥ ያደረክበት ፍርግርግ በራስ ሰር ውስጥ, ከዛሬ NUMNUMX አመት በፊት ተጠቀምበት

እዚህ ነው:

(ገዳዩን ማቋረጥ (aa / long)
(setq long (strlen aa))
(ኮንዲ ((= x minX))
(የተቀናበረ ኢ (አባሪ l (ዝርዝር x))))
)
(setq ዝርዝር (cdr ዝርዝር))
)
(ዝርዝር (ደቂቃ (መኪና) ​​(ካዱላይ)) (ከፍተኛ (መኪና) ​​(ካዱላይ))))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; መስቀለኛ መንገድ ለ X ማስተካከያ
;;
(Defun CalculaY (abcx)
(ቢቀንስ (= 0.0 b) ከሆነ; መገናኛ የለውም
ናይል
(/ (- c (* ax)) b)
)
)

(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 (and (/ = እና nil) (= እና ደቂቃ))
(setq l (አባሪ l (ዝርዝር y)))
)
(setq ዝርዝር (cdr ዝርዝር))
)
(ዝርዝር (ደቂቃ (መኪና) ​​(ካዱላይ)) (ከፍተኛ (መኪና) ​​(ካዱላይ))))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; ዋናው ፕሮግራም
;;
(Defun c: quadri (/ p1 p2 p3 p4 paux incx incy lhn maldato base
alpha startX beginY minX minY maxX maxY)
(setvar “CMRIGHT” 0)
(ትእዛዝ “LAYER” “M” “ፍርግርግ” “ሲ” “8” “””)))
(setq p1 (የግቤት ነጥብ "\nየክልል ጫፍ አስገባ")
p2 (getpoint p1 “\nሌላውን ጫፍ አስገባ”)
)
(ትእዛዝ "LINE" p1 p2 "")
(ከሆነ (> (cadr p1) (cadr p2));
(setq paux p1 p1 p2 p2 paux)
)
(setq p3 (getpoint p1 “\nለክልል ስፋት ነጥብ አስገባ”)
l (ርቀት p1 p3); ነጥቦች P3 እና p4, ትይዩ
አልፋ (አንግል p1 p2); ወደ ርቀት P1 እና p2 l
አልፋ (+ (/ pi 2) አልፋ)
)
(ከሆነ (> (መኪና p3) (መኪና p1))
(setq alpha (+ pi አልፋ))
)
(if (= (መኪና P1) (መኪና P3))
(ቢቀንስ ((- - maxY startY) (* 2 ከፍተኛ))
(ትእዛዝ "TEXT" (ዝርዝር (+ x1 dl) (+ startY dh)) ከፍተኛ 0 coordY)
(ትእዛዝ "TEXT" "R" (ዝርዝር (- x2 dl) (+ startY dh)) ከፍተኛ 0 coordY)
)
)
(setq startY (+ startY incy))
)
(while ((- startX minX) (* 2 ከፍተኛ))
(ትእዛዝ "TEXT" (ዝርዝር (- startX dh) (+ y1 dl)) ከፍተኛ 100 coordX)
(ትእዛዝ “TEXT” “R” (ዝርዝር (- startX dh) (- y2 dl)) ከፍተኛ 100 coordX)
)
)
(setq startX (+ startX incx))
)
(ከሆነ (> (ርቀት p1 p3) (ርቀት p1 p2))
(setq alfa angP1P3)
(setq alfa angP1P2)
)
(if (or (/ = alpha pi) (/ = alpha 0.0))
(setq alfarad (* -1 alfa)
አልፋ (* -1 (/ (* 180 አልፋ) ፒ))
p4 (ዝርዝር (- (* (መኪና P4) (cos alfarad)) (* (ካሪ ፒክስNUMX) (ያለ አልፋራድ)))
(+ (* (መኪና ያለ P4) (ያለ አልፋራድ)) (* (ካሪ ፒክስNUMX) (cos alfarad)))
)
p1 (ዝርዝር (- (* (መኪና P1) (cos alfarad)) (* (ካሪ ፒክስNUMX) (ያለ አልፋራድ)))
(+ (* (መኪና ያለ P1) (ያለ አልፋራድ)) (* (ካሪ ፒክስNUMX) (cos alfarad)))
)
base (ዝርዝር 0.0 0.0); መነሻ
)
)
)

ጂጄጅ አመሰግናለሁ

እንደ እውነቱ ከሆነ እኔም የማውቀው ነገር አለ, ይህ በካርታው ውስጥ ይከናወናል?

በ AutoCAD Civil 3D አይ, ምክንያቱም ይሄ ፕሮግራሙ የፕሮጅክቱን ስርዓት የሚመራው ለዚህ ነው. ነገር ግን አዎ በ AutoCAD ካርታ 3D ውስጥ አንድ አይነት ነገር ማድረግ ይችላሉ.

ከ AutoCAD 3 በ Civil CNUMXD ውስጥ መከናወን ይችላል, ምክንያቱ ግን ከ Google Earth ጋር ለመገናኘት ስለሚፈቀድላቸው ነው, ስለዚህ ትንበያዎችን መደገፍ ይጠበቅበታል.