Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Kỹ sư

Xin chỉ giáo về viết lệnh insert trong Excel để paste sang CAD

Các bài được khuyến nghị

Kỹ sư    0

Em có 1 file excel với tọa độ của 1 loạt điểm, và nhiệm vụ của em là chèn 1 block vào các điểm đó trên AutoCAD. Em muốn viết 1 loạt dòng lệnh insert trong excel để khi cop vào AutoCAD Text Window (F2) thì nó thực thi luôn.

 

Ví dụ điểm có tọa độ như sau: y = 1306774.191 x = 631917.785,

em viết dòng lệnh: _i moc 631917.785,1306774.191 1 1 0 DTHT

 

Sau khi em cop các dòng lệnh đó thì nó không chèn luôn mà hiện lên cửa số insert bắt em chọn lại block moc, sau đó nó mới chèn đúng vào tọa độ em đã gõ trong dòng lệnh.

 

Các bác kiểm tra và sửa hộ em dòng lệnh trên với ạ, sao cho để khi cop sang CAD, nó "âm thầm" chèn luôn block em đã chỉ định.

 

Thanks!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
Em có 1 file excel với tọa độ của 1 loạt điểm, và nhiệm vụ của em là chèn 1 block vào các điểm đó trên AutoCAD. Em muốn viết 1 loạt dòng lệnh insert trong excel để khi cop vào AutoCAD Text Window (F2) thì nó thực thi luôn.

 

Ví dụ điểm có tọa độ như sau: y = 1306774.191 x = 631917.785,

em viết dòng lệnh: _i moc 631917.785,1306774.191 1 1 0 DTHT

 

Sau khi em cop các dòng lệnh đó thì nó không chèn luôn mà hiện lên cửa số insert bắt em chọn lại block moc, sau đó nó mới chèn đúng vào tọa độ em đã gõ trong dòng lệnh.

 

Các bác kiểm tra và sửa hộ em dòng lệnh trên với ạ, sao cho để khi cop sang CAD, nó "âm thầm" chèn luôn block em đã chỉ định.

 

Thanks!

Bạn nghiên cứu hàm nối chuỗi trong Excel : CONCATENATE(argument1, argument2,....)

và hàm & để nối chuỗi trong Excel

Bạn hãy đọc bài viết này của Tue_NV :

Bai viet so 4; so 7; so 16

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Kỹ sư    0
Bạn nghiên cứu hàm nối chuỗi trong Excel : CONCATENATE(argument1, argument2,....)

và hàm & để nối chuỗi trong Excel

Bạn hãy đọc bài viết này của Tue_NV :

Bai viet so 4; so 7; so 16

 

Cảm ơn bác!

Nhưng ý của em là hỏi xem dòng lệnh em gõ như trên để insert block sai chỗ nào mà khi cop qua CAD nó không insert luôn block em đã chỉ định, mà bắt em chọn lại block.

 

Cụ thể là em có 2 file excel và CAD như thế này

File Excel

File CAD

 

Và bây giờ em muốn chèn block "phaole" và "phaochan" vào các điểm tương ứng trong AutoCAD. (trong file CAD đã có các block phaole và phaochan)

 

Thanks!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
Cảm ơn bác!

Nhưng ý của em là hỏi xem dòng lệnh em gõ như trên để insert block sai chỗ nào mà khi cop qua CAD nó không insert luôn block em đã chỉ định, mà bắt em chọn lại block.

 

Cụ thể là em có 2 file excel và CAD như thế này

File Excel

File CAD

 

Và bây giờ em muốn chèn block "phaole" và "phaochan" vào các điểm tương ứng trong AutoCAD. (trong file CAD đã có các block phaole và phaochan)

 

Thanks!

Bạn nghiên cứu lại hàm CONCATENATE kết hợp với hàm & để nối chuỗi trong Excel

Đoạn Code để paste vào Excel là code của AutoLisp

Cấu trúc của code để Insert Block đây:

