Brainteaser LISP...

[Guest looseLISPSsinkSHIPS]

Hi,

 

we have this old lisp that seams to bug me quite a bit as I cant think of a way around it.

 

The lisp posted bellow is suppose to be continuing as similar to the dimcontinue command. However adding this “dimcontinue” feature to the lisp invalidates/ halts/ skips the pause command.

 

We have tried extensively to better this however to no avail. Perhaps someone out there knows the solution to our brainteaser?

 

;;;=== START OF CODE===

 

(defun c:Peilmaatvoering ()

(setq curDimSty (getvar 'dimstyle))

(command

".Layer" "Make" "Maatvoering" ""

"dimstyle" "Restore" "Peilmaatvoering"

"_dimlinear" "dimpost" "+" "Dimcontinue"

)

(while (= (logand (getvar "cmdactive") 1) 1)

(command pause)

)

(command

"_dimstyle" "restore" curDimSty

"_Layerp"

)

)

 

;;;===END OF CODE===

 

Thanks-

[Guest looseLISPSsinkSHIPS]

that stuipid smalie face is supose to say C: P -eilmaatvoering, dang!

[The Buzzard]

that stuipid smalie face is supose to say C: P -eilmaatvoering, dang!

 

Try posting the code next time using the code brackets feature.

 

Look for the # icon on the advanced posting. Place your code between them. It should look like this below.

 

(defun c:P-eilmaatvoering ()
(setq curDimSty (getvar 'dimstyle))
(command
".Layer" "Make" "Maatvoering" ""
"dimstyle" "Restore" "Peilmaatvoering"
"_dimlinear" "dimpost" "+" "Dimcontinue"
)
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
)
(command
"_dimstyle" "restore" curDimSty
"_Layerp"
)
)

[Guest looseLISPSsinkSHIPS]

Thanks (new to th forum)...

[The Buzzard]

No problem and welcome to the forum.