Vytisknout stránku | Zavřít okno

Vyhledávání i v rozvržení

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=28666
Datum vytištění: 05.čer.2026 v 05:24


Téma: Vyhledávání i v rozvržení
Odeslal: maiklss
Předmět: Vyhledávání i v rozvržení
Datum odeslání: 08.dub.2019 v 14:38
Dobrý den,  mám  DWG co má  256 listu  rozvržení ale  kdo to  tvořil tak  dal  text do  stejné hladiny jako  osy tak bych potřeboval  ted ten  text dát do jiné  hladiny jde to nějak  jednoduše?  rychlý výběr mi vždy vybere v daném  rozvžení nebo  modelu ale potřebuji vybrat ve všech rozvrženích

-------------
Když můžu pomůžu:)


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 08.dub.2019 v 14:49
Jde o to, jestli ty texty mají něco společného, aby je bylo možné je hromadně vybrat nějakým filtrem. Pokud mají např. stejné znění, šlo by použít:
 
(sssetfirst nil (ssget "_X" '((1 . "blbej text"))))
 
a pak viz https://www.cadforum.cz/cadforum/jak-vybrat-a-upravit-objekty-ve-vsech-rozvrzenich-dwg-tip10014 - https://www.cadforum.cz/cadforum/jak-vybrat-a-upravit-objekty-ve-vsech-rozvrzenich-dwg-tip10014


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

Odeslal: maiklss
Datum odeslání: 08.dub.2019 v 14:58
Děkuji
Entity na modelu mi to vybere ale nemám je možnost změnít
 

Lze do příkazu zadat i přesun do hladiny XY? 

-------------
Když můžu pomůžu:)

Odeslal: Vladimír Michl
Datum odeslání: 08.dub.2019 v 15:45
Nesmí být v zamčené hladině, jinak by měly jít změnit tím popsaným způsobem. Ještě jsme doplnili utilitu SSX aby šlo vybírat i texty maskou, bez "programování" ssget.

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

Odeslal: johny
Datum odeslání: 08.dub.2019 v 16:29
Nebo takto...

(defun c:MoveTextToLayer (/ l1 l2 ss i)
  
  (if (and (setq l1 (car (entsel "\nSelect object for source layer: ")))
           (setq l1 (assoc 8 (entget l1)))
           (setq l2 (car (entsel "\nSelect object for target layer: ")))
           (setq l2 (assoc 8 (entget l2)))
           (setq ss (ssget "_X" (list '(0 . "*TEXT") l1)))
           )
    (repeat (setq i (sslength ss))
      (entmod (subst l2 l1 (entget (ssname ss (setq i (1- i))))))))
  (princ)
  )


Vytisknout stránku | Zavřít okno