[Sysvju]

Работаю с AutoCAD Mechanical, пробовал большинство программ для "сплющивания" чертежей, но результат все равно оставляет желать лучшего. Большинство программ, ссылки на которых указаны на форуме просто зависают или изменяют примитивы, особенно касается полилиний и радиусов.

Поэтому и возник вопрос. Может быть кто сталкивался или видел где программку на лиспе, которая работала бы по методу "Quick Select", где можно выбрать все примитивы чертежа (линии, полилинии, окружности и etc.), для которых Z не равна 0. А затем автомотически происходило замещение, например для линий Start Z, End Z на 0.

Буду признателен за любую помощь.

[Sysvju]

Сообщение от Елпанов Евгений Программу не тестировал...

Программу протестировал, работает отлично, но если линия лежит в блоке, вложенном в блок, то программа ее не обнуляет, а таких вложений может быть несколько :-(.
Поторопился с выводами - не во всех блоках "первого уровня" обнуляет Z координаты линий!

И если можно дополните программу, что бы "Position Z" блоков и "Center Z" окружностей и дуг сбрасывались на ноль.
Заранее благодарен и не сочтите за наглость.

[Елпанов Евгений]

Ты бы выложил тестовые файлы, где работает, где не работает, что нужно изменить...

ps. по поводу вложенных блоков, тут нужно обновлять все блоки с используемой вложенностью. Т.е обновлять внутри блока вставку блоков. А там дальше начнутся вопросы по внешним ссылкам и правам доступа к ним.

[VVA]

Сообщение от Sysvju И если можно дополните программу, что бы "Position Z" блоков и "Center Z" окружностей и дуг сбрасывались на ноль

Я когда-то писал подобное. Обнуляет путем замены Z=0 все примитивы по dxf кодам 10 11 12 13 14 38, исключая 3DSOLID и дополнительно обрабатывая размеры (10 11 12 13 14)
Объекты "плющатся" только в текущем пространстве. Содержимое блоков не обрабатывается (не стояло такой задачи)

[Sysvju]

Сообщение от Елпанов Евгений тестовые файлы, где работает, где не работает, что нужно изменить

не совсем понимаю, где их взять нужно эти текстовые файлы? подскажи плз.

Сообщение от VVA Объекты "плющатся" только в текущем пространстве.

Эта программа линии тоже "плющит"?

[Кулик Алексей aka kpblc]

Sysvju, сравни:
тестовые
текстовые

[Sysvju]

Сообщение от Кулик Алексей aka kpblc тестовые текстовые

Намек понял.

[Елпанов Евгений]

тестируй...

Код:

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

 
(defun c:z0b (/ f)
  ;; Обнуление высоты начальной и конечной точек линий, внутри всех блоков.
  ;; Изменение высоты производится в системе координат блока.
  ;; Линии, лежащие на заблокированном слое, будут проигнорированы.
  (vl-load-com)
  (defun f (p)
    (vlax-3d-point
      (reverse
	(cons 0.0
	      (cdr (reverse (vlax-safearray->list
			      (vlax-variant-value p)
			    )
		   )
	      )
	)
      )
    )
  )
  (vlax-for b (vla-get-Blocks
		(vla-get-ActiveDocument (vlax-get-acad-object))
	      )
    ;;(setq b (vla-item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)) )"A$C506D504D"))
    (vlax-for o	b
      ;;(setq o(vla-item b 16))
      (cond((= (vla-get-ObjectName o) "AcDbLine")
	     (vla-put-StartPoint o (f (vla-get-StartPoint o)))
	     (vla-put-EndPoint o (f (vla-get-EndPoint o)))
	   )
	   ((= (vla-get-ObjectName o) "AcDbBlockReference")
	    (vla-put-InsertionPoint o(f (vla-get-InsertionPoint o)))
	   )
	   ((wcmatch (vla-get-ObjectName o) "AcDbArc,AcDbCircle")
	    (vla-put-center o(f (vla-get-center o)))
	   )
      )
    )
  )
  (princ)
)

[VVA]

Сообщение от Sysvju Эта программа линии тоже "плющит"?

А взять и проверить?

[Sysvju]

Сообщение от Елпанов Евгений тестируй... Код: [Выделить

вроде работает, спасибо.