[Дмитрий Брайт]

Как на лиспе записать в переменную значение параметра полилинии?

Если конкретно, интересует hyperlink, т.к. это поле я использую для хранения информации (позиция кабеля).
С помощью ssget я получаю (выбор осуществляется вручную) список полилиний (POLYLINE), а затем мне нужно получить список того, что находится в свойстве hyperlink.

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

Объекты имеют свойство-коллекцию Hyperlinks. Проверяй количество элементов этой коллекции и проходи по ним, делов-то

[Дмитрий Брайт]

Это-то я понял. По-идее нужно пройти циклом по списку.
Но я так и не понял что писать в:
(setq temp ... ) ;здесь по-идее должно быть присвоение переменной temp значения hyperlink текущей полилинии - вот как это сделать я не понял.

Про тип POLYLINE в учебнике как-то мутно написано

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

Вообще-то никакой принципиальной разницы нет - полилиния там, не полилиния... Легкая она или 3D. Хоть что

Код:

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

(vl-load-com)

(defun _dwgru-get-hyperlinks (ent / res)
                             ;|
*    Получение массива гиперссылок для указанного объекта
*    Параметры вызова:
	ent		указатель на обрабатываемый объект. Допускается ename или vla-
				тип
*    Примеры вызова:
(_dwgru-get-hyperlinks (car (entsel)))
	; '(
	;   (("url" . "http://www.dwg.ru")
	;    ("urldescription" . "Сайт dwg.ru")
	;    ("urlnamedlocation" . "")))
|;
  (if (and ent
           (cond
             ((= (type ent) 'vla-object) ent)
             ((= (type ent) 'ename)
              (setq ent (vlax-ename->vla-object ent))
              )
             (t nil)
             ) ;_ end of cond
           (vlax-property-available-p ent 'hyperlinks)
           ) ;_ end of and
    (setq res
           (mapcar
             (function
               (lambda (x)
                 (mapcar
                   (function
                     (lambda (prop)
                       (cons (strcase prop t) (vlax-get-property x prop))
                       ) ;_ end of lambda
                     ) ;_ end of function
                   '("url" "urldescription" "urlnamedlocation")
                   ) ;_ end of mapcar
                 ) ;_ end of lambda
               ) ;_ end of function
             ((lambda (/ lst)
                (vlax-for link (vla-get-hyperlinks ent)
                  (setq lst (cons link lst))
                  ) ;_ end of vlax-for
                (reverse lst)
                ) ;_ end of lambda
              )
             ) ;_ end of mapcar
          ) ;_ end of setq
    ) ;_ end of if
  res
  ) ;_ end of defun

[Дмитрий Брайт]

можно ли работать с объектами выбраными с помощью ssget функциями ActiveX?

[ShaggyDoc]

Сообщение от Дмитрий Брайт можно ли работать с объектами выбраными с помощью ssget функциями ActiveX?

Функция ssget вернет набор примитивов (ename) , а не объектов (vla-object). А любой примитив для передачи в функции ActiveX надо преобразовать в объект.

В коде #4 как раз есть пример проверки типа и преобразование вот в этом кусочке

Код:

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

(cond
             ((= (type ent) 'vla-object) ent)
             ((= (type ent) 'ename)
              (setq ent (vlax-ename->vla-object ent))
              )
             (t nil)
             )

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

можно ли работать с объектами выбраными с помощью ssget функциями ActiveX?

А почему нет? Созданный набор преобразовывается в список vla-указателей на объекты, и вперед, на амбразуры.