[Ingpro]

Я пытаюсь объединить две команды, чтобы поделить объект и разбить по точкам

Код:

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

  (defun c:div-br-point ( )
 (setvar 'osmode 191) 
 (command "_DIVIDE")
 (prompt "\nЧисло сегментов: ")
 (command "_break")

 (setvar 'osmode 183)
  (princ)
)

Код выполняет команду _DIVIDE, но пишет в ком. строке:
Команда: DIV-BR-POINT
Число сегментов:
*Неверный выбор*
Требуется один объект.
; ошибка: Функция отменена
Выберите объект для деления:
Число сегментов или [Блок]: 3

на команду _break нет реакции...

Возможно ли в лисп установить PTYPE Х в абс.ед. 50

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

Так ты сначала запроси все параметры, а потом их уже подставляй в команду.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Так ты сначала запроси все параметры

А какие параметры, плз...

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

(setq ent (car (entsel "\nПримитив : ")))
(setq range (getint "\nКоличество сегментов : "))
(vl-cmdf "_.divide" ent range "")

Без проверок, тестов и прочая. Тупо в качестве идеи

[Ingpro]

Сообщение от Кулик Алексей aka kpblc (setq ent (car (entsel "\nПримитив : "))) (setq range (getint "\nКоличество сегментов : ")) (vl-cmdf "_.divide" ent range "")

Спасибо, а как дальше разорвать объект по всем точкам?

Код:

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

  (defun c:div-br-point ( )
(vl-load-com)
 (setvar 'osmode 191) 
(setq ent (car (entsel "\nПримитив : ")))
(setq range (getint "\nКоличество сегментов : "))
(vl-cmdf "_.divide" ent range "")

 (setvar 'osmode 183)
  (princ)
)

[Ingpro]

Сообщение от Ingpro Возможно ли в лисп установить PTYPE Х в абс.ед. 50

В начале кода можно установить значения сист. переменных для точек

Код:

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

 (setvar "PDMODE" 3)
(setvar "PDSIZE" 50)

в конце кода, после разбиения на части между точками, вернуть в нач. значения

Код:

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

 (setvar "PDMODE" 0)
(setvar "PDSIZE" 0)

[name02]

Сообщение от Ingpro В начале кода можно установить значения сист. переменных для точек

Лучше все-таки перед изменением системных переменных запоминать их действующие значения, а в конце работы программы восстанавливать их - см. тут.
Так повысится применимость твоей программы для разных пользователей - например, те же объектные привязки - у тебя одни установлены, а другой человек с другим набором привязок привык работать. И каждый раз после выполнения твоей программы они у него будут сбиваться - это очень раздражает.

[Ingpro]

Сообщение от name02 Так повысится применимость твоей программы для разных пользователей

Программы то пока нет... Я думаю, можно ли использовать команду BREAK, чтобы разрезать объект на части по точкам деления...
Команда BREAK предлагает указать точки разрыва, а нужно, чтобы разделение произошло сразу по всем точкам.
Или нужно применить другую команду?

[name02]

Посмотри тут https://www.theswamp.org/index.php?topic=19874.0
Там делается то что тебе нужно, но координаты берутся из точечных объектов - переделать недолго

[Ingpro]

Сообщение от name02 Посмотри тут https://www.theswamp.org/index.php?topic=19874.0 Там делается то что тебе нужно, но координаты берутся из точечных объектов - переделать недолго

Спасибо за ссылку...
Мне бы хотелось не указывать точки, а после команды DIVIDE перейти к разделению по этим точкам... Это возможно?
Код работает с дугами, но с окружностями нет: "Дуга должна быть меньше 360 градусов"

[name02]

Переделал, тот, что по моей ссылке - работает

Код:

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

 (defun c:test (/ pline1 count pt PtList)
  (setq	pline1 (car (entsel "\nPick Polyline:"))
	count  0
	pt     (list)
  ) ;_ end of setq

  (initget "Закончить")
  (while (/= pt "Закончить")
    (setq pt (getpoint "\nУкажите точку [Закончить]:<Закончить>"))
    (cond
      ((null pt) (setq pt "Закончить"))
      (T (setq PtList (append PtList (list pt))))
    ) ;_ end of while
  ) ;_ end of while

  (setq	count 0
	DistList (list)
  ) ;_ end of setq

  ;; sort the points so we won't try to break the NEW pline that is created after a successful break
  (repeat (length PtList)
    (setq DistList (append DistList
			   (list
			     (vlax-curve-GetDistAtPoint
			       Pline1
			       (vlax-curve-getClosestPointTo Pline1 (nth count PtList))
			     ) ;_ end of vlax-curve-GetDistAtPoint
			   ) ;_ end of list
		   ) ;_ end of append
    ) ;_ end of setq
    (setq count (+ 1 count))
  ) ;_ end of repeat

  (mapcar '(lambda (x)
	     (setq breakPt (nth x PtList))
	     (command "_break" pline1 breakpt "@")
	   ) ;_ end of lambda
	  (vl-sort-i DistList '>)
  ) ;_ end of mapcar

  (princ)


) ;_ end of defun

[Ingpro]

Сообщение от name02 Переделал, тот, что по моей ссылке - работает

Спасибо, но что он делает? выделяю ПЛ - закончить? и ничего... После загрузки этого кода изменяются параметры чертежа
пропадает контекстное меню и на ПКМ идет повтор последней команды, причем в Параметрах на ПКМ установлено контекстное меню???
Возможно ли просто объединить DIVIDE и код по ссылке?

[name02]

После выделения полилинии надо указывать точки в которых надо полилинию разделять

[Ingpro]

Сообщение от name02 После выделения полилинии надо указывать точки в которых надо полилинию разделять

Указываю - не делит... В коде breakatPt точки разделения можно указать рамкой...
А что с контекстным меню происходит?

[name02]

Сообщение от Ingpro А что с контекстным меню происходит?

не знаю - я его не вижу, ты даже не описал что с ним не так...

[Ingpro]

Сообщение от name02 не знаю - я его не вижу, ты даже не описал что с ним не так...

Вот именно меню нет, вместо этого на ПКМ повтор последней команды... У меня повтор - по пробелу...
В других файлах, где не загружен ваш код все нормально.

[name02]

Что у тебя с меню - не понял. Программа работает так:
1 Запрос на выбор линии
2 Запрос на указание точек разрыва линии
3 Если вместо указания точки нажать ввод или ПКМ - линия будет разделена (если была указана хотя бы одна точка)
На каком этапе не получается контекстное меню вызвать?

[Ingpro]

Сообщение от name02 3 Если вместо указания точки нажать ввод или ПКМ - линия будет разделена (если была указана хотя бы одна точка)

Выбор-ПЛ-точка-пкм-выбор-точка и пошла динамика разрыва опять же с указанием точки, в общем что-то не то...

[name02]

Ты сам код программы смотрел?
1 Выделяешь линию
2 Указываешь точки для разрыва линии
3 Если все нужные точки указаны - жмешь ввод
4 Выбранная в п.1 линия разбивается в точках из п.2

[Ingpro]

Сообщение от Ingpro выделять точки по одной неудобно

Всё делаю правильно, но не разбивается линия...