Zobrazit plnou verzi příspěvku: ACADProject

Pajk
15.06.2005, 20:15
Dobry den,
mam vetsi mnozstvi (radove stovky) vykresu ve kterych je zalozen prazdny VBA projekt (vzniklo patrne povolenim volby AutoEmbeding v nastaveni maker). Potreboval bych tyto projekty z vykresu hromadne odstranit, nejlepe jinym VBA kodem (soucast rozsahlejsiho VBA projektu). Dokazu pristoupit na jednotlive projekty a vypsat treba jejich nazev (viz nize), ale neumim je odstranit. Pripominam jen, ze projekty k odstraneni jsou ulozeny nikoli v externich DVB souborech ale primo v DWG.
Dim oProj As ObjectFor Each oProj In ThisDrawing.Application.VBE.VBProjects  MsgBox oProj.NameNext oProj
Dekuji

Honza
16.06.2005, 07:36
Nepomohlo by tento lisp na odstranění maker?
(defun c:makra (/ ent)
   (setq ent (dictremove (namedobjdict) "ACAD_VBA"))
   (if (= ent nil)
      (princ "\nMAKRA ve vykresu nebyla.")
      (princ "\nMAKRA byla odstraněna!")
    )
   (princ)
)
MAKRA

Bezvadně mi funguje. 


Pajk
16.06.2005, 10:30
LSP kod makra skutecne odstrani, ale v tom neni problem. Ja mam ve vykresech pouze zalozeny PRAZDNY projekt (makra v nem bud nejsou, a nebo jiz jsou odstranena) s nazvem "ACADProject". A ten neumim odstranit. :-(

Vladimír Michl
28.06.2005, 21:02
stačí vypnout to automatické vkládání maker a použít kód ze staršího tipu http://www.cadforum.cz/cadforum/qaID.asp?tip=1125 (výkres následně uložit)
ACADProject zmizí (při otevření VBA editoru je automaticky vložen) a nebude spouštět ochranu proti vloženým makrům

Ferdinand
24.08.2005, 15:34

Nojo, když většina z nás (si myslím) není VIP...
Ferdinand38588.6493865741

Honza
24.08.2005, 16:02
V podniku jsem si VIP vydupal.
I když tento přístup použiji 1x měsíčně, tak se vyplatí.
A používám VIP častěji.