Đến nội dung


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

[Hỏi]Đố vui với LISP


  • Please log in to reply
391 replies to this topic

#241 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 11 September 2012 - 09:02 AM

Câu này hình như lại đã có lời giải của bác ĐVH rồi ^^
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#242 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 11 September 2012 - 09:11 AM

Cái tội của chị Hoan là bỏ 4rum lâu quá nên không nhớ chi hết trơn!
http://www.cadviet.c...=0
  • 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.


#243 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 11 September 2012 - 10:18 PM

Hì hì hì... :D Em chỉ có tội nhưng em không có lỗi đâu bác ơi! Thật vui khi em nhận được lisp của bác có tên lệnh HA !
Tình hình là công việc của em không liên quan đến vẽ nữa hơn một năm rồi. Trước kia em đã mắc nghiện diễn đàn, ngày nào cũng phải cập nhật thông tin mới một 2 lần.
Từ ngày bố mẹ em, cho em đi ở riêng, em mới cai nghiện được. Từ bữa chị Hà em, nhờ em đính chính câu đố đến nay em lại tái nghiện rồi! :rolleyes: Em đang bắt đầu cai nghiện dần dần từ hôm nay bác ạ, cũng là do hoàn cảnh công việc.

Nếu "thao tác lisp là chọn 2 đường thẳng nó sẽ vẽ 2 point và cho biết khoảng cách giữa hai điểm đánh số thứ tự P1- P1= 35 chẳng hạn. Nếu trên bản vẽ có nhiều đường chéo nhau thì bấm chọn liên tục nó sẽ đánh số thứ tự P2-P2 = ... , Pn-Pn= ..."sẽ tiện hơn.
Cơ mà thôi có lisp hiện tại của bác dùng cũng tốt đẹp rồi. Em cũng không có nhu cầu dùng nữa, chỉ vào đây thư giãn cho vui thôi bác ạ!
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#244 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 10 October 2012 - 08:47 PM

Thấy topic vắng vẻ lâu quá, hôm nay nhân tiện từ 1 câu hỏi ở topic khác, mở cửa lại topic này bằng 1 câu đố cho vui:
Hình vẽ là 1 Lwpolyline (màu trắng), bên trong nó là 2 line (màu đỏ).
Lisp dưới đây dùng để chọn các đối tượng nằm trong 1 Lwpolyline.
Hỏi: tại sao dùng lisp này thì không thể chọn được 2 line màu đỏ.
file cad: http://www.cadviet.c...7029_do_vui.dwg
file lisp:

(defun C:HA()
(sssetfirst nil (ssget "wp" (acet-geom-vertex-list (car (entsel "\n Chon Pline: "))))))
Hình đã gửi
  • 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.


#245 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 10 October 2012 - 10:22 PM

Thấy topic vắng vẻ lâu quá, hôm nay nhân tiện từ 1 câu hỏi ở topic khác, mở cửa lại topic này bằng 1 câu đố cho vui:
Hình vẽ là 1 Lwpolyline (màu trắng), bên trong nó là 2 line (màu đỏ).
Lisp dưới đây dùng để chọn các đối tượng nằm trong 1 Lwpolyline.
Hỏi: tại sao dùng lisp này thì không thể chọn được 2 line màu đỏ.
file cad: http://www.cadviet.c...7029_do_vui.dwg
file lisp:


(defun C:HA()
(sssetfirst nil (ssget "wp" (acet-geom-vertex-list (car (entsel "\n Chon Pline: "))))))

Cái này mình đã từng gặp rồi. Không những kiểu "wp" mà kiểu "cp" hay "f" cũng thế
Khi 2 điểm (trong list) bị trùng nhau (bất kì) thì không chọn được đối tượng
Cụ tỉ là cái Pline này có điểm đầu trùng điểm cuối (do viết bằng hàm acet-geom-vertex-list )
Loại bỏ 1 điểm trùng này là sẽ chọn được liền
  • 0

