[vn]

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

[vk]

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

[vn]

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

[Александр Ривилис]

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

[Profan]

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

[Piton]

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

[Piton]

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

[vn]

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

[Кочетков Андрей]

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

[vn]

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

[VetalBY]

Сообщение от 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]

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]

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

[VetalBY]

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

[vn]

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

[vn]

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

[asys]

>vn

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

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

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

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

[VetalBY]

Сообщение от Asys Все работает правда Toolpac не на 100%, а с Expressом проблем еще небыло

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

[Profan]

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

[VetalBY]

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

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

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