[Нюра]

Или хотябы заменить толщину на 0? она не редактируется никак. Кто может что еще предложить, кроме перерисовки? может есть чтото взрывающее этот тип?

[Эдуард]

Бороться можно так:

Код:

[Выделить все]

(defun C:trace-line (/ nabor-tr dxf-line dxf-coord)
  (if
    (setq
      nabor-tr (ssget "x"
		      (list '(0 . "trace") (cons 410 (getvar "ctab")))
	       )
    )
     (progn
       (setq nabor-tr (vl-remove-if
			'listp
			(mapcar	'cadr
				(ssnamex nabor-tr)
			)
		      )
       )
       (foreach	i nabor-tr
	 (setq dxf-line	(cons '(0 . "line")
			      (vl-remove-if-not
				'(lambda (x)
				   (member (car x) '(6 8 62 370))

				 )

				(entget i)
			      )
			)
	 )				;setq
	 (setq dxf-coord (vl-remove-if-not
			   '(lambda (y)
			      (member (car y) '(10 11 12 13))

			    )

			   (entget i)
			 )
	 )
	 (setq start-pt	(mapcar	'*
				(mapcar	'+
					(cdr (assoc 10 dxf-coord))
					(cdr (assoc 11 dxf-coord))
				)
				'(0.5 0.5 0.5)
			)
	 )
	 (setq end-pt (mapcar '*
			      (mapcar '+
				      (cdr (assoc 12 dxf-coord))
				      (cdr (assoc 13 dxf-coord))
			      )
			      '(0.5 0.5 0.5)
		      )
	 )
	 (setq dxf-coord (list
			   (cons 10 start-pt)
			   (cons 11 end-pt)
			   
			 )
	 )
	 (entmake (append dxf-line dxf-coord))
	 (entdel i)
       )				;foreach
     )					;progn
  )					;if
  (princ)
)					;defun