Rispondi alla discussione

Messaggio

<blockquote data-quote="Angelo2449" data-source="post: 415898" data-attributes="member: 73705">Ho inserito il comando ma ottengo errore :[CODE](defun C:GEOREF (/ ImagePuntoUno ImagePuntoDue DwgPuntoUno DwgPuntoDue Dist1 Dist2)&nbsp; &nbsp; (setvar &quot;osmode&quot; 0)&nbsp; &nbsp; (setq Image nil)&nbsp; &nbsp; (while&nbsp; &nbsp; &nbsp; &nbsp; (= Image nil)&nbsp; &nbsp; &nbsp; &nbsp; (setq Image (entsel &quot;\nSeleziona l'Immagine da georeferenziare : &quot;))&nbsp; &nbsp; )&nbsp; &nbsp; ;; --------------------------------&nbsp; &nbsp; (setq ImagePuntoUno nil)&nbsp; &nbsp; (while&nbsp; &nbsp; (= ImagePuntoUno nil)&nbsp; &nbsp; (princ &quot;\nPrimo Punto dell'Immagine: &quot;)&nbsp; &nbsp; (setq ImagePuntoUno (getpoint))&nbsp; &nbsp; )&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (princ ImagePuntoUno)&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (setq ImagePuntoDue nil)&nbsp; &nbsp; &nbsp; &nbsp; (while&nbsp; &nbsp; (= ImagePuntoDue nil)&nbsp; &nbsp; (princ &quot;\nSecondo Punto dell'Immagine: &quot;)&nbsp; &nbsp; (setq ImagePuntoDue (getpoint))&nbsp; &nbsp; )&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (princ ImagePuntoDue)&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; ;; --------------------------------&nbsp; &nbsp; (setq DwgPuntoUno nil)&nbsp; &nbsp; (while&nbsp; &nbsp; (= DwgPuntoUno nil)&nbsp; &nbsp; (princ &quot;\nPrimo Punto del Rilievo: &quot;)&nbsp; &nbsp; (setq DwgPuntoUno (getpoint))&nbsp; &nbsp; )&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (princ DwgPuntoUno)&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (setq DwgPuntoDue nil)&nbsp; &nbsp; (while&nbsp; &nbsp; (= DwgPuntoDue nil)&nbsp; &nbsp; (princ &quot;\nSecondo Punto del Rilievo: &quot;)&nbsp; &nbsp; (setq DwgPuntoDue (getpoint))&nbsp; &nbsp; )&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (princ DwgPuntoDue)&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (setq Dist1 (distance ImagePuntoUno ImagePuntoDue))&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (princ Dist1)&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (setq Dist2 (distance DwgPuntoUno DwgPuntoDue))&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (princ Dist2)&nbsp; &nbsp; (princ &quot;\n&quot;)&nbsp; &nbsp; (command &quot;_scale&quot; Image DwgPuntoUno &quot;_R&quot; Dist1 Dist2)&nbsp;&nbsp; )[/CODE]Grazie</blockquote>

[QUOTE="Angelo2449, post: 415898, member: 73705"] Ho inserito il comando ma ottengo errore : [CODE](defun C:GEOREF (/ ImagePuntoUno ImagePuntoDue DwgPuntoUno DwgPuntoDue Dist1 Dist2) (setvar "osmode" 0) (setq Image nil) (while (= Image nil) (setq Image (entsel "\nSeleziona l'Immagine da georeferenziare : ")) ) ;; -------------------------------- (setq ImagePuntoUno nil) (while (= ImagePuntoUno nil) (princ "\nPrimo Punto dell'Immagine: ") (setq ImagePuntoUno (getpoint)) ) (princ "\n") (princ ImagePuntoUno) (princ "\n") (setq ImagePuntoDue nil) (while (= ImagePuntoDue nil) (princ "\nSecondo Punto dell'Immagine: ") (setq ImagePuntoDue (getpoint)) ) (princ "\n") (princ ImagePuntoDue) (princ "\n") ;; -------------------------------- (setq DwgPuntoUno nil) (while (= DwgPuntoUno nil) (princ "\nPrimo Punto del Rilievo: ") (setq DwgPuntoUno (getpoint)) ) (princ "\n") (princ DwgPuntoUno) (princ "\n") (setq DwgPuntoDue nil) (while (= DwgPuntoDue nil) (princ "\nSecondo Punto del Rilievo: ") (setq DwgPuntoDue (getpoint)) ) (princ "\n") (princ DwgPuntoDue) (princ "\n") (setq Dist1 (distance ImagePuntoUno ImagePuntoDue)) (princ "\n") (princ Dist1) (princ "\n") (setq Dist2 (distance DwgPuntoUno DwgPuntoDue)) (princ "\n") (princ Dist2) (princ "\n") (command "_scale" Image DwgPuntoUno "_R" Dist1 Dist2) )[/CODE] Grazie [/QUOTE]

Verifica

Rispondi alla discussione

Utenti online

Statistiche forum