[Supermax]

1. Можно ли убрать во всплывающем сообщении строчку "CTRL + click to follow link"?
2. Как прописать автоматически во все внешние ссылки имя внешней ссылки в Hyperlink?
3. Как очистить все Hyperlink-и внених ссылок или блоков?

Может макрос у кого-нибудь есть?

[Павлов Андрей]

Полностью код , который я использовал - ниже

Код:

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

;;; Функция возвращает значение гиперссылки у объекта ввиде списка
;;; (Url URLDescription URLNamedLocation)
;;; Аргумент
;;;ENAME - ename or vla object
(defun mip-get-hyperlink (ENAME / ret)
  (if (eq (type ENAME) 'ENAME)
    (setq ENAME (vlax-ename->vla-object ENAME))
  ) ;_ end of if
  (vlax-for hyp (vla-get-hyperlinks ENAME)
    (setq ret (cons (list
                      (vla-get-URLDescription hyp)
                                            )
                    ret
                    )
          )
    )
  (car(reverse ret))
) ;_ end of DEFUN
(defun c:hyp_read()
(command "_.MSPACE")
((lambda (ents)
    (command "_mleader" (cadr ents) pause (car (mip-get-hyperlink (car ents))))
    (command "_chspace" (entlast) ""))
 (entsel)))

Autocad в командной строке пишет :


hyp_read
_.MSPACE
Command:
Select object: _mleader
Specify leader arrowhead location or [leader Landing first/Content first/Options] <Options>:
Specify next point:
Specify next point: K-102 C-2 $10 S500
Invalid Input.
Specify next point: _chspace
Invalid Input.
Specify next point:
Invalid Input.
Specify next point:
Enter text: nil

Enter text:

Command:

[Дима_]

Либо в третий строчке снизу замените "pause" на "pause pause", либо в настройках мультивыноски задайте фиксированную величину полки.

[Павлов Андрей]

Спасибо . С двумя паузами работает . Еще раз спасибо за потраченное время .