(command "insert" "phaochan" '(1315089.4 625054.1 0) 1 1 0 "Phao14")

Chú ý rằng vì Block của bạn là Block thuộc tính nên trong CAD phải đặt biến Attreq = 1 đấy. Nếu không thì sai ngay.

 

Command: attreq

Enter new value for ATTREQ : 1

 

Tue_NV đã viết lại trong file Excel cho bạn

Bạn mở Excel -> chọn ô G4 đến G10 -> copy -> vào CAD -> Pick chuột vào Command -> Ấn Ctrol+V

File Excel Tue_NV đã làm cho bạn đây :

http://www.cadviet.com/upfiles/2/ben_phao_2.rar

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Kỹ sư    0
Bạn nghiên cứu lại hàm CONCATENATE kết hợp với hàm & để nối chuỗi trong Excel

Đoạn Code để paste vào Excel là code của AutoLisp

Cấu trúc của code để Insert Block đây:

(command "insert" "phaochan" '(1315089.4 625054.1 0) 1 1 0 "Phao14")

Chú ý rằng vì Block của bạn là Block thuộc tính nên trong CAD phải đặt biến Attreq = 1 đấy. Nếu không thì sai ngay.

 

Command: attreq

Enter new value for ATTREQ <0>: 1

 

Tue_NV đã viết lại trong file Excel cho bạn

Bạn mở Excel -> chọn ô G4 đến G10 -> copy -> vào CAD -> Pick chuột vào Command -> Ấn Ctrol+V

File Excel Tue_NV đã làm cho bạn đây :

http://www.cadviet.com/upfiles/2/ben_phao_2.rar

 

 

Đây rồi, hàng ngon đây rồi. Thanks bác nhé! :cheers:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Kỹ sư    0

Tiện đây bác cho em hỏi, có "chỗ" nào có thể cho em tham khảo về mấy thứ này không ạ? ở trong CAD có không ạ?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
thanhduan2407    226
Tiện đây bác cho em hỏi, có "chỗ" nào có thể cho em tham khảo về mấy thứ này không ạ? ở trong CAD có không ạ?

Bạn hãy sử dụng công cụ Run Script trên menu Tool.

Cách sử dụng như sau:

Bạn dùng excel để kết nối thành 1 chuỗi (Concatenate) giống như bác Tue_NV đã viết

Sau đó bạn copy dòng kết nối đó cho vào notepate rồi lưu thành file abc.scr

vào cad => tool => run script => đưa đường dẫn đến mục abc.scr vừa lưu.

Tôi ví dụ cho bạn biết nhé;

http://www.4shared.com/file/Gl2rI-BJ/VD_online.html

Chúc bạn thành công

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Lúc trước em chỉ cần copy & paste vào Cad là được, nhưng sao giờ em copy paste nó báo lỗi

Command: (Command"text""33,700,0" "0.5" "" "32")

text

Current text style: "style1" Text height: 2.0000

Specify start point of text or [Justify/Style]: 33,700,0

Specify rotation angle of text <0>: 0.5

Enter text:

Command: 32 Unknown command "32". Press F1 for help.

Command: nil

vậy nghĩa là sao? Bác nào giúp em với.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841

Lúc trước em chỉ cần copy & paste vào Cad là được, nhưng sao giờ em copy paste nó báo lỗi

Command: (Command"text""33,700,0" "0.5" "" "32")

text

Current text style: "style1" Text height: 2.0000

Specify start point of text or [Justify/Style]: 33,700,0

Specify rotation angle of text <0>: 0.5

Enter text:

Command: 32 Unknown command "32". Press F1 for help.

Command: nil

vậy nghĩa là sao? Bác nào giúp em với.

Lý do :

Text style hiện hành có chiều cao khác 0 nên mới báo lỗi như thế

Bạn đưa chiều cao Text style hiện hành về bằng 0 là được (Bằng lệnh Style)

Và chiều cao của Text này sẽ lấy bằng "0.5" như trong code của bạn

 

Chúc thành công

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×