AUTOLISP 選取圖元取其串列

 2024/10/26修改

Windows 11 專業版 23H2
BricsCAD V21

(setq pickObj nil) ;確認有無選取到物件，預設為無nil

(while (= pickObj nil) ;當沒有選取到圖元時重覆執行

(setq pickObj (entsel "選取圖元:"))

(if (= pickObj nil) (princ "沒有選取到圖元"))

);while

(setq objList(entget (car pickObj ))) ;取得選取圖元串列objList