剛開始學習autocad的VBA，請大俠幫幫忙~

UG散散心

不知道能不能用Macro，或者VBA來實現下面的工作：
& Z, x: \: c$ e
: ~* S3 T2 a" U5 {- d, t4 k1.在模型空間，插入一個已經在的 塊，比如：名字為 “KK”， 效果是 能在工具條上創建按鈕， 點擊之后，只需要在屏幕上 點取 位置就能放置 塊（有炸開 和 非炸開兩種模式最好，做成兩個按鈕）。

) B) {" P; W3 X( ~0 A* |2.在模型空間，進行 指定條件的篩選（2007自帶快速選擇功能），然后把篩選出來的一類目標的某些特性修改為另外的特性， 比如： 選擇 所有 線型=Center 的目標，然后，把這些目標全部移動到 圖層：200， 顏色=Bylayer，線型=Bylayer，線寬=Bylayer。 同樣也做成按鈕，放在工具條上~
6 W4 D5 V2 q# e# z4 s2 T
  L% `7 x/ d4 W$ h求各位大俠幫忙哈~

zsdwx

Q1：這個我用autolisp實現過，點中自己制作的按鈕，再點選標題欄左下角，就可以在設計欄中插入制作好的簽名塊并在后面寫上當前日期。用VBA應該一樣能行的。
) O3 y6 W8 V. ]0 d) _5 D+ @

zsdwx

(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  (setq osd (getvar "osmode"))
  (setq pt0 '(142.0 5.0))
1 m) D; G8 e; o7 K7 q  n  (initget 128)
  (setq pt (getpoint "\n請選取簽名插入點"))
  (if (= pt nil)
      (setq pt pt0)
  )
            (setq pt1 (polar pt (/ pi 6) 35))
% t0 i7 C0 G. B" s5 G2 R# G4 ]6 X4 D1 o            (setq pt2 (polar pt1 (/ pi 8) 3))
$ J% S, s/ ^8 |& @- n/ v            (setq sse (ssget "_c" pt1 pt2))
            (command "erase" sse "")
. j; n! F9 J1 w3 G
$ q5 l( v4 f6 J; k: J0 I+ v! f  (command "insert" "n1" pt "" "" "")
  (setq s (getvar "cdate"))
  (setq rr (- (* s 100000000) (fix (* s 100000000))))
  (setq yy (fix (/ s 10000)))
7 j; E) s8 F9 @. q* h  (setq mm (fix (/ (- s (* yy 10000)) 100)))
  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
# }. s" W/ k+ x1 {9 j% Y: `  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
! ]% _: P" Q- c' H5 X% O4 l  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
# q* e8 s  I  M  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
  (setq layer_old (getvar "clayer"))
8 B9 U; s) l! F9 D3 L  E/ q$ |  (setvar "clayer" "text")
0 n4 h. g, m, s7 ], e! y4 ^  (setvar "osmode" 0)
: r- b* ]# k. }- o4 ]5 ^* I  (command "text" p1 2 0 text1)
9 b7 n  R  j3 n# }! H* c$ a( v  (setvar "cecolor" "40")
6 d3 |) f2 x/ ~5 b7 u: ^# v  (command "point" p2)
- ^5 ]) y3 @3 W5 d0 j. W  Z# z  (setvar "cecolor" "bylayer")
  (setvar "clayer" layer_old)
) w# q# o2 e+ J  (setvar "osmode" osd)
+ z7 w$ M' H; c( m* X  (princ)
# {8 Z& \1 |& k  r4 [)

UG散散心

zsdwx 發表于 2014-11-12 19:56
8 a8 z  d7 Q  x8 q) X(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
0 j6 s/ k, ?! I, S  (setq osd (getvar "osmode"))
8 A5 [. z& x# e( F+ g   ...

感謝回復，功能很好，能省下不少時間，不過我才剛入門，看不懂 ~。~

UG散散心

還請各位大俠幫幫忙哈~

UG散散心

第一個問題，自己在公司摸索了一上午， 大概能用了，能插入 命名為KK的塊了，但是不會炸開
直接用宏命令做的，
^C^C-insert KK \1 1 0
第二個，完全找不到方向~