[alega11]

Как автоматизировать процесс замены части имени файла в гиперссылке?

на каждом чертеже сначала присваиваю всем элементам одинаковый относительный путь (например .\PM1_01_04_01_VA_01_01_S_000.xlsx)
потом вручную меняю каждую ссылку по значению мультивыноски (типа 1, 2, 3 и т. д. соответственно .\PM1_01_04_01_VA_01_01_S_001.xlsx, .\PM1_01_04_01_VA_01_01_S_002.xlsx, .\PM1_01_04_01_VA_01_01_S_003.xlsx и т.д).


своих мозгов лисп написать не хватает.

[5hev]

При заданных условиях (в мультивыносках числа, заданный путь и т.д.) простейшее решение:

Код:

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

 (vl-load-com)
(setq prefix ".\\PM1_01_04_01_VA_01_01_S_")
(while (setq obj (vlax-ename->vla-object (car(entsel))))
  (vla-add
    (vla-get-Hyperlinks obj)
    (strcat prefix (substr "000" 1 (- 3 (strlen (vla-get-textstring obj)))) (vla-get-textstring obj) ".xlsx")
    )
  )

[alega11]

5hev, спасибо, но

ошибка: ActiveX Server возвратил ошибку: неизвестное имя:
TextString

[5hev]

alega11, программой подразумевается выбор мультивыносок с текстом до момента пустого выбора. С данным типом выносок все работет, если у вас - нет, тогда присоедините пример выносок, с которыми работаете

[alega11]

может я неправильно понял, но программа меняет (т.е. делает) ссылку мультивыноски, а не элемента

[5hev]

Ну, товарисч))) Я не телепат!) Вот вам опять же простейший вариант без проверок и других удобств

Код:

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

 (vl-load-com)
(setq prefix ".\\PM1_01_04_01_VA_01_01_S_")
(while (and
	 (setq obj (vlax-ename->vla-object (car(entsel "\nЭлемент:"))))
	 (setq mleader (vlax-ename->vla-object (car(entsel "\nВыноска:"))))
	)
  (vla-add
    (vla-get-Hyperlinks obj)
    (strcat prefix (substr "000" 1 (- 3 (strlen (vla-get-textstring mleader)))) (vla-get-textstring mleader) ".xlsx")
    )
  )

[alega11]

5hev, СПАСИБО!

[5hev]

Заметил, что гиперссылки не меняются при вторичном проходе того же объекта, а новое значение просто добавляется в коллекцию гиперссылок объекта... Короче, вот так лучше

Код:

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

 (vl-load-com)
(setq prefix ".\\PM1_01_04_01_VA_01_01_S_")
(while (and
	 (setq obj (vlax-ename->vla-object (car(entsel "\nЭлемент:"))))
	 (setq mleader (vlax-ename->vla-object (car(entsel "\nВыноска:"))))
	)
  (vlax-for i (vla-get-Hyperlinks obj) (vla-Delete i))
  (vla-add
    (vla-get-Hyperlinks obj)
    (strcat prefix (substr "000" 1 (- 3 (strlen (vla-get-textstring mleader)))) (vla-get-textstring mleader) ".xlsx")
    )
  )

[alega11]

5hev, спасибо, все работает на ура.
уже сэкономил кучу времени. Еще раз спасибо!
_____
5hev, не сочтите за наглость:
а можно сделать так, чтобы относительный путь копировался в пояснение к гиперссылке и ставилась галка DWG в DWF?
(требования заказчика

[5hev]

Можно. Засунул все это в процедуру, теперь запуск по команде addurl или по пробелу - повторный запуск

Код:

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

 (vl-load-com)
(defun c:addURL( / prefix obj mleader str xdata)
(setq prefix ".\\PM1_01_04_01_VA_01_01_S_")
(while (and
	 (setq obj (vlax-ename->vla-object (car(entsel "\nЭлемент:"))))
	 (setq mleader (vlax-ename->vla-object (car(entsel "\nВыноска:"))))
	)
  (vlax-for i (vla-get-Hyperlinks obj) (vla-Delete i))
  (vla-add
    (vla-get-Hyperlinks obj)
    (setq str (strcat prefix (substr "000" 1 (- 3 (strlen (vla-get-textstring mleader)))) (vla-get-textstring mleader) ".xlsx"))
    str
    )
  (setq obj   (vlax-vla-object->ename obj)
	xdata (assoc -3 (entget obj '("PE_URL"))))
  (entmod (subst
	  (subst
	    (subst (cons 1071 1) (assoc 1071 (cdr (nth 1 xdata))) (nth 1 xdata))
	    (nth 1 xdata)
	    xdata)
	  xdata
	  (entget obj '("PE_URL"))
	  ))  
  ))

[alega11]

5hev, СУПЕР! и