കോർഡിനേറ്റ് ഗ്രിഡ് സൃഷ്ടിക്കുന്നു

സ്പീക്ക് ബ്ലാങ്ക് എനിക്ക് ലിപ് വേണമെന്ന് മനസിലാകാത്ത ഗുരുതരമായ കാലുകളുണ്ട്, പ്രോഗ്രാം ഗ്രിഡുകൾ ജനറേറ്റ് ചെയ്യുന്നതിന് ഇതിനകം തന്നെ ഡ OW ൺലോഡ് ചെയ്തിട്ടുണ്ടോ? നിങ്ങൾ എനിക്ക് ഒരു സഹായം ചെയ്യും… നന്ദി

ഹായ്, അത് എങ്ങനെ ചെയ്തു എന്ന് വിശദീകരിക്കാമോ? ആ ആപ്ളിക്കേഷൻ ഉപയോഗിച്ച് ഞാൻ അപ്ലോഡ് ചെയ്യാൻ ശ്രമിച്ചുവെങ്കിലും അത് എനിക്ക് ലഭിക്കുന്നില്ല, ആരെങ്കിലും എന്നെ വിശദീകരിക്കാൻ കഴിയുമോ? ഞാൻ അത് വിലമതിക്കും, എന്റെ ജോലിക്ക് എനിക്ക് ശരിക്കും ആവശ്യമുണ്ട്.
നന്ദി, ആശംസകൾ

AutoCAD ൽ ഗ്രിഡ് ഒരു ലിസ്പ് പതിവ് കൊണ്ടാണ് നടത്തുന്നത്, ഞാൻ ഇത് 10- ലധികം വർഷങ്ങൾ ഉപയോഗിക്കുന്നു

ഇവിടെ ഇതാ:

(defun strpto (aa / broad)
(long setq (strlen aa))
(cond ((= x മിനിക്സ്))
(setq l (അനുബന്ധം l (ലിസ്റ്റ് x)))
)
(setq പട്ടിക (സിഡിആർ ലിസ്റ്റ്))
)
(പട്ടിക (മിനി (കാർ എൽ) (കാഡർ എൽ)) (പരമാവധി (കാർ എൽ) (കാഡർ എൽ))))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; കോർഡിനഡ X നൽകിയത്
;;
(Defun CalculaY (abcx)
(= (x = b) എങ്കിൽ, വിഭജനമില്ല
ഇല്ല
(ബി)
)
)

