Scripturi in LISP AutoLISP

[kod]

                  Asa este, ai dreptate advex, la primul post neintentionat,am uitat sa specific de celelalte valori care intra la un "word file" pe care le-am explicat in postul precedent. si da practic liniile 2 si 3 reprezinta, rotatia pe axele x, respectiv y (sau cum ii spui tu, afinitatea).

1.50000000000000 (X scale, pixel size in meters) 
0.00000000000000 (affinity - Y-scale in X dir.) 
0.00000000000000 (affinity - X-scale in Y dir.) 
-1.50000000000000 (Y scale) 
1934001.50000000000000 (X coordinate of the upper left pixel) 
1187698.50000000000000 (Y coordinate of the upper left pixel) 

si uite inca un Lisp, foarte bun de georeferentiere automata cand ai "word file-ul" merge pt. orice tip raster cu word file-ul corespunzator: *.Tiff, *.Jpeg, *.Bmp, *.Png etc.

http://www.xanadu.cz/dl/GeoRefImg.zip" target="_blank">http://www.xanadu.cz/dl/GeoRefImg.zip

cum procedati:

1. se copiaza GeoRefImg.VLX in subdirectorul "Support" din directorul Autocad (nu cred ca merge cu progecad, sau zwcad - nu am incercat)
2. In autocad se incarca aplicatia cu comanda: "APPLOAD"
3. se introduce un raster oriunde pe ecran (de ex aaa.tiff si aaa.tfw sa fie in acelasi director)
4. cu comanda "GeoRefImg" (fara ghilimele) se selecteaza conturul imaginii inserate si automat o va pozitiona pe coordonatele bune ! http://www.3xforum.ro/img/smilies/hi.png">

Numai bine !

Modificat de kod (17-03-2010 07:39:40)


               

[John Doe]

                  Cu asta cred ca s-au rezolvat multe probleme, dar a mai ramas una: ce se poate face cu imaginile SID ? AutoCAD-ul obisnuit (adica fara Raster) nu le poate insera fiindca nu recunoaste formatul, si se pare ca nu e chiar simplu de schimbat asta.


               

[advex]

                  

John Doe a scris: Cu asta cred ca s-au rezolvat multe probleme, dar a mai ramas una: ce se poate face cu imaginile SID ? AutoCAD-ul obisnuit (adica fara Raster) nu le poate insera fiindca nu recunoaste formatul, si se pare ca nu e chiar simplu de schimbat asta.

Pentru imagini MrSID in AutoCAD ai incercat sa intalezi Raster Design Object Enabler?
detalii: http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=11783939&linkID=9240617" target="_blank">http://usa.autodesk.com/adsk/servlet/ps ... ID=9240617

_______________________________________
http://info-topograf.blogspot.ro/" target="_blank">http://info-topograf.blogspot.ro/


               

[kod]

                  exista sigur si pt. asta solutie si anume:

descarci programul acesta (practic este un plug -in care se instaleaza pt. Internet Explorer - nu va recomand IE, dar si pt. FireFox- recomand cu caldura)
http://www.lizardtech.com/download/download.php?dl=/download/files/win/expressview/maninstall/exview_setup.exe" target="_blank">http://www.lizardtech.com/download/down ... _setup.exe
Il instalati si....

-desi am mai zis asta pe undeva http://www.3xforum.ro/img/smilies/hi.png">

kod a scris: revin cu ultima versiune "up to date" a celui mai bun, sigur si rapid browser din lume, Mozilla firefox v. 3.5.2 editie portabila dedicata in mod exclusiv topografilor de pe acest forum si nu numai. Are in componenta lui cateva extensii si plugin-uri f. utile navigarii in siguranta pe net, plus daca aveti ortofotoplanuri cu extensia *.SID le puteti deschide direct din browser, sau mai usor drag`n`drop fiser.SID in fereastra de mozilla firefox + alte surprize placute ! il puteti downloada de aici: http://www.megaupload.com/?d=33UB6VZ6" target="_blank">http://www.megaupload.com/?d=33UB6VZ6 se dezarhiveaza cu 7-zip http://topograf.3xforum.ro/redir.php?http%3A%2F%2Fdownloads.sourceforge.net%2Fportableapps%2F7-ZipPortable_4.65_Rev_2.paf.exe%3Fdownload_redirect_do_not_right_click" target="_blank">http://topograf.3xforum.ro/redir.php?ht ... ight_click .......

parca pe aici daca nu ma insel http://topograf.3xforum.ro/post/887/3/Alternative_GRATIS_-_ORICE_PROGRAM_/" target="_blank">http://topograf.3xforum.ro/post/887/3/A ... _PROGRAM_/


