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

[ngokiet 169]

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.

[thanhduan2407 272]

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.

 

[ngokiet 169]

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))

 

[lethanh2004 2]

Cảm ơn bác NgoKiet  . thế này nom còn có động lực bác nhỉ