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

maoyangmy

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

liuwei_83

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

sealive_leafage

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

maoyangmy

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

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
# q: [4 H1 b! K1 t# ]) W0 n% U  o可以试试下面的代码：
( b7 F2 H& M$ B( |# c: Z1 I' A(defun c:test ()
' \: q- D3 i( R(vl-load-com)
" B% J) N+ q0 h! v# v# i(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
(setq obj (car (nentsel "\nSelect an Attribute: ")))
) y9 S: c1 x( |3 O$ r  q5 h(setq obj (vlax-ename->vla-object obj))
+ g1 H. u; d: f7 [4 p% j(cond
% a8 Z" w0 `' S((= (strcase att) "A")
(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
((= (strcase att) "C")
* T. E3 n8 N  S3 ~: G/ J(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
- t' I& [* y+ M- t* H6 T6 b((= (strcase att) "H")
(setq ohei (vlax-get-property obj 'height))
/ n. Z0 U# V; f( P# w' i(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
(if (= hei "")(setq hei ohei))
(vlax-put-property obj 'height hei))
8 c/ e3 c" O& y6 l5 b" u((= (strcase att) "L")
(setq lay (getstring "\nNew Layer:"))
(if (not (tblsearch "LAYER" lay))
9 ~3 ^  @8 T1 S, ]1 A+ P* V& |8 q- V(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
(vlax-put-property obj 'layer lay)
))
- B% y$ ?$ R( }! V0 z$ ~((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
  u* D! J  s" R# u7 T((= (strcase att) "S")
(setq sty (getstring "\nNew Style: "))
3 w# t& B) I! D7 Y" S( H(if (not (tblsearch "STYLE" sty))
9 I0 k- k  e: P(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
) o1 q3 ^1 c$ B: {. W* H, q" g3 ^(vlax-put-property obj 'stylename sty)
6 x8 l( Z4 G2 D))
((= (strcase att) "V")
& C, `, }' _2 N* i2 U(setq val (getstring t "\nNew value: "))
3 z* P: `3 K, x- ~(vlax-put-property obj 'textstring val))
$ P: S$ u- `2 ^" P9 M$ ^9 u);c
(princ)
- q" t+ s0 d6 U* ]  k) e/ r);defun
VBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
' Get the attributes for the block reference
  z, W/ c* u4 N- A4 A1 b, o    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
; }. W) G2 K" y% ]7 T% T6 Z    Dim I As Integer
7 X8 \8 r$ q9 l    For I = LBound(varAttributes) To UBound(varAttributes)
        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
& a% c5 K% O1 d0 L  r                        "   Value: " & varAttributes(I).textString & "    "
    Next
! W! u" s: S5 Z& s5 Y  \    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
   
. V8 A8 \$ Z( {6 B/ h+ t6 k3 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.
$ T$ `! P/ a2 R' {    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

如果用VBA来实现的话， 该怎样做？？？VBA与LISP相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的
# [; o# B: o' ^/ X+ `
[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

建议用VB弄，可以选择的项目比较多，控制性更好些。
7 @1 _) X, m: }; L5 [! _在CAD的帮助文件里有例子，可以参考，我当初就是利用那个例子实现的自动编号。