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

UG散散心

不知道能不能用Macro,，或者VBA來(lái)實(shí)現(xiàn)下面的工作：

4 o8 L& n& E: \2 z1.在模型空間,，插入一個(gè)已經(jīng)在的 塊，比如：名字為 “KK”,， 效果是 能在工具條上創(chuàng)建按鈕,， 點(diǎn)擊之后，只需要在屏幕上 點(diǎn)取 位置就能放置 塊（有炸開 和 非炸開兩種模式最好,，做成兩個(gè)按鈕）,。

0 W9 l. |4 Y' J* r. P# k3 G. ^- h2.在模型空間，進(jìn)行 指定條件的篩選（2007自帶快速選擇功能）,，然后把篩選出來(lái)的一類目標(biāo)的某些特性修改為另外的特性,， 比如： 選擇 所有 線型=Center 的目標(biāo)，然后，把這些目標(biāo)全部移動(dòng)到 圖層：200,， 顏色=Bylayer,，線型=Bylayer，線寬=Bylayer,。 同樣也做成按鈕,，放在工具條上~

& r% `4 I3 `$ m$ P' }求各位大俠幫忙哈~

zsdwx

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

zsdwx

(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  (setq osd (getvar "osmode"))
9 b; M9 O5 R  f5 x" w& ?' U  (setq pt0 '(142.0 5.0))
  (initget 128)
: y7 U! P% R- Z! F! k( B$ }! S) p8 L  (setq pt (getpoint "\n請(qǐng)選取簽名插入點(diǎn)"))
  (if (= pt nil)
2 T  D9 c6 e( ^# W      (setq pt pt0)
8 s$ S9 U$ r6 {2 C5 v5 @* h: o2 Q  )
5 K, c* r! o1 ^; W% Y2 @( x% I            (setq pt1 (polar pt (/ pi 6) 35))
6 h8 v: D0 s2 s. G/ O+ f; a, a: ^            (setq pt2 (polar pt1 (/ pi 8) 3))
            (setq sse (ssget "_c" pt1 pt2))
0 U! N: r7 n# C4 B5 r' d            (command "erase" sse "")

  (command "insert" "n1" pt "" "" "")
3 m; F" m0 s8 g  (setq s (getvar "cdate"))
  C: r2 r9 O% [) i* o2 @  (setq rr (- (* s 100000000) (fix (* s 100000000))))
* S+ T! ?1 @0 y  (setq yy (fix (/ s 10000)))
  (setq mm (fix (/ (- s (* yy 10000)) 100)))
5 z' B7 s/ F$ D. _1 N9 s  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
" S" F' N0 \, b/ {% J  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
  f1 r6 j: ^/ H7 i/ U' r( R  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
  (setq layer_old (getvar "clayer"))
. C. ]) G$ J8 C0 M. ^4 d) J2 W0 X  (setvar "clayer" "text")
  (setvar "osmode" 0)
  (command "text" p1 2 0 text1)
  (setvar "cecolor" "40")
% b7 O% |1 }6 p# j3 k' |  (command "point" p2)
6 d9 Z" H( f: C9 Z2 Z  (setvar "cecolor" "bylayer")
  (setvar "clayer" layer_old)
  (setvar "osmode" osd)
0 a* |  u. J  ]  (princ)
)

UG散散心

zsdwx 發(fā)表于 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"))
   ...

$ z( [& ^; J" D$ A感謝回復(fù),，功能很好,，能省下不少時(shí)間，不過我才剛?cè)腴T,，看不懂 ~,。~
  `3 b5 d+ `* O

UG散散心

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

UG散散心

第一個(gè)問題，自己在公司摸索了一上午,， 大概能用了,，能插入 命名為KK的塊了，但是不會(huì)炸開
! O1 N' F6 p6 E* n) ~直接用宏命令做的,，
^C^C-insert KK \1 1 0
% h1 |2 [1 G+ J* q1 `+ U第二個(gè),，完全找不到方向~