dinhvantrang

Bạn chỉ cần cho cái bước nhảy =-1 là nó giảm, không rõ bạn làm kiểu gì mà không được.

Tham khảo Lisp này của đại ca Lee Mac. Quất được hết thì phải. http://www.lee-mac.com/numinc.html

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

Hy vọng cái Tools này của mình giải quyết được cái của bạn, chương trình có thể in các Layout trong bản vẽ từ trái -> phải (Nhiều bản vẽ trong 1 Folder - mỗi bản vẽ có nhiều layout). Bạn xem video để rõ hơn

Mình có thấp kiến thôi: Trước khi Load Form mới gán tên Caption cho Form

Tương đương phím Enter luôn

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

ExTrim phải chọn từng cái 1, bản vẽ chủ thớt có hàng trăm cái hình như thé, chọn tay thì vỡ alo

Khác thiệc, chờ cao nhân ra tay thôi.

Gửi bạn nhé. Cách dùng thì mở file Lisp lên xem nhé. Chỉ là sưu tầm được thôi breaklisp.lsp

Khó hiểu đề bài quá, chủ thớt có thể cho cái hình minh họa đi

Cách dùng thì vào đây nhé bác http://www.lee-mac.com/numinc.html

Dường như rất okie, không thấy lỗi gì cả. Bạn thử bỏ cái check Box "Publish in Background" đi xem có hết lỗi không

bạn cần chụp cái màn hình kiểu này thì may ra mới bắt bệnh được.

Chắc được. :D