[Ingpro]

Программки несложные, но может кому пригодятся...
Спасибо Алексею aka kpblc, koMon, name02 за подсказки чайнику...

contur-insert-txt-WP.lsp -указать контур с объектами и вставить результат (количество объектов в контуре) в чертеж.
Coun-in-frame..lsp - выбрать рамкой элементы, которые надо посчитать и вставить результат в чертеж.

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

Советую добавить перехват ошибок. И переменные перевести в локальные.

----- добавлено через ~3 мин. -----
Плюс (немного подушню) : в countour-insert-txt-wp нет контроля выбранного примитива в (setq pl (car (entsel "\nSelect the contour (polyline: ")))
Я бы, наверное, написал там примерно так:

Код:

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

 (if 
  (and 
    (= 
      (type 
        (setq pl (vl-catch-all-apply 
                   (function 
                     (lambda () 
                       (car (entsel "\nSelect the contour polyline <Cancel> : "))
                     )
                   )
                 )
        )
      )
      'ename
    )
    (= (cdr (assoc 0 (entget pl))) "LWPOLYLINE")
  )
; ...

[andriadi]

А пометить выбранные элементы из контура программа может?

[Ingpro]

Сообщение от andriadi А пометить выбранные элементы из контура программа может?

Это подойдет?

[andriadi]

Спросил для интереса. Давно в FoxPro создал программу выборки скважин из контура.))

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Советую добавить перехват ошибок. И переменные перевести в локальные. Плюс (немного подушню) : в countour-insert-txt-wp нет контроля выбранного примитива в (setq pl (car (entsel "\nSelect the contour (polyline: ")))

С этим не получилось...
Немного издевательств над кодом contur-insert-txt-WP.lsp:
чёй-то у меня не получилось осуществить выбор POLYLINE и LWPOLYLINE
(setq ss (ssget "_X" '((0 . "*POLYLINE"))))
или
(setq ss (ssget "_X" '((0 . "POLYLINE,LWPOLYLINE"))))
поэтому предлагаю все POLYLINE без выбра преобразовать в LWPOLYLINE, а потом выбрать контур для count...
Наверно, можно как-то поизящнее... но код выполняет свою задачу и не ругается на POLYLINE:

Код:

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

 ;;  преобразовать подробные POLYLINE в компактные LWPOLYLINE
;;  указать контур с объектами и вставить результат (количество объектов в контуре) в чертеж
(defun c:count-wp-lw ( / ss pl points count pt)
(setq ss (ssget "_X" '((0 . "POLYLINE"))))
  (if ss
    (progn
 (command "_.CONVERTPOLY" "_Light" ss "") ; в компактную LWPOLYLINE
      (princ (strcat "\nПреобразовано 2D-полилиний в LWPOLYLINE: " 
                     (itoa (sslength ss))))
   )
    (princ "\n2D-полилинии не найдены.")
  )
  (setq pl (car (entsel "\nSelect the contour (polyline: "))) 
  (if pl
    (progn
      (setq points (mapcar 'cdr
                           (vl-remove-if-not
                             '(lambda (x) (= (car x) 10))
                             (entget pl)
                           )
                  )
      )
      (setq count (sslength (ssget "_wp" points))) ; если нужны объекты, которые касаются контура, то заменить "_wp" на "_cp"

      (setq pt (getpoint "\nSpecify a point to insert the text: ")) 

          (entmakex
          (list
          '(0 . "TEXT")
          (cons 10 (trans pt 1 0))
          '(40 . 250.0)
          '(7 . "STANDARD")
          (cons 1 (itoa count))
          '(50 . 0.0)                                       
        )
      )

        (prompt (strcat "\nObjects found: " (itoa count))) 
    )
    (prompt "\nThe polyline is not selected.") 
  )
  (princ)
)

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

1. Метки отмены
2. Есть разница между command, command-s и vl-cmdf
3. Отлова ошибок как не было, так и нет. Что будет, если на запрос контура-полилинии пользователь нажмет Esc? А если нажмет Esc на запросе точки?

Код:

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

 ;;  преобразовать подробные POLYLINE в компактные LWPOLYLINE
;;  указать контур с объектами и вставить результат (количество объектов в контуре) в чертеж
(vl-load-com)
(defun c:count-wp-lw (/ adoc ss pl points count pt) 
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))

  (if (setq ss (ssget "_X" '((0 . "POLYLINE")))) 
    (progn 
      (vl-cmdf "_.CONVERTPOLY" "_Light" ss "") ; в компактную LWPOLYLINE
      (princ 
        (strcat "\nПреобразовано 2D-полилиний в LWPOLYLINE: " 
                (itoa (sslength ss))
        )
      )
    )
    (princ "\n2D-полилинии не найдены.")
  )

  (if 
    (and 
      (= 
        (type 
          (setq pl (vl-catch-all-apply 
                     (function 
                       (lambda () 
                         (car (entsel "\nSelect the contour polyline <Cancel> : "))
                       )
                     )
                   )
          )
        )
        'ename
      )
      (wcmatch (cdr (assoc 0 (entget pl))) "*POLYLINE")
      (= 
        (type 
          (setq pt (vl-catch-all-apply 
                     (function 
                       (lambda () 
                         (getpoint "\nSpecify a point to insert the text <Cancel> : ")
                       )
                     )
                   )
          )
        )
        'list
      )
      pt
    )
    (progn 
      (setq points (mapcar 'cdr 
                           (vl-remove-if-not 
                             '(lambda (x) (= (car x) 10))
                             (entget pl)
                           )
                   )
            count  (sslength (ssget "_wp" points))
      ) ; если нужны объекты, которые касаются контура, то заменить "_wp" на "_cp"

      (entmakex 
        (list 
          '(0 . "TEXT")
          (cons 10 (trans pt 1 0))
          '(40 . 250.0)
          '(7 . "STANDARD")
          (cons 1 (itoa count))
          '(50 . 0.0)
        )
      )

      (prompt (strcat "\nObjects found: " (itoa count)))
    )
    (prompt "\nThe polyline is not selected, or text point is not defined.")
  )
  (vla-endundomark adoc)
  (princ)
)

----- добавлено через 42 сек. -----
Эт я еще молчу, что в полилинии могут быть и дуговые сегменты )))

[Ingpro]

Сообщение от Кулик Алексей aka kpblc 1. Метки отмены 2. Есть разница между command, command-s и vl-cmdf 3. Отлова ошибок как не было, так и нет. Что будет, если на запрос контура-полилинии пользователь нажмет Esc? А если нажмет Esc на запросе точки?

А что будет, если на запрос контура-полилинии пользователь нажмет Esc?
Select the contour (polyline: *Прервано*
; ошибка: Функция отменена

А если нажмет Esc на запросе точки?
Specify a point to insert the text: *Прервано*
; ошибка: Функция отменена

И с command тоже работает...

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

Ну возьми свой код, и нажми Esc в момент запроса полилинии. В лучшем случае ты получишь в ком.строке сообщение об ошибке. В худшем - у тебя просто будет заблокировано дальнейшее выполнение. В общем, статье уже черт знает сколько лет. Если тебе охота наступать на грабли интерактива - мешать не буду )

----- добавлено через 32 сек. -----
Блин, забыл нажать "отправить" и отвлекся...