[Станислав_]

Здравствуйте всем! Пишу прогу по расстановке блоков на плане с привязкой к определённым точкам и с совмещением по линейному объекту. Нюанс программы в том, что после установки блока в точку вставки и совмещения его, например, с линейным участком ломаной линии, отрезком или стороной прямоугольника (все эти объекты могут быть развёрнуты относительно МСК на некоторый угол) нужно сдвинуть блок относительно точки вставки по координатам Х и У в системе координат блока на определённые расстояния. После перемещения уже повёрнутого блока в точку вставки и установки ПСК по блоку пытался выполнить этот сдвиг через команду (command _.move ...), через (vla-move obj ...) и даже попытался подвинуть блок изменением точки вставки через (vla-put-InsertionPoint obj ...). Итог следующий: по координате Х блок передвигается на нужное расстояние, а по координате У перемещается на какую-то произвольную величину! Также заметил, что все действия по перемещению происходят не в СК блока или СК объекта, по которому выравнивается блок, а в МСК! Возможно проблема кроется в значении какой-то системной переменной, про которую я и не догадываюсь... Прицепил картинки, которые иллюстрируют работу программы. Подскажите пожалуйста, как правильно программно организовать этот сдвиг. Заранее всех благодарю за ответы!

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

trans ?

[Станислав_]

Да, и конечно же мой инструмент: AutoCAD 2021 rus.
А также, предупреждая разного рода вопросы про мою несознательность: форум пошерстил, в инете погуглил, у Полещука не нашёл.

----- добавлено через ~6 мин. -----
trans, возможно очень полезная функция, но я не понимаю, как ей пользоваться. Честно пытался с ней разобраться, экспериментировал, но безрезультатно. Те результаты, которые выдаёт данная функция для меня не понятны...

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

Я про то, что (может быть) стоит изначально вычислить корректную точку вставки блока, потом ее транспонировать в новую ПСК, и после этого уже собственно вставлять блок, предварительно сменив ему нормаль.
ПыСы АКАД сейчас от меня очень далеко, пишу "на попробовать"

[Станислав_]

Не совсем понял про нормаль. Блоки двумерные, расставляются на двумерных планах...

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

Тогда откуда "смещение от МСК"? И вообще, базовая точка блока где находится?

[Станислав_]

На второй картинке блок установлен своей базовой точкой в правый верхний угол прямоугольника. Затем нужно произвести смещение блока на расстояния X и Y.

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

Так, может, базовую точку привести в нормальное состояние? И вообще, скинь чертеж и код - попробую посмотреть

[Станислав_]

Скину, но только вечером, ща не у компа...

[Станислав_]

Итак, выкладываю код:

