怎样修改属性块中的属性???

maoyangmy

怎样修改属性块中的属性???
9 ~1 l- b: v( N) x! V8 M1 l5 }因工作需要, 我想在程序中修改属性块的属性，新建、删除属性，修改属性的性质为“不可见”、“预设”等，如何实现？？？

liuwei_83

可以选择编辑块，然后进行修改，添加，或删除

sealive_leafage

那要看你用VBA或者是lisp编程工具了，工具不同方法也不相同；

maoyangmy

我现在想采用LISP编程, 怎样解决?
! `* g1 I+ ~! V- }! E* Z2 v' CVBA在面向对象方便比LSP处理的好, 如果sealive_leafage 对此也了解,请一并告诉解决方法,谢谢

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
% V# {& {; B$ a. C$ z可以试试下面的代码：
# K  q  O  B+ A; w5 T(defun c:test ()
(vl-load-com)
( @! _0 t' E* g' w2 O' p- f" u(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
(setq obj (car (nentsel "\nSelect an Attribute: ")))
(setq obj (vlax-ename->vla-object obj))
(cond
# f+ c1 g$ W  {1 }3 d((= (strcase att) "A")
(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
) f% d. l, Q  A/ r1 e: {0 q, O4 x((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
((= (strcase att) "H")
/ }7 z& l3 }! ]6 e(setq ohei (vlax-get-property obj 'height))
) `, z% O, p4 [- |: u3 m2 t(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
& N9 r; |# j; n" `1 H* V(if (= hei "")(setq hei ohei))
" K9 M0 p+ u* a8 z' i5 b9 G) @(vlax-put-property obj 'height hei))
((= (strcase att) "L")
(setq lay (getstring "\nNew Layer:"))
(if (not (tblsearch "LAYER" lay))
% s0 t+ K. r& U, n(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
(vlax-put-property obj 'layer lay)
))
((= (strcase att) "P")
# G, T/ V- I: c# C( T( T(setq pos (getpoint "\nNew Position:"))
$ F; k, ]4 M3 x! l/ C7 K2 E(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
((= (strcase att) "S")
(setq sty (getstring "\nNew Style: "))
(if (not (tblsearch "STYLE" sty))
( U5 e: B$ {/ M: M- E6 A8 \(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
$ ^: t3 b; Q5 ?(vlax-put-property obj 'stylename sty)
/ E, P5 j  D( z5 N3 |))
((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
3 q& Q7 @+ E0 R9 i; @% H2 S(vlax-put-property obj 'textstring val))
);c
(princ)
);defun
VBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
3 c6 F1 H% J9 `. g' Get the attributes for the block reference
    Dim varAttributes As Variant
    varAttributes = blockRefObj.GetAttributes
6 o2 _9 l. e8 C   
    ' Move the attribute tags and values into a string to be displayed in a Msgbox
    Dim strAttributes As String
    Dim I As Integer
# Z$ L3 f7 Z# e8 h5 u$ L    For I = LBound(varAttributes) To UBound(varAttributes)
' C" t2 ?' o# D7 G& `        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
                        "   Value: " & varAttributes(I).textString & "    "
. f2 `& t3 V  n* ^1 @    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
( r  ?) I) U1 E9 B2 T4 F2 g+ j   
* K" Q8 [# C3 r* ?4 U    ' Change the value of the attribute
; R4 R* M  \: Y  W  _1 e1 f    ' Note: There is no SetAttributes. Once you have the variant array, you have the objects.
% I' E5 R7 g1 [" @0 \7 y2 @9 n    ' Changing them changes the objects in the drawing.
# J, s8 G3 K+ g6 j6 `" u7 Z4 F& S    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

如果用VBA来实现的话， 该怎样做？？？VBA与LISP相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的

[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

5楼的能不能把VBA的解决方案也分享一下, 非常感谢

nanisan

建议用VB弄，可以选择的项目比较多，控制性更好些。
# H' |! v. D( h  Q. s8 ~在CAD的帮助文件里有例子，可以参考，我当初就是利用那个例子实现的自动编号。