[Torino]

Программа:

Код:

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

(defun c:pedit2	(/ ss)
  (setq ss (ssget))
  (if
    (or
      (= (sslength ss) 1)
    )
     (progn (vl-cmdf "_.pedit" "_l")(vl-cmdf "pause"))
     (progn (vl-cmdf "_.pedit" "_m" "_p" "")(vl-cmdf "pause"))
  )
  (setq ss nil)
)

Через некоторое время выдает:

Код:

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

Select objects: Specify opposite corner: 15 found

Select objects:
; error: exceeded maximum number of selection sets

Непонятно почему, я же обнуляю SS?

Возможно уже существует слишком много наборов, хотя справка говорит о другом поведении при такой ситуации:

Selection sets consume AutoCAD temporary file slots, so AutoLISP is not permitted to have more than 128 open at one time. If this limit is reached, AutoCAD refuses to create any more selection sets and returns nil to all ssget calls. To close an unnecessary selection set variable, set it to nil.

[Torino]

>>AY
Все согласно справке.
После использования ss я присваиваю ей nil.
По идее наборы не должны скапливаться.

Это я к тому, что даже если количество превышено не по Вашей вине (может какой-то лисп их копит ) то судя по справке ssget должен возвращать nil, а не выдавать ошибку (справка из 2000).

[Torino]

Сообщение от AY может какой-то лисп их копит

Больше ничего не загружено.

У меня Ваш вариант вообще не работает пологаю, что из за кавычек на pause.

[Torino]

У меня все работает
Предлагаю на "ты".

[Alaspher]

Не очень понятно, что должна делать функция, но, если я правильно понял, то должно быть примерно так:

Код:

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

(defun c:pedit2 (/ ss)
  (setq ss (ssget))
  (vl-cmdf "_.pedit" "_m" ss "" "_l" pause "")
  (princ)
)

или

Код:

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

(defun c:pedit2 (/ ss)
  (setq ss (ssget))
  (vl-cmdf "_.pedit" "_m" ss "")
  (while (not (zerop (getvar "cmdactive")))
    (vl-cmdf pause)
  )
  (princ)
)

[Torino]

>>Alaspher
Второй вариант - то, что надо. Спасибо!

А в моем варианте наборы скапливаются, т.к. программа до конца не доходит из-за ошибки в коде. Соответственно набор не обнуляется.