Vytisknout stránku | Zavřít okno

Změna hladiny na základě barvy

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 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=8790
Datum vytištění: 23.dub.2026 v 08:00


Téma: Změna hladiny na základě barvy
Odeslal: Cheff
Předmět: Změna hladiny na základě barvy
Datum odeslání: 09.čer.2009 v 12:40
Dobrý den,
neřešil někdo podobný problém (třeba makrem).
Jde mi o to, že bych potřeboval dostat všechny entity do správné hladiny - tedy zautomatizovat postup: filter -> vybrat dle parametru (barvy entity) -> změnit hladinu. Nejlépe dle předem vytvořené šablony, nebo nastavení makra.

Kdyby šlo o jeden výkres, tak to neřeším, ale toto potřebuji dělat prakticky s každým výkresem, který otevírám... Cry

Věděl by někdo o něčem? Díky


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 09.čer.2009 v 13:14
Možná by pomohly standardy výkresů nebo tip:
http://www.cadforum.cz/cadforum/qaID.asp?tip=6500 - http://www.cadforum.cz/cadforum/qaID.asp?tip=6500


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

Odeslal: Seiner
Datum odeslání: 09.čer.2009 v 13:17
Komplexní řešení nemám, ale kdysi jsem pro úpravu cizích výkresů používal lispík pro výběr entit se stejným nastavením - třeba by se v tom dalo pokračovat.

;výběr entit s obdobným nastavením hladiny, barvy a typu čáry

(defun c:vyb()
(setq e (entsel "Vyber representanta "))
(setq hlad (cdr(assoc 8 (setq p(entget(car e)))))
      barva (cdr(assoc 62 p))
      typc  (cdr(assoc 6 p))
   )
(if (and(/= barva nil)(/= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad)(cons 62 barva) (cons 6 typc))))))
(if (and(= barva nil)(/= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad) (cons 6 typc))))))
(if (and(/= barva nil)(= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad) (cons 62 barva))))))
(if (and(= barva nil)(= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad))))))
(command "_CHPROP" m "")
 )



-------------
Vítězslav Seiner

Chrudim

Odeslal: v.straka
Datum odeslání: 09.čer.2009 v 15:50
Zkuste nastroje->CAD standarty->prevodnik hladin
melo by to byt ono.

-------------
v.straka

ICQ 283-000-941

Odeslal: Rostislav Říha
Datum odeslání: 15.čer.2009 v 15:34
kdysi pr nas cadstudio delalo lisp, ktery prevadel entity do hladin podle jejich barvy - bud to dali na download, nebo se jich zeptejte, ale maji to.

-------------
Rostislav Říha


Vytisknout stránku | Zavřít okno