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

UG散散心

不知道能不能用Macro，或者VBA來實現下面的工作：
1 X) G' z* I; T7 C. e: Q6 B
3 ]& y- B# B: @: |* p6 I& M1.在模型空間，插入一個已經在的 塊，比如：名字為 “KK”， 效果是 能在工具條上創建按鈕， 點擊之后，只需要在屏幕上 點取 位置就能放置 塊（有炸開 和 非炸開兩種模式最好，做成兩個按鈕）。
1 i- j& G* l. K" ~
* T4 H8 ]4 I' f* ^; Z3 |$ F2.在模型空間，進行 指定條件的篩選（2007自帶快速選擇功能），然后把篩選出來的一類目標的某些特性修改為另外的特性， 比如： 選擇 所有 線型=Center 的目標，然后，把這些目標全部移動到 圖層：200， 顏色=Bylayer，線型=Bylayer，線寬=Bylayer。 同樣也做成按鈕，放在工具條上~
. n+ }/ C' ?7 C4 G; Z# Y9 j
求各位大俠幫忙哈~

zsdwx

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

) F- w3 e  J! E: ~. z" v5 S

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))
4 S, \: K+ g7 i) M; a  (initget 128)
( a7 g. g4 w+ [! l: i7 p9 W/ {  (setq pt (getpoint "\n請選取簽名插入點"))
  (if (= pt nil)
. Z  |1 q0 `6 F9 `# w. U+ i      (setq pt pt0)
  )
" v, J' J5 `! }8 J4 y            (setq pt1 (polar pt (/ pi 6) 35))
            (setq pt2 (polar pt1 (/ pi 8) 3))
% N7 }1 o) @$ I7 X( A% Y2 S            (setq sse (ssget "_c" pt1 pt2))
! h6 l; H& i) b5 J# m            (command "erase" sse "")
% u; D' [7 q; ^
  (command "insert" "n1" pt "" "" "")
  (setq s (getvar "cdate"))
  (setq rr (- (* s 100000000) (fix (* s 100000000))))
3 P% k' R! j0 C  f# {  (setq yy (fix (/ s 10000)))
: s2 C4 W& E6 F/ U* D  (setq mm (fix (/ (- s (* yy 10000)) 100)))
/ V: j# j; Y2 @: w  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
/ j; Y+ Y: I( N1 Z  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
% ?  u+ p: R1 d  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
2 S( F! C1 f+ k  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
  (setq layer_old (getvar "clayer"))
, h4 V' U" ]' f  (setvar "clayer" "text")
! A7 _7 D5 T  c  (setvar "osmode" 0)
  (command "text" p1 2 0 text1)
  (setvar "cecolor" "40")
  (command "point" p2)
  (setvar "cecolor" "bylayer")
: C. A. r8 [0 M+ C  (setvar "clayer" layer_old)
% [& K3 S& t4 X- c5 N  (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)
5 C' t- g6 ]' q: D& I  (setq osd (getvar "osmode"))
   ...

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

UG散散心

還請各位大俠幫幫忙哈~

UG散散心

第一個問題，自己在公司摸索了一上午， 大概能用了，能插入 命名為KK的塊了，但是不會炸開
% C4 m4 G. _/ G# D' ?5 I) W( t直接用宏命令做的，
^C^C-insert KK \1 1 0
第二個，完全找不到方向~