(defun c:EstrazioneURL ()

	(setq gruppoide(ssget "x" '((0 . "INSERT")(-3 ("PE_URL"))) ))
   	(setq nome-pref(getvar "dwgprefix"))
	(setq nome-dwg (getfiled "File di estrazione URL" nome-pref "csv" 1))
	(if nome-dwg (progn
			(setq nome1(open nome-dwg "w"))        
			(setq l-gru(sslength gruppoide))
			(setq i2 0)
			(setq riga1(strcat "V1" ";" "V3"))
			(write-line riga1 nome1)
			(repeat l-gru
				(setq ent-ramo(ssname gruppoide i2))
				(setq dati-estesi1(entget ent-ramo '("PE_URL")))
				(setq ddd-eee (assoc -3 dati-estesi1))
				(setq dati-estesi(nth 1 ddd-eee))
				(setq V1(cdr (nth 1 DATI-ESTESI)))         
				(setq V2(cdr (nth 2 DATI-ESTESI)))  ;;; parentesi graffa       
				(setq V3(cdr (nth 3 DATI-ESTESI)))         
				(setq V4(cdr (nth 4 DATI-ESTESI)))  ;;; parentesi graffa       
				(setq riga1(strcat V1 ";" V3))
				(write-line riga1 nome1)
				(setq i2(+ 1 i2))         
			)
			(close nome1)
		        (alert (strcat "Creato il file: " nome-dwg))
			)
	)
  	(princ)
)
;---------------------------------------------------------------------
(princ "\n <Copyright: ing. Claudio Granuzzo> ")
(princ "\n Digitare EstrazioneURL per lanciare il programma")
(princ)