How to make a pline and offfset

Hello,

How to make a pline (with various vertices, without pause - command "pline" pause pause pause), with autolisp, and make a offset of a pline after.

Sample:

;;#pline - sub-function after Pline1
(defun #pline ()
(SETQ ENTLWPL1 (ENTGET (ssname (ssget "l") 0))) ;;select a last pline
(setq p1 (getpoint "\n Offset point: "))
(command "offset" "10" ENTLWPL1 p1 "")
(princ))

(defun cline1 ()
(command "pline");;various vertices pline
;;here, how to make a pline with various vertices, and use offset after.; without pause
(#pline) ;;sub-function after make pline
(princ))

Thanks in advance,

Rogerio

 

(command "._pline")
(while (eq 1 (logand 1 (getvar "cmdactive")))
(command pause)
)
(command "._offset" "10.0" (entlast))

 

McSwain ,

Thank very much!!!

Rogerio

 

Hello McSwain ,

Please, how to work the funciton:

(eq 1 (logand 1 (getvar "cmdactive")))

eq 1 ???

(logand 1 ???

A programer in Brazil make a question.

Thank very much. sorry my english.

Rogerio

 

The CmdActive system variable stores bitcodes, e.g. 1, 2, 4, 8 and
combinations thereof.

(logand) returns the bit tested using a Boolean AND, e.g. (logand 1 1)
returns 1, (logand 1 3) returns 1 (bit 0 is set in the second integer which
equals 1). Another way of looking at that 2nd example is in binary:

01 AND 11 = 01

So McSwain is testing to see if bit 0 (integers 0 and 1) is set in the
system variable.

--
R. Robert Bell


Hello McSwain ,

Please, how to work the funciton:

(eq 1 (logand 1 (getvar "cmdactive")))

eq 1 ???

(logand 1 ???

A programer in Brazil make a question.

Thank very much. sorry my english.

Rogerio

 

Thank very much,

Rogerio