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

UG散散心

不知道能不能用Macro,，或者VBA來實(shí)現(xiàn)下面的工作：
, M" \9 A9 Y4 j
: v% b9 l8 v, ~8 G7 G  V( v1.在模型空間,，插入一個(gè)已經(jīng)在的 塊，比如：名字為 “KK”,， 效果是 能在工具條上創(chuàng)建按鈕,， 點(diǎn)擊之后，只需要在屏幕上 點(diǎn)取 位置就能放置 塊（有炸開 和 非炸開兩種模式最好，做成兩個(gè)按鈕）,。

2.在模型空間,，進(jìn)行 指定條件的篩選（2007自帶快速選擇功能），然后把篩選出來的一類目標(biāo)的某些特性修改為另外的特性,， 比如： 選擇 所有 線型=Center 的目標(biāo),，然后，把這些目標(biāo)全部移動(dòng)到 圖層：200,， 顏色=Bylayer,，線型=Bylayer，線寬=Bylayer,。 同樣也做成按鈕,，放在工具條上~
" F0 L9 I& ^) R& U9 r
+ c4 |  B1 s& i3 U$ l求各位大俠幫忙哈~
" t; Y7 h2 |3 }

zsdwx

Q1：這個(gè)我用autolisp實(shí)現(xiàn)過,，點(diǎn)中自己制作的按鈕，再點(diǎn)選標(biāo)題欄左下角,，就可以在設(shè)計(jì)欄中插入制作好的簽名塊并在后面寫上當(dāng)前日期,。用VBA應(yīng)該一樣能行的,。
* C" `% s1 g; U5 ?" c
! Y4 q; `% m& B: k- z6 b0 u; ]

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)
  (setq pt (getpoint "\n請(qǐng)選取簽名插入點(diǎn)"))
  (if (= pt nil)
      (setq pt pt0)
  )
            (setq pt1 (polar pt (/ pi 6) 35))
2 E6 L4 z% G, p- L4 x3 D9 ^            (setq pt2 (polar pt1 (/ pi 8) 3))
# m$ Z0 g7 {) ~( t4 R; f3 Y* |. V9 `            (setq sse (ssget "_c" pt1 pt2))
            (command "erase" sse "")

  (command "insert" "n1" pt "" "" "")
" ^3 y* X+ j/ [  (setq s (getvar "cdate"))
7 Y0 y9 b( I4 k* _: _  (setq rr (- (* s 100000000) (fix (* s 100000000))))
  (setq yy (fix (/ s 10000)))
0 y: _1 ]3 z7 b$ g$ m* I& |  (setq mm (fix (/ (- s (* yy 10000)) 100)))
! G' M9 R! K( s  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
! H& q6 h: k0 m. e  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
( V, t5 O( w) j* f8 w$ _8 ^$ j2 y  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
  (setq layer_old (getvar "clayer"))
  (setvar "clayer" "text")
( d  o. A* V* U9 B, ?9 p  (setvar "osmode" 0)
* W0 ~; l% d5 ]" [8 ]  (command "text" p1 2 0 text1)
4 F. F& c2 Y* z3 |) R9 |- z9 l  (setvar "cecolor" "40")
  (command "point" p2)
& J' F2 ]  {8 }4 s1 F/ Z  (setvar "cecolor" "bylayer")
, j( z& d* i# `$ P$ A3 ]( e  (setvar "clayer" layer_old)
  (setvar "osmode" osd)
  (princ)
)

UG散散心

zsdwx 發(fā)表于 2014-11-12 19:56
5 B2 R4 c% r# \% V(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
( N  v$ f- r+ x  d7 r  (setq osd (getvar "osmode"))
   ...

感謝回復(fù),，功能很好，能省下不少時(shí)間,，不過我才剛?cè)腴T,，看不懂 ~。~
0 m3 n0 `6 M) a, t6 z

UG散散心

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

UG散散心

第一個(gè)問題,，自己在公司摸索了一上午,， 大概能用了，能插入 命名為KK的塊了,，但是不會(huì)炸開
! ^6 H7 e6 p1 u& `/ B' R直接用宏命令做的,，
1 p! K/ ?; r5 w) ?8 L4 M6 ^^C^C-insert KK \1 1 0
1 V5 B3 N' k6 ~/ Q, K第二個(gè)，完全找不到方向~