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

maoyangmy

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

liuwei_83

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

sealive_leafage

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

maoyangmy

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

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
& I$ ]1 n8 ^% O! n可以试试下面的代码：
2 q; Z2 H8 Z3 B: }1 M$ ?(defun c:test ()
(vl-load-com)
% [$ m. `1 X$ e/ {8 d(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
4 c; ^$ j7 P3 i(setq obj (car (nentsel "\nSelect an Attribute: ")))
(setq obj (vlax-ename->vla-object obj))
  C  Q: \" Q9 R(cond
* [1 E4 R, E: e( f3 ]: s((= (strcase att) "A")
+ `; H/ L: }5 X5 G: p, E(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
9 H. v+ S. \1 C6 @: D, Z- o((= (strcase att) "C")
% \4 @- C! s& B: O(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
((= (strcase att) "H")
* A# f+ C- ~  d9 z  v8 O* ~(setq ohei (vlax-get-property obj 'height))
(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
(if (= hei "")(setq hei ohei))
(vlax-put-property obj 'height hei))
((= (strcase att) "L")
  t8 [/ [- ]; X: B: b/ t  {6 V(setq lay (getstring "\nNew Layer:"))
' X6 e+ d; d* l! u0 ~/ L/ _(if (not (tblsearch "LAYER" lay))
(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
(vlax-put-property obj 'layer lay)
6 r& L" ~/ L: z. o% g5 }  r))
((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
3 M; }- T8 h( B1 O(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
((= (strcase att) "S")
(setq sty (getstring "\nNew Style: "))
4 h" G( T0 b& e+ ?9 f(if (not (tblsearch "STYLE" sty))
3 p4 m9 B8 {$ p! z2 P! y. [. v. X(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
(vlax-put-property obj 'stylename sty)
))
((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
(vlax-put-property obj 'textstring val))
; n# d. i% i% A);c
(princ)
);defun
2 x; m. e) H, O9 xVBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
0 M' I/ L( M3 {: t/ P! K+ s1 F' r' Get the attributes for the block reference
    Dim varAttributes As Variant
% _7 G. p/ c7 _# a& j" _; q; a1 _    varAttributes = blockRefObj.GetAttributes
   
    ' Move the attribute tags and values into a string to be displayed in a Msgbox
    Dim strAttributes As String
    Dim I As Integer
2 i0 r) F, W& `9 S$ m' V7 U7 r    For I = LBound(varAttributes) To UBound(varAttributes)
+ c# M; H( {% F+ K) d: t2 V        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
2 u) a: I) n) U                        "   Value: " & varAttributes(I).textString & "    "
% D( D3 G0 \" [. ~4 ^4 s    Next
/ y" k3 o. A% M7 v    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
4 J4 M  k, x: q$ }- r2 Z3 ]   
    ' 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.
' i) r$ g9 D: T    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

如果用VBA来实现的话， 该怎样做？？？VBA与LISP相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的
; {/ d6 q8 h7 W1 v4 ~7 Z- p6 _
5 J' F; O; |* Z( F# E, D[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

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