(defun c:get-colu-pgl ()
(princ "n選擇箍筋配筋值:")
(setq en (single_select (list (cons 0 "*TEXT")(cons 1 "*%%13#*")) nil))
(princ "n選擇墻大樣外邊框:")
(setq  colu-en  (SINGLE_SELECT
     (list  (cons 0 "LWPOLYLINE")
      (cons 8 "*colu*,*柱*,*墻*,*wall*")
     )
     nil
    )
)
(get-ss-pgl colu-en en)
)