;
;
(princ "\n- utasítás: duplapont")
(defun c:duplapont (/ e h a pl d p p1 z)
	(setvar "cmdecho" 0)
	(if (setq e (car (entsel "\nVálassz egy elemet, amely fóliáján a vonalláncokat ellenőrizni kívánod:")))
		(progn
			(if (setq s (ssget "X" (list (cons 0 "LWPOLYLINE") (cons 8 (cdr (assoc 8 (entget e)))) (cons 410 (getvar "ctab")))))
				(setq h (sslength s))
				(setq h 0)
			)
			(princ (strcat "\nA vizsgálandó rajzelemek száma: " (itoa h)))
			(while (> h 0)
				(setq e (ssname s (setq h (1- h))))
				(setq a (entget e))
				(setq pl nil)
				(foreach d a (if (= (car d) 10) (setq pl (append pl (list (cdr d))))))
				(foreach p pl
					(setq z 0)
					(foreach p1 pl (if (equal p1 p) (setq z (1+ z))))
					(if (> z 1)
						(progn
							(princ "\nHIBÁS VONALLÁNCOT TALÁLTAM! A VONALLÁNC SZÍNÉT 80-ra, vastagságát 1.0-re állítottam!")
							(if (not (assoc 62 a))
								(setq a (append a (list (cons 62 80))))
								(setq a (subst (cons 62 80) (assoc 62 a) a))
							)
							(if (not (assoc 370 a))
								(setq a (append a (list (cons 370 100))))
								(setq a (subst (cons 370 100) (assoc 370 a) a))
							)
							(entmod a)
							(entupd e)
		)	)	)	)	)	
		(princ "\nNem történt elem kiválasztás!")
	)
	(setvar "cmdecho" 1)
	(princ)
)
