[Огурец]

Уважаемые коллеги!
Нет ли способа улучшить работу Flatten? Вместо арок сами видите, что получается. Говорят, что dxb помогает, но с налёту не получилось, прошу совета.
[ATTACH]1134140679.dwg[/ATTACH]

[Torino]

Олег, выложите 3D исходник. Посмотрю, что можно сделать.

[Огурец]

Андрей, великоват исходник-то. Созвонимся.

[bernata]

Извините что вмешиваюсь.
Может перед тем как делать FLATTEN попробовать :
- Convert 3D Objects to 2D at specified elevation, тот который в ToolPACK / convert / 3D to 2D object ?
FLATTEN уже столько раз модифицировали...
Одна из модифицированных версий взяла как-то все мои 3D полилинии и разбросала по кольцу с центром где-то около левого нижнего объекта на чертеже...

[Torino]

>>bernata
К сожалению этот вариант не подойдет, т.к. "convert / 3D to 2D object" не работает для солидов.

[005]

Если 3D обекты солиды и не блоки то через окно LAYOUT работает
команда SETUP PROFILE. Она выкладывает в два создаваемых слоя
видимые и невидимые линии. Очень удобно для создания как обычных проекций 3D обектов так и плоских изометрических

[Умка]

Извините что вмешиваюсь , но у меня вопром по поводу flatten - это так и надо, чтобы после запуска проги она жестоко все полилинии сносила вхлам??!!?? и на их месте оставались линии??? (ИМХО мне этта не пондравилось )

>>Умка
А ты с помощью QSELECT исключай полилинии из выделения.
Применяй к остальным объектам классический FLATTEN.
А к полилиниям применяй эту программу:

Код:

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

; Super-simple little routine to force
; all z-coordinants in a drawing to zero
; (with thanks to Randy Richardson and
; the Autodesk NG's).
;
; From Tee Square Graphics - 01/28/2000
; mod.by CAD Studio 27.4.2000
;Небольшая переделка от 13.09.02 для исключения объектов 3DSOLID из набора.
;Первоначальный вариант программы "плющит" все без разбора
;;;(defun C:FLATTEN ()
;;; (command "_.UCS" "")
;;; (command "_.move" "_all" "" '(0 0 1e99) ""
;;;      "_.move" "_p" "" '(0 0 -1e99) "")
;;; (princ)
;;;)
;Чтобы посмотреть как это происходит - закоментируйте ;;;(defun c:Flatten2 ()...) и откоментируйте (defun c:FLATTEN ()...)
; P.S.
;1. в чертеже должна быть трехмерка
;2. бывают непонятные глюки - мелкие дуги программа ИНОГДА кидает в т. 0,0,0
;3. Важно: команда UNDO для трехмерки и трехмерных сплайнов не работает - это навсегда :))
;______________________________________________________________________________Jurasic (Jurasic@yandex.ru)
(defun c:Flatten2 ()
  (SETQ SEL NIL)
  (setq SEL (ssget "X" '((-4 . "<NOT") (0 . "3DSOLID") (-4 . "NOT>"))))
  (command "_.UCS" "")
  (IF SEL
    (command "_.move" sel "" '(0
			       0
			       1e99
			      )	"" "_.move" "_p" "" '(0
						      0
						      -1e99
						     ) "")
  )
  (princ)
)