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

UG散散心

不知道能不能用Macro，或者VBA来实现下面的工作：

0 g$ B+ D% Y: ~; L0 P  c1.在模型空间，插入一个已经在的 块，比如：名字为 “KK”， 效果是 能在工具条上创建按钮， 点击之后，只需要在屏幕上 点取 位置就能放置 块（有炸开 和 非炸开两种模式最好，做成两个按钮）。
% o) _. m) o5 Y' ~
- y% w" R( |1 I- j  I4 x2.在模型空间，进行 指定条件的筛选（2007自带快速选择功能），然后把筛选出来的一类目标的某些特性修改为另外的特性， 比如： 选择 所有 线型=Center 的目标，然后，把这些目标全部移动到 图层：200， 颜色=Bylayer，线型=Bylayer，线宽=Bylayer。 同样也做成按钮，放在工具条上~
; g* Q# y: R* r8 L! \  O/ J
) d) A' J% w9 |/ A- L( i. I5 @求各位大侠帮忙哈~
! c" b; e( U& b: N

zsdwx

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

zsdwx

(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  M1 N; G: v9 F: D2 \" f! u. n  (setq osd (getvar "osmode"))
  (setq pt0 '(142.0 5.0))
  (initget 128)
1 ]& H0 Z3 l. W( D% R6 `+ p  (setq pt (getpoint "\n请选取签名插入点"))
  (if (= pt nil)
. v) [" ~2 }3 h9 P" l! C7 o      (setq pt pt0)
  )
9 N* w6 d2 |( t+ B            (setq pt1 (polar pt (/ pi 6) 35))
9 ]8 j& ~7 u: ?/ e. a5 C+ T' J4 x            (setq pt2 (polar pt1 (/ pi 8) 3))
1 i6 r; L( l5 F2 }5 A6 r            (setq sse (ssget "_c" pt1 pt2))
            (command "erase" sse "")

5 H3 F. N# b1 b) Q0 C  (command "insert" "n1" pt "" "" "")
  (setq s (getvar "cdate"))
+ ]9 \( }6 z7 n# K! K. V  (setq rr (- (* s 100000000) (fix (* s 100000000))))
  (setq yy (fix (/ s 10000)))
  (setq mm (fix (/ (- s (* yy 10000)) 100)))
  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
$ G8 C5 A4 g1 p6 p6 q% G( j. z* }, D  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
$ L8 S0 R) n' d' C6 t3 K. C2 n, h4 H  (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"))
4 [5 t; Z/ Q& W/ P  (setvar "clayer" "text")
  (setvar "osmode" 0)
7 t& _( A# o+ r" a4 [& O. a+ R  (command "text" p1 2 0 text1)
; j& r) c& s- f# U7 m  (setvar "cecolor" "40")
$ y, [) J4 v* j# e9 V  (command "point" p2)
  (setvar "cecolor" "bylayer")
  (setvar "clayer" layer_old)
  (setvar "osmode" osd)
  (princ)
# k4 \8 R0 f" R$ D  ~)

UG散散心

zsdwx 发表于 2014-11-12 19:56
9 @- G: d4 s, b5 }# P5 Q: \(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  (setq osd (getvar "osmode"))
   ...

感谢回复，功能很好，能省下不少时间，不过我才刚入门，看不懂 ~。~
/ ~0 u  I: K9 q, Q/ `5 u) z

UG散散心

还请各位大侠帮帮忙哈~

UG散散心

第一个问题，自己在公司摸索了一上午， 大概能用了，能插入 命名为KK的块了，但是不会炸开
2 H: g) N' \' z3 n% n0 s直接用宏命令做的，
8 ~0 f! D2 c- m' N) M3 ^^C^C-insert KK \1 1 0
3 u4 ^1 ^7 {' u% |: x# n% {) p) p第二个，完全找不到方向~