(defun c:prenumerisi ()


  (setq multi (getint "\nPomeri brojeve profila za: "))  

  (princ "\nSelect 'cross-section' markers...")
    (setq sssec (ssget '((0 . "INSERT") (2 . "secblk"))))

    (setq iter 0)
  (repeat (sslength sssec)
    (setq esecblok (ssname sssec iter)
	  secblok (entget esecblok))
    (setq attr (entnext esecblok)
	  ymax (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  rsw (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  secnum (atof (cdr (assoc 1 (entget attr))))
	  dd (entmod (subst (cons 1 (rtos (+ secnum multi) 2)) (assoc 1 (entget attr)) (entget attr)))
	  attr (entnext attr)
	  texthei (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  vspace (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  vegzag (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  basel (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  ymin (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  lsw (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  sta (atof (cdr (assoc 1 (entget attr))))
	  )
    
    (setq iter (1+ iter))
    );end repeat

  (princ)
  );end defun



(defun c:prestacioniraj ()


  (setq multi (getreal "\nPomeri stacionaze profila za: "))  

  (princ "\nSelect 'cross-section' markers...")
    (setq sssec (ssget '((0 . "INSERT") (2 . "secblk"))))

    (setq iter 0)
  (repeat (sslength sssec)
    (setq esecblok (ssname sssec iter)
	  secblok (entget esecblok))
    (setq attr (entnext esecblok)
	  ymax (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  rsw (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  secnum (atof (cdr (assoc 1 (entget attr))))
	  ;dd (entmod (subst (cons 1 (rtos (+ secnum multi) 2)) (assoc 1 (entget attr)) (entget attr)))
	  attr (entnext attr)
	  texthei (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  vspace (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  vegzag (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  basel (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  ymin (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  lsw (atof (cdr (assoc 1 (entget attr))))
	  attr (entnext attr)
	  sta (atof (cdr (assoc 1 (entget attr))))
          dd (entmod (subst (cons 1 (rtos (+ sta multi) 2 3)) (assoc 1 (entget attr)) (entget attr)))
	  )
    
    (setq iter (1+ iter))
    );end repeat

  (princ)
  );end defun






(princ "\nKomanda PRENUMERISI menja atribute brojeve poprecnih profila za odabrani celi broj")
(princ "\nKomanda PRESTACIONIRAJ menja atribute stacionaza poprecnih profila za odabranu duzinu stacionaze")