🚀 go-pugleaf

>> Ktoś mi kiedyś zrobił takiego lispa który obraca wybrane wymiary o
>> wybrany kąt. Używam go do  tego by nie obracać ucsem tylko na koniec
>> zmienić uceesa dla wybranej grupy wymiarów. O to  chodzi?
> chodzi o to ze cokolwiek zwymiarujesz, a potem obrocisz USC o 90stopni
> napisy wymiarowe w pionowych wymiarach zamiast byc po lewej stronie
> lini wymiarowej sa po prawej i skierowane dolem w lewo.

No właśnie. To jest zapisane w kodzie każdego wymiaru.

> W jakis sposob wymiary zapamietuja uklad w ktorym zostaly narysowane
> i za diabla nie chca sie dostosowac do nowego, szukam czegos co "hurtem
> odswiezy" im te ustawienia

I to właśnie można zmienić tylko przy pomocy lispa:

(defun c:ptw (/ kąt zbiórwym li dł)
   (setq
     zbiórwym (lst_ent (ssget '((0 . "DIMENSION"))))
     kąt      (/ (getreal "\nPodaj kąt poziomu dla wymiarów: ") (* pi 2))
     li      0
     dł      (length zbiórwym)
   )
   (repeat dł
     (entmod (entnew (entget (nth li zbiórwym)) 51 kąt))
     (setq li (1+ li))
   )
   (princ)
)

(defun dxf (code elist)
   (if (= (type elist) 'ENAME)
     (cdr (assoc code (entget elist)))
     (cdr (assoc code elist))
   )
)


(defun entnew (entycja dxf_kod dxf_war)
   (if (dxf dxf_kod entycja)
     (subst
       (cons dxf_kod dxf_war)
       (assoc dxf_kod entycja)
       entycja
     )
     (cons (cons dxf_kod dxf_war) entycja)
   )
)

(defun lst_ent (zbiór_ss / licznik długość ent_lst nazwaent zw)
   (setq
     licznik 0
     ent_lst (list)
   )
   (repeat (sslength zbiór_ss)
     (setq nazwaent (ssname zbiór_ss licznik)
  ent_lst  (cons nazwaent ent_lst)
  licznik  (1+ licznik)
     )
   )
   (setq zw ent_lst)
)


-- 
__________________________________________MAT_______