initial commit

1 - install/MSIFileRunAsAdmin.reg

@@ -0,0 +1,8 @@
+Windows Registry Editor Version 5.00
+
+[HKEY_CLASSES_ROOT\Msi.Package\shell\runas\command]
+@=hex(2):22,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
+  00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,6d,00,\
+  73,00,69,00,65,00,78,00,65,00,63,00,2e,00,65,00,78,00,65,00,22,00,20,00,2f,\
+  00,69,00,20,00,22,00,25,00,31,00,22,00,20,00,25,00,2a,00,00,00
+

2 - scripts/ACAD_TRUSTED/allToZero.lsp

@@ -0,0 +1,29 @@
+(defun C:alltozero (/ i imax il ss currElem currPos newPos newElem)
+    ;variables:
+    (setq i 0);counter to zero
+    (setq imax 1);while variable
+
+    (graphscr)
+
+    (setq ss (ssget "_A" '((0 . "insert"))));select all
+    (setq il (sslength ss));length of selection
+
+    (while imax
+
+        (setq currElem (entget (ssname ss i) ))
+        (setq currPos (assoc 10 currElem))
+
+        ;; (cdr (assoc 10 currElem))
+
+        (setq newPos (list 10 0 0 0))
+
+        (setq newElem (subst newPos currPos currElem))
+        (entmod newElem)
+
+
+        ;while specific: 
+        (setq i (1+ i));increments i
+        (if (= i il) (setq imax nil));finish function if i equals il
+    )
+
+)

2 - scripts/ACAD_TRUSTED/revitCleaner.scr

@@ -0,0 +1,31 @@
+_.model
+_.-scalelistedit
+r
+y
+e
+_.cannoscale
+1:50
+_.ltscale
+0.2
+_.change
+all
+
+p
+c
+bylayer
+lw
+bylayer
+
+_.bindtype
+1
+_.-xref
+b
+*
+(LOAD "C:/ACAD_TRUSTED/allToZero.lsp")
+alltozero
+_.zoom
+e
+(LOAD "C:/ACAD_TRUSTED/saveasPlus.lsp")
+saveasplus
+p
+acad_

2 - scripts/ACAD_TRUSTED/saveasPlus.lsp

@@ -0,0 +1,17 @@
+(defun C:saveasplus (/ x s currPath currName savePath)
+(initget 1 "Prefix Suffix")
+(setq x (getkword "Prefix or suffix? [Prefix/Suffix]"))
+(setq s (getstring (strcat x "?")))
+(setq currPath (getvar "dwgprefix"))
+
+
+(setq currName (cadr(fnsplitl (getvar "DWGname"))))
+(if (= x "Prefix") 
+    (setq savePath (strcat currPath s currName ".dwg")) 
+    (setq savePath (strcat currPath currName s ".dwg"))
+)
+(command "_.saveas" "2013" savePath)
+
+
+
+)

3 - settings/addTrustedPath.scr

@@ -0,0 +1,2 @@
+._TRUSTEDPATHS
+"C:\ACAD_TRUSTED"

readme.txt

@@ -0,0 +1,58 @@
+V1.0 
+2018-11-03
+
+SCROLL DOWN FOR ENGLISH!!
+
+El<EFBFBD>k<EFBFBD>vetelm<EFBFBD>ny: minimum Autocad 2013 vagy frissebb, sima vagy vertik<69>lis az mindegy. T<>bb verzi<7A> is fent lehet.
+
+1 - install mapp<70>ban:
+	1a. Futtasd: MSIFileRunAsAdmin.reg
+	1b. ScriptPro 2.0.msi - jobbklikk, futtat<61>s rendszergazdak<61>nt, telep<65>tsd
+
+2 - scripts mapp<70>ban
+	M<>sold a mappa tartalm<6C>t a c gy<67>k<EFBFBD>rbe, el<65>r<EFBFBD>si <20>tnak <20>gy kell kin<69>znie: C:\ACAD_TRUSTED\...
+
+3. be<62>ll<6C>t<EFBFBD>sok, ez kicsit macer<65>s lesz, n<>zd a k<>peket a mapp<70>ban. 
+	3a. C:\ACAD_TRUSTED mapp<70>ra jobbklikk - tulajdons<6E>gok - Biztons<6E>g f<>l - Speci<63>lis - Alul: <20>r<EFBFBD>kl<6B>d<EFBFBD>s letilt<6C>sa - <20>r<EFBFBD>k<EFBFBD>lt enged<65>lyek kifejezett enged<65>lyekk<6B> konvert<72>l<EFBFBD>sa. 
+	Ezut<75>n a list<73>ban jel<65>ld ki a "Hiteles<65>tett felhaszn<7A>l<EFBFBD>k"-at, majd elt<6C>vol<6F>t<EFBFBD>s - OK - OK
+	3b. Nyisd meg az autocad-et, kezdj egy <20>j rajzot, majd h<>zd r<> az autocad ablakra az addTrustedPath.scr f<>jlt. Ha lefutott hiba n<>lk<6C>l, z<>rd be az autocadet, az <20>j rajzot nem kell elmenteni. (Ha t<>bb Autocad verzi<7A> is fent van a g<>pen, akkor aj<61>nlott ezt megtenni midegyik autocadben, VAGY a scriptproban be<62>ll<6C>tani, hogy melyik autocadet haszn<7A>lja. Ha nincs be<62>ll<6C>tva, akkor <20>ltal<61>ban a legut<75>bb megnyitott autocadet nyitja meg.)
+(ez nem muk<75>dik!!)
+
+4. haszn<7A>lat
+	4a. Revitb<74>l Lapokat export<72>lj ki, ne N<>zeteket, csak azzal m<>k<EFBFBD>dik. Export<72>l<EFBFBD>skor v<>laszd ki, hogy a a n<>zeteket xrefk<66>nt mentse. A revit <20>gy l<>tre fog hozni minden tervlaphoz egy tervlap f<>jl, <20>s minden n<>zethez <20>s minden revit linkhez egy-egy f<>jlt. 
+	4b. Start men<65>b<EFBFBD>l nyisd meg a Scriptpro-t
+	4c. Scriptproban fent nagy z<>ld 'Add' gomb, majd v<>laszd ki a tervlap f<>jlokat. <20>gy egyszer<65> megtal<61>lni <20>ket, hogy ezeknek a legr<67>videbb a nev<65>k.
+	4d. Scriptproban Script file Browse gomb, v<>laszd ki ezt a f<>jlt: "C:\ACAD_TRUSTED\revitCleaner.scr"
+	4e. Ha t<>bb autocad is telep<65>tve van <20>s nem <20>ll<6C>tott be a trusted path-t mindegyikben, akkor a Settingsben <20>ll<6C>tsd be, hogy melyik autocadet futtassa, az acad.exe-t kell betall<6C>zni.
+	4e. Szalagmen<65>n (Run) Checked gomb.
+	4f. Ha elk<6C>sz<73>lt az eredeti f<>jlok mell<6C> l<>trehoz egy-egy acad_... kezdet<65> f<>jlt, ezekben benne van minden, a t<>bbi nem kell, t<>r<EFBFBD>lhet<65>
+
+-------
+ENGLISH
+-------
+
+If it's already installed, you can start from 4!
+
+Prerequisites: Autocad 2013 or later, vanilla or vertical. Multiple versions can be installed
+
+1 - install folder:
+	1a. Run MSIFileRunAsAdmin.reg
+	1b. ScriptPro 2.0.msi - rightclick, run as admin, install
+
+2 - scripts mapp<70>ban
+	Copy the ACAD_TRUSTED folder to the root of the C: drive. It should look like this: C:\ACAD_TRUSTED\...
+
+3 - settings, see images in folder
+	3a. C:\ACAD_TRUSTED rightclick - properties - security tab - Advanced - Down there: Disable inheritance - Convert inherited permissions into explicit permissions on this object.
+	Select Authenticated users in the list and Remove - Ok - Ok
+	3b. Open autocad, start a new drawing, drag and drop addTrustedPath.scr to the window. If it runs without an error close Autocad, you don't have to save the new drawing. (If multiple versions of Autocad installed: It's recommended to do this in all autocad OR set up in scriptpro which Autocad to use. Of it's not setup it will open the last used one.)
+
+4 - usage
+	4a. Export sheets from Revit, not views! On export select Export views on sheets as external references. Revit will create a file for each sheets and views. 
+	4b. From Start menu start Scriptpro
+	4c. In Scriptpro push the big green 'Add' button on the ribbon, and select the files of the sheets. You can easily find them, they have the shortest name.
+	4d. In scriptpro, Script file Browse button, select this file: "C:\ACAD_TRUSTED\revitCleaner.scr"
+	4e. If multiple verions of Autocad installed, select the version you set up the trusted path in the settings. You have to find acad.exe
+	4f. On the ribbon click on (Run) Checked button
+	4g. When it's finished it will create a new file for each sheet, starting with acad_... You can delete all of the other files
+