#246 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 10 October 2012 - 10:35 PM

Nếu điểm đầu của pline trùng với điểm cuối pline thì cũng có thể chọn đượ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.


#247 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 10 October 2012 - 10:41 PM

Thấy topic vắng vẻ lâu quá, hôm nay nhân tiện từ 1 câu hỏi ở topic khác, mở cửa lại topic này bằng 1 câu đố cho vui:
Hình vẽ là 1 Lwpolyline (màu trắng), bên trong nó là 2 line (màu đỏ).
Lisp dưới đây dùng để chọn các đối tượng nằm trong 1 Lwpolyline.
Hỏi: tại sao dùng lisp này thì không thể chọn được 2 line màu đỏ.
file cad: http://www.cadviet.c...7029_do_vui.dwg
file lisp:


(defun C:HA()
(sssetfirst nil (ssget "wp" (acet-geom-vertex-list (car (entsel "\n Chon Pline: "))))))


Yêu cầu của pt_list :

The pt_list variable cannot contain points that define zero-length segments.

Trong list có tọa độ (46.9972 28.3729 0.0) dup 2 lần, tối kỵ khi vẽ, nhưng người ta đã lỡ thì mình phải đỡ ^^

=> giải quyết : Loại bỏ thằng point trùng hoặc flatten đối tượng bao :)
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#248 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 10 October 2012 - 10:44 PM

Có thể mình nói chưa rõ, ý là Cái thằng trùng nhau mà liên tiếp vầy thì không chọn được

((47.7723 17.1523 0.0) (49.487 17.5466 0.0) (50.9959 18.4516 0.0)
(52.1514 19.7785 0.0) (52.8402 21.3975 0.0) (52.995 23.1501 0.0) (52.6007
24.8648 0.0) (51.6958 26.3738 0.0) (50.3689 27.5292 0.0) (48.7499 28.2181 0.0)
(46.9972 28.3729 0.0) (46.9972 28.3729 0.0) (45.2825 27.9786 0.0) (43.7736
27.0736 0.0) (42.6181 25.7467 0.0) (41.9293 24.1277 0.0) (41.7745 22.3751 0.0)
(42.1688 20.6604 0.0) (43.0737 19.1514 0.0) (44.4006 17.996 0.0) (46.0196
17.3071 0.0) (47.7723 17.1523 0.0) (47.7723 17.1523 0.0))

-> Hàm acet-geom-vertex-list trả điểm cuối trùng điểm đầu nên không chọn được
Cái yêu cầu này đã từng gặp ở đây rồi:
http://www.cadviet.c...showtopic=56782
  • 1

#249 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 10 October 2012 - 10:52 PM

Đúng là nếu có 1 cặp điểm mà điểm cuối đoạn trước trùng (equal fuzz thôi) điểm đầu đoạn sau thì có chuyện như đã nói ở trên. Xử thì loại bớt thôi. Kết thúc câu đố!
  • 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.


#250 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 October 2012 - 02:58 PM

Đố vui cuối tuần: 6 TILE dưới đây có tên là gì (VD: list_box, text, toggle...)?
Hình đã gửi
  • 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.


#251 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 12 October 2012 - 03:24 PM

Chưa hiểu ý bác cho lắm! Phải chẳng ko liên quan đến lisp? :D
  • 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


#252 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 October 2012 - 03:37 PM

À, tất nhiên có lisp mới gọi được, nhưng chỉ hỏi trong dialoge đó thì các tile từ 1-6 có tên lần lượt là gì thôi.
  • 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.


#253 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 12 October 2012 - 04:02 PM

Tile1 :boxed_column
Tile2 :button
Tile3 :button
Tile4 :boxed_row
Tile5 :button
Tile6 :button

Bài viết đã được chỉnh sửa nội dung bởi duy782006: 13 October 2012 - 08:36 PM

  • 1

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


#254 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 October 2012 - 04:05 PM

