Newsgroup: it.comp.software.cad
Titolo: A tutto il news group: Aiuto AREA

Salve a tutti,
c'è un comando in Autocad che mi permetta di scrivere direttamente il valore
della superficie calcolata col Comando Area, senza dover digitare questo
valore ogni volta, come farei per una qualsiasi linea di testo?
Grazie a tutti coloro che verranno in mio soccorso
Saluti
Dario Bianco

se mi spieghi bene cosč che dovrebbe esattamente fare il comando che cerchi
se vuoi posso farti io tale utility
Pietro 1844.

 se vuoi posso farti io tale utility
Bravo Pietro, per aiutarti ti do un pezzetto che ho pronto:
---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---c
ut---cut---cut---
(defun c:arpe ()
   (setq npol (car(entsel))) (Print npol)
   (setq apol (vlax-curve-getArea npol))
   (setq ipol (vlax-curve-getStartParam npol))
   (setq fpol (vlax-curve-getEndParam npol))
   (setq lpol (vlax-curve-getDistAtParam npol (- fpol ipol)))
   (setq a&p (strcat "Area " (rtos apol 2 4) "  Perimetro " (rtos lpol 2
4)))
   (print a&p)(princ))
---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---c
ut---cut---cut---
Quanto sopra fornisce area e perimetro di una "curva" aperta o chiusa che
sia dall'inizio alla fine.
Bisogna ora capire cosa serve al Barone®
Si potrebbe fare qualcosa di utile anche a "Gekl" (vedi 3 inizi discorso
prima)
sfruttando il consiglio di "Roby Cornaglia" che suggerisce l'uso di
"_boundary",
Io butto la il programmino concettuale, non ho aime' il tempo di
svilupparlo...
ma e' veramente facile facile.
se si hanno una serie di oggetti che formano un area chiusa e si vuole
calcolarla:
creare il "boundary" cliccando un punto interno
passarlo alla procedura che ho postato in qualita' di "entlast"
calcellare il boundary.
--
Ciao Giovanni




 ma e' veramente facile facile.
[cut]
mettendo insieme tutte queste cose provatevi questo lispino che recita:
---------------------------------------BEGIN-lisp-----------------------
; RISULTATI
(defun vis_area (/  conferma)
  (command "_undo" "_b")
  (PRINC "\n \nDati relativi al contorno selezionato: ")
  (princ (strcat "\nArea: " a1 "   Perimetro: " p1))
  (SETQ PT1 (GETPOINT "\n Punto : "))
(COMMAND "_TEXT"  PT  1 0  a1)
(princ)
)
;; FUNZIONE PRINCIPALE
(defun c:AAA ( / a p a1 p1 pt)
   (setvar "CMDECHO" 0) (SETVAR "MENUECHO" 0)
   (command "_area" "0.00" "") (setq a (rtos (getvar "AREA") 2 2))
   (setq pt nil)
   (initget 1)
   (setq pt (getpoint "\nSelezionare punto interno al contorno: "))
   (setvar "HPBOUND" 1)
   (command "_undo" "_m") (command "_bpoly" pt "")
   (command "_area" "_e" "_last")
   (setq a (rtos (getvar "AREA") 2 2)
         p (rtos (getvar "PERIMETER") 2 2)
         a1 a
         p1 p
   )
   (if (= a "0.00")
    (progn (alert "Calcolo area non riuscito. \nRiprovare !") (exit))
    (progn
     (redraw (entlast) 3)
     (initget 1 "S N E")
     (setq conferma (strcase (getkword "\nContorno ok (Si / No / Evidenzia)
: ")))
     (if (= conferma "S") (vis_area))
     (if (= conferma "N") (progn (command "_undo" "_b") (princ "\nSelezione
annullata !")))
     (if (= conferma "E")
       (progn
          (command "_pedit" "_last" "_w" 0.5 "")
          (redraw)
          (initget 1 "S N")
          (setq conferma (strcase (getkword "\nContorno ok (Si/No): ")))
          (if (= conferma "S") (vis_area))
          (if (= conferma "N")  (progn (command "_undo" "_b") (princ
"\nSelezione annullata !")))
        )
     )
    )
   )
   (redraw)
   (princ)
)
---------------------------------------END-lisp-----------------------
provatelo e fatemi sapere
Ciao
--
Massimo Ghio

 wrote in message
dimmi se ho capito bene:
tu hai su video dei poligoni o spezzate e vuoi cliccandoci sopra lanciando
un'applicazione,
che automaticamente si inserisca un testo, magari al centro del poligono o
spezzata,
in cui si riporti "S= xxx mq"
OK ho capito?
Pietro 1844

 provatelo e fatemi sapere
non ti dispiacere, io proverollo piu' in la.
magari il Barone® potrebbe povarlo e farci sapere.
--
Ciao Giovanni