ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Registrujte se na konferenci CADfórum 2025 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Lze hromadně srovnat bloky do rastru?
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Bonavox Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 28.led.2009
Lokalita: Austria
Používám:
DDS CAD Electrical, ePLAN Electric P8, AutoCAD LT
Stav: Offline
Bodů: 140
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Bonavox Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Téma: Lze hromadně srovnat bloky do rastru?
    Zasláno: 13 hodin 39 minut zpět v 14:59
Aby výkresy co k čemu vypadaly, tak kreslím v rastru dle měřítka (např. 1:50 = rastr 50).
Teď jsem bohužel narazil na architekty, kteří mi poposunovali všechny bloky dle skutečnosti (jakože třeba zásuvku chtějí na výkrese přesně XX mm od futer; co na tom, že to v tom měřítku na výkrese nebude vůbec poznat). Průšvih je, že mi tím kompletně rozhodili celý výkres, a tím pádem v rastru najednou nejde kreslit (nesedí značky do kabelů, apod.).

Není nějaký příkaz, který by všechny bloky posunul do nejbližšího bodu zapnutého rastru?

Zkoušel jsem hledat, ale nic moc jsem nenašel.
Zpět nahoru
Bonavox Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 28.led.2009
Lokalita: Austria
Používám:
DDS CAD Electrical, ePLAN Electric P8, AutoCAD LT
Stav: Offline
Bodů: 140
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Bonavox Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 12 hodin 16 minut zpět v 16:22
Ach ... tak že mě to nenapadlo hned, se v době AI zeptat AI ...

(defun c:SNAPBLOCKTOGRID (/ ss i ent ed inspt snap tol restx resty newpt)
  (setq tol 1e-6)
  (setq snap (getvar "SNAPUNIT"))
  
  (if (= 0 (getvar "SNAPMODE")) (setvar "SNAPMODE" 1))
  (setq ss (ssget "_X" '((0 . "INSERT"))))
  
  (if ss
    (progn
      (princ (strcat "\nZpracovávám " (itoa (sslength ss)) " bloků..."))
      (setq i 0)
      (while (< i (sslength ss))
        (setq ent   (ssname ss i)
              ed    (entget ent)
              inspt (cdr (assoc 10 ed)))
        ;; Zbytek po dělení rozestupem ("modulo"), korekce čisté násobnosti
        (setq restx (abs (rem (car inspt) (car snap))))
        (setq resty (abs (rem (cadr inspt) (cadr snap))))
        ;; Pokud alespoň X nebo Y není "v rastru", blok zarovnáme
        (if (or (> restx tol) (> resty tol))
          (progn
            (setq newpt
              (list
                (* (car snap) (fix (+ (/ (car inspt) (car snap)) 0.5)))
                (* (cadr snap) (fix (+ (/ (cadr inspt) (cadr snap)) 0.5)))
                (caddr inspt)))
            (entmod (subst (cons 10 newpt) (assoc 10 ed) ed))
            (princ (strcat "\n• Posun blok ID " (cdr (assoc 5 ed))))
          )
        )
        (setq i (1+ i))
      )
      (command "REGEN")
      (princ "\nHotovo.")
    )
    (princ "\nŽádné bloky k posunu.")
  )
  (princ)
)
Zpět nahoru
vbehun Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 04.říj.2004
Lokalita: ČR (ZL)
Používám:
Autocad R10 >> Autocad 2023 / altern. QCad Prof.
Stav: Offline
Bodů: 1249
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace vbehun Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 10 hodin 4 minut zpět v 18:34
Já nevím. Kreslíte skutečnost nebo malůvku?
V tomto podporuji architekty - vždy jsem kreslil ve skutečném měřítku a ne "aby to vypadalo".
V případě potřeby jsou k dispozici detaily.
---
Zní to tvrdě, ale podobným umělcům bych ruce ulámal ...
=^..^=
Zpět nahoru
Bonavox Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 28.led.2009
Lokalita: Austria
Používám:
DDS CAD Electrical, ePLAN Electric P8, AutoCAD LT
Stav: Offline
Bodů: 140
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Bonavox Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 6 hodin 59 minut zpět v 21:39
Já taky nevím. Značka na výkrese je snad 100x větší, než ve skutečnosti, tak moc nerozumím nějakému přesnému pozicování. Nehledě na to, že z výkresu 1:50 stejně nikdo žádnou přesnou pozici nevyčte.

K přesnému pozicování a kótování co vím slouží "projekt interieru", nikoli schematický projekt elektro.
Zpět nahoru
Bonavox Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 28.led.2009
Lokalita: Austria
Používám:
DDS CAD Electrical, ePLAN Electric P8, AutoCAD LT
Stav: Offline
Bodů: 140
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Bonavox Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 6 hodin 52 minut zpět v 21:46
Původně odeslal(a) vbehun vbehun napsal(a):

vždy jsem kreslil ve skutečném měřítku a ne "aby to vypadalo"
Jak tomu rozumět "ve skutečném měřítku"?
Jakože zásuvku ve skutečnosti širokou 8 cm na výkrese v 1:50 kreslíte o velikosti 1,6 mm?
To pak musí být mňamka podle toho něco dělat.
Hlavně že to ale je ve skutečných pozicích.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 2012:Jak "napasovat" vkládaný rastrový obrázek do existující vektorové situační kresby?
Tip 9404:V Mapu/Civilu nejdou hromadně vybírat vrcholy křivky nad obrázkem.
Tip 9325:Jak vymazat nebo editovat jakýkoliv anonymní blok v DWG?
Tip 4067:Jak zčitelnit natočené texty a atributy bloků ve výkresu?
Tip 8965:Jak hromadně vložit několik DWG souborů do jednoho?
Tip 2076:Jak v Inventoru zadávat souřadnice kreslených prvků náčrtu číselně, pomocí klávesnice?


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,275 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img