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

maoyangmy

怎样修改属性块中的属性???
因工作需要, 我想在程序中修改属性块的属性，新建、删除属性，修改属性的性质为“不可见”、“预设”等，如何实现？？？

liuwei_83

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

sealive_leafage

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

maoyangmy

我现在想采用LISP编程, 怎样解决?
VBA在面向对象方便比LSP处理的好, 如果sealive_leafage 对此也了解,请一并告诉解决方法,谢谢

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
+ s" }/ e5 ^. z. w, A5 P可以试试下面的代码：
* r6 ~4 K  m# w2 G! M, v(defun c:test ()
) K7 \/ c# ^  C/ L(vl-load-com)
( J- i/ n! `+ E6 \5 j(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
((= (strcase att) "A")
$ [' D: i" [$ [8 Z0 H3 s0 {) E(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
: i8 R2 Q( \( c9 g* s(vlax-put-property obj 'color col))
0 F! ^. e+ k6 U! ?((= (strcase att) "H")
4 a9 r0 A0 T% x# ?* K: _(setq ohei (vlax-get-property obj 'height))
- c0 R9 [- ~; M2 y& y; ?(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
(if (= hei "")(setq hei ohei))
(vlax-put-property obj 'height hei))
((= (strcase att) "L")
(setq lay (getstring "\nNew Layer:"))
! g( F1 Z! v: S' }# W, N; ](if (not (tblsearch "LAYER" lay))
(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
8 R7 o% k( q3 I- b(vlax-put-property obj 'layer lay)
! L/ K$ Z* e  c5 q9 }))
((= (strcase att) "P")
* h$ n; E' y. w0 H5 t(setq pos (getpoint "\nNew Position:"))
& R/ r+ b. z' I* [( ?( d  Q% B(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
2 h7 y" B0 G9 b( \" v: l; _((= (strcase att) "S")
(setq sty (getstring "\nNew Style: "))
1 d4 C$ A6 X( B' e. e3 C(if (not (tblsearch "STYLE" sty))
(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
9 M9 Q7 b6 v  f) [(vlax-put-property obj 'stylename sty)
, s( N! }* E2 X))
. S* B: u) K- J((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
0 n* h$ l$ r5 m0 e; S8 e; D(vlax-put-property obj 'textstring val))
3 P* g  h, {' t2 L/ ^);c
- w) x! D9 t# f+ i- D# {8 S3 M, V' W(princ)
) @1 o$ n  o) m9 \# Z; ?; B% |);defun
VBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
1 B5 l( n- M( Z* L  E& L3 G1 c( @% F' Get the attributes for the block reference
7 s3 I, u3 Y  t% _+ N    Dim varAttributes As Variant
    varAttributes = blockRefObj.GetAttributes
5 c  I: h7 I/ X4 L   
8 ]0 v5 ]# i) d1 j9 K* }    ' Move the attribute tags and values into a string to be displayed in a Msgbox
    Dim strAttributes As String
) v4 F( f1 V6 E9 T1 T    Dim I As Integer
    For I = LBound(varAttributes) To UBound(varAttributes)
        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
7 p* P1 l7 d. E                        "   Value: " & varAttributes(I).textString & "    "
% r- }2 z, {# W( H8 ^    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
5 @1 ^) v! B/ Q2 q' I4 H   
" k0 d( M+ h6 a6 \# j/ f    ' Change the value of the attribute
4 U  Y- f1 q1 d    ' Note: There is no SetAttributes. Once you have the variant array, you have the objects.
    ' Changing them changes the objects in the drawing.
    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

如果用VBA来实现的话， 该怎样做？？？VBA与LISP相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的
+ _! J7 V/ O% k( k$ l
[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

建议用VB弄，可以选择的项目比较多，控制性更好些。
2 Y. e" i. o: T$ c7 }+ S( A3 Z在CAD的帮助文件里有例子，可以参考，我当初就是利用那个例子实现的自动编号。