[Godik]

Как соединить начало и конец линии (полилинии или сплайна) в готовой фигуре, если они не пересекаются или наоборот пересекаются. Нужна команда, чтоб объединять сразу несколько фигур, тк фигур очень много. Это нужно для того чтоб фреза по камню начинала в одной точке и заканчивала в этой же самой.

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

[VoVoRoNaLe]

Щодо полілінії то в властивостях поле Closed -> Yes.
Сплайн можна перевести в полілінію. З пам'яті не скажу чи в сплайні є властивість Closed.
google translate
По полилинии то в свойствах поле Closed -> Yes.
Сплайн можно перевести в полилинию. Из памяти не скажу есть ли в сплайне есть свойство Closed.

[Сергей812]

Сообщение от Godik небольшая поправка: нужна команда, чтоб объединять начала и концы у нескольких фигур одновременно.

может, все таки объединение начала и конца каждой фигуры у группы фигур? Это все решается тем же лиспом - поэтому думайте и приходите со своими наработками в эту ветку форума или, если не хотите тратить время - то в эту ветку форума.

[kp+]

Для полилиний все очень просто - выделить все нужные и выставить свойство "замкнуто" в панели свойств.

Сообщение от VoVoRoNaLe Из памяти не скажу есть ли в сплайне есть свойство Closed.

Есть, но не доступно для редактирования из панели свойств, только командой _splinedit. К сожалению, она не поддерживает одновременное редактирование нескольких сплайнов сразу.
Можно предложить такой код (без проверок и прочих атрибутов высокого штиля):

Код:

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

 
(defun c:closeSplines ( / ss spline_list)
  (vla-startUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq ss (ssget '((0 . "SPLINE"))));выбор сплайнов

(if ss
	(PROGN
	 (setq spline_list (ssnamex ss));преобразование набора в список
	 (setq ss nil)
	 (setq spline_list (mapcar 'cadr spline_list));выкидывание номеров набора из списка
	 (setq spline_list (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) spline_list))
	 (foreach x spline_list
	    (vl-cmdf "_splinedit" x "_c" "")
	 )
	)
)
(vla-endUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))  
) 

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

Можно и без привлечения команд:

Код:

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

 (vl-load-com)

(defun c:close-splines (/ adoc selset)

  (if (= (type (setq selset (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget "_:L" '((0 . "SPLINE")))
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (progn
      (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
      (foreach ent (mapcar (function vlax-ename->vla-object)
                           ((lambda (/ tab item)
                              (repeat (setq tab  nil
                                            item (sslength selset)
                                            ) ;_ end setq
                                (setq tab (cons (ssname selset (setq item (1- item))) tab))
                                ) ;_ end of repeat
                              tab
                              ) ;_ end of lambda
                            )
                           ) ;_ end of mapcar
        (if (equal (vla-get-closed ent) :vlax-false)
          (foreach pr '("closed" "closed2")
            (vl-catch-all-apply
              (function
                (lambda ()
                  (vlax-put-property ent pr :vlax-true)
                  ) ;_ end of lambda
                ) ;_ end of function
              ) ;_ end of vl-catch-all-apply
            ) ;_ end of foreach
          ) ;_ end of if
        ) ;_ end of foreach
      (vla-endundomark adoc)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

Код особо не тестировал.

[kp+]

Сообщение от Кулик Алексей aka kpblc Код особо не тестировал.

Не работает Ошибки не вываливаются, т.к. все "отловлены", но свое дело код не делает
Видимо потому, что для сплайнов (только для сплайнов!) свойство closed по неведомым причинам сделано только для чтения. И ни vla-put-closed, ни (vlax-put-property ent "closed" :vlax-true) не помогут Только командные методы или перекомпоновка вершин сплайна, только хардкор!

Добавлено:
И кстати, что за свойство "closed2"? Недокументированное или привет из новейших версий? (сам застрял в 2010)

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

Код писал для 2016 версии, в ней сработало. Я ж говорю, что полного тестирования не проводил.

[Хмурый]

в 2014-ом в свойствах для всех сплайнов одновременно можно поменять незамкнутость на замкнутость

[Godik]

всем спасибо, выручили) еще мне вариант подсказали, сначала сплайн переводим в полилинию ч/з ПОЛРЕД, а потом также через ПОЛРЕД замкнуть концы.

----- добавлено через ~3 ч. -----

Сообщение от Сергей812 может, все таки объединение начала и конца каждой фигуры у группы фигур? Это все решается тем же лиспом - поэтому думайте и приходите со своими наработками в эту ветку форума или, если не хотите тратить время - то в эту ветку форума.

да, все таки у группы фигур, вы правы

[kp+]

Сообщение от Godik сначала сплайн переводим в полилинию ч/з ПОЛРЕД

не знаю, что у Вас за фигуры, но может получиться с заметными искажениями.

[Хмурый]

группы разъединяются после нажатия Ctrl+H (при условии, что клавиши не переопределены), и воссоздаются при следующем нажатии.
PS изменяем значение переменной PICKSTYLE

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

Небольшое уточнение: группы не разъединяются, меняется режим выбора объектов, входящих в группу.

[Хмурый]

Сообщение от Кулик Алексей aka kpblc Небольшое уточнение: группы не разъединяются, меняется режим выбора объектов, входящих в группу.

Да. Это-то я и имел в виду. Написал, что разъединяются, а не расчленяются(разбиваются)