Код:

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

 (defun AttrRotateAndMove (
		          /
		          obj            ;выбранный объект (блок)
		          trgg           ;триггер выхода из цикла while
		          att_lst        ;список значений атрибутов блока
		          blc_nm         ;значение атрибута блока
			  att_obj_lst    ;список атрибуто, представляющих vla-объекты
			  att_obj        ;атрибут (vla-объект)
		          modLeft        ;маркер, принимает значение Т, если значение атрибута соответствует шаблону левой модификации блока
		          modRght        ;маркер, принимает значение Т, если значение атрибута соответствует шаблону правой модификации блока
		          pt1            ;координаты первой точки
		          pt2            ;координаты второй точки
		          pt3            ;координаты третьей точки
			  ins_pt         ;точка вставки блока
			  ang            ;угол поворота блока
			  dx_            ;смещение блока по оси X при его позиционировании
			  dy_            ;смещение блока по оси Y при его позиционировании
		         )
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) ;запись в глобальную переменную указателя на документ
  (vla-StartUndoMark adoc) ;установка начальной метки отката
  (while (not trgg)
    (if (VL-CATCH-ALL-ERROR-P (setq obj (VL-CATCH-ALL-APPLY 'entsel)))  ;выбор блока с проверкой на нажание клавиши Esc
      (setq trgg T)  ;присвоение переменной trgg значения nil для выхода из цикла while
      (if obj
	(progn
          (setq obj (vlax-ename->vla-object (car obj)))  ;переопределение выбранного объекта в VLA-объект
          (cond
            ((eq :vlax-false (vla-get-HasAttributes obj)) ;проверка на наличие у выбранного объекта атрибутов
             (alert "Объект не имеет атрибутов!")  ;сообщение об ошибке
	    )
	    (T
	     (setq att_obj_lst (vlax-safearray->list (vlax-variant-value (vla-GetAttributes obj))))  ;получение списка атрибутов блоков в виде VLA-объектов
             (mapcar '(lambda (x) (if (or (setq modLeft (wcmatch (vla-get-tagstring x) "*.##Л*")) (setq modRght (wcmatch (vla-get-tagstring x) "*.##П*")))  (setq att_obj x))) att_obj_lst)  ;получение значений маркеров modLeft и modRght в зависимости от соответствия наименования блока шаблону с одновременным определением атрибута с наименованием блока из списка атрибутов
	     (setq blc_nm (vla-get-tagstring att_obj))  ;определение имени блока (в дальнейшем имя блока определяет наименование файла, в котором хранится данный блок)
	    )
          )
	  (setq pt1 (getpoint))  ;указание первой точки
	  (setq pt2 (getpoint))  ;указание второй точки
	  (setq pt3 (getpoint))  ;указание третьей точки
	  (cond
	    (modLeft (setq ang (- (angle pt1 pt2) pi)))  ;вычисление угла поворота блока в зависимости от модификации блока ЛЕВЫЙ
	    (modRght (setq ang (angle pt1 pt2)))  ;вычисление угла поворота блока в зависимости от модификации блока ПРАВЫЙ
	  )
	  ;определение смещений блока по значениям атрибутов:
          (mapcar '(lambda (x) (if (wcmatch (vla-get-tagstring x) "DX")  ;условие: если имя атрибута равно значению "DX"
				 (setq dx_ (vla-get-TextString x))       ;присвоение переменной dx значения атрибута с именем "DX"
			       )
		               (if (wcmatch (vla-get-tagstring x) "DY")  ;условие: если имя атрибута равно значению "DY"
				 (setq dy_ (vla-get-TextString x))       ;присвоение переменной dy значения атрибута с именем "DY"
			       )
		   )
	           att_obj_lst)
	  (setq ins_pt (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint obj))))  ;точка вставки блока
	  (vla-put-Rotation att_obj (* ang -1)) ;поворот атрибута блока с наименованием блока на обратный вычисленный угол
	  (vla-put-Rotation obj ang)  ;поворот блока на вычисленный угол
	  ;позиционирование блока на месте вставки:
	  (vla-move obj (vlax-3d-point ins_pt) (vlax-3d-point pt1))  ;перемещение блока в точку установки блока на КП
	  (command "_UCS" "_obj" (vlax-vla-object->ename obj))
;;;	  (command "_UCS" "_new" pt1)  ;перемещение СК в точку pt1
;;;	  (command "_UCS" "z" (/ (* ang 180) pi))  ;поворот СК на угол ang с переводом радиан в градусы
	  
;;;	  (setq ins_pt (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint obj))))  ;точка вставки блока
;;;	  (setq ins_pt (mapcar '- ins_pt (list (atoi dx_) (atoi dy_) 0)))
;;;	  (vla-put-InsertionPoint obj (vlax-3d-point ins_pt))
	  
;;;	  (command "_.move" (vlax-vla-object->ename obj) "" (list 0 0 0) (list (atoi dx_) 0 0))  ;перемещиние блока с позиционированием его по линии установки со смещением от края отверстия на заданное расстояние
;;;	  (command "_.move" (vlax-vla-object->ename obj) "" (list 0 0 0) (list 0 (atoi dy_) 0))

;;;	  (command "_UCS" "_w")  ;установка МСК
	  (setq trgg T)  ;присвоение переменной начального значения
        )
      )
    )
  )
  (vla-EndUndoMark adoc) ;установка конечной метки отката
  (princ)
)

