Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
nguyendan81985

Dùng Autolisp vẽ shop drawing tự động

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

hi mọi người. hiện tại mình đang nghiên cứu autolisp để vẽ shop drawing tự động. bản vẽ của mình và các thông số cần nhập như file đính kèm. mọi người biết thì chỉ giúp mình các bước để có thể thực hiện nhé. thanks.

ai có tài liệu thì gửi giúp mình với.

  • Vote giảm 3

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

hi mọi người. hiện tại mình đang nghiên cứu autolisp để vẽ shop drawing tự động. bản vẽ của mình và các thông số cần nhập như file đính kèm. mọi người biết thì chỉ giúp mình các bước để có thể thực hiện nhé. thanks.

ai có tài liệu thì gửi giúp mình với.

 

File CAD đâu bạn? Phiền bạn upload file đính kèm và mô tả cụ thể nhé.

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

File CAD đâu bạn? Phiền bạn upload file đính kèm và mô tả cụ thể nhé.

mình gửi lại file CAD như đính kèm nhé.

ý tưởng của mình làm như bên dưới:

1. gõ lệnh vẽ shopdrawing

2. nhập loại thang máng (có thể thay đổi được loại thang máng tùy vào bề rộng (phần này có thể update theo nhà sản xuất))

3. nhập loại vật tư (bao gồm các loại vật tư sau: L50, L75 (tức là bề rộng của nó là 50 hoặc 75mm)

4. nhập vào chiều dài A (như hình vẽ)http://www.cadviet.com/upfiles/3/125152_shop_drawing.dwg

5. Nhập vào chiều dài B ( hình vẽ)

6. Nhập chiều dài C ( hình vẽ)

7. Nhấn Ok sẽ ra được bản vẽ.

Mở rộng ra có thể add thêm một bảng để liệt kê các vật tư với kích thước đã nhập.

Có thể chèn khung tên bản vẽ (thay đổi được tùy theo dự án.)

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

Mình tạo cái Block động này, bạn dùng thử xem. Viết lisp chắc sẽ lằng nhằng hơn :)

http://www.cadviet.com/upfiles/3/1969_chitiet.dwg

thanks bạn. nhưng mình đag nghiên cứu về lisp để làm.

 

bro nào biết chỉ giúp nhé. hoặc có tài liệu cho mình nghiên cứu làm cũng đc. 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

Để vẽ được hình đó mà chỉ có a b c thì còn thiếu dữ liệu lắm. Bạn cần viết lisp cho bạn hay chỉ bạn viết lisp. bạn viết được cái gì rồ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

-Dòng dùng hỏi chọn 1 điểm gán cho biến diemchon

(setq diemchon (getpoint "\nChon diem"))

-Dòng dùng hỏi nhập một giá trị số gán cho biến sonhap

(setq sonhap (getreal "\nSo can nhap: "))

-Dòng xác định một điểm từ 1 điểm cho trước theo phương cho trước với độ dài cho trước.

(setq diemtim (polar diemcoso goc dodai))

Lưu ý góc ở đây tính bằng radian. Pi = 180độ cứ thế mà tính.

-Dòng vẽ line từ điểm a đến điểm b.

(command ".line" a b "")

 

Vậy sơ bộ lisp như sau:

(defun c:shopdrawing ()
(setq diemchon (getpoint "\nChon diem de ve"))
(setq soa (getreal "\nnhap gia tri A: "))
(setq sob (getreal "\nnhap gia tri B: "))
(setq diemngang (polar diemchon pi soa))
(setq diemdoc (polar diemchon (/ pi 2) sob))
(command ".line" diemngang diemchon diemdoc "")
(princ)
)

 

Đại khái là thế cái sườn đó bạn dựa vào mà viết. Nếu u u minh minh quá thì theo học lớp lisp của két xù nhé.

  • 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

Arc mà có chiều dài và chiều rộng quả thật là mình ko hiểu chi bằng minh họa bằng hình ảnh xem.

Nguyên tắc là muốn viết lisp lệnh gì thì cứ gỏ lệnh đó trong cad mà coi cứ "" là bằng 1 cái enter.

  • 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

Arc mà có chiều dài và chiều rộng quả thật là mình ko hiểu chi bằng minh họa bằng hình ảnh xem.

Nguyên tắc là muốn viết lisp lệnh gì thì cứ gỏ lệnh đó trong cad mà coi cứ "" là bằng 1 cái enter.

ah mình nhầm. ý là nếu muốn vẽ lệnh Rectang thì vẽ như thế nào. bạn cho mình 1 ví dụ 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

ah mình nhầm. ý là nếu muốn vẽ lệnh Rectang thì vẽ như thế nào. bạn cho mình 1 ví dụ nhé. thanks.

(command ".RECTANG" DIEMMOT DIEMM2)

  • 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

sau vài ngày nghien cứu về autolisp, thấy coi bộ khó quá. bro nào rảnh thì viết lisp trên giúp mình với. thanks

 

ah cho mình hỏi thêm. VBA của Autocad với autolisp thì cái nào mạnh hơn. và cái nào dễ sử dụng hơn. mình cũng đag tìm hiểu món này

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

Đăng nhập để thực hiện theo  

×