Community
Hello
Are you running ACAD MAP or ACAD CIVIL because these products have some ADE functions for Re-Projection !?
If you have a "NEW" license ACAD, since the version 2019 the package is called "ACAD including Specialized Toolsets" and ACAD MAP is included !
---- System requirements for ACAD 2004-2022 ----
The Health, Bye, Patrice
Patrice ( Supporting Troops ) - Autodesk Expert Elite
If you are happy with my answer please mark "Accept as Solution" and if very happy please give me a Kudos (Felicitations) - Thanks
If you are happy with my answer please mark "Accept as Solution" and if very happy please give me a Kudos (Felicitations) - Thanks
Patrice BRAUD
(princ)
(setq con_princeax "") ;;;rem: you append one string each lines
(setq;|a31431|;
kpi 3.14159265358979323846
con_pi kpi
ktwopi 6.2831853071795865
khalfpi (/ pi 2.0)
con_khalfpi (/ pi 2.0)
con_1pi4 (* pi 0.25)
con_3pi4 (* pi 0.75)
con_5pi4 (* pi 1.25)
con_7pi4 (* pi 1.75)
con_p4pi 12.56637061435917
con_p2pi 6.28318530717958647692
con_p2dpi 0.63661977236758134308
con_sqrt2 1.41421356237309504880
con_1sqrt2 0.70710678118654752440
con_1six 0.16666666666666666667
con_1three (* con_1six 2.0)
con_2sqrtpi 1.12837916709551257390)
(setq kHereAiciHeirIciAqui 0767004316 ;;rem: my-phone romanian
errno 5100
erprv nil)
(defun dfn_var_isstr0(a094 default / rr) ;_ASSERT_OK
(setq;|a1546|;
rr (if (= (type a094) (quote SYM)) (eval a094) a094)
rr (if (= (type rr) (quote STR)) rr default))
rr)
(defun if_int(a025 default / reti guru) ;_ASSERT_OK
(setq;|a2566|;
guru (quote INT)
reti (if (= (type a025) (quote SYM)) (eval a025) a025)
reti (if (/= (type reti) guru) default reti))
reti)
(defun asserte(a251 / rr) ;_ASSERT_OK
(setq;|a4362|;
errno 0
acad__assertNo (if (/= (type acad__assertNo) (quote INT)) 0 (+ acad__assertNo 1))) (if (/= a251 nil) (setq;|a4450|;
erprv erlsp
erlsp (strcat "@" a251 "<" (itoa acad__assertNo) ">"))) (if (= acad__assertNo kHereAiciHeirIciAqui) (alert (strcat "Hi! eBreakPoint kHereAiciHeirIciAqui=" (itoa kHereAiciHeirIciAqui))))
erlsp)
;;;Inf: Here is starting routine
(deFun C:Q2() ;_ASSERT_OK
(setq;|a5405|;
acad__assertNo (if_int acad__assertNo 0)) (if (and (< acad__assertNo (- 10)) (/= const_error nil)) (setq;|a5469|;
kHereAiciHeirIciAqui (- acad__assertNo))) (setq;|a5487|;
acad__assertNo 0)
(winmain_pp_utmcoosmall_run)
)
(prompt "\nCommand.com : Q2[enter]\n")
(defun winmain_pp_utmcoosmall_run( / );_ASSERT_OK
;------------------------;$
(setq utmx1 451602.19)
;------------------------
;------------------------;$
(setq utmy1 4519076.99)
;------------------------
;------------------------;$
(setq zoneutm1 "33n")
;------------------------
;------------------------Stdcall "pp_utm_watermocasin "
(setq _ax (pp_utm_watermocasin utmx1 utmy1 zoneutm1))
;------------------------
;------------------------;$
(setq arxgate _ax)
;------------------------
;------------------------;$
(setq utmx2 (getreal "\nenter utmx2: "))
;------------------------
;------------------------;$
(setq utmy2 (getreal "enter utmy2: "))
;------------------------
;------------------------;$
(setq zoneutm2 "32n")
;------------------------
;------------------------Stdcall "pp_utm_watermocasin "
(setq _ax (pp_utm_watermocasin utmx2 utmy2 zoneutm2))
;------------------------
;------------------------;$
(setq arxgate (strcat arxgate _ax "\n"))
;------------------------
;------------------------;$
(setq utmx3 (getreal "\nenter utmx3: "))
;------------------------
;------------------------;$
(setq utmy3 (getreal "enter utmy3: "))
;------------------------
;------------------------;$
(setq zoneutm3 "31n")
;------------------------
;------------------------Stdcall "pp_utm_watermocasin "
(setq _ax (pp_utm_watermocasin utmx3 utmy3 zoneutm3))
;------------------------
;------------------------;$
(setq arxgate (strcat arxgate _ax "\n"))
;------------------------
;------------------------;$
(setq utmx3 (getreal "\nenter utmx3: "))
;------------------------
;------------------------;$
(setq utmy3 (getreal "enter utmy3: "))
;------------------------
;------------------------;$
(setq zoneutm3 (getstring "enter utm zone(e.g. ~31a~): "))
;------------------------
;------------------------Stdcall "pp_utm_watermocasin "
(setq _ax (pp_utm_watermocasin utmx3 utmy3 zoneutm3))
;------------------------
;------------------------;$
(setq arxgate (strcat arxgate _ax "\n"))
;------------------------
;------------------------;$
(alert arxgate)
;------------------------
;;;rem:----------------------------------------------------------------------
(princ "\nThe End")
rr)
;;;rem:---User Labels----cad_apages-----
;;;rem:---(call_copy_source)----cad_apages-----
;; .--/|
;;/,`\
;;` | \____\\
;; _( ) \
;; \-\~~~_|\ \
;; \ ` \ `
;; ` `
;Lib:free
(defun pp_utm_watermocasin(utmX utmY utmZone / rr latitude longitude len isnorthhemisphere diflat diflon c_sa c_sb e2 e2cuadrada c x y s v a1 a2 j2 j4 j6 alfa beta gama bm epsi eps nab senoheps delt tao zone $db $ol jcxz)
(setq;|a20456|;
$db "\nError"
latitude 0
longitude 0
len (php_strlen utmZone)) (if (> len 1) (progn (setq;|a20632|;
isNorthHemisphere (substr utmZone len 1)
diflat (- 0.00066286966871111111111111111111111111)
diflon (- 0.0003868060578)
utmZone (substr utmZone 1 (- len 1))) (setq;|a20754|;
c_sa 6378137.000000) (setq;|a20770|;
c_sb 6356752.314245) (setq;|a20786|;
e2 (/ (math_pow (- (math_pow c_sa 2) (math_pow c_sb 2)) 0.5) c_sb)) (setq;|a20862|;
e2cuadrada (math_pow e2 2)) (setq;|a20894|;
c (/ (math_pow c_sa 2) c_sb)) (setq;|a20932|;
x (- utmX 500000)) (setq;|a20954|;
isNorthHemisphere (if (> isNorthHemisphere "N") T nil)) (setq;|a20990|;
y (if isNorthHemisphere utmY (- utmY 10000000))) (setq;|a21024|;
zone (atoi utmZone)) (setq;|a21048|;
s (- (* zone 6.0) 183.0)) (setq;|a21076|;
lat (/ y (* 6366197.724 0.9996))) (setq;|a21104|;
v (* (/ c (math_pow (+ 1 (* e2cuadrada (math_pow (cos lat) 2))) 0.5)) 0.9996)) (setq;|a21178|;
a (/ x v)) (setq;|a21200|;
a1 (sin (* 2 lat))) (setq;|a21224|;
a2 (* a1 (math_pow (cos lat) 2))) (setq;|a21264|;
j2 (+ lat (/ a1 2.0))) (setq;|a21292|;
j4 (/ (+ (* 3 j2) a2) 4.0)) (setq;|a21326|;
j6 (/ (+ (* 5 j4) (* a2 (math_pow (cos lat) 2))) 3.0)) (setq;|a21384|;
alfa (* (/ 3.0 4.0) e2cuadrada)) (setq;|a21412|;
beta (* (/ 5.0 3.0) (math_pow alfa 2))) (setq;|a21456|;
gama (* (/ 35.0 27.0) (math_pow alfa 3))) (setq;|a21500|;
bm (* 0.9996 c (- (+ (- lat (* alfa j2)) (* beta j4)) (* gama j6)))) (setq;|a21564|;
b (/ (- y bm) v)) (setq;|a21592|;
epsi (* (/ (* e2cuadrada (math_pow a 2)) 2.0) (math_pow (cos lat) 2))) (setq;|a21660|;
eps (* a (- 1 (/ epsi 3.0)))) (setq;|a21694|;
nab (+ (* b (- 1 epsi)) lat)) (setq;|a21728|;
senoheps (/ (- (math_exp eps) (math_exp (- eps))) 2.0)) (setq;|a21774|;
delt (atan (/ senoheps (cos nab)))) (setq;|a21800|;
tao (atan (/ (* (cos delt) (sin nab)) (cos nab)))) (setq;|a21836|;
longitude (+ (* (/ delt Math_PI) 180) s)) (setq;|a21870|;
latitude (* (/ (+ lat (* (- (+ 1 (* e2cuadrada (math_pow (cos lat) 2))) (* (/ 3.0 2.0) e2cuadrada (sin lat) (cos lat) (- tao lat))) (- tao lat))) Math_PI) 180.0)) (setq;|a21992|;
rr (strcat "\nLatitud: " (rtos latitude 2 12) "\tLongitud: " (rtos longitude 2 12))) (setq;|a22088|;
$db rr) (str_princ $db))) (princ "\nAll done okai")
$db)
;Lib:free
(defun php_strlen(a111 / rr es)
(if (= a111 nil) (setq;|a23620|;
rr (- 1)) (progn (setq;|a23646|;
es (if (= (type a111) (quote SYM)) (eval a111) a111)
rr (if (= (type es) (quote STR)) (strlen es) (- 2)))))
rr)
;Lib:free
(defun math_exp(a295 / rr) (asserte "A295")
(setq;|a24505|;
rr (if (numberp a295) a295 nil)
rr (if (= rr nil) (rxtrace "a295errA<>RTREAL") (exp rr)))
rr)
;Lib:free
(defun math_piA ( / rr)
(setq;|a25057|;
rr (* 4.0 (atan 1.0))
math_pi rr)
rr)
(setq math_pi (math_piA))
(setq math.pi math_pi)
;Lib:free
(defun math_pow(a294 la37 / rr qq ww) (asserte "A294")
(setq;|a26841|;
rr nil
qq (if (numberp a294) a294 nil)
ww (if (numberp la37) la37 nil)) (if (= qq nil) (setq;|a26947|;
rr (rxtrace "a294errA<>RTREAL")) (if (= ww nil) (setq;|a26989|;
rr (rxtrace "a294errL<>RTREAL")) (if (and qq ww) (setq;|a27027|;
rr (expt qq ww)))))
rr)
;Lib:free
(defun str_princ2(a101 / rr ad gq) (asserte "A101")
(if (= nil (dfn_var_isstr con_princeax)) (setq;|a28904|;
con_princeax "")) (if (dfn_var_isstr a101) (setq;|a28944|;
qq (list (princ a101) (princ con_princeax))) (progn (if (= (car a101) nil) (setq;|a29026|;
gq (textscr)
a101 (cdr a101))) (foreach ad a101 (princ ad) (princ con_princeax))))
nil)
(defun str_princ(a101 / ) (str_princ2 a101))
;Lib:free
(defun rxtrace(ai_error / $rr)
(alert ai_error)
1)
;Lib:free
;Lib:free
;;;Out:("...".is STR maxim 512characters)
;;;rem: ;(nil.else)
;;;Lib:free
(Defun dfn_var_isstr (a094 / rr) ;_ASSERT_OK
(setq;|a32316|;
rr (if (= (type a094) (quote STR)) a094 nil))
rr)
;Lib:free
;;;{$R -cad_amain_eof T229@:032512run="devcinfo.exe
(prompt "\ncommand.com: GEO2[enter]\n")
;;;rem:End of file
;;;</-cad_amain_eof>
When you have such long source code, it is better to attach it as a file.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
If your drawing is Geo-Located, this is all you need to GET a Lat/Long (well, this returns Long, then, Lat.. because of X / Y reasons):
;; Entmake's an arbitrary GeoMarker
;; returns - ename, of marker
(defun GeoMarker ( / )
(entmakex '((0 . "POSITIONMARKER") (100 . "AcDbEntity") (100 . "AcDbGeoPositionMarker") (90 . 0) (10 0.0 0.0 0.0) (40 . 1.0)
(1 . "") (40 . 0.5) (290 . 0) (280 . 0) (290 . 1) (101 . "Embedded Object") (100 . "AcDbEntity") (100 . "AcDbMText")
(10 0.1 0.1 0.0) (40 . 1.0) (1 . "") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 9761.9) (43 . 6666.67)))
);defun
;; Gets Lat & Long of a GeoMarker
;; e - ename, of GeoPositionMarker
;; returns - point, as (Long Lat 0.0) of geo marker
(defun GeoMarkerLL (e / )
(setq e (vlax-ename->vla-object e))
(mapcar
'atof
(list (vla-get-Longitude e) (vla-get-Latitude e))
);mapcar
);defun
;; Turns a point into (long lat) point ..ONLY useable if dwg is Geo-Located.
;; pt - point,
;; returns - point, as (Long Lat) ...since longitudes represent "x" values & Latitudes represent "y" values
(defun PT->LL (pt / e prec return)
(if (and pt
(setq e (GeoMarker)))
(progn
(setpropertyvalue e "Position/X" (car pt))
(setpropertyvalue e "Position/Y" (cadr pt))
(setq prec (getvar 'LUPREC))
(setvar 'LUPREC 8)
(setq return (GeoMarkerLL e))
(setvar 'LUPREC prec)
(entdel e)
return
);progn
);if
);defun
(defun c:TEST ( / pt ll)
(if (and (not (eq "" (getvar 'CGEOCS)))
(setq pt (getpoint))
(setq ll (PT->LL pt)))
(alert
(strcat
"Your Long/Lat point is: "
"(" (rtos (car ll) 2 5) " " (rtos (cadr ll) 2 5) ")"
);strccat
);alert
;else
(alert "Is drawing Geo-Located? Was a point selected? Try again.")
);if
(princ)
);defun
Best,
~DD
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
