剛開始學(xué)習(xí)autocad的VBA，請(qǐng)大俠幫幫忙~

UG散散心

不知道能不能用Macro，或者VBA來實(shí)現(xiàn)下面的工作：
0 X8 o0 ]( R; [: [. J
* p5 h. [, l$ a8 \* _1.在模型空間，插入一個(gè)已經(jīng)在的 塊，比如：名字為 “KK”， 效果是 能在工具條上創(chuàng)建按鈕， 點(diǎn)擊之后，只需要在屏幕上 點(diǎn)取 位置就能放置 塊（有炸開 和 非炸開兩種模式最好，做成兩個(gè)按鈕）。
  b  L) @' Q2 P( x6 S  [
2.在模型空間，進(jìn)行 指定條件的篩選（2007自帶快速選擇功能），然后把篩選出來的一類目標(biāo)的某些特性修改為另外的特性， 比如： 選擇 所有 線型=Center 的目標(biāo)，然后，把這些目標(biāo)全部移動(dòng)到 圖層：200， 顏色=Bylayer，線型=Bylayer，線寬=Bylayer。 同樣也做成按鈕，放在工具條上~

: u) ~3 A# H! J" ~/ K+ l8 l% m$ ?) R求各位大俠幫忙哈~
1 ^5 n3 j( j7 B1 T

zsdwx

Q1：這個(gè)我用autolisp實(shí)現(xiàn)過，點(diǎn)中自己制作的按鈕，再點(diǎn)選標(biāo)題欄左下角，就可以在設(shè)計(jì)欄中插入制作好的簽名塊并在后面寫上當(dāng)前日期。用VBA應(yīng)該一樣能行的。

) g9 ]& n% V! q8 t; o  a8 E

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))
  (initget 128)
, g& D7 @; C( {) B1 i  (setq pt (getpoint "\n請(qǐng)選取簽名插入點(diǎn)"))
3 J# Y9 s8 h$ ]3 R% l4 c; E1 e  (if (= pt nil)
, F+ x% @$ f- G      (setq pt pt0)
+ j5 m3 N; v" ^; ~6 W# E  )
            (setq pt1 (polar pt (/ pi 6) 35))
            (setq pt2 (polar pt1 (/ pi 8) 3))
# a7 ^$ k- n) T            (setq sse (ssget "_c" pt1 pt2))
            (command "erase" sse "")
1 o2 c# y; x8 ]5 ~6 N
  (command "insert" "n1" pt "" "" "")
  (setq s (getvar "cdate"))
- {8 a- S* Y& Z- Y  `# [  (setq rr (- (* s 100000000) (fix (* s 100000000))))
5 q- j' ?4 o+ R8 a  (setq yy (fix (/ s 10000)))
2 d' r8 {8 F/ n  (setq mm (fix (/ (- s (* yy 10000)) 100)))
7 H" s& V0 g6 R3 T5 u  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
2 u, T3 F5 A! M  u! e9 c  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
5 h# u! c& a. s+ A2 m- Q5 M  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
  (setq layer_old (getvar "clayer"))
/ w& @- b9 o9 M# [  (setvar "clayer" "text")
  (setvar "osmode" 0)
  u8 c& Q0 N- [1 ^, w8 b- ]- P  (command "text" p1 2 0 text1)
6 B5 E' X& ?# H  (setvar "cecolor" "40")
  (command "point" p2)
  (setvar "cecolor" "bylayer")
) h. x  a5 p3 h' K4 X& ?  (setvar "clayer" layer_old)
" n4 O; C! G2 n+ c( ]- U  (setvar "osmode" osd)
  (princ)
% }4 k: U& Z2 b+ v, T8 C& J)

UG散散心

zsdwx 發(fā)表于 2014-11-12 19:56
(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
$ f/ Q1 v5 j% F, `$ F0 {" v6 J% E  (setq osd (getvar "osmode"))
   ...

感謝回復(fù)，功能很好，能省下不少時(shí)間，不過我才剛?cè)腴T，看不懂 ~。~

UG散散心

還請(qǐng)各位大俠幫幫忙哈~

UG散散心

第一個(gè)問題，自己在公司摸索了一上午， 大概能用了，能插入 命名為KK的塊了，但是不會(huì)炸開
直接用宏命令做的，
" J* H1 V7 m$ z$ e# K$ s5 G. P8 x^C^C-insert KK \1 1 0
第二個(gè)，完全找不到方向~