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

Hướng dẫn lập trình Lisp

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

15 giờ trước, lethanh2004 đã nói:

Cảm ơn bác Duân . ko ngờ để làm đc 1 lisp khó vậy . chắc phải mót nhiều nhiều chắc mới làm đc 1 lisp cho riêng mình

Không khó như vậy đâu. Bạn phải nhận Đức liệu cho đủ. Rồi tính toán thành 8 điểm tương ứng. Sau đó rồi vẽ ra thôi.

Tham khảo thêm lệnh polar, angle là có thể tạo ra 1 lisp  đơn giản cho mình. Sau đó bổ sung thêm những thứ linh tinh như layer, nét vẽ.

Tuy nhiên mình thấy vẽ cầu thì nên vẽ bằng block động thì đơn giản hơn.

  • 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
2 phút trước, ngokiet đã nói:

Không khó như vậy đâu. Bạn phải nhận Đức liệu cho đủ. Rồi tính toán thành 8 điểm tương ứng. Sau đó rồi vẽ ra thôi.

Tham khảo thêm lệnh polar, angle là có thể tạo ra 1 lisp  đơn giản cho mình. Sau đó bổ sung thêm những thứ linh tinh như layer, nét vẽ.

Tuy nhiên mình thấy vẽ cầu thì nên vẽ bằng block động thì đơn giản hơn.

Viết lisp tạo block động khó không anh? Em nghĩ code sẽ rất dài. 
Thường thì em tạo block động trên Cad thô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
32 phút trước, thanhduan2407 đã nói:

Viết lisp tạo block động khó không anh? Em nghĩ code sẽ rất dài. 
Thường thì em tạo block động trên Cad thôi.

 

Hình như không tạo được. Chỉ tạo sẵn rồi copy lại code file dxf chèn vào lisp.

Em viết cái lisp vẽ cầu dài quá làm nản ai muôn học lisp luôn.

Anh viết đơn giản tí.

(defun c:vc(/ p1 p2 p3 p1+ p2+ ang ang1 old d)
  (setq p1 (getpoint "Nhap diem 1:")
	p2 (getpoint "Nhap diem 2:")
	p3 (getpoint "Nhap diem 3:")
	old (getvar 'osmode)
	ang (angle p1 p2)
	d  (* (distance p3 p1) (sin (- (angle p1 p3) ang)))
	p1+ (polar p1 (+ ang (/ pi 2)) d)
	p2+ (polar p2 (+ ang (/ pi 2)) d)
	ang2 (if (< d 0) (/ pi 4) (/ pi -4)))
  (setvar 'osmode 0)
  (command "_pline" (polar p1 (+ ang (* 3 ang2)) 2) p1 p2 (polar p2 (+ ang ang2)2) "")
  (command "_pline" (polar p1+ (- ang (* 3 ang2)) 2) p1+ p2+ (polar p2+ (- ang ang2) 2) "")
  (setvar 'osmode old)
  (princ))

 

  • Like 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
Vào lúc 6/2/2018 tại 09:57, doductiep đã nói:

chào a tiep ,e là người mới đang tìm tòi học hỏi ,rất mong anh có thể gửi lại link tài liệu 

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ào lúc 17/7/2024 tại 16:13, ztrtanker đã nói:

chào a tiep ,e là người mới đang tìm tòi học hỏi ,rất mong anh có thể gửi lại link tài liệu 

2 cuốn sách này là giáo trình Lisp của thầy Hữu Lộc thôi mà, trên mạng share nhiều. Gửi lại link nếu bạn chưa có.

https://drive.google.com/drive/folders/1HhjUGfIJNV1rDw1uOMUL-0toJE0scA3M?usp=sharing

Ngoài ra mình thấy kết hợp với sử dụng Google Gemini AI để hỏi khi học thì rất hay, nó còn check được cả lỗi nữa

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ào lúc 19/7/2024 tại 11:37, doductiep đã nói:

2 cuốn sách này là giáo trình Lisp của thầy Hữu Lộc thôi mà, trên mạng share nhiều. Gửi lại link nếu bạn chưa có.

https://drive.google.com/drive/folders/1HhjUGfIJNV1rDw1uOMUL-0toJE0scA3M?usp=sharing

Ngoài ra mình thấy kết hợp với sử dụng Google Gemini AI để hỏi khi học thì rất hay, nó còn check được cả lỗi nữa

rất cám ơn a ạ

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

×