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

maoyangmy

怎样修改属性块中的属性???
/ g$ d6 c( f2 W( o, B6 l+ O7 m因工作需要, 我想在程序中修改属性块的属性，新建、删除属性，修改属性的性质为“不可见”、“预设”等，如何实现？？？

liuwei_83

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

sealive_leafage

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

maoyangmy

我现在想采用LISP编程, 怎样解决?
" T) X2 Q( o; t/ M  ~! ?# aVBA在面向对象方便比LSP处理的好, 如果sealive_leafage 对此也了解,请一并告诉解决方法,谢谢

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
可以试试下面的代码：
(defun c:test ()
(vl-load-com)
, M6 g& H" q  c$ `5 n(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))
& N" @& ~" L+ T2 a9 R; a0 K(cond
9 [$ M* m% g" v, S) D( N((= (strcase att) "A")
" ]9 O9 h# y2 T( H8 L) h5 S* V(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
$ D' A6 J# Y: n7 Y" s2 Z* |((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
3 S9 g' ^7 t+ k0 H: g; ]2 c& `((= (strcase att) "H")
( y+ R( R$ `+ `+ p5 A7 j1 o(setq ohei (vlax-get-property obj 'height))
9 F$ j. e8 j: x(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
8 A# b9 f! i' ]3 n$ Q  G3 O* D  T(if (= hei "")(setq hei ohei))
5 Y% M) V% }, W4 N: a(vlax-put-property obj 'height hei))
((= (strcase att) "L")
  X& q/ B# S: x/ J0 G  h$ k(setq lay (getstring "\nNew Layer:"))
(if (not (tblsearch "LAYER" lay))
# f( m/ h. A! k+ X3 V(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
& B5 ]' ^4 H- f- w3 M" d(vlax-put-property obj 'layer lay)
))
: y5 T( `) L9 x3 }((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
((= (strcase att) "S")
+ @, u/ i2 a3 _7 \, m9 |/ X(setq sty (getstring "\nNew Style: "))
(if (not (tblsearch "STYLE" sty))
: G& X7 ?& S+ r(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
! Z% h5 H7 V) j1 j! ^, p& \(vlax-put-property obj 'stylename sty)
))
. r& i/ b# l' X4 k# Q4 O$ s' r((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
(vlax-put-property obj 'textstring val))
);c
(princ)
);defun
* J+ P) M) W- }7 K  W7 ?VBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
' Get the attributes for the block reference
    Dim varAttributes As Variant
    varAttributes = blockRefObj.GetAttributes
   
# S: S6 _1 B. S2 P" \( S    ' Move the attribute tags and values into a string to be displayed in a Msgbox
    Dim strAttributes As String
5 F8 V4 y' J( \( O7 E    Dim I As Integer
    For I = LBound(varAttributes) To UBound(varAttributes)
        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
                        "   Value: " & varAttributes(I).textString & "    "
    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
9 Z& q0 {. P5 L0 `) K   
2 k8 _" ~  O* Y: v9 d$ L    ' Change the value of the attribute
    ' Note: There is no SetAttributes. Once you have the variant array, you have the objects.
    ' Changing them changes the objects in the drawing.
/ m2 @) t6 B3 j+ }: Q5 Z8 A8 W' F, }    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

如果用VBA来实现的话， 该怎样做？？？VBA与LISP相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的
% G3 S7 R& ?8 q- I/ d
[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

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