Sčítání ploch

Sčítání při měření ploch ve výkrese. Plochy se definují body po obvodu.

Přesnost součtu se řídí nastavením přesnosti délkových jednotek ve výkrese. Pro změnu přesnosti zvolte Nástroje > Nastavení kreslení > záložka Jednotky výkresu: > záložka Lineární a zadejte požadovanou hodnotu v poli Přesnost.

Příkaz je volán zadáním "2a" do příkazového řádku programu.

V průběhu nepoužívejte Enter bez zadání plochy body. Funkce v takovém případě k výsledku přičte předchozí změřenou plochu.

Běh je ukončen klávesou Escape nebo zadáním plochy jen dvěma body (nulová plocha).

---

(DEFUN C:2A(/ td td0 c)

  (plocha)
  (setq td 0.0)
  (setq td0 (getvar "area"))
  (setq td (+ td0 td))

  (while (> td0 0)
    (plocha)
    (setq td0 (getvar "area"))
    (setq td (+ td0 td))
    (princ "\n")
    (princ td0)
    (princ "\n")
    (princ (strcat "\nCelkova plocha: " (rtos td)))
  )
  (princ)
)

(defun plocha (/ hodn)
 (setq hodn (getvar 'area))
 (command "_.area")
 (while (< 0 (getvar 'cmdactive))
   (progn (princ "\nZadejte bod: ")
          (command PAUSE)
   )
 )
 (if (not (member (getvar 'area) (list hodn 0.)))
   (getvar 'area)
 )
)

(princ)

---

Soubor ke stažení