Bác Duy đúng 1 đáp án. Còn đáp án khác nữa!
  • 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.


#255 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 12 October 2012 - 05:02 PM

Bác Hà cho em chen ngang tí nhé!
Các bác bên Autolisp chơi vui quá, em chuyển đố vui AutoCAD sang đây, các bác thử viết lisp xem sao???
Xin mời các bác tiếp tục thư giãn!

Hình đã gửi
(Cho đường spline và đoạn thẳng line mầu xanh lá cây bên ngoài có tọa độ xem trong ảnh, hãy vẽ hai đường thẳng mầu xanh nước biển// và tiếp xúc với spline tại hai điểm như hình vẽ).
Các bác mở File bản vẽ của em ra kiểm tra thử bằng 2 cách :
- Gõ ID di chuột vào tiếp điểm, khi thấy hiện lên chữ Intersetction thì bấm chuột nó sẽ hiện ra tọa độ của tiếp điểm và nó chỉ có duy nhất một tiếp điểm mà thôi.
- Dùng lệnh trim, chọn đường spline rồi …sẽ biết nó đúng là tiếp điểm. File bản vẽ em đã dựng thử đây:
http://www.cadviet.c...678_dovuiha.dwg
Xin mời các bác giải đố cho vui!


  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#256 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 October 2012 - 05:07 PM

@Hoan: bạn đã khéo "lót tay" nhỉ! Cái này viết lisp thì không có gì khó khăn, chỉ khó khăn là không chính xác tuyệt đối được (chỉ gần đúng thôi).
Giờ về nhà cái đã, tối hẵng hay.
  • 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.


#257 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 12 October 2012 - 07:14 PM

Bác Duy đúng 1 đáp án. Còn đáp án khác nữa!


Tile1 :boxed_column
Tile2 :button
Tile3 :button
Tile4 :boxed_column
Tile5 :button
Tile6 :button

Đáp án này cũng được chẳng qua dưới cái đỏ đó phải thêm row nửa
  • 1

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


#258 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 October 2012 - 07:38 PM

Tất nhiên là như thế rồi. Nhưng ai lại làm rườm rà lên thế. Đáp án trước viết nhầm rồi nhé: row_column ?
  • 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.


#259 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 13 October 2012 - 10:21 AM

Câu đố ở bài #250, bác Duy mới chỉ đưa ra được 1 đáp án. Còn đáp án khác nữa. Ai rảnh thì mại dzô: tên của 6 tile đó là gì?
  • 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.


#260 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 13 October 2012 - 11:07 AM

@Hoan: bạn đã khéo "lót tay" nhỉ! Cái này viết lisp thì không có gì khó khăn, chỉ khó khăn là không chính xác tuyệt đối được (chỉ gần đúng thôi).
Giờ về nhà cái đã, tối hẵng hay.

Không phải là lót tay đâu bác ơi, em bù lỗ cho bác những hôm giá vàng tăng đột biến đó mà!
Sáng nay em mới ăn sáng được 1 bữa đã hết tiền rồi bác ạ! Nhìn cái món Tile4 :boxed_column hấp dẫn của bác Duy782006 em tò mò lắm, thèm ăn lắm, chỉ tiếc là hết tiền đành nhịn đói vậy.

Spam tí: mới sáng tinh mơ mà bạn Hoan2182 đã hết quyền vote. Tiêu xài phung phí cỡ đó hèn chi dạo này vàng tăng miết!

Về câu đố vẽ tiếp điểm //, chị Hà em nói là: Nếu câu đố vẽ đường spline khép kín thì chắc chắn là anh Tuệ sẽ có đáp án ngay, nên chị Hà em đã vòng vo Tam Quốc, vẽ cái spline như một mê lộ như thế....
Bác Hà thử xóa hai đường tiếp xúc với đường spline rồi vẽ lại xem sao? (Đây có thể gọi là gợi ý)
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...