Topic: Generate a Pline from a list of points?

[hyposmurf]

Side tracking I know, but it has to be said as well as producing nice code you have one very cool avatar.

[LE]

Evgeniy;

My question was in general, since I noticed that the topic is how to generate a pline from a list of points, all the code provided was just for straight pline...

Here is one code to generate a pline with straight and curve segments.

Download the ZIP file.... please and open pline_vlisp.lsp

Have fun.
Luis Esquivel

Correction: Removing the code and placing it into a ZIP file...

[ElpanovEvgeniy]

Side tracking I know, but it has to be said as well as producing nice code you have one very cool avatar.

AutoCad 2000 + Accurender

PS. Modify =>  + Photoshop

[ElpanovEvgeniy]

Very cool the code!
You could see only my public code.
My work code I cannot show.

[LE]

Very cool the code!
You could see only my public code.
My work code I cannot show.

No problem... for what I have seen so far, looks like you really know how to code and you are a problem solver...

Again welcome here...

[ElpanovEvgeniy]

I work with polylines much...
My old programs:

Reverse "LWPOLYLINE"

Code: [Select]

(defun c:rlw (/ E LW X1 X2 X3 X4 X5 X6)
  (if (and (setq lw (car (entsel "\nSelect lwpolyline")))
           (= (cdr (assoc 0 (setq e (entget lw)))) "LWPOLYLINE")
      ) ;_  and
    (progn
      (foreach a1 e
        (cond
          ((= (car a1) 10) (setq x2 (cons a1 x2)))
          ((= (car a1) 40) (setq x4 (cons (cons 41 (cdr a1)) x4)))
          ((= (car a1) 41) (setq x3 (cons (cons 40 (cdr a1)) x3)))
          ((= (car a1) 42) (setq x5 (cons (cons 42 (- (cdr a1))) x5)))
          ((= (car a1) 210) (setq x6 (cons a1 x6)))
          (t (setq x1 (cons a1 x1)))
        ) ;_  cond
      ) ;_  foreach
      (entmod
        (append
          (reverse x1)
          (append
            (apply
              (function append)
              (apply
                (function mapcar)
                (cons
                  'list
                  (list x2
                        (cdr (reverse (cons (car x3) (reverse x3))))
                        (cdr (reverse (cons (car x4) (reverse x4))))
                        (cdr (reverse (cons (car x5) (reverse x5))))
                  ) ;_  list
                ) ;_  cons
              ) ;_  apply
            ) ;_  apply
            x6
          ) ;_  append
        ) ;_  append
      ) ;_  entmod
      (entupd lw)
    ) ;_  progn
  ) ;_  if
) ;_  defun

Direction "LWPOLYLINE" 

Code: [Select]

(defun c:lwcl (/ LW LST MAXP MINP)
  (setq lw (vlax-ename->vla-object (car (entsel))))
  (vla-GetBoundingBox lw 'MinP 'MaxP)
  (setq
    minp (vlax-safearray->list minp)
    MaxP (vlax-safearray->list MaxP)
    lst  (mapcar
           (function
             (lambda (x)
               (vlax-curve-getParamAtPoint
                 lw
                 (vlax-curve-getClosestPointTo lw x)
               ) ;_  vlax-curve-getParamAtPoint
             ) ;_  lambda
           ) ;_  function
           (list minp
                 (list (car minp) (cadr MaxP))
                 MaxP
                 (list (car MaxP) (cadr minp))
           ) ;_  list
         ) ;_  mapcar
  ) ;_  setq
  (if (or
        (<= (car lst) (cadr lst) (caddr lst) (cadddr lst))
        (<= (cadr lst) (caddr lst) (cadddr lst) (car lst))
        (<= (caddr lst) (cadddr lst) (car lst) (cadr lst))
        (<= (cadddr lst) (car lst) (cadr lst) (caddr lst))
      ) ;_  or
    t
  ) ;_  if
) ;_  defun


[LE]

I work with polylines much...
My old programs:

Reverse "LWPOLYLINE"

Code: [Select]

(defun c:rlw (/ E LW X1 X2 X3 X4 X5 X6)
 ) ;_  defun

Direction "LWPOLYLINE" 

Code: [Select]

(defun c:lwcl (/ LW LST MAXP MINP)
  (setq lw (vlax-ename->vla-object (car (entsel))))
  (vla-GetBoundingBox lw 'MinP 'MaxP)
 ) ;_  defun


I am testing C:LWCL ... it always returning NIL.... what is supposed to do? or what I am doing wrong here...

Thanks.

[Serge J. Gianolla]

I am testing C:LWCL ... it always returning NIL.... what is supposed to do?

Not tested it, but I think it is checking if pline drawn CW or CCW!

[LE]

Eso entendi Sergio... solo que a mi me regresa solamente NIL

He he...

[ElpanovEvgeniy]

Code: [Select]

(entmakex
  '((0 . "LWPOLYLINE")
    (100 . "AcDbEntity")
    (100 . "AcDbPolyline")
    (90 . 4)
    (70 . 1)
    (10 0. 0.)
    (10 100. 0.)
    (10 100. 100.)
    (10 0. 100.)
   )
) ;_  entmakex
c:lwcl=> NIL

(entmakex
  '((0 . "LWPOLYLINE")
    (100 . "AcDbEntity")
    (100 . "AcDbPolyline")
    (90 . 4)
    (70 . 1)
    (10 0. 0.)
    (10 0. 100.)
    (10 100. 100.)
    (10 100. 0.)
   )
) ;_  entmakex
c:lwcl => T

[Serge J. Gianolla]

Hey Luis,
How you do that? You are not listed in users on line, and yet!!!!

[LE]

OK,

I got it working now...

Thanks.

[Serge J. Gianolla]

Mi scusi, Luis

The thingy [yeah I get technical at times] on the left says you are offline. Neat!

[LE]

 

[Kerry]

Serge ;