Povratak

 

;------------- POČETAK - PODNAPUTBINA ZA IZMJENU VROEDNOSTI PRIDJEVKA U ODABRANOM SKLOPU----------------------------------------------

;- ova podnaputbina kano ulazne razloge ima -ime jedinke-, -naziv pridjevka (podjedinke sklopa) kojeg želimo mienjati (oblik znakoniz),

;vriednost (u obliku znakoniza) koju želimo pridružiti tom pridjevku.

;- Izlazna vriednost ove podnaputbine jest izmienjena vriednost pridjevka unutar sklopa

;- PRIMJER: (promieni-sklop (car (entsel)) "VRSTA" "34") ;uvjet je da odabrani sklop ima u sebi pridjevak pod nazivom "VRSTA"

(defun promieni-sklop (jedinka-sklopa naziv-pridjevka vriednost-pridjevka / uzornik1 uzornik poduzornik poduzornik1 niz)

(setq uzornik1 jedinka-sklopa)

(setq uzornik (entget uzornik1)) ;uzorni sklop

(setq poduzornik (entget (entnext (cdr (car uzornik)))))

(while (/= (cdr (assoc 0 poduzornik)) "SEQEND")

  (if (= (cdr (assoc 2 poduzornik)) naziv-pridjevka) (progn (setq poduzornik1 poduzornik) ))

  (setq poduzornik (entget (entnext (cdr (car poduzornik)))))

) ;kraj while

(setq niz (assoc 1 poduzornik1))

(setq poduzornik1 (subst (cons 1 vriednost-pridjevka) niz poduzornik1)) (entmod poduzornik1)

) ;kraj defun

;------------- KRAJ - PODNAPUTBINA ZA IZMJENU VROEDNOSTI PRIDJEVKA U ODABRANOM SKLOPU----------------------------------------------