[n0str0m0]

Имеется блок - скважина с атрибутами, один из которых - отметка устья скважины. Но все скважины находятся на нулевой отметке. Подскажите, как поднять этот блок на атрибут отметки устья? Пытался через поиск найти, не получилось. То, что нашел, не работает

[trir]

через запросы https://forum.dwg.ru/attachment.php?...6&d=1362567741

[name02]

Сообщение от trir через запросы

Надо только правильно попросить

Сообщение от n0str0m0 Подскажите, как поднять этот блок на атрибут отметки устья?

Где-то в параллельной вселенной на каком-то параллельном форуме должно быть висит пост:
Есть блок с атрибутом высотной отметки устья скважины. Подскажите, пожалуйста, лисп для замены значения Y-координаты точки вставки выделенных блоков на значение из данного атрибута.

Код:

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

 
(defun C:TEST (/ ss en p1)
 (if (setq ss (ssget '((0 . "INSERT") (2 . "ИМЯ_БЛОКА"))))
   (repeat (setq i (sslength ss))
     (setq en (vlax-ename->vla-object (ssname ss (setq i (1- i))))
           p1 (vlax-get en 'InsertionPoint)
     )
     (foreach x (vlax-invoke en 'getattributes)
       (if (eq (vla-get-TagString x) "ИМЯ_АТРИБУТА")
         (vlax-put en 'InsertionPoint (list (car p1)  (atof (vla-get-TextString x)) (caddr p1)))
       )
     )
   )
 )
 (princ)
)

Данный код работает только для статических блоков (не динамических)!
TEST.lsp

[n0str0m0]

Загрузил лисп, но выбрать блоки не получается, хотя они не динамические

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

Лисп надо менять - вводить нормальное имя блока и нормальный же тэг атрибута

[name02]

Сообщение от n0str0m0 хотя они не динамические

Очень даже динамические - у тебя в них параметр видимости есть!
К тому же у тебя блоки имеют разные имена...
Для лиспа это очень существенная разница - имей в виду на будущее, если будешь просить помочь - пиши подробнее и точно!
Вместо BLOCK_NAME "*" можно написать имена нужных блоков (подробнее читай тут)

Код:

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

 (defun C:TEST (/ BLOCK_NAME ATT_NAME ss i en p1)

  (setq
    BLOCK_NAME     "*"
    ATT_NAME "Z"
  ) ;_ end of setq

  (setq ss (ssget '((0 . "INSERT"))))

  (if ss
    (repeat (setq i (sslength ss))
      (setq en (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
      (cond
	((wcmatch (vla-get-EffectiveName en) BLOCK_NAME) ;_ end of wcmatch

	 (setq p1 (vlax-get en 'InsertionPoint))

	 (foreach x (vlax-invoke en 'getattributes)
	   (if (eq (vla-get-TagString x) ATT_NAME)
	     (vlax-put en
		       'InsertionPoint
		       (list (car p1) (atof (vla-get-TextString x)) (caddr p1))
	     ) ;_ end of vlax-put
	   ) ;_ end of if
	 ) ;_ end of foreach
	)
	(T nil)
      ) ;_ end of cond
    ) ;_ end of repeat
  ) ;_ end of if
  (princ)
) ;_ end of defun

TEST.lsp

[АлексЮстасу]

Сообщение от n0str0m0 поднять этот блок на атрибут отметки

Как подвариант:
Выгрузить блоки и значения атрибутов в txt лиспом PtM - PointManager от Lee Mac. (Пригодится еще много для чего. В т.ч. и для обратного процесса).
Заменить в Excel нулевые Z на значения атрибута отметки.
Загрузить обратно этими же блоками лиспом PtM.
Исходные блоки сначала удалить или т.п.

[n0str0m0]

Сообщение от name02 Очень даже динамические - у тебя в них параметр видимости есть! К тому же у тебя блоки имеют разные имена... Для лиспа это очень существенная разница - имей в виду на будущее, если будешь просить помочь - пиши подробнее и точно! Вместо BLOCK_NAME "*" можно написать имена нужных блоков (подробнее читай тут) Код: [Выделить все] (defun C:TEST (/ BLOCK_NAME ATT_NAME ss i en p1) (setq BLOCK_NAME "*" ATT_NAME "Z" ) ;_ end of setq (setq ss (ssget '((0 . "INSERT")))) (if ss (repeat (setq i (sslength ss)) (setq en (vlax-ename->vla-object (ssname ss (setq i (1- i))))) (cond ((wcmatch (vla-get-EffectiveName en) BLOCK_NAME) ;_ end of wcmatch (setq p1 (vlax-get en 'InsertionPoint)) (foreach x (vlax-invoke en 'getattributes) (if (eq (vla-get-TagString x) ATT_NAME) (vlax-put en 'InsertionPoint (list (car p1) (atof (vla-get-TextString x)) (caddr p1)) ) ;_ end of vlax-put ) ;_ end of if ) ;_ end of foreach ) (T nil) ) ;_ end of cond ) ;_ end of repeat ) ;_ end of if (princ) ) ;_ end of defun Вложение 260573

Этот лисп работает, но отметку Z из атрибута присваивает координате Y (север) блока. Таким образом, блок перемещается по горизонтали, а не по вертикали. А так работает и с простыми блоками, и с блоками, имеющими параметр видимости. Как и где подправить лисп, я, к сожалению, не знаю

[trir]

Как и где подправить лисп, я, к сожалению, не знаю

поcar'кай

[name02]

Сообщение от n0str0m0 Таким образом, блок перемещается по горизонтали, а не по вертикали.

Короче, не сильно понял, но сделал так, чтобы координата Z блока бралась из атрибута

Код:

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

   ;Замена Z-координаты динамических и статических блоков на значение из атрибута
(defun C:TEST (/ BLOCK_NAME ATT_NAME ss i en p1)

  (setq
    BLOCK_NAME "*"
    ATT_NAME "Z"
  ) ;_ end of setq

  (setq ss (ssget '((0 . "INSERT"))))

  (if ss
    (repeat (setq i (sslength ss))
      (setq en (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
      (cond
	((wcmatch (vla-get-EffectiveName en) BLOCK_NAME) ;_ end of wcmatch

	 (setq p1 (vlax-get en 'InsertionPoint))

	 (foreach x (vlax-invoke en 'getattributes)
	   (if (eq (vla-get-TagString x) ATT_NAME)
	     (vlax-put en
		       'InsertionPoint
		       (list
			    ;;X-координата блока
			    (car p1)
			    ;;Y-координата блока
			    (cadr p1)
			    ;;Z-координата блока
			    (atof (vla-get-TextString x))
		       ) ;_ end of list
	     ) ;_ end of vlax-put
	   ) ;_ end of if
	 ) ;_ end of foreach
	)
	(T nil)
      ) ;_ end of cond
    ) ;_ end of repeat
  ) ;_ end of if
  (princ)
) ;_ end of defun