Topic: How to do this?

[HasanCAD]

How to repeat if ?

Code: [Select]

(setq dist (getdist "Pick start and end points "))
(if
    (< dist 1500)
    (setq dst dist)
    (- dist 1000)
    )

[ronjonp]

Use

Code - Auto/Visual Lisp: [Select]

1. while

[HasanCAD]

Use

Code - Auto/Visual Lisp: [Select]

1. while

How?

[ronjonp]

Something like this:

Code: [Select]

(while (and (setq dist (getdist "Pick start and end points ")) (< dist 1500))
  (setq dst dist)
  (- dist 1000)
)

[Keith™]

+1