Ranking

Hej, Napisałem skrypt który przepisuje wartość atrybutu o wskazanej nazwie do hiperłącza w wybranych blokach. Zwróć uwagę na wielkość liter w nazwach, ponieważ ma ona znaczenie. Skrypt uruchamia polecenie PrzepiszDoHiperlinku. (vl-load-com) (princ (strcat " Copyright © 2000 — 2025 Usługi Informatyczne Szansa www.zwcad.pl Dostępne polecenia: PRZEPISZDOHIPERLINKU - skrypt automatycznie przepisuje wartość wskazanego atrybutu do hiperłącza w wybranych blokach ") ) (defun LM:vl-getattributevalue ( blk tag ) (setq tag (strcase tag)) (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att))) (vlax-invoke blk 'getattributes)) ) (defun C:PRZEPISZDOHIPERLINKU (/ blockName przepiszVal ss i ent val) (setq blockName (getstring t "\nWpisz nazwę bloku: ")) (setq attName (getstring t "\nWpisz nazwę atrybutu: ")) (setq ss (ssget "_X" (list (cons 2 blockName)))) (setq i 0) (repeat (sslength ss) (setq ent (ssname ss i)) (setq obj (vlax-ename->vla-object ent)) (setq val (LM:vl-getattributevalue obj attName)) (vla-add (vla-get-hyperlinks obj) val (vl-filename-base val)) (setq i (+ i 1)) ) (princ) ) PrzepiszDoHiperlinku.lsp

Szybkie testy i potwierdzam, że u mnie wszystko działa jak należy

A jak jest ustawiona zmienna EDGEMODE? Jeśli jest na 1, proszę przełączyć na 0 i sprawdzić.

Na tej poprawce już zapamiętuje stan. https://cad.szansa.net.pl/ZWTraffic_2025_Beta/ZWTraffic_2025__PL.exe

Skrypt ma rozszerzenie zelx także jest zaszyfrowany dla programów z rodziny ZWCAD.

W najnowszej poprawce ten problem został rozwiązany. Link bez zmian https://cad.szansa.net.pl/ZWTraffic_2025_Beta/ZWTraffic_2025__PL.exe

Zapewne po wyniku końcowym wyrażenia należy dodać oczekiwaną jednostkę. Gdyby chodziło o coś innego to musisz wstawić przykładowy arkusz.