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

maoyangmy

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

liuwei_83

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

sealive_leafage

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

maoyangmy

我现在想采用LISP编程, 怎样解决?
6 l% }% ~7 c! S" eVBA在面向对象方便比LSP处理的好, 如果sealive_leafage 对此也了解,请一并告诉解决方法,谢谢

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
! j8 c+ E) v# |7 ^可以试试下面的代码：
(defun c:test ()
(vl-load-com)
1 |) X, J* l3 P+ n" Q(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
(setq obj (car (nentsel "\nSelect an Attribute: ")))
+ M" I/ r. U5 x! e/ w- n  h(setq obj (vlax-ename->vla-object obj))
  Y- i$ d" r) v: |8 e(cond
  c1 M' h! D# A) v$ V: g((= (strcase att) "A")
(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
((= (strcase att) "C")
5 W6 o5 y* M+ n) _) {! P+ Z(setq col (getstring "\nNew Color Number: "))
" i# ~# g+ Y' e/ y: T# J" ]" h(vlax-put-property obj 'color col))
0 R8 O$ _: @9 |* v6 y; \3 `9 r& H9 I+ v((= (strcase att) "H")
(setq ohei (vlax-get-property obj 'height))
- n8 w& ]5 k) K, k(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
: Z; k% h! c# r& l0 F(if (= hei "")(setq hei ohei))
9 i* i+ O& v7 y$ P/ ]; C(vlax-put-property obj 'height hei))
((= (strcase att) "L")
(setq lay (getstring "\nNew Layer:"))
$ y: _  _' t, ^% I. ]% c6 |(if (not (tblsearch "LAYER" lay))
5 d+ v1 T/ M/ l3 q6 J- `% b/ N(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
3 ^& P% G. |' w. y. f. y(vlax-put-property obj 'layer lay)
' A! `! F; \: u. l/ X. n/ S))
((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
: V/ x, m: K! d6 c1 r(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
((= (strcase att) "S")
(setq sty (getstring "\nNew Style: "))
& m2 K4 K1 M( M8 O% m(if (not (tblsearch "STYLE" sty))
  w6 n" q9 r& f% k(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
" }% q: N; m. m) C. h" x: a(vlax-put-property obj 'stylename sty)
) E  K$ m: B% P))
((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
7 _1 h9 u* u# ~(vlax-put-property obj 'textstring val))
+ y! r2 k# n  S$ {$ [);c
(princ)
2 M$ X$ X1 R" Q+ I);defun
+ l1 N% V; N0 i% o, d' CVBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
0 k5 T; V; _9 o1 [' Get the attributes for the block reference
; Q0 X( w& e- R    Dim varAttributes As Variant
    varAttributes = blockRefObj.GetAttributes
- e0 t5 c* R  `+ W: H   
! J5 _- k& m' o1 b5 _3 Y( _$ A9 I    ' 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)
        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
3 J" F3 S# z( |! W                        "   Value: " & varAttributes(I).textString & "    "
    Next
" d4 e# q( A" e; e. h7 M) F( J9 C    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
   
9 Z* n& I! B" W5 L5 n1 b- y    ' 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.
$ ?: j2 T& H1 S2 d( w, J. ~) N    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

如果用VBA来实现的话， 该怎样做？？？VBA与LISP相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的
4 x% q: u$ t" J7 B+ V6 P+ F
9 _* t  z) n3 ?3 D9 r[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

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