VisualLisp

[Assgarth]

Witam,

brakuje mi funkcji "vla-StartUndoMark" oraz "vla-EndUndoMark" czy coś wiadomo w tym temacie? Są jakieś zastępcze funkcje czy pozostaje czysty Lisp i funkcja "undo"?

pozdrawiam

[kruszynski]

Funkcje te nie są obecnie dostępne. Postaram się ustalić kiedy się pojawią. Zastępczo możemy się posłużyć taką przykładową konstrukcją:

(command "undo" "be") 
(command "circle" "0,0" 6.0 "move" "L" "" "@" pause "polygon" 6 "@" "C" 6.0)
(command "undo" "end") 

[Assgarth]

Czyli tak jak myślałem.

To mam zatem jeszcze prośbę aby zorientować się również w kwestii następujących funkcji Visual Lispa:

"vla-get-profiles"

"vla-get-activeprofile"

"vla-put-activeprofile"

"vla-getallprofilenames"

"vla-deleteprofile"

"vla-resetprofile"

"vla-renameprofile"

"vla-copyprofile"

"vla-exportprofile"

"vla-importprofile"

czyli funkcje do zarządzania Profilami w CAD.

np.

(defun putActiveProfile (profilename)
 (vla-put-activeprofile
   (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))
   profilename
 )
)

pozdrawiam

[Assgarth]

Swoją drogą, czy istnieje zatem jakiś sposób na utworzenie Profilu z poziomu Lisp'a, skoro nie są obecne powyższe funkcje??

[gruzin]

(command "undo" "be")

.................

(command "undo" "end")

Nie znałem tego.

Bardzo sprytna opcja :-)

[kruszynski]

ja też nie. Dzisiaj wyczytałem w helpie ;)