Vytisknout stránku | Zavřít okno

ACADProject

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=1009
Datum vytištění: 11.kvě.2026 v 21:45


Téma: ACADProject
Odeslal: Pajk
Předmět: ACADProject
Datum odeslání: 15.čer.2005 v 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 Object
For Each oProj In ThisDrawing.Application.VBE.VBProjects
  MsgBox oProj.Name
Next oProj

Dekuji


Odpovědi:
Odeslal: Honza
Datum odeslání: 16.čer.2005 v 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. 

Odeslal: Pajk
Datum odeslání: 16.čer.2005 v 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. :-(

Odeslal: Vladimír Michl
Datum odeslání: 28.čer.2005 v 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 - 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



-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Ferdinand
Datum odeslání: 24.srp.2005 v 15:34
Nojo, když většina z nás (si myslím) není VIP...

-------------
-FerTh-

Odeslal: Honza
Datum odeslání: 24.srp.2005 v 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.


Vytisknout stránku | Zavřít okno