(defun c:ContornoH ()
(setq pq(entget (car (entsel))))
 (setq npunti(cdr (assoc 93 pq)))
(setq lista-punti0 (member (assoc 72 pq) pq))
(setq lista-vertici nil)
(setq c 0)
(foreach n lista-punti0
(if (= (nth 0 n) 10)
  (if (<= (setq c(1+ c)) npunti)(setq lista-vertici(cons (list (cadr n) (caddr n) 0) lista-vertici)))
)
)
(entmake (list
(cons 0 "POLYLINE")
(cons 8 (getvar "clayer"))
(cons 70 1)))
(foreach V lista-vertici
(entmake (list 
(cons 0 "VERTEX")
(cons 8 (getvar "clayer"))
(cons 10 (list (car V) (cadr V)))
)))
(entmake (list (cons 0 "SEQEND") (cons 8 (getvar "clayer"))))
(princ)
)
(princ "\n <copyright: ing. Claudio Granuzzo>")
(princ "\n Digitare ContornoH per lanciare il programma")