Zobrazit plnou verzi příspěvku: bloky v celom výkrese

cvirikovec
30.06.2021, 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 

Vladimír Michl
30.06.2021, 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?

johny
30.06.2021, 15:30
Kdysi jsem něco takového psal. Jak použít LISP 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)  )

cvirikovec
01.07.2021, 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

Žufi
02.07.2021, 06:47
A klasické [CMD]MĚŘÍTKO[/CMD] (_SCALE) není použitelné?

cvirikovec
02.07.2021, 10:31
Práve že nie, lebo ja potrebujem aby mi to zväčšovalo presne od stredu danej entity, nie od 0,0 

Vladimír Michl
02.07.2021, 12:14
Od středu nebo od vkládacího bodu?Viz tip:CAD Fórum - Jak zvětšit nebo natočit několik bloků okolo jejich individuálních vkládacích bodů? (cadforum.cz)