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?
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
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)