[Raznouh]

Здравствуйте.
Пытаюсь разобраться каким образом делается "пакетная" обработка всех объектов набора в один клик.А именно :например,как можно нарисовать окружности в начальных точках всех полилиний чертежа.Начал разбирать похожую тему в книге Полещука (пример со стр.132),понял про наборы ,почти понял про repeat.На основании этого написал кусок кода под свой пример:

Код:

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

 (defun c:prov ()
(setq nab (ssget "_X" '((0 . "POLYLINE"))))
(setq i -1 len (sslength nab))
(repeat len
(setq i (1 +i))
(setq pol (ssname nab i))

Если я правильно понял, в результате этого у меня получается (list pol) - список с названиями всех полилиний ,попавших в набор.
А как применить к каждой из них код ,типа

Код:

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

 (setq fpt ( vlax-curve-getstartpoint pol))
(command "_circle" fpt 20 ""))

я никак не соображу.
Кому не лень,помогите пожалуйста разобраться

[VVA]

Код:

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

(defun c:prov ()
  (vl-load-com)
  (setq
    nab (ssget "_X"
               (list '(0 . "*POLYLINE") (cons 410 (getvar "CTAB")))
        ) ;_ end of ssget
  ) ;_ end of setq
  (setq i -1)
  (repeat (sslength nab)
    (setq pol (ssname nab (setq i (1+ i)))) ;_ i-я,начиная с 0, полилиния из набора nab
    (setq fpt (vlax-curve-getstartpoint pol))
    (Circle fpt 20)
  ) ;_ end of repeat
) ;_ end of defun
(defun Circle (cen rad)
  (entmakex (list (cons 0 "CIRCLE")
                  (cons 10 cen)
                  (cons 40 rad)
            ) ;_ end of list
  ) ;_ end of entmakex
) ;_ end of defun

[Mozgunov]

От калеки калеке:

Код:

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

 
(defun c:prov ( / )
    (vl-load-com);;Без этого не будут работать vla функции
    (setq nab (ssget "_x" '((0 . "LWPOLYLINE"))));;Для плоской полилинии
	(setq len (sslength nab));;Определяем длину набора
	(setq i 0);;Обнуляем счётчик
	
	(repeat len ;;Запускаем цикл длиной len
	(setq pol (ssname nab i));;Получаем iый примитив набора
	(setq fpt(vlax-curve-getstartpoint (vlax-ename->vla-object pol)))
	(command "_circle" fpt 20 "")
	(setq i (+ 1 i));;Увеличиваем счетчик цикла
	)
);end_of_defun

Это конечно очень криво, но для понимания пойдет. Тут без entmakex. Всё командно рисуется. А вообще нужно делать как VVA написал
Скачай себе Notepade ++ или пользуйся аналогичным редактором с подсветкой кода. А то ты скобки забываешь закрывать)

[gomer]

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

Код:

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

 (defun c:test ()
  (ssapply
    (ssget "_X"
	   (list '(0 . "*POLYLINE") (cons 410 (getvar "CTAB")))
    )
    (lambda (x)
      (entmake-circle (vlax-curve-getstartpoint x) 20)
    )
  )
)

[Raznouh]

VVA,Mozgunov,gomer,спасибо огромное ,ребята!

[Дима_]

то gomer - по моей практике - при создании функции работающие с наборами, списками и др. не суть какими данными, их (данные) в большинстве случаев "правильней" располагать последним аргументом - дело вкуса конечно, но, хоть в автолиспе и нет каррирования - но хотя-бы через eval'ы и apply применение будет более "линейным". Все ИХМО.