Vytisknout stránku | Zavřít okno

bloky v celom výkrese

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=32207
Datum vytištění: 10.kvě.2026 v 07:50


Téma: bloky v celom výkrese
Odeslal: cvirikovec
Předmět: bloky v celom výkrese
Datum odeslání: 30.čer.2021 v 14:02
Ahojte.
Existuje nejaký nastroj nato aby mi na zo všetkých entit vo výkrese urobil z každého samostatný blok?
Napríklad mám tam  10 hatchov, 4 polyline a tak mi vytvorí 14 blokov. 
Ďakujem 


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 30.čer.2021 v 14:05
Asi by šlo něco takového snadno udělat LISP makrem, ale bude to praktické? Např. z každé úsečky a bodu bude samostatný blok? S náhodným názvem?

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

Odeslal: johny
Datum odeslání: 30.čer.2021 v 15:30
Kdysi jsem něco takového psal. 
Jak použít LISP http://www.lee-mac.com/runlisp.html" rel="nofollow - http://www.lee-mac.com/runlisp.html


(defun c:Blockade (/ s o e n m x b)

  (if (setq s (ssget '((-4 . "<NOT") (0 . "VIEWPORT,RAY,XLINE,INSERT") (-4 . "NOT>"))))
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i)))
    n (cdr (assoc 0 (entget e))))
      (setq x 1000)
      (while (tblsearch "BLOCK" (setq m (strcat n "_" (itoa (setq x (1+ x)))))))
      (entmake (list '(0 . "BLOCK") '(10 0 0 0) (cons 2 m) '(70 . 0)))
      (entmake (entget e))
      (and (= 1 (cdr (assoc 66 (entget (setq b e)))))
   (while (not (= "SEQEND" (cdr (assoc 0 (entget (setq b (entnext b)))))))
     (entmake (entget b)))
   (entmake (entget b)))
      (entdel e)
      (entmake '((0 . "ENDBLK") (8 . "0")))
      (entmake (list '(0 . "INSERT") (cons 2 m) '(10 0 0 0)))))
  (princ)
  )

Odeslal: cvirikovec
Datum odeslání: 01.čvc.2021 v 18:49
Dakujem :)
Ako dôvod je že vlastne chcem zväčšiť všetky entity 2x (teda dám to do bloku a tak to zväčším

Odeslal: Žufi
Datum odeslání: 02.čvc.2021 v 06:47
A klasické [CMD]MĚŘÍTKO[/CMD] (_SCALE) není použitelné?

Odeslal: cvirikovec
Datum odeslání: 02.čvc.2021 v 10:31
Práve že nie, lebo ja potrebujem aby mi to zväčšovalo presne od stredu danej entity, nie od 0,0 

Odeslal: Vladimír Michl
Datum odeslání: 02.čvc.2021 v 12:14
Od středu nebo od vkládacího bodu?
Viz tip:
https://www.cadforum.cz/cz/qaID.asp?tip=2943 - CAD Fórum - Jak zvětšit nebo natočit několik bloků okolo jejich individuálních vkládacích bodů? (cadforum.cz)


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


Vytisknout stránku | Zavřít okno