Пояснения: в начале работы программы нужно выбрать блок, затем три точки на прямоугольнике, на котором нужно спозиционировать блок, две точки по углам длинной стороны прямоугольника, одна на углу короткой стороны. Закомментированные строки в моей процедуре - это мои попытки сместить блок после его позиционирования в прямоугольнике. Не доделал проверку на нажатие кнопки Esc при выборе точек. Также прикладываю файл с блоками и прямоугольниками.

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

Ну вот что по-быстрому получилось:

Код:

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

 (defun test ()
  (while (and
           (=
             (type (setq blk_ref (vl-catch-all-apply
                                   (function
                                     (lambda ()
                                       (vlax-ename->vla-object (ssname (ssget "_:S" '((0 . "INSERT") (66 . 1))) 0))
                                     ) ;_ end of lambda
                                   ) ;_ end of function
                                 ) ;_ end of vl-catch-all-apply
                   ) ;_ end of setq
             ) ;_ end of type
             'vla-object
           ) ;_ end of =
           (= (type (setq point1 (vl-catch-all-apply
                                   (function
                                     (lambda ()
                                       (getpoint "\nFirst point <Cancel> : ")
                                     ) ;_ end of lambda
                                   ) ;_ end of function
                                 ) ;_ end of vl-catch-all-apply
                    ) ;_ end of setq
              ) ;_ end of type
              'list
           ) ;_ end of =
           point1
           (= (type (setq point2 (vl-catch-all-apply
                                   (function
                                     (lambda ()
                                       (getpoint point1 "\nSecond point <Cancel> : ")
                                     ) ;_ end of lambda
                                   ) ;_ end of function
                                 ) ;_ end of vl-catch-all-apply
                    ) ;_ end of setq
              ) ;_ end of type
              'list
           ) ;_ end of =
           point2
;           (= (type (setq point3 (vl-catch-all-apply
;                                   (function
;                                     (lambda ()
;                                       (getpoint point1 "\nSecond point <Cancel> : ")
;                                     ) ;_ end of lambda
;                                   ) ;_ end of function
;                                 ) ;_ end of vl-catch-all-apply
;                    ) ;_ end of setq
;              ) ;_ end of type
;              'list
;           ) ;_ end of =
;           point3
         ) ;_ end of and
    (vla-insertblock
      (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
      (vlax-3d-point point2)
      (vla-get-effectivename blk_ref)
      1.
      1.
      1.
      (angle point1 point2)
    ) ;_ end of vla-InsertBlock
  ) ;_ end of while
) ;_ end of defun

Назначение 3-й точки пока непонятно, так что закомментировал. На ACAD2021 все работает вполне корректно

[Станислав_]

Алексей, спасибо огромное! Завтра буду тестировать.

----- добавлено через ~3 мин. -----
А третья точка введена на перспективу образмерить область вставки блока для наглядности плана с размещёнными блоками.

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

Сообщение от Станислав_ А третья точка введена на перспективу образмерить область вставки блока для наглядности плана с размещёнными блоками.

Я бы подумал на предмет "вынести это в отдельную функцию". Т.е. вставка - отдельно, образмеривание - отдельно. Ибо нефих!

[koMon]

как понял, без проверок) но видится использование динамики в блоке, а именно выравнивания и использование видимости для правого и левого положений блока.

Код:

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

 
;****************************************************************************************************************************************************************************************

(defun _fix (number)
	(atoi (rtos number 2 0))	  
)

;****************************************************************************************************************************************************************************************

(defun c:move_block (/ insert corner_vertex pline corner_vertex_param corner_vertex+1 corner_vertex-1 insert_rotation_x_axis_angle y_axis_angle dx dy angle_correction) 
	(setq insert (vlax-ename->vla-object (car (entsel "\nБлок: ")))
	      corner_vertex (getpoint "\nУгловая реперная вершина полилинии для вставки блока: ")
	      pline (car (nentselp corner_vertex))
	      corner_vertex (trans corner_vertex 1 0)
	      corner_vertex_param (_fix (vlax-curve-getparamatpoint pline corner_vertex))
	      corner_vertex (vlax-curve-getpointatparam pline corner_vertex_param) 
	      corner_vertex+1 (vlax-curve-getpointatparam pline (if (= (_fix (vlax-curve-getendparam pline)) corner_vertex_param) 1 (1+ corner_vertex_param)))
	      corner_vertex-1 (vlax-curve-getpointatparam pline (if (zerop corner_vertex_param) (vlax-curve-getendparam pline) (1- corner_vertex_param)))
	      insert_rotation_x_axis_angle (angle corner_vertex (if (> (distance corner_vertex corner_vertex+1) (distance corner_vertex corner_vertex-1)) corner_vertex+1 corner_vertex-1))
	      y_axis_angle (angle corner_vertex (if (< (distance corner_vertex corner_vertex+1) (distance corner_vertex corner_vertex-1)) corner_vertex+1 corner_vertex-1)) 
	)
	(mapcar '(lambda (attribute) (cond
					 	(
							(= "DX" (vla-get-tagstring attribute))
						 		(setq dx (abs (atof (vla-get-textstring attribute))))
						)
						(
							(= "DY" (vla-get-tagstring attribute))
						 		(setq dy (abs (atof (vla-get-textstring attribute))))
						)
						(
						 	(and (= "NAME" (vla-get-tagstring attribute)))
						 		(cond
								  	(
							         		(wcmatch (vla-get-textstring attribute) "*_Л_")
						 	         			(setq angle_correction pi)
									)
							    		(
							         		(wcmatch (vla-get-textstring attribute) "*_П_")
						 	         			(setq angle_correction 0)
								 	)
								)
						)
						(t)
					)
		   )
		   (vlax-invoke insert 'getattributes)
	)
	(vla-move insert (vla-get-insertionpoint insert) (vlax-3d-point (polar (polar corner_vertex insert_rotation_x_axis_angle dx) y_axis_angle dy)))
	(vla-put-rotation insert (+ insert_rotation_x_axis_angle angle_correction))
  	(princ)
)
;****************************************************************************************************************************************************************************************

[Станислав_]

Добрый вечер всем! Попробовал выполнить код. Всё прекрасно работает, блок выравнивается по объекту. Но остаётся вопрос, как сделать смещение блока после его позиционирования по объекту? Мой код работает ровно до этого же момента! Я так понимаю, что без функции trans не обойтись... Также предполагаю, что можно обойтись одной-двумя строчками кода с использованием этой функции. Только не соображу как правильно составить эту строчку, поэтому в очередной раз прошу помощи у спецов!

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

ИМХО при таких раскладах будет значительно проще изначально высчитать точку вставки. Тем же polar

[Станислав_]

koMon, программа выдаёт ошибку на строке:

Код:

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

 corner_vertex_param (fix (vlax-curve-getparamatpoint pline corner_vertex))

Попытался исправить, чёт не получилось...

[koMon]

что за ошибка в консоли?
д.б. как-то так

[Станислав_]

После выбора блока, указываю первую точку на полилинии и вылетает ошибка. Скрин в прикреплении.

----- добавлено через ~15 мин. -----
Странным образом заработало после того, как раза два перезагрузил Автокад!
Алексей и koMon ОГРОМНОЕ спасибо за участие! Буду обращаться...

[koMon]

Сообщение от Станислав_ После выбора блока, указываю первую точку на полилинии и вылетает ошибка. Скрин в прикреплении.

могло быть из-за выставленной пск.