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

maoyangmy

怎样修改属性块中的属性???
* _# E9 I; X% z; k; c; d因工作需要, 我想在程序中修改属性块的属性，新建、删除属性，修改属性的性质为“不可见”、“预设”等，如何实现？？？

liuwei_83

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

sealive_leafage

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

maoyangmy

我现在想采用LISP编程, 怎样解决?
8 D7 J6 C. E# J, X. d% iVBA在面向对象方便比LSP处理的好, 如果sealive_leafage 对此也了解,请一并告诉解决方法,谢谢

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
1 }' o0 r4 ^- s& g可以试试下面的代码：
(defun c:test ()
7 ~0 S9 T# Y3 \3 a& ~0 p3 g- `9 C(vl-load-com)
5 J3 c" M" b, ^/ F3 ?(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
) p  S0 W& L6 k: i2 [2 ~" }, l! ]; V(setq obj (car (nentsel "\nSelect an Attribute: ")))
(setq obj (vlax-ename->vla-object obj))
(cond
6 e/ c1 s# s( _% W((= (strcase att) "A")
1 O+ O( F* W6 i(setq ang (getstring t "\nNew Angle: "))
2 x6 p7 [0 h  Z(vlax-put-property obj 'rotation ang))
4 H! A6 \0 q" i+ c3 C; o: I$ |((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
! A2 z* f/ G- d1 m0 ~((= (strcase att) "H")
! b7 U, I9 i/ r0 Q$ ?(setq ohei (vlax-get-property obj 'height))
(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
(if (= hei "")(setq hei ohei))
" V, j" A- H7 u- z& s(vlax-put-property obj 'height hei))
& _0 `; l3 M, F7 b((= (strcase att) "L")
(setq lay (getstring "\nNew Layer:"))
(if (not (tblsearch "LAYER" lay))
(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
0 j3 m4 e/ `  e+ W(vlax-put-property obj 'layer lay)
))
5 s" l4 W0 A; z7 _/ _. e((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
4 o! ?$ C2 @5 P& z. n(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
, I  X# {" J) D0 ]((= (strcase att) "S")
' j4 b' @' [, d" P- C(setq sty (getstring "\nNew Style: "))
(if (not (tblsearch "STYLE" sty))
(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
3 U6 {* x& C2 u( i# Y9 s(vlax-put-property obj 'stylename sty)
))
5 M/ k$ b) H. r! e((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
(vlax-put-property obj 'textstring val))
2 l% }3 }9 A7 T+ U; r& x. r  X0 J);c
(princ)
; S6 _9 i- x, Q: y# Q);defun
; v! I& c* B, _2 Z  I4 jVBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
/ Z7 b/ c' l" z7 Y' Get the attributes for the block reference
! i# K3 [& b, s    Dim varAttributes As Variant
5 ~9 G0 {1 U& j% @4 Z& U( y2 S& m+ L( F    varAttributes = blockRefObj.GetAttributes
   
, ^- [7 T$ P7 d9 J& L4 I' G; |! _    ' Move the attribute tags and values into a string to be displayed in a Msgbox
    Dim strAttributes As String
    Dim I As Integer
    For I = LBound(varAttributes) To UBound(varAttributes)
% ^8 P% b5 }! w9 U, U        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
                        "   Value: " & varAttributes(I).textString & "    "
    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
7 e8 G/ T8 |! a. C) O+ S   
( l, y% U8 ~$ @( b    ' Change the value of the attribute
7 H, @9 \6 d; S% Q) o% @) j/ M    ' 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相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的

  }. E. p# Z: R" M0 m[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

建议用VB弄，可以选择的项目比较多，控制性更好些。
在CAD的帮助文件里有例子，可以参考，我当初就是利用那个例子实现的自动编号。