Lisp do numerowania
PiotrB.
Bardzo przydałby mi się lisp,
który zmieniałby tekst zaznaczonych wymiarów
na kolejną liczbę (1, 2, 3, 4 itd.).
Czy ktoś z grupowiczów mógłby
pomóc mi coś takiego napisać?
Mam lisp do grupowej zmiany wartości
atrybutów, zastanawiam się co w nim
zmienić, żeby zmieniał obiekty typu wymiar?
----------------
;;;;;Wstawienie nowej wartości
;;;;;;atrybutu - członka rodziny
(wsk_typ_n "ATTRIB" "Atrybut")
(setq en (car wwz))
(setq ed (entget en))
(if (= "ATTRIB" (dxf 0 ed))
(progn
(princ (strcat "\nstara wartość " (dxf 2 ed) ": " (dxf
1 ed)))
(setq name_cz (dxf 2 ed))
(setq nowq nil)
(initget 128)
(setq nowq (getstring t "\n Podaj nową wartość
atrybutu
:"))
(if (or (not nowq) (= nowq ""))
(progn
(setq nowq (dxf 1 ed))
)
(progn
)
)
(podmia nowq)
;; (command "_regen")
)
)
;);while
--------------------
Pozdrawiam,
Piotr
Piotr Knyļ
Mam taką funkcję gotową
(defun c:wnum ( / i ssWymiar ed ipocz)
(setq ssWymiar (ssget '((0 . "DIMENSION"))));w zbiorze pozostają tylko
wymiray
(setq ipocz (getint "\n Podaj wartość początkową :"))
(if (or (not ipocz) (= ipocz ""))
(progn
(setq ipocz 0)
)
(progn
)
)
(setq i 0)
(repeat (sslength ssWymiar)
(progn
(setq ed (entget (ssname ssWymiar i)))
(podmia (itoa (+ i ipocz)))
(setq i (+ 1 i))
)
)
)
(defun podmia ( naco / )
(setq ed (subst (cons 1 naco)(assoc 1 ed) ed))
(entmod ed)
)
Pozdrowienia
Piotr Knyś
Użytkownik "PiotrB." <ppqqSpamN...@opspamniedlamnie.pl> napisał w
wiadomości news:op.ufh71sgadty9ff@k4...