(അപൂർണ്ണ വിരാമം (/ l പട്ടിക)
(setq l ()
പട്ടിക (പട്ടിക (ആക്ടിന്റെ XXXXXXXXXXXXX XXXX) (കണക്കുകൂട്ടിയത് A1 B1 c1 startX)
(കണക്കുകൂട്ടിയത് A3 b3 c3 startX) (കണക്കുകൂട്ടിയത് A4XXXXXXXXXXX XX)
)
)
((/ = nil പട്ടികയിൽ)
(setq ഉം (ലിസ്റ്റ്))
(കൂടാതെ (കൂടാതെ (/ = nil) (= y മിനി))
(setq l (അനുബന്ധം l (ലിസ്റ്റ് y)))
)
(setq പട്ടിക (സിഡിആർ ലിസ്റ്റ്))
)
(പട്ടിക (മിനി (കാർ എൽ) (കാഡർ എൽ)) (പരമാവധി (കാർ എൽ) (കാഡർ എൽ))))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; പ്രധാന പ്രോഗ്രാം
;;
(Defun c: cuadri (/ p1 p2 p3 p4 paux incx incy lhn maldato അടിസ്ഥാനം
ആൽഫാ സ്റ്റാർട്ട്ക്സ് ആരംഭിച്ചു min min x min max maxx maxY)
(സെറ്റ്വർ “CMRIGHT” 0)
(“LAYER” “M” “ഗ്രിഡ്” “C” “8” “”” കമാൻഡ്))
(setq p1 (getpoint “\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 “\nRegion Width നു വേണ്ടി പോയിന്റ് നൽകുക”)
l (ദൂരം p1 p3); കണക്കുകൾ p3, p4, സമാന്തരമായി കണക്കുകൂട്ടുന്നു
ആൽഫ (ആംഗിൾ p1 p2); അകലെ p1, p2 എന്നിവയിലേക്ക്
ആൽഫ (+ (/ pi 2) ആൽഫ)
)
(if (> (കാർ പി 3) (കാർ പി 1))
(setq ആൽഫ (+ pi ആൽഫ))
)
((= (car p1) (car p3))
(((- maxy startY) (* ഉയർന്നത് *))
(“TEXT” കമാൻഡ് (ലിസ്റ്റ് (+ x1 dl) (+ startY dh)) ഉയർന്ന 0 coordY)
(“TEXT” “R” കമാൻഡ് (ലിസ്റ്റ് (- x2 dl) (+ startY dh)) ഉയർന്ന 0 coordY)
)
)
(setq startY (+ beginningY incy))
)
((- - startX minX) (* ഉയർന്നത് *)
(“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 ആൽഫ AngP1P3)
(setq ആൽഫ AngP1P2)
)
((അല്ലെങ്കിൽ = ആൽഫ പി) (/ = ആൽഫ xNUMX))
(setq alfarad (* -1 ആൽഫ)
ആൽഫ (* -1 (/ (* 180 ആൽഫ) പി))
പ്ക്സനുമ്ക്സ (പട്ടിക (- (* (കാർ പ്ക്സനുമ്ക്സ) (അല്ഫരദ് ജിത)) (* (ചദ്ര് പ്ക്സനുമ്ക്സ) (യാതൊരു അല്ഫരദ്)))
(+ (* (കാർ പിഎക്സ്എൻഎക്സ്) (അൾഫറാഡില്ലാതെ)) (* (കാഡിൽ p4) (കോസ് ആൽഫ്രാഡ്)))
)
p1 (പട്ടിക (* (car p1) (cos alfarad)) (* (cadr p1) (alfarad ഇല്ലാതെ)))
(+ (* (കാർ പിഎക്സ്എൻഎക്സ്) (അൾഫറാഡില്ലാതെ)) (* (കാഡിൽ p1) (കോസ് ആൽഫ്രാഡ്)))
)
അടിസ്ഥാനം (പട്ടിക 0.0 0.0); ഉത്ഭവം
)
)
)

Jejejej നന്ദി എന്തായാലും

സത്യത്തിൽ ഞാൻ ആകാംഷയോടെ പെരുമാറുകയാണ്, മാപ്പുമൊക്കെ ഇതേ കാര്യം തന്നെ ചെയ്യാൻ കഴിയുമോ?

AutoCAD സിവിൽ 3D ഇല്ല, ഇതിന് പ്രോഗ്രാം പ്രൊജക്ഷൻ സംവിധാനം കൈകാര്യം ചെയ്യുന്നതിനാൽ ഇത് ശ്രദ്ധിക്കുന്നു. എന്നാൽ ഓട്ടോകോഡ് മാപ്പ് 3D ഉപയോഗിച്ച് നിങ്ങൾക്ക് സമാനമായ എന്തെങ്കിലും ചെയ്യാൻ കഴിയും.

ഇത് ഓട്ടോകാഡിൽ നിന്ന് XVXXD ൽ സിവിൽ 3D ഉപയോഗിച്ച് ചെയ്യാൻ സാധിക്കും, കാരണം ഇത് ഗൂഗിൾ എർത്തിൽ കണക്റ്റുചെയ്യാൻ പോലും അനുവദിക്കുന്നു, അതിനാൽ ഇത് പ്രൊജക്ഷനുകളെ പിന്തുണയ്ക്കണം.