Đến nội dung


Hình ảnh
- - - - -

Lưu giá trị nhập bằng VBA Cad


  • Please log in to reply
3 replies to this topic

#1 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 10 August 2012 - 06:05 PM


Sub nhap()
Dim h As Double
h = ThisDrawing.Utility.GetReal("Nhap chieu cao text:" & " < " & 2 & " > ")
If h = "" Then
h=2
End If
End Sub
- Đoạn mã trên nếu nhấn Enter thì giá trị của h=2
- Nếu nhập giá trị mới thì có h bằng h mới nhập
Nhưng Code lỗi. Có bác nào rảnh mong xem giúp
Cám ơn!
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 10 August 2012 - 07:07 PM

Dim h as double If h = " " ???
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 10 August 2012 - 11:35 PM


Sub nhap()
Dim h As Double
h = ThisDrawing.Utility.GetReal("Nhap chieu cao text:" & " < " & 2 & " > ")
If h = "" Then
h=2
End If
End Sub
- Đoạn mã trên nếu nhấn Enter thì giá trị của h=2
- Nếu nhập giá trị mới thì có h bằng h mới nhập
Nhưng Code lỗi. Có bác nào rảnh mong xem giúp
Cám ơn!

Bạn có thể dùng thế này


Sub nhap()
On Error Resume Next
Dim h As Double
h = ThisDrawing.Utility.GetReal("Nhap chieu cao text:" & " < " & "2" & " > ")
If Err <> 0 Then
h = 2
Err.Clear
End If
End Sub

  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#4 phantuhuong

phantuhuong

    biết dimstyle

  • Moderator
  • PipPipPipPipPip
  • 383 Bài viết
Điểm đánh giá: 200 (khá)

Đã gửi 11 August 2012 - 04:59 PM

Thêm cái nữa cho vui:

Sub nhap()
Dim h As Double
Dim errorFix
On Error GoTo errorFix
h = ThisDrawing.Utility.GetReal("Nhap chieu cao text <2>:")
MsgBox h
Exit Sub
errorFix:
h = 2
MsgBox h
End Sub

  • 1
Bồi dưỡng Excel & VBA cho các đơn vị ở Hà Nội và khu vực lân cận

Từng bước loại đồ Tàu ra khỏi cuộc sống!