[swkx]

blname52 - имя интересующего меня блока
lst-t-uniq - список уникальных точек

Похоже, что координаты точек t1, t2 получаются относительно точки вставки этого блока.
Так и должно быть ?

Код:

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

 (vlax-for item (vla-item (vla-get-blocks activedoc) blname52)
	(if (= (vla-get-ObjectName item) "AcDbLine")
		(progn
			(setq t1 (vlax-safearray->list (vlax-variant-value (vla-get-startpoint item)))
				  t2 (vlax-safearray->list (vlax-variant-value (vla-get-endpoint item))))
			(if (NOT (vl-member-if (function (lambda (e) (equal t1 e dopusk))) lst-t-uniq))
			  	(setq lst-t-uniq (cons t1 lst-t-uniq)))
			(if (NOT (vl-member-if (function (lambda (e) (equal t2 e dopusk))) lst-t-uniq))
			  	(setq lst-t-uniq (cons t2 lst-t-uniq)))
		)
	)
)

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

По идее - в системе координат описания блока. Так что надо выплолнять trans или TransformBy

[swkx]

Похоже, так и есть