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

UG散散心

不知道能不能用Macro,，或者VBA來實現(xiàn)下面的工作：
: K+ }: I6 l9 ~
1.在模型空間，插入一個已經(jīng)在的 塊,，比如：名字為 “KK”， 效果是 能在工具條上創(chuàng)建按鈕,， 點擊之后,，只需要在屏幕上 點取 位置就能放置 塊（有炸開 和 非炸開兩種模式最好，做成兩個按鈕）,。

2.在模型空間,，進行 指定條件的篩選（2007自帶快速選擇功能）,，然后把篩選出來的一類目標的某些特性修改為另外的特性， 比如： 選擇 所有 線型=Center 的目標,，然后，把這些目標全部移動到 圖層：200,， 顏色=Bylayer,，線型=Bylayer,，線寬=Bylayer,。 同樣也做成按鈕,，放在工具條上~

+ i! S; G! [: k# ]* A$ i8 L# A求各位大俠幫忙哈~

zsdwx

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

zsdwx

(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  (setq osd (getvar "osmode"))
/ W3 I7 m7 ^" t4 B2 u; J3 N( }  (setq pt0 '(142.0 5.0))
  (initget 128)
  (setq pt (getpoint "\n請選取簽名插入點"))
  (if (= pt nil)
      (setq pt pt0)
  )
            (setq pt1 (polar pt (/ pi 6) 35))
            (setq pt2 (polar pt1 (/ pi 8) 3))
" q1 G7 a6 T% }1 X' ?, K; G            (setq sse (ssget "_c" pt1 pt2))
% H& c( O. P; w1 }            (command "erase" sse "")

, h. s, I; T) G( B$ I1 b) U  (command "insert" "n1" pt "" "" "")
0 S9 j( N# z( R; r- q: N( ~! \2 n  (setq s (getvar "cdate"))
  (setq rr (- (* s 100000000) (fix (* s 100000000))))
  (setq yy (fix (/ s 10000)))
$ N5 E! P% S/ `8 [! k' D) P  (setq mm (fix (/ (- s (* yy 10000)) 100)))
  (setq dd (fix (/ (- s (* (fix (/ s 100)) 100)))))
  (setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd)))
  (setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))
5 q) l& f! J% \) c  (setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
  (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")
! ]) |" g8 N# j  (setq layer_old (getvar "clayer"))
% g5 G# u. Z7 ?( u  (setvar "clayer" "text")
, |3 _/ Z1 N$ R5 v5 y/ f+ T  (setvar "osmode" 0)
0 h% M* ~1 I- O9 g7 A' W' z+ e& t9 q  (command "text" p1 2 0 text1)
4 S3 o3 n* q+ D  (setvar "cecolor" "40")
  (command "point" p2)
  (setvar "cecolor" "bylayer")
  (setvar "clayer" layer_old)
  (setvar "osmode" osd)
6 `) b4 R; j- N9 j! r9 H  (princ)
)

UG散散心

zsdwx 發(fā)表于 2014-11-12 19:56
, O$ Z! H6 b* ]4 Z6 q" b9 C(defun  c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
  (setq osd (getvar "osmode"))
   ...

4 H3 f3 y, T( p/ P. \7 t" y感謝回復(fù)，功能很好,，能省下不少時間,，不過我才剛?cè)腴T,，看不懂 ~,。~

UG散散心

還請各位大俠幫幫忙哈~

UG散散心

第一個問題，自己在公司摸索了一上午,， 大概能用了,，能插入 命名為KK的塊了，但是不會炸開
直接用宏命令做的,，
^C^C-insert KK \1 1 0
5 o6 n- g! H/ Y8 D7 e+ V0 d) \) n第二個,，完全找不到方向~