LM:acdoc

[mstb]

Hello everybody

 

;; Start Undo  -  Lee Mac
;; Opens an Undo Group.

(defun LM:startundo ( doc )
    (LM:endundo doc)
    (vla-startundomark doc)
)

;; End Undo  -  Lee Mac
;; Closes an Undo Group.

(defun LM:endundo ( doc )
    (while (= 8 (logand 8 (getvar 'undoctl)))
        (vla-endundomark doc)
    )
)

;; Active Document  -  Lee Mac
;; Returns the VLA Active Document Object

(defun LM:acdoc nil
    (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
    (LM:acdoc)
)

 

Could you please advise what is the advantage of the above code compared to the below

 

(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark doc)
(vla-endundomark doc)

 

I apologize if my question is simple.

Thanks all.

[Jonathan Handojo]

I'm not too sure myself actually. starting an undo mark in itself automatically ends the previous marker.

Edited October 15, 2022 by Jonathan Handojo

[Lee Mac]

I explain the difference in my post here:

http://www.theswamp.org/index.php?topic=44700.msg499322#msg499322

[mstb]

13 hours ago, Lee Mac said:

I explain the difference in my post here:

http://www.theswamp.org/index.php?topic=44700.msg499322#msg499322

 

Wow excellent, you'r best.

Edited October 16, 2022 by mstb

[mstb]

13 hours ago, Lee Mac said:

I explain the difference in my post here:

http://www.theswamp.org/index.php?topic=44700.msg499322#msg499322

Wow excellent, you'r best.