2013-05-10 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

xshrimp

xshrimp(23417151)于2013-05-10 16-43-32：
[face2.gif]

CCarch

?(1518141330)于2013-05-10 16-44-17：
[face13.gif]

CCarch

飞诗(252545152)于2013-05-10 16-47-57：
"txt.shx"用vla-SetFont设置参数如何

xshrimp

xshrimp(23417151)于2013-05-10 16-49-58：
;;;从AutoCAD 2013 Active Reference帮助中code Examples中提取
;;;本源代码由 xshrimp 2013.2.20 搜集整理,版权归原作者所有！


(vl-load-com)
(defun c:Example_SetFont()
    ;; This example finds the font information for the active text style.
    ;; It then changes the font to bold.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (vla-GetFont (vla-get-ActiveTextStyle doc) 'typeFace 'Bold 'Italic 'charSet 'PitchandFamily)
   
    (alert (strcat "The current text style has the following font properties:"
                   "\nTypeface: " typeFace
                   "\nBold: " (if (= Bold :vlax-true) "True" "False")
                   "\nItalic: " (if (= Italic :vlax-true) "True" "False")
                   "\nCharacter set: " (itoa charSet)
                   "\nPitch and Family: " (itoa PitchandFamily)))
            
    ;; Change the bold property
    (setq Bold (if (= Bold :vlax-true) :vlax-false :vlax-true))

    (vla-SetFont (vla-get-ActiveTextStyle doc) typeFace Bold Italic charSet PitchandFamily)
  
    (alert (strcat "The current text style has the following font properties:"
                   "\nTypeface: " typeFace
                   "\nBold: " (if (= Bold :vlax-true) "True" "False")
                   "\nItalic: " (if (= Italic :vlax-true) "True" "False")
                   "\nCharacter set: " (itoa charSet)
                   "\nPitch and Family: " (itoa PitchandFamily)))
            
    ;; Reset the font
    (setq Bold (if (= Bold :vlax-true) :vlax-false :vlax-true))
    (vla-SetFont (vla-get-ActiveTextStyle doc) typeFace Bold Italic charSet PitchandFamily)
)

炫翔

炫翔(2363673534)于2013-05-10 18-37-55：
[face13.gif]

炫翔

炫翔(2363673534)于2013-05-10 18-38-05：
岁月

XDSoft

XDSoft(7598165)于2013-05-10 18-58-45：
是把杀猪刀

XDSoft

XDSoft(7598165)于2013-05-10 18-59-06：
签到

XDSoft

XDSoft(7598165)于2013-05-10 18-59-47：
黑了木耳、紫了葡萄，软了香蕉。

CCarch

牵ぶ伱の佑手(379002274)于2013-05-10 19-28-23：
6 86eA1B492e052319948775    23d9dEI3HvZE43iPT8Km37E07BF6BDD3335A3876B942C4FC6623.jpgA

磐石_Co;_Itd

磐石 Co; Itd(445098646)于2013-05-10 19-41-07：
晓东前辈在吗？？？

磐石_Co;_Itd

磐石 Co; Itd(445098646)于2013-05-10 19-41-15：
签到

CCarch

韩朗(550735310)于2013-05-10 19-41-28：
签到

梦断江南

狂刀(51050632)于2013-05-10 19-42-50：
签到

CCarch

ZZXXQQ(1468225785)于2013-05-10 20-04-01：
签到