Problém vkladania blokov
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=2708
Datum vytištění: 02.čvc.2026 v 18:33
Téma: Problém vkladania blokov
Odeslal: Statik
Předmět: Problém vkladania blokov
Datum odeslání: 15.čer.2006 v 08:26
Dobrý deň
Mám spravené programy v LISP pre vkladanie výstuže v pohľade, pôdoryse, reze a pod... LISPY boli robené pre R14 po prechode na R2002 je lispy potrebné upraviť, čo robím priebežne počas prechodu.
Z jedným problémom si však neviem rady:
Mám nadefinovaný blok pozostávajúci z 3 entít 1.LINE 2.ATRIBUTE (na zaciatku LINE) 3.ATRIBUTE (na konci LINE)
ATRIBUTE sú vlastne koncové značky, ktoré zobrazujú začiatok a koniec výstuže (prepínaju sa programovo podľa potreby)
Mám nasledovný problém: (Poznámka Blok sa vkladá do výkresu s nerovnakými mierkami X Y Z X je vzdy rozne od 1 radovo do 12000, Y=1 a Z = 1)
1/ Keď vkladám blok ručne príkazom INSERT všetko je v poriadku
2/ Keď vkladám blok ručne príkazom MINSERT (viacnásobné vloženie), blok sa vloží aj s atribútmi, ktoré sa dajú potom ručne editovať, ale majú nekorektnú mierku vloženia a niektoré ďaľšie parametre, ale ručne sa to dá editovať a napraviť. Pozri obrázok 1 http://img46.imagevenue.com/img.php?loc=loc151&image=52049_Obr1.jpg">
3/ Keď vkladám ten istý blok programovo žiadne atribúty vo výkresovej databáze neexistujú Pozri obrázok 2 http://img44.imagevenue.com/img.php?loc=loc117&image=52055_Obr2.jpg">
V rel 14 to všetko funguje perfektre.
Ešte poznámky: 1/ Keď otvorím výkres R14 blok je zo značkami, existujúce bloky sa dajú programovo editovať (cez entmod) 2/ akonahle ho programovo vložím už atribúty neexistujú
Programove vkladanie bloku je nasledovne: 1/ pomocou funkcie (command "INSERT" .....) sa vlozi blok pricom sa vsetky vyzvi programovo potvrdia
2/ potom sa pristupi k bloku a edituju sa pomocu ENTMOD a/ mierka bloku - X (kluc 41 entity INSERT) b/ hodnota atributu 1 (kluc 2 entity ATTRIB) c/ hodnota atributu 2 (kluc 2 entity ATTRIB)
Nevie mi prosím niekto poradiť ? (nemal podobný problém ?)
------------- AcadR10-AcadR2002
|
Odpovědi:
Odeslal: Ferdinand
Datum odeslání: 15.čer.2006 v 16:36
Ty atributy jsou nastaveny na Unvisible? Mají prázdnou přednastavenou hodnotu (pro řádek Default)?
------------- -FerTh-
|
Odeslal: Statik
Datum odeslání: 15.čer.2006 v 17:16
Tu je definicia bloku
"---------------------------------------" "TLACIM DEFINICIU BLOKU: $BV-PP" "---------------------------------------" ((-1 . <Entity name: 400790f0>) (0 . "BLOCK") (330 . <Entity name: 400790e8>) (5 . "1FE") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockBegin") (70 . 2) (10 0.0 0.0 0.0) (-2 . <Entity name: 400790f8>) (2 . "$BV-PP") (1 . "$BV-PP")) ((-1 . <Entity name: 400790f8>) (0 . "LINE") (330 . <Entity name: 400790e8>) (5 . "1FF") (100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 0) (100 . "AcDbLine") (10 0.0 0.0 0.0) (11 1.0 0.0 0.0) (210 0.0 0.0 1.0)) ((-1 . <Entity name: 40079100>) (0 . "ATTDEF") (330 . <Entity name: 400790e8>) (5 . "200") (100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 31) (100 . "AcDbText") (10 0.0 0.0 0.0) (40 . 50.0) (1 . "") (50 . 1.5708) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Zaèiatok") (2 . "ZNS") (70 . 8) (73 . 0) (74 . 0)) ((-1 . <Entity name: 40079108>) (0 . "ATTDEF") (330 . <Entity name: 400790e8>) (5 . "201") (100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 31) (100 . "AcDbText") (10 1.0 0.0 0.0) (40 . 50.0) (1 . "") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Koniec") (2 . "ZNE") (70 . 8) (73 . 0) (74 . 0))
|
kod 70 - hodnota 8
8 = Attribute is preset (no prompt during insertion) -> Je prednastaveny, nie je vyzva pocas vkladania
ale tie atributy sa fyzicky nedostanu do databazy. V Rel 14 mi to bezi bez problémov skoro 8 rokov
------------- AcadR10-AcadR2002
|
|