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
 


3/ Keď vkladám ten istý blok programovo žiadne atribúty vo výkresovej databáze neexistujú
Pozri obrázok 2
 

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 ?)

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


Upravil Statik - 15.čer.2006 v 17:19