Vlisp - problem


Rekomendowane odpowiedzi

Witam!

W dawnych czasach używałe takiego lispa:

(vl-load-com)

(defun change_text_value (obj)

(foreach ATT (vlax-safearray->list

(vlax-variant-value ;;;;;;?????????????????

(vla-getattributes obj)

)

)

(if (and (/= (vla-get-TagString att) "DESC")

(/= (vla-get-TagString att) "ARK_NR")

);and

(vla-put-textstring att " ")

);IF

)

(vla-update obj)

)

(defun c:blank (/ sset num len)

(setq sset (ssget "x" '((2 . "BordUn2")))

;; (setq sset (ssget '((0 . "INSERT") (66 . 1)))

num 0

len (sslength sset)

)

(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))

(if (/= len 0)

(repeat len

(change_text_value

(vlax-ename->vla-object (ssname sset num))

)

(setq num (1+ num))

)

(princ "\nNo entities with attributes were selected. ")

)

)

Procedura ta czyściła wszystkie atrybuty w bloku BordUn2, za wyjątkiem 2-ch ("DESC" i "ARK_NR").

Próbowałem wiersz, po wierszu przetestować ten program. Wydaje się, że zawiesza się na

(vlax-variant-value ...).

Czy może uda się to jakoś to "reanimować?

Pozdrawiam.

H.R.

Odnośnik do komentarza
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie