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

xshrimp · 发表于 2013-5-10 16:43:32

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

CCarch · 发表于 2013-5-10 16:44:17

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

CCarch · 发表于 2013-5-10 16:47:57

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

xshrimp · 发表于 2013-5-10 16:49:58

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)
)

炫翔 · 发表于 2013-5-10 18:37:55

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

炫翔 · 发表于 2013-5-10 18:38:05

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

XDSoft · 发表于 2013-5-10 18:58:45

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

XDSoft · 发表于 2013-5-10 18:59:06

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

XDSoft · 发表于 2013-5-10 18:59:47

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

CCarch · 发表于 2013-5-10 19:28:23

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

磐石_Co;_Itd · 发表于 2013-5-10 19:41:07

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

磐石_Co;_Itd · 发表于 2013-5-10 19:41:15

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

CCarch · 发表于 2013-5-10 19:41:28

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

梦断江南 · 发表于 2013-5-10 19:42:50

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

CCarch · 发表于 2013-5-10 20:04:01

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

账号		自动登录	找回密码
密码			立即注册