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

maoyangmy

怎样修改属性块中的属性???
2 P) \. }' T- [5 Z' B8 y8 s0 H因工作需要, 我想在程序中修改属性块的属性，新建、删除属性，修改属性的性质为“不可见”、“预设”等，如何实现？？？

liuwei_83

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

sealive_leafage

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

maoyangmy

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

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
4 n$ s0 d' y7 `5 K- k8 K; E可以试试下面的代码：
(defun c:test ()
& O$ U' e5 V- ]: ^9 m( G- A% ^(vl-load-com)
(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
( q4 A# W1 I% H* z4 `(setq obj (car (nentsel "\nSelect an Attribute: ")))
6 g" {* h( h% H7 _0 C(setq obj (vlax-ename->vla-object obj))
(cond
((= (strcase att) "A")
1 g. I  U  B" F4 Q+ A5 ~(setq ang (getstring t "\nNew Angle: "))
' n4 p1 U6 D. S(vlax-put-property obj 'rotation ang))
8 G4 D; w$ V+ v5 A& X4 w((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
# B0 r9 ^$ M/ T7 ]8 K; L((= (strcase att) "H")
9 o0 i& Q) d" Z& u1 J4 w(setq ohei (vlax-get-property obj 'height))
* h& p3 e" s5 H; w% O% u$ A4 E(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
8 H3 n$ ?0 ]' t& B! d' y/ F' o(if (= hei "")(setq hei ohei))
(vlax-put-property obj 'height hei))
+ v1 v/ G1 H& @  N) ~# T8 \+ _((= (strcase att) "L")
  L7 q0 p! w2 k+ v) N(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")
(setq pos (getpoint "\nNew Position:"))
, o( w! f7 n0 u(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
2 l+ H3 n1 ?3 i, b" V((= (strcase att) "S")
6 F( `/ R) _9 s4 _9 g(setq sty (getstring "\nNew Style: "))
3 F8 a7 q' e% j: I* m6 b(if (not (tblsearch "STYLE" sty))
$ u; o( D  h% L) m9 c  ~6 |; Q(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
. W0 R; ~4 w6 j2 N(vlax-put-property obj 'stylename sty)
))
((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
/ X+ K% G/ X/ P- x; B$ n% }$ @(vlax-put-property obj 'textstring val))
);c
0 @7 u5 J1 c$ y' K# Z3 @2 O4 `2 ~(princ)
);defun
+ B+ ]2 O, q' m5 S+ sVBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
8 Q# z5 c  s$ K* |4 S: l' Get the attributes for the block reference
3 R" E8 s3 r( k' ?- z4 D/ I    Dim varAttributes As Variant
    varAttributes = blockRefObj.GetAttributes
   
    ' Move the attribute tags and values into a string to be displayed in a Msgbox
    Dim strAttributes As String
! ?6 n" O( B( G1 s# |" r, |    Dim I As Integer
    For I = LBound(varAttributes) To UBound(varAttributes)
6 j! Z. j. G! b+ L  x' M        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
                        "   Value: " & varAttributes(I).textString & "    "
: W1 h/ A; p* J; H    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
' D4 d8 \: W/ f+ x" |' K7 F" f+ x   
    ' 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.
    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

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

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

maoyangmy

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

nanisan

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