Net定义的两个Lisp扩展函数(2008-2015)

eachy · 发表于 2015-1-9 08:34:35

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

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

×

1 mgetproperty

获取实体的单个或多个属性值，输入多个属性时为一一对应，当属性不存在或非法参数对应值为 5019

使用方法

a 仅实体，返回支持的属性名称列表 (mgetproperty e)

b (实体属性名1 属性名2 ...)
eq.
(mgetproperty e "length" "area" "startpoint")

2 pickset->ents 选择集转实体列表

如求直线选集总长度

(apply '+ (mapcar '(lambda (x) (mgetproperty x "length")) (pickset->ents (ssget '((0 . "line"))))))

/db_自贡黄明儒_ · 发表于 2015-1-9 08:38:38

是不是只有高版本才能用?

eachy · 发表于 2015-1-9 08:41:05

/db_自贡黄明儒_ 发表于 2015-1-9 08:38
是不是只有高版本才能用?

Net 程序一般 2008 - 2012 可以用一个文件，2013 以上用一个文件，32位、64位通用，因为 Autocad .Net 的版本不同，支持的属性也会不同，越高版本支持的属性越多

kkt123 · 发表于 2015-2-26 12:10:12

:o支持的属性也会不同:L

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

[原创] Net定义的两个Lisp扩展函数(2008-2015)

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

点评