The entsel looping stop after 1 loop

[nam.lethai1995]

Try to write a simple code but it turn out that the are more and more problem keep showing up.

(while (not (equal (setq ent (entsel)) nil))

  (progn

    (setq dxf (entget (car ent)))

    (setq start (cdr (assoc 10 dxf)))

    (setq end (cdr (assoc 11 dxf)))

    (command "dimaligned" start end)

    (princ)

  )

)

[paullimapa]

how's about try:

(while (setq ent (entsel))

[hoseobshim]

perfect solutiion by Kent1Cooper

[Kent1Cooper · Accepted solution]

Dimensioning commands have a <select object> default that you can take advantage of -- hit Enter "" for that option, and feed in the selection, so that you don't need to extract the start and end points of a Line [clearly the object you're selecting]:

(while (setq lin (entsel "\nSelect Line or  for Aligned Dimension: "))

  (command "_dimaligned" "" lin pause)

)