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

maoyangmy

怎样修改属性块中的属性???
! |& D( S7 _* J5 U- r因工作需要, 我想在程序中修改属性块的属性，新建、删除属性，修改属性的性质为“不可见”、“预设”等，如何实现？？？

liuwei_83

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

sealive_leafage

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

maoyangmy

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

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
可以试试下面的代码：
(defun c:test ()
(vl-load-com)
) \8 U! a/ {% g4 T& w(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
9 T. H0 U+ F5 e) e1 V/ F(setq obj (car (nentsel "\nSelect an Attribute: ")))
(setq obj (vlax-ename->vla-object obj))
(cond
((= (strcase att) "A")
; h8 n$ l6 T7 {9 x(setq ang (getstring t "\nNew Angle: "))
7 A4 m. R" z+ B; t& W) X6 }$ z6 @. E(vlax-put-property obj 'rotation ang))
((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
% q0 b9 x: `& I9 \8 i((= (strcase att) "H")
(setq ohei (vlax-get-property obj 'height))
4 m3 s) ~# X9 `3 U, @* K(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
(if (= hei "")(setq hei ohei))
7 b% g/ U9 E8 k% f(vlax-put-property obj 'height hei))
, F* ~4 l9 H. Q/ H' W' I4 n) S$ b((= (strcase att) "L")
(setq lay (getstring "\nNew Layer:"))
(if (not (tblsearch "LAYER" lay))
(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
(vlax-put-property obj 'layer lay)
))
((= (strcase att) "P")
8 L( r! x3 u5 n: x(setq pos (getpoint "\nNew Position:"))
! |3 U: @5 {7 l) T(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
$ Q) J, K' S7 L4 v4 b' u((= (strcase att) "S")
: l& V+ F3 q& M( Z(setq sty (getstring "\nNew Style: "))
# ^% Q9 ]; y- v; E(if (not (tblsearch "STYLE" sty))
(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
(vlax-put-property obj 'stylename sty)
))
((= (strcase att) "V")
  g: L6 t. Q0 K(setq val (getstring t "\nNew value: "))
7 B0 D  _1 p& j: S( l5 L. [(vlax-put-property obj 'textstring val))
/ `+ n& F0 Z# I4 P% B: W" |);c
1 X6 l' A& r% M5 B: h2 S: ](princ)
);defun
VBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
  i0 V3 h7 C  s- ^; U. \  Z* w' Get the attributes for the block reference
3 z+ @( v: ^* ]$ v8 E* x    Dim varAttributes As Variant
    varAttributes = blockRefObj.GetAttributes
  B. [4 J* a* x7 P, ?0 R' b) V   
    ' Move the attribute tags and values into a string to be displayed in a Msgbox
8 G4 z3 e! P/ \3 b5 ~    Dim strAttributes As String
    Dim I As Integer
4 B9 Y. J/ Y. z3 ~6 z6 j5 t    For I = LBound(varAttributes) To UBound(varAttributes)
        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
2 v. z9 A/ {# i                        "   Value: " & varAttributes(I).textString & "    "
5 E5 W) U# ^* x6 W4 A2 L3 L1 v5 Z    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
   
4 N) y6 B% ~8 B0 T( W( D0 z    ' 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.
/ }2 M: M+ p* N* ~    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

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

1 j" V1 S/ `  x; Q; ^6 P3 J# C[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

建议用VB弄，可以选择的项目比较多，控制性更好些。
$ L9 Y8 B4 M% `  c; i6 o, i在CAD的帮助文件里有例子，可以参考，我当初就是利用那个例子实现的自动编号。