Можно ли сплайн преобразовать в полилинию в AutoCAD2006?

vn · 10.02.2006, 18:08

Вопрос в названии темы. Если кому-то вопрос покажется глупым, то заранее извиняюсь.
vn

vk · 10.02.2006, 18:23

Да, попадались такие программки на Лиспе. Конечно, идеального преобразования не получается, но тем не менее. Вроде бы было в Тулпаке (однако, не помню точно, не пользуюсь им)

vn · 10.02.2006, 18:34

Спасибо vk.
Lisp есть, но что такое "тулпак" и как им пользоваться не знаю.
vn

Александр Ривилис · 10.02.2006, 19:16

Еще вариант - команда _DXFOUT в формате AutoCAD R12, а потом _DXFIN - сплайн превратится в полилинию.

Profan · 10.02.2006, 19:39

Команда "flatten" из "Express Tools".

Piton · 11.02.2006, 12:20

T o o l P a c 9 живет здесь
http://dwg.ru/dwl/474

Piton · 13.02.2006, 10:36

Вот еще лиспик нашел
http://www.spaug.org/Public_Files/AutoLISP/Spl2pl.Zip

vn · 17.02.2006, 00:01

Спасибо всем:
А.Ривилису, Profan, Piton.
Пытался вызвать DXFOUT –получил UNKNOWN COMMAND Press F1
Express Tools отсутствует
Tool Pac нашел, но там всего слишком много, трудно разобраться что к чему.
Наверное, я даже не чайник , а только ручка от него. Короче, сплошной провал :( :( .

Кочетков Андрей · 17.02.2006, 09:46

>>vn
1. File->SaveAs - выбираешь формат DXF AutoCAD R12
2. ExpressTools есть на любом (не кривом) дистрибутиве в папке Support
3. Toolpac: набери с клавиатуры S2P

vn · 17.02.2006, 10:42

Андрею Кочеткову, спасибо.
Нарисовал кусочек сплайна, сохранил as в AutoCAD R12 DXF
набрал команду DXFOUT, Автокад предложил пересохранить файл, что я и сделал, ввел команду DXFIN, но со сплайном ничего не произошло, в полилинию не превратился.
Набрал с клавиатуры S2P получил:
Command: s2p
Unknown command "S2P". Press F1 for help.

VetalBY · 17.02.2006, 11:13

Цитата:

Сообщение от vn

Набрал с клавиатуры S2P получил:
Command: s2p
Unknown command "S2P". Press F1 for help.

Надо DSTP_CVSPL2PL

Цитата:

Сообщение от vn

Нарисовал кусочек сплайна, сохранил as в AutoCAD R12 DXF
набрал команду DXFOUT, Автокад предложил пересохранить файл, что я и сделал, но со сплайном ничего не произошло, в полилинию не превратился.

Реально работает способ от А.Ривилиса. Toolpac и Express не справляются со сплайнами, экспортированными например из CorelDraw.

сохранил as в AutoCAD R12 DXF и DXFOUT практически одно и тоже. ИМХО, когда ты делал DXFOUT не указал версию AutoCAD R12 DXF (это обязательно)

VVA · 17.02.2006, 11:37

Цитата:

Command: s2p
Unknown command "S2P". Press F1 for help

Наверно это имелось ввиду

Код:

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

;;;CADALYST 06/05 Tip2039: Spline2Pline.lsp 	Spline to Polyline Conversion 	(c) Lloyd Beachy

;; Spline2Pline.lsp (c) 2005 Lloyd Beachy
;; Routine to convert splines to plines

(Defun C:S2P (/ ss pt# cmdecho osmode clayer count ent lay lng pt-list cnt)
  (vl-load-com)
  (setq ss	(ssget '((0 . "spline")))
	pt#	(getint "Enter number of segments <100>:")
	cmdecho	(getvar "cmdecho")
	osmode	(getvar "osmode")
	clayer	(getvar "clayer")
	count 	0					;spline counter
  );end setq
  (if(null pt#)(setq pt# 100))
  (setvar "cmdecho" 0)
  (command "_.undo" "_begin")				;begin undo group
  (setvar "osmode" 0)
  (repeat(sslength ss)					;repeat for each spline
    (setq ent	(vlax-ename->vla-object (ssname ss count));change spline to vla-object
	  lay	(vlax-get-property ent "layer")		;spline's layer
	  lng	(vlax-curve-getDistAtPoint ent(vlax-curve-getEndPoint ent));length of spline
	  pt-list(list(vlax-curve-getStartPoint ent))	;coords for start of spline
	  cnt 	1.0					;segment counter
    );end setq
    (repeat pt#						;repeat for each segment
      (setq pt-list(cons(vlax-curve-getPointAtDist ent (* lng(/ cnt pt#)))pt-list));add segment's point to pt-list
      (setq cnt(1+ cnt))				;counter to next segment
    );end segment repeat
    (setq cnt 0)					;pline counter
    (setvar "clayer" lay)				;match spline's layer
    (command "_.pline"					;start "pline" command
	     (repeat(length pt-list)			;repeat for each point
	       (command(nth cnt pt-list))		;enter current point
	       (setq cnt(1+ cnt))			;counter to next point
	       ""					;return value to close "pline" command
	     );end point repeat
    );end command
    (setq count(1+ count))				;counter to next spline
  );end spline repeat
  (command "_.erase" ss "")
  (setvar "osmode" osmode)
  (setvar "clayer" clayer)
  (command "_.undo" "_end")				;end of undo group
  (setvar "cmdecho" cmdecho)
  (princ)						;exit quietly
);end C:S2P

http://new.cadalyst.com/code/browsey...?fullyear=2005

vn · 17.02.2006, 11:47

VetalBY, спасибо,
набрал DSTP_CVSPL2PL - результат тот же -"неизвестная команда"
Версию я указал сразу же после того, как нарисовал сплайн, но после команды DXFIN выскакивает окно OPEN FILE а в его расширениях стоит только DXF и никаких 12х версий.

VetalBY · 17.02.2006, 11:57

Версию надо указывать, когда делаешь DXFOUT

vn · 17.02.2006, 11:58

Спасибо VVA магистр,
Если бы Вы дали пошаговую инструкцию, как запустить эту программу,
то как обычный юзер, я смог бы ее применить, а сейчас руки опускаются.

vn · 17.02.2006, 12:10

VetalBY мастер спасибо!
Ура!!!!
Я не понял, как это произошло , но после нескольких попыток открыть файл, в окне, сплайн превратился в полилинию. Спасибо всем! Отработаю пошаговую инструкцию и выложу здесь, если получится повторить успех,думаю это будет интересно для самых что нинаесть ту.. т.е. начинающих, вроде меня.

asys · 17.02.2006, 12:16

>vn

Цитата:

набрал DSTP_CVSPL2PL - результат тот же -"неизвестная команда"

Это потому что у тебя ToolPackа нет, это его команда
>VetalBY

Цитата:

Toolpac и Express не справляются со сплайнами, экспортированными например из CorelDraw

Все работает

правда Toolpac не на 100%, а с Expressом проблем еще небыло

VetalBY · 17.02.2006, 12:34

Цитата:

Сообщение от Asys

Все работает

правда Toolpac не на 100%, а с Expressом проблем еще небыло

Прикладываю файлик...
[ATTACH]1140168865.dwg[/ATTACH]

Profan · 17.02.2006, 12:46

Для VetalBY
Посмотрел файл. Применил команду FLATTEN с удалением скрытых линий. Все сплайны преобразовались в полилинии (64 шт). И еще осталось 4 эллипса.

VetalBY · 17.02.2006, 13:01

Цитата:

Сообщение от Profan

Для VetalBY
Посмотрел файл. Применил команду FLATTEN с удалением скрытых линий. Все сплайны преобразовались в полилинии (64 шт). И еще осталось 4 эллипса.

Сплайны преобразовались, но:
1. Сместились относительно тех же эллипсов
2. Потеряли геометрию (присмотрись на "квадратики")

По крайней мере у меня так (AutoCAD 2006) :roll:

Tramp · 17.02.2006, 13:23

vn, а задача стоит превратить сплайн в полилинию максимально приближённую к сплайну по форме (из мелких сегментов) или в исходную (в ту, из которой сплайн был создан)?
Если первое, то отлично сработает offset с очень малым шагом.

Profan · 17.02.2006, 13:23

Возможно. Я думал, что у вас сомнения вообще насчет преобразования сплайна в полилинию с помощью команды FLATTEN. А так, мне и самому не нравится, что кривые Безье из Corel в AutoCAD'е превращаются в сплайны. Но ничего не поделаешь.

Кулик Алексей aka kpblc · 17.02.2006, 13:28

Цитата:

Сообщение от Tramp

vn, а задача стоит превратить сплайн в полилинию максимально приближённую к сплайну по форме (из мелких сегментов) или в исходную (в ту, из которой сплайн был создан)?
Если первое, то отлично сработает offset с очень малым шагом.

А на вторую сработает лисп построения полилинии по контрольным точкам сплайна.

vn · 17.02.2006, 13:50

Рассказываю, что я делал step by step:
1.Открыл новый чертеж.
2.Сохранил его как Body в AutoCAD12 DXF
3. Нарисовал произвольный замкнутый сплайн.
4. Набрал команду DXFOUT, выскочило окно Save Drow. AS.
5. В этом окне переименовал файл в Body1 и снова сохранил в
AutoCAD12 DXF.
6. Набрал команду DXFIN, выскочило окно Select File c выделенным
Body1 , нажал Open и получил замкнутую полилинией область.
7. А дальше вытянул ее и скосил пд 45 град, но это уже не интересно.

Спасибо еще раз всем , что меня надоумили сообща. А то эти мыльные оболочки в 3Dmax достали. Конечно, Loft и Bent(d) в AutoCADе я не сделаю, но твердые тела со сплайном в основании теперь смогу гнать по черному.
[ATTACH]1140189325.dwg[/ATTACH]

vn · 17.02.2006, 14:05

Хотел к предыдущему сообщению для наглядности присоединить файл Body1 dwg (0.5 Мб) но он не присоединился. Я открыл его в "Обзоре" и открыл в окне и нажал "отправить", но на страницу форума он не выложился.

Tech · 17.02.2006, 17:21

>vn
Методика интересная, но слишком мелкие отрезки и регулировать величину и количество к сожалению нельзя, правда один больш-о-о-о-о-й плюс - одним махом весь файл целиком сплайны в 3D-plyline.
Я после Corel обычно обрабатываю лиспом из №12, это немного :? дольше, но после него с файлом можно работать дальше, да и размер не такой большой. Вот пример: в файле из №18 некоторые сплайны обработаны лиспом из №12, они после обработки стали цветом ByLayer, хотя все остались на своих местах. В результате файл похудел примерно на 10 kB, в отличие от перегонки в DXF - 6 с гаком MB, DWG - 1.6MB. Но, это кому как нравится :?
[ATTACH]1140188230.dwg[/ATTACH]

BWW · 24.02.2006, 16:10

Почему при использовании команды FLATTEN прямые линии, которые тоже сплайны, удаляются?

atol · 26.02.2006, 19:30

[quote="vn"]VetalBY, спасибо,
набрал DSTP_CVSPL2PL - результат тот же -"неизвестная команда"
quote]
Программу вначале надо загрузить

fireicealex2006 · 06.11.2012, 05:09

для чего переводить сплайн в полилинию?

10.02.2006, 18:08		#1
Можно ли сплайн преобразовать в полилинию в AutoCAD2006? vn Регистрация: 10.02.2006 Сообщений: 373 Вопрос в названии темы. Если кому-то вопрос покажется глупым, то заранее извиняюсь. vn
Просмотров: 18970

	Реклама i