vlax-for 對list內的元素,一一執行後面的指令

; vlax-for 對list內的元素,一一執行後面的指令 ; [ vlisp 指令 ]

(defun get_layer_list_for_ptl_of_mbp () (setq layerobj ( vla-get-layers dwgobj)) (setq layer_list nil) ( vlax-for layobj layerobj (setq layern ( vla-get-name layobj)) (setq layer_list ( cons layern layer_list)) ) (setq layer_list ( acad_strlsort layer_list)) )

---