[已解決]如何在文字物件中，篩選出垂直書寫的字型選集？

請問各位學長先進:
如何在文字物件中，篩選出垂直書寫的字型選集？
有副程式或參考語法可以告知嗎？  謝謝

因為文字垂直書寫的群組碼.在 符號表STYLE 內.  群組碼 70  旗標=4 所以依此寫程式碼如下:
直接濾遍STYLE 表內 群碼 70 旗標為4的 字型.  
再用SSGET 取得 我們指定的字型文字.
若有更好的方法.也歡迎.其他先進指教..謝謝.

代碼:


(defun c:sty(/ sty_list sty1 sty_name )
  (setq sty_list '() sty_str "")
  (setq sty1 (tblnext "STYLE" t))
 (while (/= sty1 nil)
      (if (= 4 (cdr (assoc 70 sty1)))
     (progn
     (setq sty_name (cdr (assoc 2 sty1)))
          (setq sty_list (cons sty_name sty_list))
     (setq sty_str (strcat sty_str "," sty_name))
     )
   
      )  
      (setq sty1 (tblnext "STYLE"))
    
  )
  (print sty_list)
  (print sty_str)
  (ssget  (list  (cons 0  "TEXT") (cons 7 sty_str)))
  
)


下載:
https://db.tt/B43mNNt6

備用載點： https://app.box.com/s/16yd36fz9e6e6y9yw01q

感謝 shenhung 學長先進，指導與說明。 感恩