Xem giúp đoạn lisp của mình vẽ pline có nhập chiều dài và góc

[khaosat2009 11]

Các Bác ui! E đã hoàn thành xong chương trình theo ý tưởng của mình rùi!! Bây jờ đem sản phẩm lên khoe với các bác nè!

 

Đây là menu:

 

 

Và đây là hộp thoại chương trình:

 

Xin bạn up cho minh xin một bản .

Cám ơn

[mascehuy 6]

Sẵn topic này, mình có thể hỏi các Pác lisp vẽ đường thẳng nối 2 đường thẳng cho trước với khoảng cách cố định và điểm băt đầu

 http://www.cadviet.com/upfiles/5/14941_drawing1.dwg

[Doan Van Ha 3.200]

Sẵn topic này, mình có thể hỏi các Pác lisp vẽ đường thẳng nối 2 đường thẳng cho trước với khoảng cách cố định và điểm băt đầu

 http://www.cadviet.com/upfiles/5/14941_drawing1.dwg

Tôi đã post lisp 22/4/2016, nhưng tôi đã xóa 26/4/2016 vì người hỏi đã ngủ quên.

Chỉnh sửa Tháng 4 26, 2016 theo Doan Van Ha

[anpecc3 0]

Vào lúc 23/8/2010 tại 18:16, 18011985 đã nói:

Bạn vẽ 2 điểm thì vẽ thế kia được nếu bạn muốn lặp lại để vẽ thì cũng được nhưng như thế kết quả thu được là những đoạn polyline rời dạc . Nên bạn thử dùng lsp này xem. Đáp ứng được các yêu cầu của bạn (Chú ý chỉ thoát và hoàn thành polyline khi chiều dài nhập vào là nil "Tức bạn gõ space hoặc enter", nếu bạn ấn ESC bạn phải làm lại từ đầu).

 

• pla.lsp
  
• [✎]
   

(defun c:pla (/ CHIEUDAI D2 DX DY GOC TDX TDY QUYDOI)
 (setq d1 (getpoint "\n Nhap diem dau: "))
 (setq dx (car d1) dy (cadr d1))
 (defun quydoi ()
   (setq chieudai (getreal "\n Nhap chieu dai: "))    
   (if (/= chieudai nil)(progn
     (setq goc (getangle "\n Nhap goc: "))
     (setq tdx (* (cos goc) chieudai))
     (setq tdy (* (sin goc) chieudai))
     (setq d2 (list (+ dx tdx) (+ dy tdy) 0.0))
     (setq dx (car d2) dy (cadr d2))
     )
    )
   )
 (quydoi)
 (entmake (list (cons 0 "POLYLINE")
	 (cons 6 "BYLAYER")
	 (cons 8 "net1")
	 (cons 62 1)
	 (cons 10 (list 0.0 0.0 0.0))
	 ))
 (entmake (list (cons 0 "VERTEX")
	 (cons 6 "BYLAYER")
	 (cons 8 "net1")
	 (cons 10 d1)
	 ))    
 (while (/= chieudai nil)
   (entmake (list (cons 0 "VERTEX")
	   (cons 6 "BYLAYER")
	   (cons 8 "net1")
	   (cons 10 d2)
	   ))
   (quydoi)
   )
 (entmake (list (cons 0 "SEQEND")
	 (cons 6 "BYLAYER")
	 (cons 8 "net1")))
 (princ)
 )

 

 

Chúc các bạn sức khoẻ và tích cực đóng góp nhiều lsp hơn nữa cho diễn đàn.

 

[anpecc3 0]

Chào anh, em đã sử dụng lisp của anh nhưng khi nhập góc nó không hiểu định dạng, a có thể hướng dẫn thêm, em cảm ơn

 

[anpecc3 0]

Vào lúc 23/9/2010 tại 09:34, hungdlcm đã nói:

Các Bác ui! E đã hoàn thành xong chương trình theo ý tưởng của mình rùi!! Bây jờ đem sản phẩm lên khoe với các bác nè!

 

Đây là menu:

 

 

Và đây là hộp thoại chương trình: