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

UG散散心

不知道能不能用Macro，或者VBA来实现下面的工作：
# r* a% A0 T8 E! ~6 ]
1.在模型空间，插入一个已经在的 块，比如：名字为 “KK”， 效果是 能在工具条上创建按钮， 点击之后，只需要在屏幕上 点取 位置就能放置 块（有炸开 和 非炸开两种模式最好，做成两个按钮）。

2.在模型空间，进行 指定条件的筛选（2007自带快速选择功能），然后把筛选出来的一类目标的某些特性修改为另外的特性， 比如： 选择 所有 线型=Center 的目标，然后，把这些目标全部移动到 图层：200， 颜色=Bylayer，线型=Bylayer，线宽=Bylayer。 同样也做成按钮，放在工具条上~
0 C0 D" j6 B6 W2 \9 U; v! ^6 _! J
3 g9 i& t! o' A3 x' O求各位大侠帮忙哈~

zsdwx

Q1：这个我用autolisp实现过，点中自己制作的按钮，再点选标题栏左下角，就可以在设计栏中插入制作好的签名块并在后面写上当前日期。用VBA应该一样能行的。

zsdwx

(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
- X. L& ?1 P' x9 H, G. G# ]  (setq osd (getvar "osmode"))
  (setq pt0 '(142.0 5.0))
$ s: u) O4 V1 {9 C# t! q7 C8 V  (initget 128)
3 _+ q9 M' ?; P  (setq pt (getpoint "\n请选取签名插入点"))
4 T5 ?! P1 B0 t, m8 ?  (if (= pt nil)
0 y8 x& \" W) [* K2 G( Z7 d8 D      (setq pt pt0)
  )
            (setq pt1 (polar pt (/ pi 6) 35))
: l! G/ [6 M' C1 {( N1 c            (setq pt2 (polar pt1 (/ pi 8) 3))
            (setq sse (ssget "_c" pt1 pt2))
1 b- w) u) q9 U) g5 h" C5 c* q            (command "erase" sse "")
8 |" h- s6 z1 O: d' G
2 C! N' D/ t# P6 x1 M" {  (command "insert" "n1" pt "" "" "")
: S. A/ M+ A) y& n4 P  (setq s (getvar "cdate"))
+ v" r% a4 u) q/ b8 L; a7 r+ i  (setq rr (- (* s 100000000) (fix (* s 100000000))))
, k7 Y. L) z  Z# x  (setq yy (fix (/ s 10000)))
  (setq mm (fix (/ (- s (* yy 10000)) 100)))
" ]/ o* c9 F* e% T  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
$ R# U: ?6 @  x' x6 W/ b  p  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
  (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"))
/ Y8 u8 p) u3 T' f: ^; l4 j  (setvar "clayer" "text")
  (setvar "osmode" 0)
  (command "text" p1 2 0 text1)
' b; @  }/ R# q8 W' ], ]  (setvar "cecolor" "40")
  (command "point" p2)
  (setvar "cecolor" "bylayer")
! m+ E# o5 T" q  (setvar "clayer" layer_old)
! q7 P5 j$ G. w( r/ A( g' I! T  (setvar "osmode" osd)
9 h9 Q7 R- C, I8 H* }2 w  (princ)
$ r+ Y& M+ H  ^1 E2 R: a. k)

UG散散心

zsdwx 发表于 2014-11-12 19:56
(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  (setq osd (getvar "osmode"))
   ...

. P$ R- O  x& T1 Y感谢回复，功能很好，能省下不少时间，不过我才刚入门，看不懂 ~。~
' e) N, A& r! k+ K8 h2 N

UG散散心

还请各位大侠帮帮忙哈~

UG散散心

第一个问题，自己在公司摸索了一上午， 大概能用了，能插入 命名为KK的块了，但是不会炸开
1 t+ U3 F+ \" B% T% ]直接用宏命令做的，
2 n6 C6 v1 P; z& P9 Y% v' ~^C^C-insert KK \1 1 0
第二个，完全找不到方向~