[LastGraff]

Подскажите, как применить ко всем сплайнам, выделенным посредством AecSelectSimilar, _splinedit с параметрами _p и 2, или есть другие варианты решения задачи преобразования сплайнов в 3d-полилинию. Flatten - теряет высоты и пересохранять в DXF12 тоже возможности нет(

[VVA]

Код:

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

(defun C:SC ( / i ss)
  ;;;Spline convert
  ;;;Convert spline to polyline
  ;;; Преобразование (конвертирование) сплайнов в полилинию
  ;;; Преобразовать СПЛАЙНЫ в ПОЛИЛИНИИ
  ;;; http://forum.dwg.ru/showpost.php?p=864224&postcount=359
  (setvar "PLINECONVERTMODE" 0) ;_ 0 - линейные сегменты
                                ;_ 1 - линии и дуги
(if (< (atoi (substr (ver) 13)) 2010)
(alert "Для Автокада не ниже 2010 версии")
(progn
(setq ss nil ss (ssget "_:L" '((0 . "SPLINE"))))
(setq i '-1)
(setvar "CMDECHO" 0)
(repeat (sslength ss)
  (if command-s
    (command-s "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6")
    (command "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6")
    )
    (grtext -2 (strcat "Inspecting : "(itoa i)))
  )
(if command-s (command-s "_regenall")(command "_regenall"))
  )
  )
  )
(princ "\nНабери SC (лат) в команде\ной строке")(princ)

Для точности 2 замени строчки

Код:

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

(command "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6")
(command-s "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6")

на

Код:

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

(command "_splinedit"(ssname ss (setq i (1+ i))) "_p" "2")
(command-s "_splinedit"(ssname ss (setq i (1+ i))) "_p" "2")

PS Все способы

[LastGraff]

спасибо большое, помогло)

[gomer]

Так поприятнее будет

Код:

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

 (defun C:ConvSplineToPline2010 ( / *error* cmd i ss)
;;; Конвертирование сплайнов в полилинии
;;; Для Автокада не ниже 2010
  (defun *error* (msg)
    (setvar 'cmdecho cmd)
    (princ)
  )
  (if (> 2010 (atoi (substr (ver) 13)))
    (alert "Для корректной работы требуется\nАвтокад не ниже 2010 версии")
    (if
      (and
        (setq
          cmd (getvar 'cmdecho)
          i   -1
          *dummy* (prompt "\nВыберите сплайны для преобразования...")
          ss  (ssget "_:L" '((0 . "SPLINE")))
        )
        (progn
          (initget 6)
          (setq ac (getint "Точность <10>:"))
          (or ac (setq ac 10))
        )
      )
      (progn
        (setvar 'cmdecho 0)
        (command "_.undo" "_be")
        (repeat (sslength ss)
          (command "_.splinedit" (ssname ss (setq i (1+ i))) "_p" ac)
          (grtext -2 (strcat "Преобразование: #" (itoa i)))
        )
        (command "_.regenall")
        (command "_.undo" "_e")
        (setvar 'cmdecho cmd)
      )
      (princ "\nНеобходимо выбрать хотя бы один сплайн!")
    )
  )
  (princ)
)
(defun C:SC ()(C:ConvSplineToPline2010))

[АлексЮстасу]

Пардон - нашел ответы в поиске
Можно и удалить!

[Valery Brelovsky]

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

[-mavlin-]

можно

[Valery Brelovsky]

Сообщение от -mavlin- можно

Теперь остаётся спросить каким образом.

[kp+]

Нарисовать такое чудо можно командой _donut из Экспресса. Если необходимо массовое преобразование существующих окружностей в такие полилинии - можно слегка модифицировать исходный код.

[Valery Brelovsky]

Спасибо. Но спрашивал преобразовать окружность в это чудо.

[VVA]

Код:

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

 
(defun c:C2P (/ ss)
  ;; Circles to LWPolylines
  ;; Alan J. Thompson, 10.26.10
  ;; http://www.cadtutor.net/forum/showthread.php?53755-Nneed-a-list-to-convert-circles-to-polylines&p=364482&viewfull=1#post364482
  (if (setq ss (ssget "_:L" '((0 . "CIRCLE"))))
    ((lambda (i / e d l)
       (while (setq e (ssname ss (setq i (1+ i))))
         (setq l nil)
         (foreach x (setq d (entget e)) (and (member (car x) '(6 8 39 48 62)) (setq l (cons x l))))
         (entmakex
           (append
             (list (cons 0 "LWPOLYLINE")
                   (cons 100 "AcDbEntity")
                   (cons 100 "AcDbPolyline")
                   (cons 90 2)
                   (cons 70 1)
             )
             l
             (list (cons 10 (polar (cdr (assoc 10 d)) 0. (cdr (assoc 40 d))))
                   '(42 . 1)
                   (cons 10 (polar (cdr (assoc 10 d)) pi (cdr (assoc 40 d))))
                   '(42 . 1)
             )
           )
         )
         (entdel e)
       )
     )
      -1
    )
  )
  (princ)
)

Еще варианты Circle to Polyline, circular Polyline to Circle

[Valery Brelovsky]

Спасибо Владимир это именно то что нужно. Замкнутая полтилиния ввиде окружности.

----- добавлено через ~8 мин. -----
Меня больше достаёт вариант окружности в полилинию. Можно лиспом по работе с полилиниями, но там окружность получается ввиде маленьких прямых и теряется центр фигуры, а нужно взять центр фигуры что бы перестить и отцентровать.

[allar8]

Сообщение от VVA defun C:SC ( / i ss) ;;;Spline convert ;;;Convert spline to polyline ;;; Преобразование (конвертирование) сплайнов в полилинию ;;; Преобразовать СПЛАЙНЫ в ПОЛИЛИНИИ ;;; http://forum.dwg.ru/showpost.php?p=864224&postcount=359 (setvar "PLINECONVERTMODE" 0) ;_ 0 - линейные сегменты ;_ 1 - линии и дуги (if (< (atoi (substr (ver) 13)) 2010) (alert "Для Автокада не ниже 2010 версии") (progn (setq ss nil ss (ssget "_:L" '((0 . "SPLINE")))) (setq i '-1) (setvar "CMDECHO" 0) (repeat (sslength ss) (if command-s (command-s "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6") (command "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6") ) (grtext -2 (strcat "Inspecting : "(itoa i))) ) (if command-s (command-s "_regenall")(command "_regenall")) ) ) ) (princ "\nНабери SC (лат) в команде\ной строке")(princ)

Раньше пользовался лиспом l2pl.lsp - но потерял его в нем была возможность преобразовывать сплайны и дуги в полилинии с возможностью выбора шага. Не подскажете где мне его щаз можно найти?

[allar8]

Сообщение от allar8 Цитата: Сообщение от VVA defun C:SC ( / i ss) ;;;Spline convert ;;;Convert spline to polyline ;;; Преобразование (конвертирование) сплайнов в полилинию ;;; Преобразовать СПЛАЙНЫ в ПОЛИЛИНИИ ;;; http://forum.dwg.ru/showpost.php?p=864224&postcount=359 (setvar "PLINECONVERTMODE" 0) ;_ 0 - линейные сегменты ;_ 1 - линии и дуги (if (< (atoi (substr (ver) 13)) 2010) (alert "Для Автокада не ниже 2010 версии") (progn (setq ss nil ss (ssget "_:L" '((0 . "SPLINE")))) (setq i '-1) (setvar "CMDECHO" 0) (repeat (sslength ss) (if command-s (command-s "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6") (command "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6") ) (grtext -2 (strcat "Inspecting : "(itoa i))) ) (if command-s (command-s "_regenall")(command "_regenall")) ) ) ) (princ "\nНабери SC (лат) в команде\ной строке")(princ) Раньше пользовался лиспом l2pl.lsp - но потерял его в нем была возможность преобразовывать сплайны и дуги в полилинии с возможностью выбора шага. Не подскажете где мне его щаз можно найти?

а вот нашел

[StaPerRa]

Народ, прошу прощения за нубство скудоумность, но...
Ну создал и загрузинил я этот ЛИСП, а дальше- то что?! Какой командой или кнопкой кошмарить сплайн?!

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

https://dwg.ru/pub/9

[StaPerRa]

Сообщение от Кулик Алексей aka kpblc https://dwg.ru/pub/9

Спасибо!

[Olegrabbeat]

Сообщение от Кулик Алексей aka kpblc https://dwg.ru/pub/9

Не уверен что тема жива, но все решусь спросить

Столкнулся с такой проблемой "AutoCAD ; error: no function definition:"
По ссылке которую вы скинули описано следующее "Наберите в командной строке (vl-load-com) или (предпочтительнее) добавьте ее в начало lisp файла."
Собственно воарос:а не подскажите когда вписывать в командной строке vl-load-com, перед использованием lisp или сразу после появления ошибки?
Или может подскажите куда конкретно его добавить в начале lisp файла?
Заранее большое спасибо, и прошу прощения за глупые вопросы

[===AAA===]

Добрый день.

(vl-load-com) выполняется:

>>> перед использованием lisp или сразу после появления ошибки?

Перед использованием LISP

>>>Или может подскажите куда конкретно его добавить в начале lisp файла?

Для надёжности - первой строкой в lisp-файле

Вообще (vl-load-com) можно выполнять много раз - ошибки не будет.
Впрочем, как и особого толку - её достаточно в любом виде выполнить
один раз перед началом работы lisp-программ.

[uvl77]

Сообщение от VVA Код: [Выделить все] (defun C:SC ( / i ss) ;;;Spline convert ;;;Convert spline to polyline ;;; Преобразование (конвертирование) сплайнов в полилинию ;;; Преобразовать СПЛАЙНЫ в ПОЛИЛИНИИ ;;; http://forum.dwg.ru/showpost.php?p=864224&postcount=359 (setvar "PLINECONVERTMODE" 0) ;_ 0 - линейные сегменты ;_ 1 - линии и дуги (if (< (atoi (substr (ver) 13)) 2010) (alert "Для Автокада не ниже 2010 версии") (progn (setq ss nil ss (ssget "_:L" '((0 . "SPLINE")))) (setq i '-1) (setvar "CMDECHO" 0) (repeat (sslength ss) (if command-s (command-s "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6") (command "_splinedit"(ssname ss (setq i (1+ i))) "_p" "6") ) (grtext -2 (strcat "Inspecting : "(itoa i))) ) (if command-s (command-s "_regenall")(command "_regenall")) ) ) ) (princ "\nНабери SC (лат) в команде\ной строке")(princ)

пишет ошибку: "error: AutoCAD variable setting rejected: "PLINECONVERTMODE" 0"