Un intervallo di cosa?
Intendi un'area dello spazio o un intervallo numerico entro cui cercare tutti i testi del disegno?
(defun C:SELNUM (/ intervalloinf intervallosup gru num2 index numero)
(setq intervalloinf(getreal "\Intervallo inferiore: ")
intervallosup(getreal "\Intervallo superiore: ")
gru(ssget '((0 . "TEXT")))
num2(ssadd)
)
(repeat (setq index(sslength gru))
(setq numero(ssname gru (setq index(1- index))))
(if (and (>= (atof (vla-get-Textstring (vlax-ename->vla-object numero))) intervalloinf)
(<= (atof (vla-get-Textstring (vlax-ename->vla-object numero))) intervallosup)
)
(ssadd numero num2)
)
)
(sssetfirst nil num2)
(princ)
)
Risolto:biggrin:!!!!In pratica a me occorreva questo lisp per individuare l'indice di affollamento di una serie di uffici di cui già conoscevo la superficie ma che riportavano come separatore decimale la virgola. Ho risolto il problema creando le polilinee chiuse dei vani ufficio con il comando CONTORNI, successivamente ho utilizzato il lisp AREARON che mi ha restituito le superfici dei vani in un sol colpo (con il punto come separatore decimale) e successivamente grazie al lisp di confutatis "SELNUM" ho sostituito alle superfici ricadenti negli intervalli che mi interessavano gli indici di affollamento.
Grazie mille a confutatis per la sua disponibilità!:finger:
buongiorno, riesumo questo vecchio post per chiederti se puoi passarmi il lisp AREARON, non riesco a trovarlo :|