Rumah  >  Artikel  >  Tutorial perisian  >  VBA menggunakan kata kunci J untuk mengubah suai batch warna beberapa teks CAD

VBA menggunakan kata kunci J untuk mengubah suai batch warna beberapa teks CAD

WBOY
WBOYke hadapan
2024-01-15 15:51:35600semak imbas

用vba批量修改多个cad文字颜色每个cad文字搜索关键字 J

Gunakan vba untuk mengubah suai berbilang warna teks cad dan cari kata kunci untuk setiap teks kad J hh4232

Sub txtGSssssssssssss()

'Pada Ralat Sambung semula Seterusnya

Malapkan sSet Sebagai AcadSelectionSet, eV Sebagai AcadText, i

Malapkan tj1() Sebagai Integer, tj2() Sebagai Varian

Malapkan semula tj1(0), tj2(0): tj1(0) = 0: tj2(0) = "Teks"

Set sSet = ThisDrawing.SelectionSets.Add("pl1")

sSet.Select acSelectionSetPrevious, , , tj1, tj2 'Selected

'sSet.Select acSelectionSetAll, , , tj1, tj2 'Pilih semua

Untuk Setiap eV Dalam sSet 'Gelung dalam set pemilihan

Jika InStr(eV.TextString, "J") > 0 Maka eV.color = acRed

Seterusnya

sSet.Update

sSet.Delete

Tamat Sub

Transformasi warna dalam pengaturcaraan VBA

1. Mula-mula, sila muat turun kawalan pemasa VBA dalam talian dan letakkan fail ".ocx" di dalamnya ke dalam pemacu C - folder windows-system32, kemudian mulakan - jalankan - "regsvr32 VBAtimer.ocx" - OK (Nota: di sini Anggapkan bahawa fail OCX yang anda muat turun dinamakan "VBAtimer.ocx").

2. Kemudian buka excel, buat borang mengikut keperluan anda sendiri, kemudian klik kanan pada bar alat - "Kawalan Tambahan" - cari kawalan VBAtimer yang baru anda pasang dan lukis kawalan pemasa di mana-mana sahaja pada borang.

3 Kemudian klik kanan pada borang yang baru dibuat - "Lihat Kod" dan masukkan kod berikut:

Button Sub Perintah Peribadi1_Klik()

UserForm1.Label1.Font.Bold = Benar

UserForm1.Label1.Font.Italic = Benar

Pemasa1.Selang = 500

Pemasa1.Didayakan = Benar

Tamat Sub

Sub pemasa1_pemasa()

Malapkan a Selagi, b Selagi, c Selagi

Rawakkan

a = Int(256 * Rnd )

b = Int(256 * Rnd)

c = Int(256 * Rnd )

UserForm1.Label1.ForeColor = RGB(a, b, c)

Tamat Sub

Sub Perintah Butang2_Klik()

UserForm1.Label1.Font.Bold = Palsu

UserForm1.Label1.Font.Italic = False

Pemasa1.Didayakan = Palsu

Tamat Sub

4 Akhir sekali, klik dua kali Buku Kerja ini pada tetingkap pengurusan projek dan masukkan kod berikut dalam kotak kod timbul:

.

Sub Buku Kerja Peribadi_Buka()

Borang Pengguna1.Tunjukkan

Tamat Sub

5 Lampiran: Jika anda tidak tahu cara melakukan langkah 2, 3 dan 4, lakukan sahaja langkah pertama dan serahkan e-mel anda kepada saya.

Atas ialah kandungan terperinci VBA menggunakan kata kunci J untuk mengubah suai batch warna beberapa teks CAD. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!

Kenyataan:
Artikel ini dikembalikan pada:docexcel.net. Jika ada pelanggaran, sila hubungi admin@php.cn Padam