Vytisknout stránku | Zavřít okno

spojení části půdorysu do bloku

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Architecture, MEP, Fabrication, Plant 3D
Popis fóra: Otázky ke stavařským aplikacím AutoCAD Architecture, AutoCAD MEP, k potrubní aplikaci AutoCAD Plant 3D, k Fabrication a Advance Steel
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=2627
Datum vytištění: 12.kvě.2026 v 03:17


Téma: spojení části půdorysu do bloku
Odeslal: Kroupík
Předmět: spojení části půdorysu do bloku
Datum odeslání: 25.kvě.2006 v 13:30

Ve vykrese se mi pravidelne opakuje jedna sekce pudorysu (20x), chtela bych ji spojit do bloklu a rozkopirovat po vykrese, aby se mi napriklad posun dveri promitl ve vsech sekcich. Jenze tady narazim na problem, spojim co potrebuji do bloku, ale kdyz chci editovat blok, tak mi to vetsinou napise

CHYBA_ARX: eWasOpenForReadV odkazech na jiné objekty byly nalezeny chyby:
** Chybějící reference aplikace: AcDbBlockRepETag, na AcDbWipeout.

Pokud to zkusim pres editor bloku, tak se mi najednou u vetsiny sten objevi upozorneni na defekt (casti zmizi, nebo zmizi alespon srafa) a kdyz editor zavru tak to zustane takoto pokazene. Co delam spatne?



-------------
Kroupík


Odpovědi:
Odeslal: Falco
Datum odeslání: 25.kvě.2006 v 22:51
myslim ze, je rozdiel spajat do blokov ciary, a objekty ktore maju trosku viac prvkov a definicii.

Odeslal: PepaR
Datum odeslání: 26.kvě.2006 v 06:44
Když nejde blok, tak zkuste dané objekty seskupit.

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: Buba
Datum odeslání: 26.kvě.2006 v 08:21
Skúste si nadefinovať blok ako DWG, alebo len ako externú referenciu. Metóda pokusu-omylu. :-)

Odeslal: Buba
Datum odeslání: 26.kvě.2006 v 08:27

http://discussion.autodesk.com/thread.jspa?threadID=401575 - http://discussion.autodesk.com/thread.jspa?threadID=401575

 

Odeslal: Kroupík
Datum odeslání: 26.kvě.2006 v 09:06
dik za odkaz, ale s moji "skvelou" anglictinou je prelouskani toho textu na cely den

-------------
Kroupík

Odeslal: PepaR
Datum odeslání: 26.kvě.2006 v 10:38
V článku jde o to, že problémy způsobují data uvnitř bloku, které lze odstranit funkcí, která je v diskusi i popsána.

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: PepaR
Datum odeslání: 26.kvě.2006 v 10:42
Původně odeslal(a) CleanXdata CleanXdata napsal(a):

;;;----------------------------------- ---------------------- C:CleanXdata ----------
(defun C:CleanXdata ( / allnames)
(vl-load-com)
(setq allnames nil)
(vlax-for obj (vla-get-RegisteredApplications(vla-get-activedocument (vlax-get-acad-object)))
(if (vlax-property-available-p obj 'Name)
(setq allnames (cons (vla-get-name obj) allnames))
))
(setq allnames (mapcar '(lambda(x)(cons x (if (and (/= x "ACAD")(ssget "x" (list (list -3 (list x))))) 1 0)))(reverse allnames)))
(if (setq allnames (dos_checklist "CleanXdata" "Choose appication(s) to clean" allnames))
(Cxd:DDP_del_all_prm (vl-remove nil (mapcar '(lambda(x)(if (= (cdr x) 1) (car x))) allnames)))
)
(princ)
)
; thanks to Jurge Menzi and Tony Tanzillo
; Use:
; (DDP_del_all_prm '("MyApp1" "MyApp2")) ;delete by AppID's
; or
; (Cxd:DDP_del_all_prm '("*")) ;delete all
; (Cxd:DDP_del_all_prm '("AcDbBlockRepETag"))
; The argument of the function should be a list. This allows you to
; delete Xdata's with different AppID's.
;------------------------------------------------ DDP_del_all_prm --------------
(defun Cxd:DDP_del_all_prm (Apps / apps_str CurEnt CurSet ncurSet i loopmax EntCnt appNames)
(setq apps_str (apply 'strcat (mapcar '(lambda(x)(strcat x ",")) Apps)))
(cond
((setq CurSet (ssget (list (list -3 (list apps_str)))))
(setq ncurSet (sslength CurSet) i 0 loopmax 500)
(if (> ncurSet loopmax)(dos_getprogress "Cleaning data." (strcat "Cleaning data from " (itoa ncurSet) " entities. Wait...") ncurSet))
(repeat ncurSet
(if (> ncurSet loopmax)(dos_getprogress -1))
(setq CurEnt (ssname CurSet i) i (1+ i))
(setq appNames (if (and (setq appName (DelXdata CurEnt Apps))(not (member appName appNames))) (cons appName appNames) appNames))
(if (= "INSERT" (dxf 0 (entget CurEnt)))
(while (= "ATTRIB" (dxf 0 (entget (setq CurEnt (entnext CurEnt)))))
(setq appNames (if (and (setq appName (DelXdata CurEnt Apps))(not (member appName appNames))) (cons appName appNames) appNames))
)
)
) ;repeat
(if (> ncurSet loopmax)(dos_getprogress T))
(princ (strcat"\nDeleting Xdata from "(itoa ncurSet)" entities \nWith ApplicationName(s) "
(if appNames (apply 'strcat (mapcar '(lambda(x)(strcat x ","))appNames)) "")))
)
(T (princ (strcat "\nNot Xdata found for ApplicationName(s) " apps_str)))
)
(princ)
)
;------------------------------------------------ DelXdata --------------
; hulpfunctie voor deleting xdata
(defun DelXdata (Ent Apps / EntLst TmpLst appName)
(setq EntLst (entget Ent Apps) appName (caar (dxf -3 EntLst)))
(if (and (eq "DIMENSION" (dxf 0 EntLst))(not (dxf -3 (entget Ent '("ACAD"))))(= 14 (atoi (getvar "ACADVER"))))
(entmod (list (cons -1 Ent) (cons -3 '(("ACAD" (1000 . "DSTYLE"))))))
)
(foreach memb (dxf -3 EntLst)
(setq TmpLst (cons -3 (list (cons (car memb) nil)))
EntLst (entmod (subst TmpLst (assoc -3 EntLst) EntLst))
)
)
(entmod (vl-remove (assoc -3 EntLst) EntLst))
appName
)

;------------------------------------------------ DXF --------------
(defun DXF (code elist)
(cdr (assoc code elist))
)


-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz


Vytisknout stránku | Zavřít okno