Getpropertyvalue一些常用属性

eachy · 发表于 2013-9-4 20:10:22

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

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

×

Only For AutoCAD 2011+

(RO) 为只读属性不可以使用 setproperyvalue 修改

AcDbLine

Angle (type: double)  (RO)  (LocalName: 角度) = 0.111519
Length (type: double)  (RO)  (LocalName: 长度) = 32.904370
LinetypeScale (type: double)  (LocalName: 线型比例) = 1.000000
Thickness (type: double)  (LocalName: 厚度) = 0.000000
Visible (type: AcDb::Visibility) = 0

AcDbArc

Area (type: double)  (RO)  (LocalName: 面积) = 129.731165
Color (type: AcCmColor)  (LocalName: 颜色) = BYLAYER
TotalAngle (type: double)  (RO)  (LocalName: 总角度) = 1.417237
Visible (type: AcDb::Visibility) = 0
Length (type: double)  (RO)  (LocalName: 弧长) = 34.853701

AcDbPolyline
(getpropertyvalue (car (entsel)) "Vertices" 1 "Bulge") ；节点处 Bugle
Length

Spline 不稳定

待续...

eachy · 发表于 2013-9-4 20:55:56

几个简单应用

;;数字累加
(defun c:tt (/ ss)
(if (setq ss (ssget '((0 . "text"))))
(apply '+
(mapcar '(lambda (x)
(distof (getpropertyvalue x "Textstring"))
)
(mapcar 'cadr (cdr (reverse (ssnamex ss))))
)
)
)
)

;;填充变比
(defun c:tt (/ ss scl)
(if (and (setq ss (ssget '((0 . "hatch"))))
(setq scl (getreal "\nScale: "))
)
(mapcar '(lambda (x)
(setpropertyvalue
x
"PatternScale"
(* scl (getpropertyvalue x "PatternScale"))
)
)
(mapcar 'cadr (cdr (reverse (ssnamex ss))))
)
)
(princ)
)

;;隐藏实体
(defun c:tt (/ ss)
(if (setq ss (ssget))
(foreach x (mapcar 'cadr (cdr (reverse (ssnamex ss))))
(setpropertyvalue x "visible" 1)
)
)
(princ)
)

;;显示实体
(defun c:t1 (/ ss)
(if (setq ss (ssget "x" '((60 . 1))))
(foreach x (mapcar 'cadr
(cdr (reverse (ssnamex ss)))
)
(setpropertyvalue x "visible" 0)
)
)
(princ)
)

;;统计线长
;;circle spline ellipse 没有Length属性
(defun c:tt (/ ss)
(if (setq ss (ssget '((0 . "line,arc,*polyline"))))
(apply '+
(mapcar '(lambda (x)
(getpropertyvalue x "Length")
)
(mapcar 'cadr (cdr (reverse (ssnamex ss))))
)
)
)
)

taner · 发表于 2013-9-5 09:32:18

和vlax-get-property有啥区别呢?

st788796 · 发表于 2013-9-5 09:49:28

本帖最后由 st788796 于 2013-9-5 10:29 编辑

tane r 发表于 2013-9-5 09:32
和vlax-get- property有啥区别呢?

vlax 和 ActiveX 对应的，属性名称用vlax-dump-object可以检索，这个函数是对 Entity 操作，感觉是ARX方式，和 xdapi 一样，用着方便，某些情况下可以使编写alisp大大简化
这个函数需要的特性名称用 dumpallproperties检索，可能大部分的名称和ActiveX的属性名一样，不过还是有所区别的，而且这个函数返回值为 lisp使用的数据格式，非variant
这个函数的一个便利之处是某些属性不用再 entget substr entmod转来转去了，可以直接获取，修改

Free-Lancer · 发表于 2013-9-8 09:50:53

我补充个 Insert 和 Attrib

class: AcDbBlockReference

A (type: AcString)  (LocalName: A) = TestA :属性用 Tag 名可以直接获取 textstring
B (type: AcString)  (LocalName: B) = bb  :属性
C (type: AcString)  (LocalName: C) = CC  :属性
D (type: AcString)  (LocalName: D) = DD :属性
E (type: AcString)  (LocalName: E) = EE :属性
Rotation (type: double)  (LocalName: 旋转) = 0.000000
ScaleFactors/X (type: double)  (LocalName: X 比例) = 1.000000
ScaleFactors/Y (type: double)  (LocalName: Y 比例) = 1.000000
ScaleFactors/Z (type: double)  (LocalName: Z 比例) = 1.000000
Visible (type: AcDb::Visibility) = 0

class: AcDbAttribute

Color (type: AcCmColor)  (LocalName: 颜色) = BYLAYER
Height (type: double)  (LocalName: 高度) = 103.942110
HorizontalMode (type: AcDb::TextHorzMode) = 0
Justify (type: AcDbText::AcTextAlignment)  (LocalName: 对正) = 0
Oblique (type: double)  (LocalName: 倾斜) = 0.000000
OwnerId (type: AcDbObjectId)  (RO) = 7ef036d0          :BlockRef
Rotation (type: double)  (LocalName: 旋转) = 0.000000
Tag (type: AcString)  (RO)  (LocalName: 标记) = A
TextStyleId (type: AcDbObjectId)  (LocalName: 样式) = 7ef01c88
Value (type: AcString)  (LocalName: 值) = TestA
VerticalMode (type: AcDb::TextVertMode) = 0
Visible (type: AcDb::Visibility) = 0
Width (type: double)  (RO)  (LocalName: 多行文字宽度) = 0.000000
WidthFactor (type: double)  (LocalName: 宽度因子) = 1.000000

Free-Lancer · 发表于 2013-9-8 10:23:40

本帖最后由 Free-Lancer 于 2013-9-8 10:29 编辑

标注翻转

(defun c:tt (/ ss)
(while (setq ss (ssget '((0 . "Dimension"))))
(mapcar '(lambda (x)
(setpropertyvalue
x
"HorizontalRotation"
(- pi (getpropertyvalue x "HorizontalRotation"))
)
)
(mapcar 'cadr (cdr (reverse (ssnamex ss))))
)
)
(princ)
)

检查标注是否修改，手动改过的标记红色并恢复原值

(defun c:tt (/ ss)
(while (setq ss (ssget '((0 . "Dimension"))))
(mapcar '(lambda (x)
(if (/= (getpropertyvalue x "Dimensiontext") "")
(progn
(setpropertyvalue x "Color" 1)
(setpropertyvalue
x
"Dimensiontext"
""
)
)
)
)
(mapcar 'cadr (cdr (reverse (ssnamex ss))))
)
)
(princ)
)

taner · 发表于 2013-9-10 11:13:48

getpropertyvalue (AutoLISP)

Returns the current value of an entity’s property.

(getpropertyvalue
ename propertyname [or collectionName index name]
)
Arguments
ename
Name of the entity being queried. The ename can refer to either a graphical or a non-graphical entity.
propertyname
Name of the property being queried. For a list of all the valid property names of a given object, use dumpallproperties.
collectionName
If the object is a collection object, the Collection name is passed here.
index
The collection index being queried.
name
The name of the property within the collection being queried.
Return Values
The value of the entity’s property.
Examples
The following example demonstrates how to get the current radius value of a circle.
Command: (command "_circle" "2,2" 2)
nil

Command: (getpropertyvalue (entlast) "radius")
2.0

st788796 · 发表于 2013-9-10 18:49:49

这个函数和 Entget 比有的时候更直接，不过毕竟要和ARX通讯，实体 Open Close 的也要耗些时间，如果要取多个属性，或者循环中对一个实体修改多个属性，效率不一定高，可能 substr + entmod 更适合，这要在具体应用中慢慢体会了

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

[原创] Getpropertyvalue一些常用属性

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

点评

评分

点评