****FOLOSIRE NUMAI CU ACORDUL SCRIS AL AUTORULUI : MOCAN IOAN 0721-244063
****MENUGROUP=CADASTRU
***POP1
[&Fisiere]
[&Nou... Ctrl+N]^C^C_new
[&Deschide... Ctrl+O]^C^C_open
[&Inchide]^C^C_close
[--]
[&Salvare rapida]^C^C_qsave
[--]
[Salveaza cu nume...]^C^C_saveas
[--]
[ Revenire la meniu original](command "menu" "c:/cadastru/topo-scr/acad")
[--]
[Iesire - Exit]^C^C_quit
[--]
[ Exporta punctele pentru preluare in baza de date a lui TOPO-EXPERT]^C^Cfiledia 1^C^C(command "dxfout"
"c:/cadastru/topo-imp/drawing.dxf") V R12 4
[--]
[->Exemple]
[ Parcela] (startapp "acad.EXE" "c:/cadastru/exemple/parcela.dwg")
[ Curbe nivel sprijinite pe retea RTN] (startapp "acad.EXE" "c:/cadastru/exemple/curbeni.dwg")
[ Inventar coordonate generat automat] (startapp "acad.EXE" "c:/cadastru/exemple/invcoord.dwg")
[ Generare profil automat] (startapp "acad.EXE" "c:/cadastru/exemple/paccota.dwg")
[ Retea RTN cu puncte de aceeasi cota si o curba de nivel realizata cu spline] (startapp "acad.EXE" "c:/cadastru/exemple/reteartn.dwg")
[ Retrointersectia prin metoda grafica] (startapp "acad.EXE" "c:/cadastru/exemple/retrogr.dwg")
[ Retea RTN incompleta] (startapp "acad.EXE" "c:/cadastru/exemple/retrtn1.dwg")
[ Retea RTN completata manual] (startapp "acad.EXE" "c:/cadastru/exemple/retrtn2.dwg")
[ Transfer automat dxf al fisierului topograf.dxf] (startapp "acad.EXE" "c:/cadastru/exemple/trandxf.dwg")
***POP2
[Cadastru]
[ Lanseaza aplicatia Cadastru.exe]^C^C(startapp "c:/cadastru/cadastru.exe")
[--]
[ Importa ultimul transfer dxf facut cu TOPO-EXPERT]^C^C(command "dxfin" "c:/cadastru/topo-scr/topograf")
[ Vizualizare transfer dxf ]^C^C(command "ZOOM" "E" )
[ Ascunde layerul COTE]^C^C-layer S 0 OFF COTE-DXF ^C
[ Treci la unirea punctelor pentru parcele ]^C^Cosnap node pdmode 32 pdsize 0.5 regen pline
[ Fa un calcul de arie pe ultima parcela inchisa ]^C^Carea e l
[ Pune suprafata calculata in parcela]^C^C(load "c:/cadastru/topo-scr/aria") aria
[ Ascunde layerul NUMERE]^C^C-layer S 0 OFF NUMERE-DXF ^C
[ Ascunde layerul PUNCTE]^C^C-layer S 0 OFF PUNCTE-DXF ^C
[ Fa text de 2 mm pentru 1:1000]^C^C(command "text" "1,1" 2 0 "")^C^Cregen
[ Renumeroteza punctele parcelei pentru extragere in inventar de coordonate]^C^C(load "c:/cadastru/topo-scr/nrpctum")
nrpct
[ Extrage coordonate de puncte in fisier text ]^C^C(load "c:/cadastru/topo-scr/extractm") w2f
[ Vizualizare continut fisier extras.txt ]^C^C(startapp "notepad.exe" "c:/cadastru/topo-imp/extras.txt")
[ Idee ing. Filimon Ioan - HELP]^C^C(startapp "notepad.exe" "c:/cadastru/filimon.txt")
[--]
[Vizualizeaza layerele ]^C^C_layer
[--]
[-> Aplicatii externe ]
[ Lanseaza aplicatia CALCULATOR ]^C^C(startapp "calc.exe")
[<- Editor de text NOTEPAD ]^C^C(startapp "notepad.exe")
[--]
[-> Vizualizari ]
[ Vizualizare ultima suprafata calculata cu TOPO-EXPERT] (startapp "notepad.exe" "c:/cadastru/topo-sup/suprafat")
[--]
[ Vizualizare continut fisier virgula.txt] (startapp "notepad.exe" "c:/cadastru/topo-imp/virgula.txt")
[ Vizualizare continut fisier space.txt] (startapp "notepad.exe" "c:/cadastru/topo-imp/space.txt")
[<- Vizualizare continut fisier nspace.prd] (startapp "notepad.exe" "c:/cadastru/topo-imp/nspace.prd")
[--]
[ Exporta puncte in baza de date TOPO-EXPERT]^C^Cfiledia 1^C^C(command "dxfout" "c:/cadastru/topo-imp/drawing.dxf")
V R12 4
[--]
[-> Help ]
[Help1 - Manual de utilizare ] (startapp "C:/Program Files/Internet Explorer/IEXPLORE.EXE" "c:/cadastru/Doc1.htm")
[Help2 - Generare curbe de nivel ] (startapp "C:/Program Files/Internet Explorer/IEXPLORE.EXE" "c:/cadastru/Doc2.htm")
[<-Help3 - Generare profile ] (startapp "C:/Program Files/Internet Explorer/IEXPLORE.EXE" "c:/cadastru/Doc3.htm")
[--]
[ Revenire la meniu original](command "menu" "c:/cadastru/topo-scr/acad")
***POP3
[Calcule topografice]
[-> Setare pe Nord ]
[ Executa ]^C^C-osnap none aunits 2 angbase 100 viewres y 20000 pdmode 32 pdsize 1 auprec 4 angdir 1
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/nord.txt")
[--]
[->Setare puncte ]
[Setare punct 1: 500 - 0.5 mm ]^C^C_PDMODE 32 ^C^C_PDSIZE .5 ^C^C
[Setare punct 1:1000 - 1 mm ]^C^C_PDMODE 32 ^C^C_PDSIZE 1 ^C^C
[Setare punct 1:2000 - 2 mm ]^C^C_PDMODE 32 ^C^C_PDSIZE 2 ^C^C
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/punct.txt")
[--]
[->Setare text]
[Setare text 1: 500 - 1 mm ](command "text" 1 1 100 "mocan") (command "ERASE" "L"
) (command " ")
[Setare text 1:1000 - 2 mm ](command "text" 1 2 100 "mocan") (command "ERASE" "L"
) (command " ")
[Setare text 1:2000 - 4 mm ](command "text" 1 4 100 "mocan") (command "ERASE" "L"
) (command " ")
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/text.txt")
[--]
[->Poligonatii]
[Transfer puncte poligonatie]^C^C-LAYER N PUNCTE S PUNCTE ^C^C_SCRIPT TOPO-PU.SCR
[Transfer text poligonatie]^C^C-LAYER N TEXT S TEXT ^C^C_SCRIPT TOPO-TE.SCR
[Transfer cote poligonatie]^C^C-LAYER N COTE S COTE ^C^C_SCRIPT TOPO-CO.SCR
[Activeaza layerul 0 ]^C^C-LAYER N 0 S 0 ^C
[Ascunde layerul COTE]^C^C-layer S 0 OFF COTE ^C
[Ascunde layerul TEXT]^C^C-layer S 0 OFF TEXT ^C
[Ascunde layerul PUNCTE]^C^C-layer S 0 OFF PUNCTE ^C
[Vezi situatie layere ]^C^Cla
[--]
[<-Help general]^C^C(startapp "notepad.exe" "c:/cadastru/general.txt")
[--]
[->Suprafete]
[Transfer suprafete puncte]^C^C-LAYER N PUNCTE S PUNCTE ^C^C_SCRIPT SUP-PU.SCR
[Transfer suprafete text]^C^C-LAYER N SUPRAF-TEXT S SUPRAF-TEXT ^C^C_SCRIPT SUP-TE.SCR
[Transfer suprafete linii]^C^C-LAYER N SUPRAF-LINII S SUPRAF-LINII ^C^C_SCRIPT SUP-1D.SCR
[Ascunde layerul SUPRAF-TEXT]^C^C-layer S 0 OFF SUPRAF-TEXT ^C^C regen
[Ascunde layerul SUPRAF-LINII]^C^C-layer S 0 OFF SUPRAF-LINII ^C^C regen
[Vezi situatie layere ]^C^Cla
[--]
[<-Help general]^C^C(startapp "notepad.exe" "c:/cadastru/sgenera.txt")
[--]
[->Retrointersectii grafice]
[Retrointersectii grafice ]^C^C_SCRIPT RETRO-G.SCR
[Trage linii pentru calcul unghiuri ]^C^C-osnap node line
[<-Verifica dimensiunea unghiului ]^C^C-osnap node dimasz .75 dimtxt 100 dimdec 4 dim an
[--]
[->Retrointersectii Dalambre]
[Transfer retrointersectie puncte Dalambre]^C^C-LAYER N RETRO-PUNCTE S RETRO-PUNCTE ^C^C_SCRIPT RETRO-PU.SCR
[Transfer retrointersectie text Dalambre]^C^C-LAYER N RETRO-TEXT S RETRO-TEXT ^C^C_SCRIPT RETRO-TE.SCR
[Vreau sa maresc punctele !]^C^C_PDMODE 34 ^C^C_PDSIZE 100 ^C^Cregen
[Vreau sa maresc textul !]^C^C(load "c:/cadastru/topo-scr/scaletxm") scaletE
[Trage linii pentru calcul unghiuri ]^C^C-osnap node line
[Verifica dimensiunea unghiului ]^C^C-osnap node dimasz .75 dimtxt 100 dimdec 4 dim an
[--]
[<-Help Dalambre]^C^C(startapp "notepad.exe" "c:/cadastru/dalambre.txt")
[--]
[->Retrointersectie-baricentrice ]
[Pune punctele ]^C^C_script re-punct.SCR
[Vreau sa maresc punctele !]^C^C_PDMODE 34 ^C^C_PDSIZE 100 ^C^Cregen
[Vreau sa maresc textul !]^C^C(load "c:/cadastru/topo-scr/scaletxm") scalete
[Verifica dimensiunea unghiului ]^C^C-osnap node dimasz .75 dimtxt 100 dimdec 4 dim an
[--]
[<-Help baricentrice]^C^C(startapp "notepad.exe" "c:/cadastru/baricen.txt")
[--]
[-> Schite]
[ Schita de dezmembrare 1N -> 2N ]^C^C_script A4-1-2.SCR
[ Schita de dezmembrare 2N -> 4N ]^C^C_script A4-2-4.SCR
[ Schita de dezmembrare XN -> YN ]^C^C_SCRIPT SCHITA.SCR
[--]
[<- Help schite]^C^C(startapp "notepad.exe" "c:/cadastru/schite.txt")
[--]
[-> Volume]
[ Trasez profile pentru volume ]^C^C_script TRASEAZA.SCR
[ Generare sectiuni-calcul volume ]^C^C_script SECTIUNE.SCR
[--]
[<- Help profile,volume]^C^C(startapp "notepad.exe" "c:/CADASTRU/provol.txt")
[--]
[-> Trilateratie ]
[ Executa ]^C^C_SCRIPT TRIUNG.SCR
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/trilat.txt")
[--]
[IDEE ING.M.I. 2002](command "ZOOM" "E" )
***POP4
[Deseneaza]
[-> Entitati simple]
[ Punct]^C^C_POINT
[ Cerc]^C^C_circle
[ Linie]^C^C_line
[ Polilinie pentru desenare taluz ]^C^C_pline
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/entitate.txt")
[--]
[ 3DPolilinie]^C^C_3dpoly
[--]
[-> Dimensioneaza]
[ Dimensioneaza latura cu text de 2 mm]^C^C-osnap node dimasz .75 dimtxt 2.0 dimdec 2 dim al
[ Dimensioneaza latura cu text de 4 mm]^C^C-osnap node dimasz 1.5 dimtxt 4.0 dimdec 2 dim al
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/dimensi.txt")
***POP5
[Semne]
[->Semne]
[Apa]^C^C-INSERT APA.DWG
[Apartine]^C^C-INSERT APARTINE.DWG
[Borna]^C^C-INSERT BORNA.DWG
[Camin]^C^C-INSERT CAMIN.DWG
[Consola]^C^C-INSERT CONSOL.DWG
[Fantana]^C^C-INSERT FANT.DWG
[Gaz]^C^C-INSERT GAZ.DWG
[Hidrant]^C^C-INSERT HIDR.DWG
[Nord]^C^C-INSERT NORD.DWG
[Pom]^C^C-INSERT POM.DWG
[Punct statie]^C^C-INSERT PS.DWG
[Stalp]^C^C-INSERT STB.DWG
[Telefon]^C^C-INSERT TEL.DWg
[Directie curgere apa]^C^C-INSERT SENSAPA.DWG
[Sir pomi]^C^C-insert sirpomi.dwg
[Grupuri de pomi]^C^C-insert grppomi.dwg
[Paratraznet]^C^C-insert paratra.dwg
[--]
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/semnec.txt")
[--]
[->Planuri]
[Fisa bunului imobil]^C^C-insert fisbunim.dwg
[Plan de incadrare a corpului de proprietate]^C^C-insert plancorp.dwg
[Cartus]^C^C-insert cartus.dwg
[Format A4 cu cartus]^C^C-insert a4.dwg
[Format A4 fara cartus]^C^C-insert a4fc.dwg
[Format A4 plan de situatie]^C^C-insert plansit.dwg
[--]
[<- Help](startapp "notepad.exe" "c:/cadastru/planuri.txt")
[--]
[->Utilitati]
[ Imprejmuire sarma ghimpata]^C^C(load "c:/cadastru/topo-scr/acm") rgsgh
[ Retea apa potabila]^C^C(load "c:/cadastru/topo-scr/acm") rap
[ Retea cablu electric]^C^C(load "c:/cadastru/topo-scr/acm") rlie
[ Retea gaz]^C^C(load "c:/cadastru/topo-scr/acm") cg
[ Retea apa industriala]^C^C(load "c:/cadastru/topo-scr/acm") cai
[ Retea termoficare]^C^C(load "c:/cadastru/topo-scr/acm") rt
[ Retea cablu telefonic]^C^C(load "c:/cadastru/topo-scr/acm") cate
[ Retea canalizare]^C^C(load "c:/cadastru/topo-scr/acm") rca
[--]
[<- Help]^C^C(startapp "notepad.exe" "c:/cadastru/utile.txt")
[--]
[IDEE DR. ING S.O. 2003]^C^C(command "ZOOM" "E" )
***POP6
[Utile]
[Deseneaza caroiaj partial / total]^C^C(load "c:/cadastru/topo-scr/punecarm") pcar
[Insereaza tabel coordonate x,y]^C^C(command "angbase" "0")^C^C(load "c:/cadastru/topo-scr/atabelxm")
tabelxy
[Insereaza tabel coordonate x,y,z]^C^C(command "angbase" "0")^C^C(load "c:/cadastru/topo-scr/btabelxm")
tabelxyz
[Deseneaza linii de taluz]^C^C(load "c:/cadastru/topo-scr/puntalum") puntaluz
[Pune coordonatele punctului]^C^C(load "c:/cadastru/topo-scr/puncorm") puncord
[Modifica inaltimea textelor]^C^C(load "c:/cadastru/topo-scr/scaletxm") scalete
[Roteste textul ]^C^C(load "c:/cadastru/topo-scr/rottxm") rotte
[--]
[Despre licenta ]^C^C(load "c:/cadastru/topo-scr/licentm") licenta
[--]
[Aria si perimetrul parcelei]^C^C(load "c:/cadastru/topo-scr/aria") aria
[Unificare inaltime text in desen]^C^C(load "c:/cadastru/topo-scr/uniftext") uniftext
[Mircea Badut OJCGC Valcea 2004]^C^C(startapp "notepad.exe" "c:/cadastru/badut.txt")
[--]
[Extrage coordonate de puncte in fisier text ]^C^C(load "c:/cadastru/topo-scr/extractm") w2f
[Vizualizare continut fisier extras.txt ]^C^C(startapp "notepad.exe" "c:/cadastru/topo-imp/extras.txt")
[Help]^C^C(startapp "notepad.exe" "c:/cadastru/extrac.txt")
[--]
[Deseneaza contur pentru calcul parcela ]^C^C-osnap node pline
[Pune textul pe contur pentru a fi extras in inventar]^C^C(load "c:/cadastru/topo-scr/nrpctum") nrpct
[Calcul de suprafata ]^C^C(load "c:/cadastru/topo-scr/suprafam") supraf
[Vizualizare inventar ]^C^C(startapp "notepad.exe" "c:/cadastru/topo-sup/contur.txt")
***POP7
[Layer]
[Vizualizare layere]^C^C_layer
[--]
[Sterge tot]^C^C_erase all
***POP8
[Curbe]
[->Generare RTN]
[Executa]^C^C-LAYER N RETEA-RTN S RETEA-RTN ^C^C_SCRIPT LINI-RTN.SCR
[Vizualizare RTN]^C^C(command "ZOOM" "E" )
[Completare RTN]^C^C-osnap end line
[Export RTN]^C^Cfiledia 1^C^C(command "dxfout" "c:/cadastru/topo-SPL/drawing.dxf") V R12 4
[Generare copie siguranta]^C^Cfiledia 1^C^C(command "dxfout" "c:/cadastru/topo-scr/rezerva.dxf")
V R12 4
[<-Help]^C^C(startapp "notepad.exe" "c:/cadastru/retea1.txt")
[--]
[Lanseaza si fa PUNCTE DE ACEEASI COTA]^C^C(command "start" "c:/cadastru/cadastru.exe")
[--]
[->Vizualizare]
[Vizualizare puncte de aceeasi cota]^C^C_SCRIPT spli-pu.SCR ^C^C_SCRIPT spli-te.SCR
[Uneste puncte cu spline]^C^C-osnap node _spline
[<-Help]^C^C(startapp "notepad.exe" "c:/cadastru/vizpu.txt")
***POP9
[Profile]
[->Generare retea RTN]
[Executa]^C^C-LAYER N RETEA-RTN S RETEA-RTN ^C^C_SCRIPT LINI-RTN.SCR
[Vizualizare retea RTN]^C^C(command "ZOOM" "E" )
[Completare retea RTN]^C^C-osnap end line
[Trasare directie profil]^C^C-osnap none _mline S 1 J Z
[Deseneaza traseul profilului]^C^C-osnap nea _3dpoly
[IDEE ARDELEAN ALEXANDRU - HELP]^C^C(startapp "notepad.exe" "c:/cadastru/prof1.txt")
[<-Generare profil]^C^C(load "c:/cadastru/topo-scr/mpr") calcwe
[--]
[Generare II ]^C^C-LAYER N RETEA-RTN S RETEA-RTN ^C^C_SCRIPT LINI-RTN.SCR
[Vizualizare retea RTN]^C^C(command "ZOOM" "E" )
[Completare retea RTN]^C^C-osnap end line
[Trasare directie profil]^C^C-LAYER N PROFIL S PROFIL ^C^C_-osnap NEA _line
[Export PROFIL]^C^Cfiledia 1^C^C(command "dxfout" "c:/cadastru/topo-PRO/drawing.dxf") V R12
4
[Generare copie siguranta]^C^Cfiledia 1^C^C(command "dxfout" "c:/cadastru/topo-scr/rezerva.dxf")
V R12 4
[--]
[Lanseaza si fa CALCUL PROFIL]^C^C(command "start" "c:/cadastru/cadastru.exe")
[--]
[Pune caroiaj profil]^C^C_SCRIPT caro-1d.SCR
[Pune linii profil ]^C^C_script linii-1d.SCR
[Pune profilul ]^C^C_script pro-1d.SCR
[Pune textul pe profil]^C^C_script pro-te.SCR
[MOCAN IOAN 2003- HELP]^C^C(startapp "notepad.exe" "c:/cadastru/genproII.txt")
***POP10
[Schimbare meniu]
[Revenire la meniu original](command "menu" "c:/cadastru/topo-scr/acad")
[--]
[Despre meniul ACAD limba romana si despre TOPO-EXPERT](startapp "notepad.exe" "c:/cadastru/meniu.txt")
[--]
[TOATE DREPTURILE REZERVATE (c) 1993-2004 MOCAN IOAN MARIUS ]^C^C(startapp "notepad.exe" "c:/cadastru/mail.txt")