Đến nội dung


Hình ảnh
* * * - - 17 Bình chọn

Hỏi về Lisp (thuật toán, ý tưởng, coding,...)


  • Please log in to reply
2854 replies to this topic

#2741 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 13 January 2016 - 04:19 PM

Đây ạ!

http://www.cadviet.c..._thong_minh.zip


  • 1



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#2742 tientracdia

tientracdia

    biết lệnh scale

  • Members
  • PipPipPip
  • 147 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 14 January 2016 - 09:30 AM

Chương trình của bạn nội suy 3 số lẽ. bạn chỉnh giúp 2 số lẽ thôi.


  • 0

#2743 anti lazy

anti lazy

    biết lệnh erase

  • Members
  • PipPipPip
  • 107 Bài viết
Điểm đánh giá: 27 (tàm tạm)

Đã gửi 14 January 2016 - 10:52 AM

Các điểm cấy vào quá hoàn hảo : nằm ngay trên mp của tam giác thì khó mà qua mắt người có kinh nghiệm


  • 0

#2744 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 14 January 2016 - 11:28 AM

Hề hề hề,

file .vlx thì chịu rồi, chả thể nhòm ngó hay phê phán điều gì ?????


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2745 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 14 January 2016 - 10:49 PM

Chương trình của bạn nội suy 3 số lẽ. bạn chỉnh giúp 2 số lẽ thôi.

 

Các điểm cấy vào quá hoàn hảo : nằm ngay trên mp của tam giác thì khó mà qua mắt người có kinh nghiệm

 

Hề hề hề,

file .vlx thì chịu rồi, chả thể nhòm ngó hay phê phán điều gì ?????

Hì hì. Em viết chơi ấy mà. Nó phục vụ cho chuyên ngành của em tương đối tốt. 


  • 1



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#2746 tientracdia

tientracdia

    biết lệnh scale

  • Members
  • PipPipPip
  • 147 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 21 January 2016 - 09:57 AM

 Như thế mất rất nhiều thời gian và phải lập công thức. Em đã làm đc rồi ạ! Tuy nhiên hơi mất công đoạn trải mảng block xong lấy ra tọa độ rồi lại xóa đi.

Chương trình của em đây!

Bạn có những tiện ích hay quá. giới thiệu cho mình xem các tiện ích 1,2,3,4 xem tham khảo với bạn


  • 0

#2747 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1359 (rất tốt)

Đã gửi 28 January 2016 - 01:44 PM

Cho mình hỏi hàm chuyển giá trị góc từ radian sang độ phút giây với ạ!


  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#2748 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1359 (rất tốt)

Đã gửi 28 January 2016 - 01:57 PM

Có người nhờ mình yêu cầu như sau
Có 3 điểm trong không gian, tìm góc nằm và góc đứng tạo bởi 3 điểm đó. Nói thật cái thuật ngữ này mình không hiểu, mà cái bạn nhờ mình thì giải thích không ra. Bác nào biết lisp mà rành bên khảo sát chắc biết vụ này. Cho mình xin cái hàm này được không? cám ơn!


  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#2749 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1359 (rất tốt)

Đã gửi 28 January 2016 - 03:38 PM

Cám ơn bác Hà. Duy cũng đoán thế nên cũng viết ra rồi nhưng bố cứ bảo chưa đúng.

Do không biết xét góc trên mặt phẳng khác XOY nên Duy tráo tọa độ Z thành Y và giữ nguyên X rồi xét trên mặt phẳng XOY.

Bác có cách trực tiếp xét góc trên mặt phẳng khác XOY thì chỉ Duy phát. cám ơn!


  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#2750 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 28 January 2016 - 04:15 PM

Cho mình hỏi hàm chuyển giá trị góc từ radian sang độ phút giây với ạ!

Hàm đổi từ decimal => dms

(list (fix d) (fix (rem (* d 60) 60)) (rem (* d 3600) 60))

Bạn tự chuyển qua dạng string, nếu d<0 dùng abs cho m & s

Nếu làm tròn s thêm if

 


Cám ơn bác Hà. Duy cũng đoán thế nên cũng viết ra rồi nhưng bố cứ bảo chưa đúng.

Chắc bố muốn nói về góc bằng và góc đứng trong trắc địa

http://muce.edu.vn/f...age/chuong3.pdf


  • 1

#2751 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 28 January 2016 - 05:07 PM

Các bác quên angtos rồi à?

(angtos (/ pi 2) 1 3) >> "90d0'0\""

(angtos 0.5 1 3) >> "28d38'52\""


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2752 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 16 February 2016 - 11:29 AM

Nhờ các bác tư vấn em với ạ!

Em có một đường Pline khép kín và em muốn sử dụng lisp Etrim (lệnh Extrim) để cắt bỏ các đối tượng cùng một Layer bên ngoài Polyline thì nên làm như nào vậy ạ? Liệu có phải Lock các layer lại, chỉ để lại Layer cần cắt rồi sau đó lại Unlock?

Em cảm ơn các bác nhiều!


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#2753 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 16 February 2016 - 02:07 PM

Em có thể viết 1 lisp có sử dụng lệnh EXTRIM bằng cách:

- Nhập tên Layer muốn Trim.

- Lock tất cả Layer còn lại.

- EXTRIM.

