[neal83]

Помогите разобраться: в пространстве модели есть вхождение блока с именем "passport", ssget c фильтром ( 0 . "insert") ( 2 . "passport") выдает ошибку-bad argument type: lselsetp nil, заранее признателен.

[Profan]

Попробуй так:

Код:

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

 
(ssget "_X" '((0. "insert") (2. "passport")))

[neal83]

>profan

выдает ошибку bad SSGET list

да дело в том что функция работала, еще вчера с таким фильтром,
а сегодня .... ниче не понимаю

[VVA]

neal83, Profan, После кодов полей нужно ставить пробел

Код:

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

(ssget "_X" (list
              '(0 . "insert")
              '(2 . "passport")
              (cons 410 (getvar "CTAB"))
              )
       )

[Profan]

Не так написал. Надо так:

Код:

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

 
(ssget "_X" '((0 . "insert") (2 . "passport")))

Это же точечные пары.

[neal83]

>vva

ваш код аналогично с моим
(ssname nabor 0)-bad argument type: lselsetp nil

а можете пояснить что за последний фильтр- (cons 410 (getvar "CTAB")

[Profan]

Сообщение от neal83 Помогите разобраться: в пространстве модели есть вхождение блока с именем "passport", ssget c фильтром (0. "insert") (2. "passport") выдает ошибку-bad argument type: lselsetp nil, заранее признателен.

Ты бы привел законченый фрагмент своего кода, а не огрызок.

CTAB - переменная
Отображение имени текущей вкладки (модель или лист) в рисунке. . Переменная может быть использована для определения активной вкладки из программных приложений.

[neal83]

не в точках дело....

Код:

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

( DEFUN c:na()
  (vl-load-com)
  (setq nabor (ssget "_X" '((0 . "insert") (2 . "passport"))))
  (setq bl1 (ssname nabor 0))
  (setq atrb1 (nth 6
			(vlax-safearray->list
				(vlax-variant-value
					(vla-getattributes (vlax-ename->vla-Object bl1))
				);_ end of vlax-variant-value
			);_ end of vlax-safearray->list
		);_ end of nth
  );_ end of setq atrb1	
  		(vla-put-textstring atrb1 (vl-string-subst ", д." " " (getvar "hyperlinkbase")))
  		(vla-put-textstring atrb1 (vl-string-subst ", кор." "/" (vla-get-textstring atrb1)))
   	       	(vla-put-textstring atrb1 (vl-string-subst ", кв." "-" (vla-get-textstring atrb1)))
 	(prin1)
  )

[Profan]

Проверь, а есть ли набор nabor через командную строку:
!nabor

[neal83]

пишет nil

[Profan]

Тогда чего ты хочешь? Похоже, у тебя в файле нет вообще блоков или нет блоков с именем "passport".

[neal83]

вставляю другой блок в рисунок, меняю "passport" на "соотв. имя блока"-
набор формируетсья, предвосхищая вопрос об имени блока в рисунке-"passport"(точно как в лиспе)

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

[VVA]

neal83, У тебя блок динамический. У него по другому формируются имя.

Код:

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

(defun get-block-name (itm)
;;; itm - vla objects
;;; Use
;;;(get-block-name (vlax-ename->vla-object(car(entsel "\nSelect block: "))))
  (cond
    ((and (vlax-property-available-p itm 'isdynamicblock)
	  (= (vla-get-isdynamicblock itm) :vlax-true)
     ) ;_ end of and 
     (vla-get-effectivename itm)
    )

    (t (vla-get-name itm))
  )
)

обшие данные забиваю в свойства чертежа ... хотел чтобы адрес в строительном паспорте заполнялся с помощью лиспа.

Делай блок с атрибутом, в атрибут полем вставь ссылку на соответсвующее свойство чертежа. Лисп не нужен

[neal83]

>VVA

Спасибо за разъяснения, только вот непонятно, почему с другим именем блоки находятся с помощью фильтра ssget (2. "имя примитива")

[VVA]

neal83, Набери (entget(car(entsel))) и посмотри что содержится в поле 2

[CB]

>neal83
Скорее все у тебя банальная грамматическая ошибка в слове "passport" - т.е. имеются буквы(а) , написанные в русской раскладке клавиатуры. В этом слове три буквы выглядят одинаково и в английской и в русской раскладке...