Vytisknout stránku | Zavřít okno

Hromadná výměna prvku za jiný.

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=29224
Datum vytištění: 03.srp.2026 v 09:29


Téma: Hromadná výměna prvku za jiný.
Odeslal: vojtamerka
Předmět: Hromadná výměna prvku za jiný.
Datum odeslání: 08.srp.2019 v 10:37
Dobrý den, lze v autocadu vyměnit prvek za jiný třeba pomocí Bloků?

Příklad v Inventoru modeluji plech a vkládám tam díru 0,3 mm pro nastřelení šroubu.(kvůli vazbám)

Z inventoru udělám dxf pro pálení na laser ale místo kružnic potřebuji vygravírovat křížek 10x10mm.

Na dílu je někdy i 50 značek. Potřebuji urychlit svojí práci nějakou pomuckou, která najde středy kružnic 0.3 mm a vloží do nich křížek 10x10mm.

Teď křížky kopíruji ručně a přes Rychle vybrat najdu kružnice 0,3mm a vymažu.

Děkuji za ja koukoliv radu.

Vojtěch Měrka.





Odpovědi:
Odeslal: Sedláček
Datum odeslání: 08.srp.2019 v 14:37
Pro náhradu bloků jiným blokem jsem si dělal LISP prográmek:
 
(defun c:b2b () 
    (setvar "cmdecho" 0)
    (prompt "Vyber bloky k záměně")
    (setq vyb (ssget (list '(0 . "INSERT"))))
    (prompt "Vyber nový blok")
    (setq novy (entget (car (entsel))))
    (setq jmeno (cdr (assoc 2 novy)))
    (setq n 0)
    (repeat (sslength vyb)        
       (setq e (entget (ssname vyb n)))
        (setq bl (cdr (assoc -1 e)))
        (setq n (1+ n))           
        (setq e (subst (cons 2 jmeno) (assoc 2 e) e))                 
        (entmod e)                          
        (entupd bl) 
 )
)


Odeslal: Ondřej Urban
Datum odeslání: 20.srp.2019 v 15:27
Zdravím,
pokud jde o blok za blok, tak je funkce přímo v CADu,  Express tools - Blocks - Replace block...
Pokud to je jen entita, tak... :-(
pěkný den


-------------
Ondřej Kurkan Urban
PERI, spol. s r.o.
http://www.peri.cz" rel="nofollow - http://www.peri.cz

WIN 10, 64GB, RTX A4500, 2x27"
ACA 2023, ntb LENOVO P 16 G1


Odeslal: Vladimír Michl
Datum odeslání: 20.srp.2019 v 15:30
Nebo přes P2BLK rovnou nahradit kružnice zadaným blokem:
https://www.cadforum.cz/cadforum/nahrazeni-bodu-entitami-blok-tip7144 - https://www.cadforum.cz/cadforum/nahrazeni-bodu-entitami-blok-tip7144


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


Odeslal: vojtamerka
Datum odeslání: 20.srp.2019 v 21:51
Děkuji v praci vyzkoušíme.SmileSmile


Odeslal: vojtamerka
Datum odeslání: 20.srp.2019 v 21:52
Děkuji kolega ma s programováním zkušenosti. Určitě vyzkoušíme :-)



Vytisknout stránku | Zavřít okno