Polyine with multiplier

**sanrajbhar677632** · 2011-10-11, 05:04 AM

hi all,

i want lisp programe to Creat simply polyline. for suppose i want to Create polyline length of 3.5. but it should be drawn 35. it should ask for the multiplier number from which it should be multiplied and drawn.

i will specify 3.5.
type your Multiplier =10

it should drawn 35. and this code should execute withing pline command.

(the above one is just example. dont say that "you can type 35". multiplier can be any number. e.g 32.5.). I just tried to write lisp but all is just useless. kindly help me or guide on this.

this is my code

Code:

(defun c:xx()
(setq a (getreal "Enter multiplier Number:..."))
(setq b (getreal "Enter length of link:..."))
(command "pline" (getpoint) (* a b ) "")
)

**marko_ribar** · 2011-10-11, 05:31 AM

Try this :

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) a)))
    (setq ptl (cons pt ptl))
  )
  (setq ptl (reverse ptl))
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

M.R.

**marko_ribar** · 2011-10-11, 05:41 AM

Sorry, I've made mistake :

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) (list a a a))))
    (setq ptl (cons pt ptl))
  )
  (setq ptl (reverse ptl))
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

Regards,
M.R.

**marko_ribar** · 2011-10-11, 06:10 AM

One more thing... :

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint pt "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) (list a a a))))
    (setq ptl (cons pt ptl))
  )
  (setq ptl (reverse ptl))
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

Regards,
M.R.

**marko_ribar** · 2011-10-11, 06:20 AM

What is this, I can't modify posts???

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint pt "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) (list a a a))))
    (setq ptl (cons pt ptl))
    (grdraw (car ptl) (cadr ptl) -1)
  )
  (setq ptl (reverse ptl))
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

Regards,
M.R.

**sanrajbhar677632** · 2011-10-11, 07:05 AM

Nothing is working. I am using AutoCAD Map 2004. Anyways Thanks for Your Reply

Originally Posted by marko_ribar

Try this :

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) a)))
    (setq ptl (cons pt ptl))
  )
  (setq ptl (reverse ptl))
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

M.R.

**sanrajbhar677632** · 2011-10-11, 07:09 AM

hello,

this code is drawn pline in graphic screen(Virtuallly). After regen it gets vanish.

Originally Posted by marko_ribar

What is this, I can't modify posts???

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint pt "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) (list a a a))))
    (setq ptl (cons pt ptl))
    (grdraw (car ptl) (cadr ptl) -1)
  )
  (setq ptl (reverse ptl))
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

Regards,
M.R.

**marko_ribar** · 2011-10-11, 07:22 AM

FINALLY - remove nil from ptl, and it should work :

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint pt "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) (list a a a))))
    (setq ptl (cons pt ptl))
    (grdraw (car ptl) (cadr ptl) -1)
  )
  (setq ptl (reverse ptl))
  (vl-remove nil ptl)
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

Regards,
M.R.

**sanrajbhar677632** · 2011-10-11, 08:55 AM

still the same problem !

Originally Posted by marko_ribar

FINALLY - remove nil from ptl, and it should work :

Code:

(defun c:test ( / pt a ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq ptl (cons pt ptl))
  (while (not (null pt))
    (setq pt (getpoint pt "\nPoint - ENTER for END : "))
    (setq a (getreal "\nInput multiplier for segment : "))
    (setq pt (mapcar '+ pt (mapcar '* (mapcar '- pt (car ptl)) (list a a a))))
    (setq ptl (cons pt ptl))
    (grdraw (car ptl) (cadr ptl) -1)
  )
  (setq ptl (reverse ptl))
  (vl-remove nil ptl)
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
(princ)
)

Regards,
M.R.

**marko_ribar** · 2011-10-11, 09:44 AM

HI, nothing until I sit in front of my PC with CAD :

Code:

(defun c:test ( / pt a k m ptl )
  (setq pt (getpoint "\nStart Point : "))
  (setq a 1.0)
  (setq ptl (cons pt ptl))
  (while (not (or (null a) (null pt)))
    (setq pt (getpoint pt "\nPoint - ENTER for END : "))
    (redraw)
    (if (not (null pt))
      (progn
      (grdraw pt (car ptl) 1)
      (princ "\nCurrent length is : ")(princ (distance pt (car ptl)))
      (setq a (getreal "\nInput multiplier for segment - ENTER for END : "))
        (if (not (null a))
          (progn
          (setq pt (mapcar '+ (car ptl) (mapcar '* (mapcar '- pt (car ptl)) (list a a 0.0))))
          (setq ptl (cons pt ptl))
          )
        )
      )
    )
    (redraw)
    (setq k -1)
    (repeat (- (length ptl) 1)
      (setq k (1+ k))
      (setq m (1+ k))
      (grdraw (nth k ptl) (nth m ptl) -1)
    )
  )
  (setq ptl (reverse ptl))
  (command "_.pline")
  (foreach pt ptl
    (command pt)
  )
  (command "")
  (redraw)
(princ)
)

Hope now everything is OK...
I just test it and it went fine with my CAD...

Regards,
M.R.

Thread: Polyine with multiplier

Thread Tools

Display

Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Re: Polyine with multiplier

Similar Threads

2014: Multiplier Roll Out Command

PSLTSCALE set individually for each line and polyine

Distance Multiplier problem

LISP THAT WILL DRAW A POLYINE WITH A SET RADIUS ON THE FLY

Apply Fillet to 3D Polyine

Posting Permissions