Osmode Problem

I'm trying to create this simple routine that will set Pline Width according to the Dimscale. This part of the lisp routine works but what I would like to add is to set my osnaps to "endpoint, midpoint,nearest,quadrant,center" draw my pline and then turn them off the snaps.

I'm new to writing these routines so this is probally something very easy to fix but I've been unable to get this routine to work correctly. Any Suggestions?

(defun cl (/ OS)
(setvar "plinewid" (* 0.015625 (if (= (getvar "dimscale") 0) 1 (getvar "dimscale"))))
(setq os (getvar "osmode"))
(setvar "osmode" 535)
(command "pline")
(setvar "osmode" os)
(princ)
)

 

Do the osnap command, getting the dialog.
Set your osnap modes the way you want them.
At the command line type: (getvar "OSMODE")
and watch the prompt line. A number should appear.
Place that number in the line: (setvar "osmode" nnn)
where you replace the 'nnn' with the number you got.

Bob

 

Just a guess ...

(defun cl (/ OS)
(setvar "plinewid" (* 0.015625 (if (= (getvar "dimscale") 0) 1 (getvar
"dimscale"))))
(setq os (getvar "osmode"))
(setvar "osmode" 535)
(command "pline")

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

(setvar "osmode" os)
(princ)
)

 

according to the Dimscale. This part of the lisp routine works but what I
would like to add is to set my osnaps to "endpoint,
midpoint,nearest,quadrant,center" draw my pline and then turn them off the
snaps.

to fix but I've been unable to get this routine to work correctly. Any
Suggestions?

;add this here
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause))

 

O.K. I've changed my value to 567 but still when I run this routine no snaps are set?

(defun cl (/ OS)
(setvar "plinewid" (* 0.015625 (if (= (getvar "dimscale") 0) 1 (getvar "dimscale"))))
(setq os (getvar "osmode"))
(setvar "osmode" 567)
(command "pline")
(setvar "osmode" os)
(princ)
)

 

That's it. Thank you. If you don't mind could you explain what

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

is actually doing?

 

(command "pline")
Add:
(while (> (getvar "cmdactive") 0) (command pause))

Bob

 

(setvar "osmode" 535)
(command "pline")
(setvar "osmode" os)

Set your osmode to 535
starts the command "pline"
resets your osmode

all before you get started on the screen, in a flash, so you don't get the
benefit of the resets...

adding (while (> (getvar "cmdactive") 0) (command pause))

tells the lisp to PAUSE after starting the pline command until your done
with the pline command ... THEN it reset's osmode

 

Yep, slid one under the wire

 

Adding the while statement fixed the problem of the Osnaps but now when the pline command is active I can't see the pline command options. Is there a way to be able to see these because sometimes I need to draw pline "arc" and sometimes regular "straight" plines?

 

Adding "._pline" Does the trick

 

Well it did on my test try of the routine but now I can't get it to display the command line interface. What's going on? Any help please.

 

Normally I collect the info up front and feed the values into the pline
command from saved variables ... not sure why the pline prompts aren't
displayed ... this isn't same behavior you get with the qleader command for
example...

 

There isn't any command line options with the qleader command either?

 

No I said "this isn't same behavior you get with the qleader command" ...
you do see the command line prompts using a similar routine for qleader...

 

Right I replaced "._pline" with "._qleader" and it still has the same results.

 

You do?? Humm I use a similiar routine wiithout issue with qleaders .... let
me look

 

Ok, i diced and spliced .... try this ...

(defun c:QPL ( / os)
(setq ce (getvar "cmdecho"))
(setvar "cmdecho" 0) ; Turn cmdecho off
(setvar "plinewid" (* 0.015625 (if (= (getvar "dimscale") 0) 1
(getvar"dimscale"))))

(setq os (getvar "osmode"))
(setvar "osmode" 535)

(setvar "texteval" 1) ; Force ACAD to accept input
(setvar "cmdecho" 1) ; Turn cmdecho back on
(command "_.PLINE") ; Start PLINE command
;;
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause))

(setvar "texteval"0)
(setvar "osmode" os) ;
(setvar "cmdecho" ce) ;
(prompt "\n. ") ; Clear the command
Line
(prompt "\n. ") ; Clear the command
Line
(princ) ; Nil supression
) ; End defun

 

Thanks Chip that seems to have done it!! Very busy right now but when I get some time today or next week I want to dig into what you did. I might post back with some questions.