Dimensioning with lips

Hello everyone

What i want is to start "dimbaseline" command, select one dimension for baseline (draw it), end that command automatically after one baseline is created, and start "dimcontinue".

I did try something, but...

(defun c:4 ()

(command "_dimbaseline")

(exit)

(command "_dimcontinue"

)

And:

(defun c:4 ()

(command "_dimbaseline")

(command)

(command "_dimcontinue"

)

And several variations but, no go.

Thanks in advance!

Sorry, I may be looking at this the wrong way, but why not just:

(command "_dimcontinue" "_S")
(while (> (getvar "cmdactive") 0) (command pause))

Sorry, I may be looking at this the wrong way, but why not just:

 

(command "_dimcontinue" "_S")
(while (> (getvar "cmdactive") 0) (command pause))

Sorry, i know extremely little about LISP, did try to input this code, but main problem is how to end dimbaseline after first base line is created.

Doesn't dimbaseline require you to select a dimension? not draw one?

After selecting, base dimension is drawn. So what i want is after that first one is created, to end dimbaseline and go automatically to dimcontinue.

Perhaps;

(command "_dimbaseline" "_S" pause pause "" "")
(command "_dimcontinue" "_S")
(while (> (getvar "cmdactive") 0) (command pause))

Perhaps;

Hmmmm..... Maybe i'm doing something wrong. This doesn't start dimbaseline. Starts with dimcontinue...

How is the whole thing suppose to look? Starting with (defun:....

Just dump them in a test function like:

(defun c:test ()
(command "_dimbaseline" "_S" pause pause "" "")
(command "_dimcontinue" "_S")
(while (> (getvar "cmdactive") 0) (command pause))
(princ)
)

I think the functions will act differently depending upon whether you already have dimensions in the drawing, or whether the last thing you created was a dimension.

Just dump them in a test function like:

That's it!

I even modified it a bit so everything is automated. Lee Mac, thanks a million!

(defun c:test ()
(command "_dimbaseline" "_S" pause pause "" "")
(command "_dimcontinue" "l")
(while (> (getvar "cmdactive") 0) (command pause))
(princ)
)

Nice one! Glad we finally got there in the end

Happy to help