AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Io15010 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Easase10 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Oiu15010 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? 2020-211 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Oo-2-110 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? BPl3tjj

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

向下

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

發表 由 yu0678 于 2013-10-24, 11:08

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


yu0678 在 2013-10-25, 18:29 作了第 1 次修改
yu0678
yu0678
高級會員
高級會員

文章總數 : 140
年齡 : 61
來自 : Taipei
職業 : 設計
愛好 : 設計
個性 : 無不良嗜好
使用年資 : 25
使用版本 : 2016
積分 : 10
經驗值 : 4326
威望值 : 497
注冊日期 : 2012-05-30
男 射手座 狗

回頂端 向下

[已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Empty 回復: [已解決]如何在文字物件中,篩選出垂直書寫的字型選集?

發表 由 shenhung 于 2013-10-24, 12:39

[已解決]如何在文字物件中,篩選出垂直書寫的字型選集? WmzFzGgv
因為文字垂直書寫的群組碼.在 符號表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
shenhung
高級會員
高級會員

文章總數 : 248
年齡 : 53
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 6197
威望值 : 991
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

[已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Empty 回復: [已解決]如何在文字物件中,篩選出垂直書寫的字型選集?

發表 由 yu0678 于 2013-10-24, 17:29

感謝 shenhung 學長先進,指導與說明。 感恩
yu0678
yu0678
高級會員
高級會員

文章總數 : 140
年齡 : 61
來自 : Taipei
職業 : 設計
愛好 : 設計
個性 : 無不良嗜好
使用年資 : 25
使用版本 : 2016
積分 : 10
經驗值 : 4326
威望值 : 497
注冊日期 : 2012-05-30
男 射手座 狗

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Uos15010 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? BPl3tjj [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Ziao1510 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Oo-2-110 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? Oooo-110 [已解決]如何在文字物件中,篩選出垂直書寫的字型選集? 2020-211