Chuyển đến nội dung
Diễn đàn CADViet

dinhvantrang

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    447

  • Đã tham gia

  • Lần ghé thăm cuối

  • Ngày trúng

    38

Bài đăng được đăng bởi dinhvantrang

  1. Đã đăng · Trả lời báo cáo

    Hướng dẫn chủ thớt:

    Bước 1: Write cái Block trong bản vẽ đó ra thành file riêng (ví dụ lưu tại ổ D:\TK_1.dwg)

    Bước 2: Dùng code insert Block này vào bản vẽ cần chèn. Xong.

    P/s: Nếu đọc bản vẽ có chứa nhiều Block đó để lấy được Block cần chèn cũng được, nhưng cảm thấy không cần thiết lắm. Rắc rối.

     

  5. Đã đăng · Trả lời báo cáo

    2 giờ trước, Nguyễn Hngkt đã nói:

     em cảm ơn anh đã quan tâm đến bài viết của em.Em có gửi file kèm theo mà anh.nó đươc phân biêt bằng bên trái, bên phải và ở giữa 2 đường pline anh.

     

    Cái việc ghi diện tích đó bạn đang làm bằng tay hay lisp?

    có thể add skype để trao đổi thêm được không.

    skype: dinhvantrang73

    zalo: 0986.370.918

    • Like 1

  9. Đã đăng · Trả lời báo cáo

    Bạn thao tác thế trên cad thế nào thì sendcommand cũng gần tương tự:

    Ví dụ tạo đường tròn bán kính 50, tâm 0,0,0 

    Sub TestSencommand()
    Dim dblRadius As Double
    dblRadius = 50
    
    ThisDrawing.SendCommand "_Circle" & vbCr & "0,0,0" & vbCr & dblRadius & vbCr
    ZoomExtents
    
End Sub

    -----------Thanks -----------------

    Hướng dẫn lập trình VBA cho Autocad

    https://docs.google.com/spreadsheets/d/1aScOsX9DQFNX3WjWv1ZOF37M6kuLmP0mQnoaypCrwB0/edit#gid=0

     

  17. Đã đăng · Trả lời báo cáo

    10 phút trước, Bee đã nói:

    OK bạn.

    Có funtion nào check in ParentFolder mà các SubFolder trong SubFolder không bạn.? Nghĩa là không cần biết folder trong folder mà cứ check all hết trong đó cả file và folder có thì nó xử lý hết, Chỉ cần browse folder ngoài cũng thôi.

     

    Chắc được. :D

    • Like 1

  18. Đã đăng · Trả lời báo cáo

    Vừa xong, Bee đã nói:

    Hì Ok. Thế trường hợp thay file thành Folder thì thế nào vậy Mr Trang.?

     

    ý bạn là Rename Folder uh?

    Nếu thế thì sẽ thế này: 

    Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim objFolder,objSubFolder
Dim strFolderPath
strFolderPath  = Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))

Set objFolder =fso.GetFolder(strFolderPath)
Dim strNewName
Dim varList,intCount
If objFolder.SubFolders.Count>0 Then
	For Each objSubFolder In objFolder.SubFolders
		strNewName=vbNullString
		
			strOldName = objSubFolder.Name
			
			varList= Split(strOldName,"_")
			
			For intCount= 0 To UBound(varList)
				
				If strNewName=vbNullString Then
					strNewName = varList(intCount)
				Else
					If intCount <> 2 Then
						strNewName = strNewName & "_" & varList(intCount)
					End If
				End If
				
			Next
			
			objSubFolder.Name = strNewName
	
	Next
	
	MsgBox "Done",vbInformation,"TrangMeo_0986370918"
End If

     

  19. Đã đăng · Trả lời báo cáo

    17 phút trước, Bee đã nói:

    Mr Trang cho hỏi mở rộng hơn tí. ^_^

     

    Trường hợp mà ko có "_" mà chỉ space (thường có trong các file có tiếng việt) thì code VBS thế nào ?

     

     

    Hi Bee. bạn mở bằng Notepad và thay thế cái như hình dưới nhé.

    Chú ý: Do các file của bạn mình đoán là cái chữ Tiếng Nhật nó nằm ở Vị trí Thứ 3 (tương ứng với IntCount = 2), còn nếu nằm sai vị trí thì e rằng nó chạy không đúng.

     

     

    image.thumb.png.1bac617fa6dac8226867389ccfc35934.png

×