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

UG散散心

不知道能不能用Macro，或者VBA來實現下面的工作：

1.在模型空間，插入一個已經在的 塊，比如：名字為 “KK”， 效果是 能在工具條上創建按鈕， 點擊之后，只需要在屏幕上 點取 位置就能放置 塊（有炸開 和 非炸開兩種模式最好，做成兩個按鈕）。

* C- G/ W% c7 ]/ C  U3 ~  j* v$ i2.在模型空間，進行 指定條件的篩選（2007自帶快速選擇功能），然后把篩選出來的一類目標的某些特性修改為另外的特性， 比如： 選擇 所有 線型=Center 的目標，然后，把這些目標全部移動到 圖層：200， 顏色=Bylayer，線型=Bylayer，線寬=Bylayer。 同樣也做成按鈕，放在工具條上~
, U4 H% Z+ n# ~/ p0 E
5 m1 R1 k0 x& h6 l8 x) [3 e6 H' S求各位大俠幫忙哈~

zsdwx

Q1：這個我用autolisp實現過，點中自己制作的按鈕，再點選標題欄左下角，就可以在設計欄中插入制作好的簽名塊并在后面寫上當前日期。用VBA應該一樣能行的。
) K: c- x5 X5 A: |5 E8 g

zsdwx

(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  B( l7 j7 _) k" J  (setq osd (getvar "osmode"))
- s- N! {8 |% o3 y) k  (setq pt0 '(142.0 5.0))
4 D5 F: J. m9 D5 H+ G; g  (initget 128)
; v+ Z# J! K* ?; s) k( O/ W  (setq pt (getpoint "\n請選取簽名插入點"))
  (if (= pt nil)
      (setq pt pt0)
  )
1 [: F9 L0 T  X% F( {0 ~            (setq pt1 (polar pt (/ pi 6) 35))
1 Q( c! a/ s# P# @' c5 W# |- e  e            (setq pt2 (polar pt1 (/ pi 8) 3))
            (setq sse (ssget "_c" pt1 pt2))
            (command "erase" sse "")
0 K! G5 e2 U/ y1 S
( H4 a0 |) n# _! Z; C  (command "insert" "n1" pt "" "" "")
  (setq s (getvar "cdate"))
/ s- J( m0 P4 {  (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)))))
9 e$ K- [9 o5 q9 I5 K1 J  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
1 o7 D, @% D  h9 |4 g9 i  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
% [( I" k& i, J0 S0 M2 b. W; A  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
+ z" t: C# X6 S( c3 M  (setq layer_old (getvar "clayer"))
  (setvar "clayer" "text")
  (setvar "osmode" 0)
% g4 v! Q$ P( V& ?  (command "text" p1 2 0 text1)
9 J$ r+ D% `, r# K9 J7 H  (setvar "cecolor" "40")
  (command "point" p2)
  (setvar "cecolor" "bylayer")
  (setvar "clayer" layer_old)
  (setvar "osmode" osd)
  (princ)
)

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"))
" B9 Z8 s) y% f# i& ?   ...

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

UG散散心

還請各位大俠幫幫忙哈~

UG散散心

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