Kubíček
06.06.2007, 11:05
Výměna bloku je možná různými způsoby:
1a. Ručně s pomocí příkazu: -vlož RAZEGE=D:/Library/bloky/vykresy/VymenaRaz/RzEGE-CZ-POS
1b. Pomocí lispovské funce
(DEFUN C:TEK ( / TEK e1 e3 e4) (command "-vlož" "RAZEGE=D:/Library/bloky/vykresy/VymenaRaz/RzEGE-CZ-POS" "A" "" pause))
Při těchto změnách zústává název původního bloku a pokud ho chcete změnit na požadovaný dá se to příkazem -přejmen blok ...
I když jsou použity u obou bloků stejné atributy jejich poloha po výměně neodpovídá požadované poloze jak jsou definované v nahrazovaném bloku.
2. Další možností je využitím operací s daty entit
(DEFUN C:TEK-EGE ( / TEK e1 e3 pa nbrv sa na nb)
(setq e3 (entget (SETQ e1 (car (entsel "Vyberte blok starého razítka: " ))))) ; data entity
(setq pa (assoc 2 e3)) ; seznam s klíčem 2 (setq nbrv (cdr pa)) ; název razítka na výkresu
(setq sa "RazEGECZ") ; staré razítko (setq na "RzEGE-CZ") ; nové razítko (setq nb "RzEGE-CZ-POS") ; nové razítko
((= nbrv nb) (prompt (strcat "/n Výkres má správné razítko: " nbrv))) ((= nbrv sa) (vlož-rz)) ) )
(DEFUN vlož-rz ( / bl sa sac)
(setq sac "D:/Library/bloky/vykresy/VymenaRaz/RzEGE-CZ-POS.dwg" ) (setq bl (STRCAT sa "=" sac)) (command "-vlož" bl "A" "" pauze) )
Ani při druhém pokusu jsem nedosáhl ispokojivé polohy textu atributů v rohovém razítku.
Chtěl bych se zeptat, zda jste někdo řešil podobný problém s výměnou podobných bloků s atributy. Jedním ze zůsobu je vytvoření náhradního bloku, který by dával uspokojivé výsledky.
1a. Ručně s pomocí příkazu: -vlož RAZEGE=D:/Library/bloky/vykresy/VymenaRaz/RzEGE-CZ-POS
1b. Pomocí lispovské funce
(DEFUN C:TEK ( / TEK e1 e3 e4) (command "-vlož" "RAZEGE=D:/Library/bloky/vykresy/VymenaRaz/RzEGE-CZ-POS" "A" "" pause))
Při těchto změnách zústává název původního bloku a pokud ho chcete změnit na požadovaný dá se to příkazem -přejmen blok ...
I když jsou použity u obou bloků stejné atributy jejich poloha po výměně neodpovídá požadované poloze jak jsou definované v nahrazovaném bloku.
2. Další možností je využitím operací s daty entit
(DEFUN C:TEK-EGE ( / TEK e1 e3 pa nbrv sa na nb)
(setq e3 (entget (SETQ e1 (car (entsel "Vyberte blok starého razítka: " ))))) ; data entity
(setq pa (assoc 2 e3)) ; seznam s klíčem 2 (setq nbrv (cdr pa)) ; název razítka na výkresu
(setq sa "RazEGECZ") ; staré razítko (setq na "RzEGE-CZ") ; nové razítko (setq nb "RzEGE-CZ-POS") ; nové razítko
((= nbrv nb) (prompt (strcat "/n Výkres má správné razítko: " nbrv))) ((= nbrv sa) (vlož-rz)) ) )
(DEFUN vlož-rz ( / bl sa sac)
(setq sac "D:/Library/bloky/vykresy/VymenaRaz/RzEGE-CZ-POS.dwg" ) (setq bl (STRCAT sa "=" sac)) (command "-vlož" bl "A" "" pauze) )
Ani při druhém pokusu jsem nedosáhl ispokojivé polohy textu atributů v rohovém razítku.
Chtěl bych se zeptat, zda jste někdo řešil podobný problém s výměnou podobných bloků s atributy. Jedním ze zůsobu je vytvoření náhradního bloku, který by dával uspokojivé výsledky.