Zobrazit plnou verzi příspěvku: Hromadné odznačenie šrafy

mikeborecek
07.11.2019, 11:54
Zdravím,keď editujem hranice konkrétnej šrafy, je možné odznačiť viac hraníc naraz alebo len po jednom ako to robím teraz?

Vladimír Michl
07.11.2019, 14:59
Pokud editujete jejich tvar, musíte jednotlivě. Pokud je např. posouváte, můžete hromadně.

mikeborecek
07.11.2019, 15:01
skôr som myslel to, že keď mám šrafu ktorá má 5 hranic a potrebujem 3 odobrať, či je to možné robiť nejakým hromadním odznačením, lebo len jednotlivo cez ikonku "remove" v hatch editore?

Vladimír Michl
07.11.2019, 21:05
To ne, tento typ úprav se musí dělat jednotlivě (nebo programově, přes API).

johny
08.11.2019, 11:48
Je to zajímavé... jeden by si myslel, že když má výzvu "Select objects: " tak by mělo jít vybrat těch hranic hned několik...Každopádně můžete dát tu šrafu separovat a pak smazat kolik chcete najednou. Nikdy jsem moc nepochopil, k čemu je dobré mít jednu šrafu přes víc lokací... Nepoužívám to.

johny2019-11-08 11:51:16

mikeborecek
08.11.2019, 11:51
Ak mám šrafu, ktorú by som menil, čo sa mi občas stáva, pri zmene mierky, tak označím konkrétnu šrafu, ktorá označí všetky potrebné hranice pre zmenu buď šrafy, mierky, uhla ...
Skôr mi príde absurdné že pri výbere hraníc ne možnosť klasického "AutoCAD výberu", ale pri odobratí už nie. Človek by čakal, že by to mohlo byť rovnaké

johny
08.11.2019, 15:30
Však jak píšu... ono se to tváří že to umí, dokonce to hlásí "vyber objekty", ale neumí. Asi někdo myslel... a skutek utek.Jen tak cvičně jsem zkoušel dát dohromady nějaký lisp... je to taková splácanina sledující svůj účel, ale vypadá, že funguje.(vl-load-com)(defun c:BoundariesRemove (/ sh eh lst ss sk i en)  (if (and (or (setq sh (ssget "I"))        (prompt "\nImplied selection required."))    (or (= (sslength sh) 1)        (prompt "\Single select required."))    (setq eh (ssname sh 0))    (or (= (cdr (assoc 0 (entget eh))) "HATCH")        (prompt "\nHatch object reqired."))    (setq lst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 330 (car x))) (entget eh))))    (setq ss (ssadd))    )    (progn      (foreach e lst (ssadd e ss))      (command-s "_.select" ss "_r")      (setq sk (ssget "P"))      (command "_.zoom" "_e")      (command "_.hatchedit" eh "_remove")      (repeat (setq i (sslength ss)) (setq en (ssname ss (setq i (1- i)))) (if (not (ssmemb en sk))   (command (trans (vlax-curve-getstartpoint en) 0 1))))      (command "")      (command "_.zoom" "_p")      (sssetfirst nil sh)))  (princ))


johny2019-11-08 15:41:05

mikeborecek
08.11.2019, 15:34
Funguje perfektne.ĎAKUJEM!!!