Oblouková kóta

LISP aplikace pro vytvoření obloukové kóty v CAD programu.

---

(DEFUN C:ARCDIM()
  ; Vyzva uzivateli a nacteni nazvu entity do promenne en
  (setq en (car (entsel "\nVyberte oblouk: ")))  
  ; Nacte data entity do promenne en1
  (setq en1 (entget en))
  
  ;Vypocet delky oblouku
  (setq polomer (CDR (assoc 40 en1)))
  (setq uhel2 (CDR (assoc 51 en1)))
  (setq uhel1 (CDR (assoc 50 en1)))
  (if (> uhel1 uhel2)
	  (setq uhel (+ (- (* 2 pi) uhel1) uhel2))
	  (setq uhel (- uhel2 uhel1))
  )
  (setq delka (* uhel polomer))
  
  ;; Moznost kontrolniho tisku hodnot
  ;(print uhel)
  ;(print polomer)
  ;(print delka)
  ;; Prevod real to string
  (setq delka (rtos delka))
  
  ; Vytvori uhlovou kotu a zameni text za delku oblouku
  (setq p1 (getpoint "\nZadejte umisteni kotovaciho oblouku"))
  (command "_dimangular" en p1)
  (setq kota (entlast))
  (setq kota1 (entget kota)) ; Get the entity data from the entity name.
  ; Zamena textu
  (setq kota1 (subst (cons 1 delka) (assoc 1 kota1) kota1))
  ; Aktualizace entity ve vykrese    
  (entmod kota1)
  (princ)
)

; Cisla hodnot v datech entity (kota a oblouk):
; 1 - text
; 6 - typ cary
; 8 - hladina
; 10 - x,y,z souradnice stredoveho bodu
; 40 - polomer oblouku
; 50 - uhel 1 v radianech
; 51 - uhel 2 v radianech
; 62 - barva;

---

Soubor ke stažení