კოორდინატთა ქსელის შექმნა

ილაპარაკე ცარიელი ფეხი, რომლებიც ვერ ხვდებიან, რომ მე მინდა ლისპობა, პროგრამა უკვე გადმოწერილია GRID- ის შესაქმნელად? თქვენ მომწონხართ… გმადლობთ

Hi, შეგიძლიათ ახსნა, თუ როგორ კეთდება? მე შევეცადე, რომ ატვირთოთ ეს, მაგრამ მე არ მივიღებ, ვინმემ შეიძლება ახსნას ეს? მე ვაფასებ მას, მე ნამდვილად სჭირდება ჩემი სამუშაო.
მადლობა და სურვილებით

AutoCAD- ში ქსელის გაკეთება ხდება lisp რუტინული, გამოვიყენო ეს დაახლოებით 10 წლის წინ

აქ არის:

(დაიცავით strpto (aa / broad)
(ხანგრძლივი setq (strlen aa))
(cond ((= x minX))
(setq l (დამატება l (სია x)))
)
(setq სია (CDR სია))
)
(სია (მინ. (ლ) (კადრი ლ)) (მაქს (მანქანის ლ) (კადრი ლ)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
; გადაკვეთა მოცემულია კორდოდენდა X
;;
(წაშლა კალკულა (abcx)
(თუ (= X ბ), არ არის გადაკვეთა
nil
(ბ)
)
)

(დაიცავით IntersecY (/ l სია)
(setq ლ ()
სია (სია (გამოთვალეთ XXXXXXXXXXXXXXX) (გამოთვალეთ XXXXXXXXXXXXX)
(CalculaY a3 b3 c3 startX) (CalculaY a4 b4 c4 startX)
)
)
(ხოლო (/ = nil სია)
(setq და (სია))
(თუ (და (/ = y nil) (= y minY))
(setq l (დამატება l (სია y)))
)
(setq სია (CDR სია))
)
(სია (მინ. (ლ) (კადრი ლ)) (მაქს (მანქანის ლ) (კადრი ლ)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
; ძირითადი პროგრამა
;;
(Defun c: Quadri (/ p1 p2 p3 p4 paux incx incy maldato საფუძველზე lhn
ალფა startX startY minX minY maxX maxY)
(setvar "CMRIGHT" 0)
(ბრძანება "LAYER" "M" "ბადე" "C" "8" """))
(setq p1 (მიღებული წერტილი „\nშეიყვანეთ რეგიონის წვერო“)
p2 (მიიღეთ წერტილი p1 "\nშეიყვანეთ სხვა წვერო")
)
(ბრძანება "LINE" p1 p2 "")
(თუ (> (cadr p1) (cadr p2)); ყოველთვის p1 ქვემოთ
(setq paux pxNUMxxxxxxxxxxxxxxxxxxx)
)
(setq p3 (მიღების წერტილი p1 „\nშეიყვანეთ წერტილი რეგიონის სიგანეზე“)
ლ (მანძილი p1 p3); გაანგარიშების ქულა p3 და P4, პარალელურად
ალფა (კუთხე p1 p2); დან P1 და P2 მანძილი ლ
ალფა (+ (/ pi 2) ალფა)
)
(თუ (> (მანქანა p3) (მანქანა p1))
(setq ალფა (+ pi ალფა))
)
(თუ (= (ავტომანქანა 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) (* მაღალი სიმაღლე *)
(ბრძანება „TEXT“ (სია (- startX dh) (+ y1 dl)) მაღალი 100 coordX)
(ბრძანება „TEXT“ „R“ (სია (- startX dh) (- y2 dl)) მაღალი 100 coordX)
)
)
(setq startX (+ startX incx))
)
(თუ (> (მანძილი p1 p3) (მანძილი p1 p2))
(setq alpha angP1P3)
(setq alpha angP1P2)
)
(თუ (ან = ალფა pi) (/ = ალფა 0.0))
(setq alfarad (* -1 ალფა)
ალფა (* -1 (/ (* 180 ალფა) pi))
P4 (სია (* (car pxNUMX) (cos alfarad)) (* (cadr p4) (ალფარადის გარეშე)))
(+ (* (ავტომანქანა XXX) (ალფარადის გარეშე)) (* (cadr p4) (cos alfarad)))
)
P1 (სია (* (car pxNUMX) (cos alfarad)) (* (cadr p1) (ალფარადის გარეშე)))
(+ (* (ავტომანქანა XXX) (ალფარადის გარეშე)) (* (cadr p1) (cos alfarad)))
)
ბაზა (სიაში 0.0 0.0); წარმოშობა
)
)
)

Jejejej მადლობა მაინც

სიმართლე ისაა, რომ მე ასევე დამაინტერესა, იგივე შეიძლება გაკეთდეს რუკაზე?

AutoCAD სამოქალაქო 3D არ არის, რადგან სწორედ ამიტომ პროგრამა ახორციელებს პროექტორის სისტემას. მაგრამ დიახ ერთად AutoCAD რუკა 3D შეგიძლიათ გააკეთოთ რაღაც მსგავსი.

ეს შეიძლება გაკეთდეს AutoCAD- ის სამოქალაქო 3D- ით, ვფიქრობ, რომ Google Earth- სთან დაკავშირებაც კი იძლევა, ამიტომ პროგნოზების მხარდაჭერაა.