Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Show only
|
Search instead for
Did you mean:
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.Translate
hello
i want to draw a pline with a list of point a try
(defun DRAW::POLYLIGNE (pts) (setvar "cmdecho" 0)
(command "_.PLINE" (car pts) (foreach p (cdr pts) (command p)))
(princ)
)
or this
(defun DRAW-POLYLIGNE (pts) (command "_PLINE") (mapcar 'command pts)
(command ""))
but a have always 1 2 3 on prompt how to make this without
thanks
yopyop wrote:
> hello
> i want to draw a pline with a list of point a try
>
> (defun DRAW::POLYLIGNE (pts) (setvar "cmdecho" 0)
> (command "_.PLINE" (car pts) (foreach p (cdr pts) (command p)))
> (princ)
> )
>
> or this
> (defun DRAW-POLYLIGNE (pts) (command "_PLINE") (mapcar 'command pts)
> (command ""))
>
> but a have always 1 2 3 on prompt how to make this without
>
> thanks
YES now it's ok with entmake
(defun trace::po(liste)
(entmake
(append
(list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length liste)))
(mapcar '(lambda (x)(cons 10 x))liste))))
