| Author |
Message |
Rogerio_Brazil
Guest
|
 Posted:
Tue Dec 28, 2004 11:03 pm Post subject:
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 c:pline1 ()
(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
|
|
| Back to top |
|
 |
R.K. McSwain
Guest
|
| Posted:
Wed Dec 29, 2004 12:02 am Post subject:
Re: How to make a pline and offfset |
|
|
Rogerio_Brazil wrote:
| Quote: | 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.
|
(command "._pline")
(while (eq 1 (logand 1 (getvar "cmdactive")))
(command pause)
)
(command "._offset" "10.0" (entlast)) |
|
| Back to top |
|
|
Rogerio_Brazil
Guest
|
| Posted:
Wed Dec 29, 2004 4:42 pm Post subject:
Re: How to make a pline and offfset |
|
|
McSwain ,
Thank very much!!!
Rogerio
|
|
| Back to top |
|
|
Rogerio_Brazil
Guest
|
| Posted:
Thu Dec 30, 2004 7:12 am Post subject:
Re: How to make a pline and offfset |
|
|
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 |
|
| Back to top |
|
|
R. Robert Bell
Guest
|
| Posted:
Thu Dec 30, 2004 11:14 pm Post subject:
Re: How to make a pline and offfset |
|
|
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
"Rogerio_Brazil" <nospam@address.withheld> wrote in message
news:23756521.1104372780014.JavaMail.jive@jiveforum2.autodesk.com...
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 |
|
| Back to top |
|
|
Rogerio_Brazil
Guest
|
| Posted:
Mon Jan 03, 2005 11:35 pm Post subject:
Re: How to make a pline and offfset |
|
|
Thank very much,
Rogerio |
|
| Back to top |
|
|
|
|
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in