1. dupa care iei frumos fisierul *.SID si-l tragi peste fereastra browserului => *.SID-ul gata georeferentiat pe coordonate
2. iti alegi o zona interesata unde ai ridicarea ce vrei sa o suprapui
3. cu clik dreapta ai multe obtiuni ("show coordinate info, save aS.. etc.)
4. dai save as.. si il salvezi ca si Tiff + Word File
5. il incarci in autocad ca raster (fisierul nou salvat de ex. ridicare.tiff + ridicare.tfw)
6. il georeferentiezi automat cu "GeoRefImg.VLX"

7. ...dai o bere cand ne intalnim http://www.3xforum.ro/img/smilies/limba.png">

8. O mica precizare, la firefox-ul ala portabil din link-ul de mai sus, nu mai trebuie instalat plug-in-ul esta gata instalat http://www.3xforum.ro/img/smilies/hi.png">

O zi faina !


               

[John Doe]

                  Il aveam si eu, dar mi-am reinstalat AutoCAD-ul si am uitat de el. Acum merge, si "GeoRefImg" chiar functioneaza. Mersi.


               

[kod]

                  Am uitat sa atasez si un screen sut http://www.3xforum.ro/img/smilies/limba.png">

581/465px  70KB

Modificat de kod (17-03-2010 09:22:56)


               

[advex]

                  Daca tot discutam despre georeferentiere, ANCPI a lansat de curand un ordin privind aprobarea Specificatiilor tehnice pentru scanarea si georeferentierea planurilor vechi de carte funciara.

http://www.ancpi.ro/images/legislatie/Ordin_78.pdf" target="_blank">http://www.ancpi.ro/images/legislatie/Ordin_78.pdf

Modificat de advex (17-03-2010 15:13:32)

_______________________________________
http://info-topograf.blogspot.ro/" target="_blank">http://info-topograf.blogspot.ro/


               

[John Doe]

                  Am ajuns si la proba contrarie de mai sus: am câteva zeci de fisiere CP (adica *.cpxml) facute automat si receptionate de OCPI fara nici o problema. Deci se pot face si asa.


               

[diagodose2009]

                  Message empty

552/584px  46KB

Modificat de diagodose2009 (29-08-2010 15:11:24)

_______________________________________
http://we.tl/D8HOKFyTJ7" target="_blank">http://we.tl/D8HOKFyTJ7


               

[oak]

                  Un lisp pentru generarea unui inventar de coordonate polare?


               

[John Doe]

                  Am numai pentru coordonate plane.
Pentru cele polare are TopoLT ceva de genul, la "Coordonate -> Calculeaza radiate".


               

[DAN.ARBA]

                  Anul asta n-a mai intrat nimeni aici?!
Programez si eu sub autolisp&DCL .Poate va ajuta unele dintre micile mele realizari. http://www.3xforum.ro/img/smilies/razz.png">


               

[kod]

                  

DAN.ARBA a scris: Anul asta n-a mai intrat nimeni aici?! Programez si eu sub autolisp&DCL .Poate va ajuta unele dintre micile mele realizari.

Asteptam cu mare interes, bun venit in clubul omenilor...hopa, adica topografilor http://www.3xforum.ro/img/smilies/hi.png">


               

[John Doe]

                  Daca te uiti la datele postarilor, vezi ca s-a intrat si anul asta pe-aici. Pe urma, chiar numai sectiunea asta are 5 pagini acum, deci e ceva. Mai sunt si altele pe aceeasi tema, deci exista si interes.
Bun venit, si asteptam sa ne prezinti aplicatiile tale.


               

[DAN.ARBA]

                  Stim ca autocadul nu are comanda de afisare arie pe un contur (sau polilinii deschise) in mediul de lucru ( ma rog, stie sa calculeze ariile dar nu sa le afiseze).In momentul in care ai nevoie sa indici pe desen aceste valori, e foarte util scriptul pe care l-am realizat. E destul de simplu ,dar foarte util ,credeti-ma!
   Aveti posibilitatea sa scalati textul . Modificati valoarea "dimscale <1>" daca e necesar. IN plus, se repeta nelimitat pana la anularea comenzii.
   Pentru cei necunostatori, scrieti in prompterul de comenzi al autocadului comanda
 _appload si incarcati aplicatia de mai jos pe care ati salvat-o in prealabil cu ajutorul notpad-ului in format  " .lsp " :




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  script autolisp realizat de Dan Arba;    ;;;
;;;    adresa email:  E-mail        ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun c:arie ()
    (setq mag (getvar "osmode"))
                (setvar "osmode" 0)
                (setvar "snapmode" 0)
                (setvar "cmdecho" 0)
                (setvar "blipmode" 0)
    (command "_undo" "begin")
(setq ddi (getvar "dimscale"))
(setq dd (getreal (strcat "\n dimscale <" (rtos ddi) ">" )))
(cond ((= dd nil) (setvar "dimscale" ddi))
      ((/= dd nil)(setvar "dimscale" dd))
)
(while (not nil) (aria))
(setvar "osmode" mag)
(command "undo" "end")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun aria ()
    (setq mag (getvar "osmode"))
                (setvar "osmode" 0)
                (setvar "snapmode" 0)
                (setvar "cmdecho" 0)
                (setvar "blipmode" 0)
    (command "_undo" "begin")

(setvar "osmode" 513)
(while
  (not(and (not(prompt "\n  Selectati un contur!"))   ;;;
           (setq ob (ssget (setq p(getpoint)) '((0 . "lwpolyline,circle,ellipse,polyline,spline"))))

      )
  )
)
           (redraw (ssname ob 0) 3)   
(command "area" "o" ob)                                                     
(setvar "osmode" 0)
(setq ar (rtos (getvar "area") 2 3))
(setvar "dimldrblk" "DotSmall")
(command "leader" p pause "" (strcat "S= " ar " mp") "" )
(redraw (ssname ob 0) 4)
(setvar "osmode" mag)
(command "undo" "end")
)
;;;; gata prog arie
;;;; se lanseaza in executie la comanda ARIE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Modificat de DAN.ARBA (30-10-2010 14:26:15)