刚开始学习autocad的VBA，请大侠帮帮忙~

UG散散心

不知道能不能用Macro，或者VBA来实现下面的工作：
, X  k8 y& d$ o2 O+ _
! i6 h! }6 E! `: i  W# h$ b1.在模型空间，插入一个已经在的 块，比如：名字为 “KK”， 效果是 能在工具条上创建按钮， 点击之后，只需要在屏幕上 点取 位置就能放置 块（有炸开 和 非炸开两种模式最好，做成两个按钮）。

2.在模型空间，进行 指定条件的筛选（2007自带快速选择功能），然后把筛选出来的一类目标的某些特性修改为另外的特性， 比如： 选择 所有 线型=Center 的目标，然后，把这些目标全部移动到 图层：200， 颜色=Bylayer，线型=Bylayer，线宽=Bylayer。 同样也做成按钮，放在工具条上~

求各位大侠帮忙哈~

zsdwx

Q1：这个我用autolisp实现过，点中自己制作的按钮，再点选标题栏左下角，就可以在设计栏中插入制作好的签名块并在后面写上当前日期。用VBA应该一样能行的。
' r& [* ~. o; g4 b& A0 u. S2 {$ q5 A
+ z+ i- s/ L6 T9 F7 B3 Y

zsdwx

(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  (setq osd (getvar "osmode"))
& _2 V+ m6 _2 G4 A# m: O  (setq pt0 '(142.0 5.0))
  (initget 128)
  (setq pt (getpoint "\n请选取签名插入点"))
5 L) f$ v- l- e7 t0 i  (if (= pt nil)
      (setq pt pt0)
1 }  u8 U5 t7 q9 K3 m. A  )
2 z# j; a% Q& v% C4 J2 n' s            (setq pt1 (polar pt (/ pi 6) 35))
2 r3 I. ?: l/ D            (setq pt2 (polar pt1 (/ pi 8) 3))
" [1 m  J$ T, ?  n' }            (setq sse (ssget "_c" pt1 pt2))
            (command "erase" sse "")
5 e: l3 e( w  I# k, \
  (command "insert" "n1" pt "" "" "")
4 V( d/ H6 B, P0 }0 t  (setq s (getvar "cdate"))
  (setq rr (- (* s 100000000) (fix (* s 100000000))))
  `  ?: _% f: @, g: C  (setq yy (fix (/ s 10000)))
  (setq mm (fix (/ (- s (* yy 10000)) 100)))
# Y: x. W* F' m4 K8 s" T. S* Q0 _  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
+ l/ K- i+ k  o+ b  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
0 z% w" Q6 O  k5 r8 v6 M+ u) B6 I' O  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
/ j( y; ^: B# A  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
  (setq layer_old (getvar "clayer"))
. u/ @. p+ b: \' c8 z9 ^7 I  e  (setvar "clayer" "text")
  (setvar "osmode" 0)
4 l/ V% H; q* r5 d5 W: j: [  (command "text" p1 2 0 text1)
) Y4 W5 b  l- j- \6 D  (setvar "cecolor" "40")
( w& G8 c' U" O; m. X. e* a3 f, d* w  (command "point" p2)
# N; Z! j* z: N* _  (setvar "cecolor" "bylayer")
" x8 ]: y- f% h/ |( U# g6 E2 I  (setvar "clayer" layer_old)
# F% u; D" z% \& F, U0 T  (setvar "osmode" osd)
; t/ t3 \# h2 L9 p( Y2 V2 L. k  (princ)
)

UG散散心

zsdwx 发表于 2014-11-12 19:56
(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
6 c: e! Q# y3 a! y7 B! x& J  (setq osd (getvar "osmode"))
, G/ M# \0 a! _  z4 U   ...

2 c! G% k1 m4 K感谢回复，功能很好，能省下不少时间，不过我才刚入门，看不懂 ~。~
' r8 |; |2 z2 H0 V  q* I$ h

UG散散心

还请各位大侠帮帮忙哈~

UG散散心

第一个问题，自己在公司摸索了一上午， 大概能用了，能插入 命名为KK的块了，但是不会炸开
  t+ n  t6 F/ T6 A直接用宏命令做的，
^C^C-insert KK \1 1 0
第二个，完全找不到方向~