[onix]

Здравствуйте, гуру!

есть код

Код:

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

 
;поиск во внешних ссылках
		(vlax-for Blk (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
			(if (eq (vla-get-isxref Blk) :vlax-true) ;_внешняя ссылка
				(progn
				(setq name_xref	 (vla-get-name Blk ))
				(setq ins_coord (vla-get-insertionpoint Blk))
				(vlax-for Obj Blk
					(if (or (= (vla-get-ObjectName Obj) "AcDbMText") (= (vla-get-ObjectName Obj) "AcDbText"))
						(progn
							(setq b Obj) ;(vlax-dump-object b t)
							(setq sod_mtext (vlax-get-property Obj 'TextString))
							(setq coord (vlax-get Obj 'InsertionPoint))
							(setq h_mtext (vlax-get Obj 'Height))		
							(foreach element listsod 
								(progn
									(setq cvet_list (car element))				
									(setq list_number (cadr element))
									; поиск 
									(mapcar '(lambda (x)
												(if (= x sod_mtext) 
													(progn
														(entmake (list '(0 . "CIRCLE") '(8 . "MAGI_GARBAGE") (cons 62 cvet_list) (cons 370 100) (cons 10 coord) (cons 40 (* h_mtext 2)) ) )
													)
												)
											)							
									list_number)			
								)
							)		 
						)
					)
				)
				)	
			)
		)

не получается извлечь координату точки вставки внешней ссылки (setq ins_coord (vla-get-insertionpoint Blk)).
Пробовал и так (setq ins_coord(vlax-get Blk 'InsertionPoint)) , тоже беда.

[P_S]

Дело в том, что командой vla-get-Blocks ты обращаешься к коллекции определений блоков в базе данных чертежа, а не к вставкам блока в чертеже. А у определения блока нет свойства точки вставки.

[onix]

Сообщение от P_S Дело в том, что командой vla-get-Blocks ты обращаешься к коллекции определений блоков в базе данных чертежа, а не к вставкам блока в чертеже. А у определения блока нет свойства точки вставки.

Спасибо за разъяснение) а как быть тогда?

[P_S]

Начать как-то так:

Код:

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

 (foreach Blk(vl-remove-if 'listp(mapcar 'cadr(ssnamex (ssget "_X" '((0 . "INSERT"))))))
  (progn
    (setq Blk(vlax-ename->vla-object Blk))...

Далее - по тексту