TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Fabricio28 on May 02, 2013, 04:33:16 PM
-
Hello Guys,
I have a doubt, and I need some help.
I used the command DVIEW-twist to rotate my drawing.
Now WCS was changed.
I would like to draw a straight line (F8) in the WCS World (default), standing in the new WCS.
Is it possible??
Regards
-
This?
(defun c:test
( / p1 p2
) )
)
'(0.0 0.0 0.0 1.0)
)
)
)
)
)
)
-
Excellent, Lee!!
You understood better than my friends portuguese my request.
Just one more thing...
I can't modify the code to insert polyline on P1 and P2.
Coul you help me out, please?
Thanks
-
This may do your basic pline unless you intend to entmake the pline.
(defun c:test ()
(command "_PLINE")
(while (> (getvar "CMDACTIVE") 0)
(command pause)
)
(princ)
)
-
Excellent, Lee!!
You understood better than my friends portuguese my request.
:-)
Just one more thing...
I can't modify the code to insert polyline on P1 and P2.
Coul[d] you help me out, please?
Try the following:
(defun c:test
( / p1 p2 zv
) )
)
'(0.0 0.0 0.0 1.0)
)
)
)
)
)
'(000 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(090 . 2)
'(070 . 0)
)
)
)
)
)
)
)
However, for practical purposes Object Snap would be required, and so you would likely need to use something like this instead:
(defun c:test2
( / p1 p2 zv
) )
)
)
'(000 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(090 . 2)
'(070 . 0)
)
)
)
)
)
-
It's impressive your code Mr. Lee Mac.
Just amazing!!
I'm astonished.
Thank you very much.
:-D
-
You are too kind Fabricio :-)
-
LEE,
You 'DA MAN! :-D
-
lol, thanks 8-)