[Composter]

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

[Дима_]

Ну если конкретно у этого блока (или ему подобных) то можно обойтись малой кровью - получить значение дин. свойства "Dlina" (vla-getdynamicblockproperties ....) взять точку вставки блока, масштаб по соответствующей оси , уголол поворота, преобразовать систему координат и вроде все. Либо очень глубоко "рыть" DXF.

[Composter]

сделал как Вы советовали, но есть один ньюанс ,если в динамическом блоке исходный параметр растягивается по оси Х то все нормально проходит, а если нет то неверно определяет точку.
на всякий случай выкладываю лисп ,моя цель поменять местами точку вставки блока и местоположение ручки Dlina

Код:

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

(defun c:Zod76 (  )
(setq 
ss1	nil
Dlina	nil
pt1	nil
pt2	nil
ang1	nil
)
(setq ss1(enametovla (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "INSERT"))))))))
(mapcar
	'(lambda (x)
		(progn
		(mapcar '(lambda(z)
					(if		(equal(vla-get-PropertyName z) "Dlina")		
							(setq Dlina(vlax-variant-value(vla-get-Value z)))
					)
				)
			(vlax-safearray->list(vlax-variant-value(vla-GetDynamicBlockProperties x)))
		)
		(setq pt1(vlax-safearray->list(vlax-variant-value(vla-get-InsertionPoint x))))
		(setq ang1 (vla-get-Rotation x))
		(setq pt2 (polar pt1 ang1 Dlina))
		(vla-put-InsertionPoint x (vlax-3d-point pt2))
		(vla-put-Rotation x(- ang1 pi))
		)
	)
ss1
)
)

(defun enametovla (lst); переводит список ename в vla-object или обратно.
(mapcar '(lambda (obj) (if (= (type obj) 'ename)
(vlax-ename->vla-object obj)
(if (= (type obj) 'vla-object) (vlax-vla-object->ename obj)))
)
lst)
)

[Дима_]

Не преобразовываешь вектор нормали - (trans...) и (vla-get-normal...)тебе в помощь.

[Composter]

спасибо, но решил пойти другим путем, фактически получается мне нужно развернуть блок на 180 градусов относительно центральной точки.и я сделал вот так

Код:

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

 
;разворачивает блоки на 180 градусов
(defun c:Zod76 (/ ss1 pt1 pt2 pt3)
(setq ss1(enametovla (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "INSERT"))))))))
(mapcar
	'(lambda (x)
		(progn
		(vla-GetBoundingBox x 'pt1 'pt2)
		(setq pt3 (polar	(vlax-safearray->list pt1)
							(angle	(vlax-safearray->list pt1)(vlax-safearray->list pt2))
							(/(distance(vlax-safearray->list pt1)(vlax-safearray->list pt2))2)
					)
		)
		(vla-rotate x (vlax-3d-point pt3) pi)
		)
	)
ss1
)
)