[求助]：如何知道vla-get-name的反函数

urljit · 发表于 2005-4-15 21:20:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有段代码如下:
....
(setq currtextstyle (vla-item TextStyleSel index))
(SETQ currtextstylenm (vla-get-name currtextstyle))
....
现在的问题是已经知道了currtextstylenm如何求得 currtextstyle ?(curr不是指绘图过程的当前,是在循环里面的.)

狂刀 · 发表于 2005-4-15 22:09:08

ｖｌａｘ－ｆｏｒ　一个个提取名字来判断
或者(tblsearch "style" "hz")
(tblsearch "style" "wst")
((0 . "STYLE") (2 . "wst") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0)
(42 . 694.955) (3 . "NSimSun.ttf") (4 . ""))
要完整的也可以 (entget(tblobjname "style" "wst")

urljit · 发表于 2005-4-16 07:37:26

知道了,是否是(vlax-ename->vla-object(tblobjname "style" "Standard")),这样作是否繁杂了一些,请问,有没有更简单的vl方式?我刚刚开始学习vl.

eachy · 发表于 2005-4-16 07:42:18

(vla-item (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'activedocument) 'textstyles) "standard")

urljit · 发表于 2005-4-16 07:56:11

爽!vla-item!
我这里居然没有vla-item的帮助,谁有能提供一下么?

狂刀 · 发表于 2005-4-16 12:47:23

在ｃａｄ帮助的ｖｂａ里面

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

[求助] [求助]：如何知道vla-get-name的反函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子