- Unlock..


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2754 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 16 February 2016 - 11:35 PM

Hàm đổi từ decimal => dms

(list (fix d) (fix (rem (* d 60) 60)) (rem (* d 3600) 60))

Bạn tự chuyển qua dạng string, nếu d<0 dùng abs cho m & s

Nếu làm tròn s thêm if

 

 

Chắc bố muốn nói về góc bằng và góc đứng trong trắc địa

http://muce.edu.vn/f...age/chuong3.pdf

Hề hề hề,

Cứ theo cái định nghĩa này thì muốn xác định góc bằng và góc đứng, còn phải xét điểm nào là diểm gốc trong 3 điểm đã cho mới ổn......


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2755 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 17 February 2016 - 10:05 AM

Có người nhờ mình yêu cầu như sau
Có 3 điểm trong không gian, tìm góc nằm và góc đứng tạo bởi 3 điểm đó. Nói thật cái thuật ngữ này mình không hiểu, mà cái bạn nhờ mình thì giải thích không ra. Bác nào biết lisp mà rành bên khảo sát chắc biết vụ này. Cho mình xin cái hàm này được không? cám ơn!

Hề hề hề,

Đầu xuân , rách việc, ngồi đọc thậy yêu cầu của bác và dựa trên cái định nghĩa mà bác ndtnv cung cấp, mình việt đại cái lisp như sau để bác check lại xem bố cháu đã đồng ý chưa nhé. Trúng thì tốt mà không trúng lại càng tốt hơn. Mong phản hồi từ các bác.

 

http://www.cadviet.c...mgoctracdia.lsp

 

Kính chúc toàn thể anh em trên diễn đàn một năm mới phát triển và thành công.

 

(defun  c:gtrd (/ p1 p2 p3 d1 d2 h1 h2 a1 a2 gb gd1 gd2)
(setq p1 (getpoint "\n Chon diem 3D goc")
          p2 (getpoint  p1 "\n Chon diem 3D thu hai")
          p3 (getpoint p1 "\n Chon diem 3D thu ba")
          d1 (distance p1 p2)
          d2 (distance p1 p3)
          h1 (- (caddr p2) (caddr p1))
          h2 (- (caddr p3) (caddr p1))
          a1 (angle (list (car p1) (cadr p1)) (list (car p2) (cadr p2)) )
          a2 (angle (list (car p1) (cadr p1)) (list (car p3) (cadr p3)) )
          gb (- a2 a1)
          gd1 (atan (/ (/ h1 d1) (sqrt (- 1 (/ (* h1 h1) (* d1 d1))))))
          gd2 (atan (/ (/ h2 d2) (sqrt (- 1 (/ (* h2 h2) (* d2 d2))))))
          kq (list gb gd1 gd2)
)
kq
)

  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2756 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 19 February 2016 - 09:07 AM

Em có thể viết 1 lisp có sử dụng lệnh EXTRIM bằng cách:

- Nhập tên Layer muốn Trim.

- Lock tất cả Layer còn lại.

- EXTRIM.

- Unlock..

Bác cùng ý với em ạ!

Em đã làm ok rồi nhưng.....cái hàm Extrim này nó cắt không triệt để bác nhỉ? Vẫn còn râu. @@


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#2757 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 19 February 2016 - 09:32 AM

Hàm Extrim với các curve phức tạp thì đôi khi nó mang tính gần đúng. Trên Cadviet tôi đã từng nói tới điều này 1 lần rồi. Đành sống chung với lũ thôi.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2758 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 02 March 2016 - 10:03 PM

Tôi đang lập 1 chương trình với số phần tử trong list lên tới hàng triệu (10^6). Để đạt mục đích đề ra, nó chạy mất tầm 60 phút!!! Woa, chán quá!

Tôi muốn hỏi 2 vấn đề:

1). Có thể viết 1 hàm tự tạo có tốc độ nhanh hơn hàm nguyên thủy không (bằng lsp hoặc arx)?

2). Nếu có thể, nhờ giúp tôi viết 1 hàm để thay hàm SUBST, vì hàm này chạy rất chậm nếu list đủ lớn.

Thank vì đã đọc!


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2759 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 03 March 2016 - 07:47 AM

Tôi đang lập 1 chương trình với số phần tử trong list lên tới hàng triệu (10^6). Để đạt mục đích đề ra, nó chạy mất tầm 60 phút!!! Woa, chán quá!

Tôi muốn hỏi 2 vấn đề:

1). Có thể viết 1 hàm tự tạo có tốc độ nhanh hơn hàm nguyên thủy không (bằng lsp hoặc arx)?

2). Nếu có thể, nhờ giúp tôi viết 1 hàm để thay hàm SUBST, vì hàm này chạy rất chậm nếu list đủ lớn.

Thank vì đã đọc!

Nếu chỉ có hàm SUBSTR thôi thì chắc không cải thiện hiệu suất nhiều đâu ?

Tôi nghĩ là có liên quan đến cách tổ chức dữ liệu (các phần tử trong List).


  • 0

#2760 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 04 May 2016 - 06:24 PM

Các bác cho em hỏi 1 chút ạ!

Em muốn gán màu sắc cho đối tượng theo TrueColor (RGB) thì dùng phương thức như thế nào ạ? Em cảm ơn các bác nhiều.


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn