Đế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
2848 replies to this topic

#1681 VoHoan

VoHoan

    biết lệnh move

  • Members
  • PipPipPip
  • 129 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 04 May 2013 - 02:43 PM

Vẫn không hiểu. Bạn có cho 1 ví dụ trực quan hơn, như lisp đang làm chẳng hạn.

Vì đang vướng đọan này nên chưa viết được lisp. Ý của mình là viết đoạn lisp như sau:

(defund lệnh (......)

     (................)

     (................)

  (while ĐK

         (.....A....)

         (.....B....)

         (.....C....)

  ) ; end while

 

    (................)

    (................)

)

 

Điều kiện của vòng lặp While là ENTER hoặc ESC đế thoát.


  • 0

#1682 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 04 May 2013 - 02:56 PM

1). Tôi có nói kèm image vào list_box đâu. Image là header rời mà.

2). Trong file lisp tôi đã gởi có 1 hàm cuối cùng để lấy pixel của ký tự, cày cái này được lúa đấy! Chữ nó nhạt và không chàng hảng đâu. Tôi thử rồi.

Ok thank bác. Duy dùng GetDclWidth với chuỗi cho ra độ dài. Dùng GetDclWidth với " " ra độ dài 1 khoảng trắng sau đó trừ và chia dùng cho repeat  kết quả tương đối ưng ý. Còn lăn tăn cái là quá trình fix và chia nó mất đi một chút sai số nên chưa có tăm tắp nhưng ngó cũng ok phết.

 

Post xong mới thấy bài trên của bác. Duy đi theo con đường khác nên chôm cái hàm GetDclWidth là áp dụng được rồi. Tại đống lisp dạo này Duy viết nó dính dây dính nhợ cả lô hàm con các kiểu nên khó khoe lên được.


  • 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


#1683 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 04 May 2013 - 03:06 PM

Ok thank bác. Duy dùng GetDclWidth với chuỗi cho ra độ dài. Dùng GetDclWidth với " " ra độ dài 1 khoảng trắng sau đó trừ và chia dùng cho repeat  kết quả tương đối ưng ý. Còn lăn tăn cái là quá trình fix và chia nó mất đi một chút sai số nên chưa có tăm tắp nhưng ngó cũng ok phết.

 

Post xong mới thấy bài trên của bác. Duy đi theo con đường khác nên chôm cái hàm GetDclWidth là áp dụng được rồi. Tại đống lisp dạo này Duy viết nó dính dây dính nhợ cả lô hàm con các kiểu nên khó khoe lên được.

Đỏ: test vài cú để thêm/bớt 1 cú " " là được thôi. Cái chia chẳn thì OK, còn cái chia lẻ thì hình như cắt phứt cái đuôi luôn, tức là lấy fix. Bác test nhiều nhiều rồi rút ra kết luận nhé!


  • 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.


#1684 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 04 May 2013 - 03:16 PM

Vì đang vướng đọan này nên chưa viết được lisp. Ý của mình là viết đoạn lisp như sau:

(defund lệnh (......)

     (................)

     (................)

  (while ĐK

         (.....A....)

         (.....B....)

         (.....C....)

  ) ; end while

 

    (................)

    (................)

)

 

Điều kiện của vòng lặp While là ENTER hoặc ESC đế thoát.

Enter thì phải dừng cả chương trình luôn chứ?

Enter mà chạy tiếp thì ngộ nhỡ E, F, lên quan tới A, B, C, trong khi A, B, C bị dừng rồi thì có thể gây lỗ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.


#1685 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 05 May 2013 - 01:21 PM


@ĐVH: hình tôi post đúng là win8 đấy. Chiều rộng các tile không chỉ fụ thuộc vào tham số width mà còn fụ thuộc vào các yếu tố khác: chiều rộng tổng thể của hộp thoại, tỷ lệ chiều rộng giữa các tile trong cùng hàng....

Phát hiện ra rồi: width của button phụ thuộc đời Cad (chưa thấy phụ thuộc đời Win), chứ nó chẳng phụ thuộc gì các thành phần khác đâu. Đem cái dialog của Thaistreetz test trên Cad2007 thì các button nó cũng bung ra thôi.

Phải mất 5 test trên 5 cad mới tìm được điều này.

Từ đó, các bạn nào hay viết các button cực nhỏ hãy cân nhắc để biết mà đề phòng!


  • 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.


#1686 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 05 May 2013 - 06:06 PM

Có thể đời cad cũng là một lý do mà trong trường hợp này bác gặp phải và mọi người cũng cần chú ý thêm, có thể hộp thoại của tôi cũng sẽ không còn chạy đúng vì nguyên nhân bác nêu (@Em Linh tét hộ a fát). Nhưng Tôi có đủ kinh nghiệm với DCL để chắc chắn về điều mình nói bác Hà ạ.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#1687 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 05 May 2013 - 09:58 PM

Có thể đời cad cũng là một lý do mà trong trường hợp này bác gặp phải và mọi người cũng cần chú ý thêm, có thể hộp thoại của tôi cũng sẽ không còn chạy đúng vì nguyên nhân bác nêu (@Em Linh tét hộ a fát). Nhưng Tôi có đủ kinh nghiệm với DCL để chắc chắn về điều mình nói bác Hà ạ.

Thế là mọi điều đã rõ trắng và đen! Khỏi bình luận gì thêm để khỏi nhạt CadViet hè?


  • 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.


#1688 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 06 May 2013 - 09:13 AM

1) Đã tét theo nhu cầu: Hộp thoại chương trình TKT của Thaistreetz chạy trên cad 2007 bị dãn "chàng hảng" luôn, xấu tàn xấu hại! KL: Điều bạn ĐVH khẳng định là 9 xác :D

2) Do bạn ĐVH có vẻ không phục với điều bạn Thaistreetz phán nên mình làm ví dụ minh hoạ để rõ trắng rõ đen. hi vọng bạn ĐVH không thấy ví dụ này là nhạt hè?

Bạn Thaistreetz có phán rằng:

Chiều rộng các tile không chỉ fụ thuộc vào tham số width mà còn fụ thuộc vào các yếu tố khác: chiều rộng tổng thể của hộp thoại, tỷ lệ chiều rộng giữa các tile trong cùng hàng....

Ví dụ 1: hộp thoại với 2 nút cố định chiều rộng là 5 và 10 đơn vị.

Ví dụ 2: là hộp thoại của ví dụ 1 nhưng thêm chiều rộng tổng thể cho hộp thoại, chiều rộng các nút kiểm tra giữ nguyên.

Ví dụ 3: Là hộp thoại của ví dụ 2 nhưng thay đổi tỷ lệ chiều rộng của 2 nút kiểm tra

test1 :  dialog {label = "Vi du 1";
: row {
: button {width = 5; label = "5";}
: button {width = 10; label = "10";}}
: button {key = "cancel"; width = 5; label = "Cancel"; is_cancel = true; }}

test2 :  dialog {label = "Vi du 2";
: row {width = 50;
: button {width = 5; label = "5";}
: button {width = 10; label = "10";}}
: button {key = "cancel"; width = 5; label = "Cancel"; is_cancel = true; }}

test3 :  dialog {label = "Vi du 3";
: row {width = 50;
: button {width = 5; label = "5";}
: button {width = 40; label = "10";}}
: button {key = "cancel"; width = 5; label = "Cancel"; is_cancel = true; }}

kết quả đây ạ: 

86046_vidu_button.jpg

KL: Thaistreetz phán cũng 9 xác, bạn ĐVH nợ Thaistreetz 1 nút màu xanh  :D

 

KL chung: DCL thật là vừa xấu xí vừa đỏng đảnh :D


  • 0

#1689 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 06 May 2013 - 09:20 AM

Duy thì hộp thoại thường cho độ rộng các thứ bằng không. Máy cơ quan và máy nhà cùng winxp, cad2007.

Máy cơ quan thì đẹp.

Máy nhà ngang phè.

Khác nhau 1 cáu là máy cơ quan màn hình đèn cong cong hồi xưa. Máy nhà màn hình eo xê đê.

 

kết luận. kệ con bà nó. he he.


  • 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


#1690 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 06 May 2013 - 09:49 AM

1) Đã tét theo nhu cầu: Hộp thoại chương trình TKT của Thaistreetz chạy trên cad 2007 bị dãn "chàng hảng" luôn, xấu tàn xấu hại! KL: Điều bạn ĐVH khẳng định là 9 xác :D

2) Do bạn ĐVH có vẻ không phục với điều bạn Thaistreetz phán nên mình làm ví dụ minh hoạ để rõ trắng rõ đen. hi vọng bạn ĐVH không thấy ví dụ này là nhạt hè?

Bạn Thaistreetz có phán rằng:

Ví dụ 1: hộp thoại với 2 nút cố định chiều rộng là 5 và 10 đơn vị.

Ví dụ 2: là hộp thoại của ví dụ 1 nhưng thêm chiều rộng tổng thể cho hộp thoại, chiều rộng các nút kiểm tra giữ nguyên.

Ví dụ 3: Là hộp thoại của ví dụ 2 nhưng thay đổi tỷ lệ chiều rộng của 2 nút kiểm tra

test1 :  dialog {label = "Vi du 1";
: row {
: button {width = 5; label = "5";}
: button {width = 10; label = "10";}}
: button {key = "cancel"; width = 5; label = "Cancel"; is_cancel = true; }}

test2 :  dialog {label = "Vi du 2";
: row {width = 50;
: button {width = 5; label = "5";}
: button {width = 10; label = "10";}}
: button {key = "cancel"; width = 5; label = "Cancel"; is_cancel = true; }}

test3 :  dialog {label = "Vi du 3";
: row {width = 50;
: button {width = 5; label = "5";}
: button {width = 40; label = "10";}}
: button {key = "cancel"; width = 5; label = "Cancel"; is_cancel = true; }}

kết quả đây ạ: 

86046_vidu_button.jpg

KL: Thaistreetz phán cũng 9 xác, bạn ĐVH nợ Thaistreetz 1 nút màu xanh  :D

 

KL chung: DCL thật là vừa xấu xí vừa đỏng đảnh :D

1).  Có lẽ do câu hỏi vượt qua quá nhiều comment rồi nên không trở về đúng bản chất của nó. Bản chất câu hỏi của tôi lúc đầu là làm cách gì để width của button gọn gàng chứ không chàng hảng.

2). Cho button rộng mênh mông bát ngát thì không đến nỗi phải đặt câu hỏi. Và không cần quăng thằng fixed ra khỏi dialog để minh chứng.

3). Thống nhất: DCL là thứ quỷ sứ mà buộc chúng ta phải sống chung với nó cho đến chừng nào thằng desk ra tay.


  • 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.


#1691 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 06 May 2013 - 10:37 AM

2) Ví dụ 2 bạn ĐVH ơi! Mình không hề cho button rộng mênh mông bát ngát mà vẫn giữ nguyên đấy chứ. Button nó tự động thay đổi kích thước cho vừa hộp thoại. Điều đó có nghĩa là nếu hộp thoại của bạn có thêm các tile khác làm cho hộp thoại nở rộng ra thì các button sẽ bị ảnh hưởng.

Mình vừa thử lại trên máy đồng nghiệp, cũng Cad 2007 và kết quả lại được thế này

86046_may3.jpg

Như vậy Cad 2007 không phải là lý do như bạn khẳng định rồi.


  • 0

#1692 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 May 2013 - 11:36 AM

Vote bác Duy :) Không như quần áo, hình thức là cái cuối cùng cần quan tâm ^^


  • 0

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


#1693 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 06 May 2013 - 11:47 AM

Nếu quả thực như vậy thì mình bó tay. Cái mình đưa lên là cái mình đã test và nhờ test. Xin tổng hợp lại để thấy nó vừa đúng vừa sai:

1). DVH test:

 - Win8, Cad2007: rộng.

 - Win7, Cad2007: rộng.

 - Win7, Cad2013: hẹp.

2). Thai test:

 - Win8, Cad????: hẹp.

3). Duy test:

 - WinXP, Cad2007: rộng (máy ở cơ quan).

 - WinXP, Cad2007: hẹp (máy ở nhà).

4). TL test:

 - WinXP, Cad2010: hẹp.

 - Win??, Cad2007: hẹp.

5). Tue test:

 - Win??, Cad2008: rộng.

 - Win??, Cad2012: hẹp.

>> 5 rộng và 6 hẹp >> (gần 50/50). Rất có thể là do chúng ta dùng các bản crack khác nhau chăng?

Vậy thì có lẽ:

- Nếu viết cho mỗi mình ta dùng thì thích chi mần nấy.

- Nếu viết cho cộng đồng dùng thì nên để fixed và bỏ width cho nó lành nhỉ?

@Ket: nếu đặt chữ "kệ" làm nền tảng thì buồn nhỉ!


  • 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.


#1694 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 06 May 2013 - 03:29 PM

không phải do crack đâu. 2 lần mình test cùng là XP và Cad 2007. máy mình thì hỏng, máy đồng nghiệp không việc gì. Phần cứng máy như nhau, cùng bộ cài cad 2007 từ 1 máy chủ. thêm 1 lần test trên máy mình cad 2010 thì không việc gì. Có trời mới hiểu được cái sự đỏng đảnh này của DCL

 

Các bạn cho mình hỏi: ảnh động trong link này được tạo ra từ phần mềm gì nhỉ

http://lee-mac.com/assoctextbox.html


  • 0

#1695 Song Nhi

Song Nhi

    biết vẽ rectang

  • Members
  • PipPip
  • 83 Bài viết
Điểm đánh giá: 52 (tàm tạm)

Đã gửi 11 May 2013 - 01:36 AM

Các bạn cho mình hỏi: ảnh động trong link này được tạo ra từ phần mềm gì nhỉ
http://lee-mac.com/assoctextbox.html

 
Không biết chính xác tác giả đã tạo ra ntn?!!
Em có cách này, không biết là có ngu ngốc quá không?!
Trước tiên vẫn dùng GIFCAM (như Chị đã hướng dẫn hôm trước) hoặc cũng có thể dùng các phần mềm khác, tuỳ hỷ (vd: Camtasia Recoder v.v...).
Sau đây là một ví dụ nhỏ cho vòng tròn chứa chữ Circle, chúng ta sẽ chạy "LISP" sau và quay lại một phần màn hình (*)

(defun C:SN() ;; Song Nhi
(setq osd (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "_zoom" "e" "")
(command "-layer" "M" "TRON" "C" "1" "" "")
(setvar "cecolor" "bylayer")
(command "_circle" "3.0,3.0" 1)
(command "-layer" "M" "TEXT" "C" "2" "" "")
(setvar "cecolor" "bylayer")
(command "style" "Standard" "simplex.shx,bigfont.shx" "0.4" "0.8" "" "" "" "")
(command "_text" "j" "mc" "3.0,3.0" "" "Circle")
(command "-layer" "M" "PICK" "C" "4" "" "")
(setvar "cecolor" "bylayer")
(command "_line" "1.0,1.0" "1.1,1.0" "1.1,1.1" "1.0,1.1" "c")
(command "-layer" "M" "LINE" "C" "4" "" "")
(setvar "cecolor" "bylayer")
(command "_line" "0.55,1.05" "1.55,1.05" "")
(command "_line" "1.05,0.55" "1.05,1.55" "")
(waste 5)
(setq ss1 (ssget "x" '((0 . "LINE"))))
(command "_move" ss1 "" "1.05,1.05" "2.70,2.90")
(command "-layer" "M" "POIN" "C" "3" "" "")
(setvar "cecolor" "bylayer")
(command "_solid" "2.95,2.95" "3.05,2.95" "2.95,3.05" "3.05,3.05" "" "")
(command "_solid" "2.30,2.75" "2.40,2.75" "2.30,2.85" "2.40,2.85" "" "")
(waste 5)
(setq ss2 (ssget "x" '((8 . "PICK"))))
(setq ss3 (ssget "x" '((8 . "POIN"))))
(command "_erase" ss2 "") (command "_erase" ss3 "")
(waste 1)
(setq ss4 (ssget "x" '((8 . "LINE"))))
(setq ss5 (ssget "x" '((8 . "TEXT"))))
(waste 1)
(command "-layer" "M" "GION" "C" "9" "" "")
(command "_move" ss4 "" "3.0,3.0" "5.0,1.5")
(command "_layer" "s" "GION" "") (setvar "cecolor" "bylayer")
(command "_line" "2.70,2.90" "4.70,1.40" "")
(command "_move" ss5 "" "3.0,3.0" "5.0,1.5")
(waste 1)
(setq ss6 (ssget "x" '((8 . "GION"))))
(command "_erase" ss6 "")
(command "_move" ss4 "" "5.0,1.5" "7.0,3.0")
(command "_layer" "s" "GION" "") (setvar "cecolor" "bylayer")
(command "_line" "5.0,1.5" "7.0,3.0" "")
(command "_move" ss5 "" "5.0,1.5" "7.0,3.0")
(setq ss7 (ssget "x" '((8 . "TRON"))))
(command "_erase" ss7 "")
(command "_layer" "s" "TRON" "") (setvar "cecolor" "bylayer")
(command "_circle" "5.0,1.5" 1)
(waste 1)
(setq ss8 (ssget "x" '((8 . "GION"))))
(command "_erase" ss8 "")
(command "-layer" "M" "PICK" "C" "4" "" "")
(setvar "cecolor" "bylayer")
(command "_line" "6.65,2.85" "6.75,2.85" "6.75,2.95" "6.65,2.95" "c")
(waste 1)
(setq ss9 (ssget "x" '((8 . "TRON"))))
(command "_erase" ss9 "")
(command "_layer" "s" "TRON" "") (setvar "cecolor" "bylayer")
(command "_circle" "7.0,3.0" 1)
(setvar "osmode" osd)
(setvar "cmdecho" 1))
;;; Ham con ;;;
(defun abc() (setvar "cmdecho" 0)
(COMMAND "LAYER" "M" "TIM" "C" "8" "" "L" "DASHDOT" "" "")
(COMMAND "LAYER" "M" "KHUAT" "C" "9" "" "L" "HIDDEN" "" "")
(COMMAND "LAYER" "M" "Text" "C" "11" "" "")
(COMMAND "LAYER" "M" "Ghichu" "C" "2" "" "")
(COMMAND "LAYER" "M" "1" "C" "2" "" "")
(COMMAND "LAYER" "M" "dim" "C" "2" "" "")
(COMMAND "LAYER" "M" "thep" "C" "6" "" "")
(COMMAND "LAYER" "M" "dai" "C" "1" "" "")
(COMMAND "LAYER" "M" "0" "C" "7" "" "")
(COMMAND "LAYER" "M" "hatch" "C" "251" "" "")
(COMMAND "LAYER" "M" "Bao chinh" "C" "4" "" "")
(setvar "cmdecho" 1))
(defun cba() (setvar "cmdecho" 0)
(command "_layer" "s" "0" "") (setvar "cecolor" "bylayer")
(command "_purge" "all" "*" "n"))
(defun waste(n / ) (setq i 0)
(While (<= i n) (abc) (cba) (setq i (+ i 1))))

P/S:
1. (*) Quay lại trong khung chữ nhật từ (-0.65;-1.15) đến (9.50;5.50), căn cứ theo LISP trên.
2. Em không biết làm sao kéo dài thời gian giữa một số bước để đảm bảo Video có thể "lưu ảnh" (24hình/s). Em mượn đại LISP tạo Layer của bạn cd2k44 để tạo một hàm nhằm mục đích làm hao phí thời gian, giả sử mỗi chu kỳ của vòng lặp là 1s (chỉ là giả sử thôi nhé!). Nếu cần dừng 2s ta viết (waste 2), ví dụ vậy ...
3. Đối với 2 hình còn lại cũng làm bằng cách tương tự được - nhưng khó quá, hi, không phải khó mà thấy làm theo cách này vô ích và sao sao đó ...
4. Đây xem như một chuyện cười - khôi hài, để anh chị em ta relax - các bác Mod nếu thấy em post "truyện" nhầm chổ thì del nhé! Cái mặt xấu hổ nằm đâu rùi ta?!  :P   
5. Bác nào biết cách kéo dài thời gian giữa 2 bước nào đó trong LISP một cách chính xác và kinh điển làm ơn chỉ cho em với? Cám ơn các Bác!

 

Kết quả hình đây, quay không rõ lắm, với lại không hiểu sao nó không nhận mầu xanh lá (green)?!!

118347_song_nhi.gif


  • 0

#1696 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 11 May 2013 - 06:29 AM

5. Bác nào biết cách kéo dài thời gian giữa 2 bước nào đó trong LISP một cách chính xác và kinh điển làm ơn chỉ cho em với? Cám ơn các Bác!

 

Kết quả hình đây, quay không rõ lắm, với lại không hiểu sao nó không nhận mầu xanh lá (green)?!!

118347_song_nhi.gif

 

Bạn dùng Command "delay" mà kéo dài. Chú ý "thời gian kéo dài "  trong lệnh Delay là milliseconds

(defun waste(n) (Command "delay" n))


  • 0

#1697 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 11 May 2013 - 08:52 AM

Sao lại phải rắc rối như vậy nhỉ? GifCam - Cái tên chương trình đã nói đủ ý nó làm việc gì rồi mà bạn.

Trên đây là giao diện chính của chương trình.

- Khung màu đỏ là khung ghi hình, bạn có thể di chuyển chương trình hoặc kéo rộng các cạch, các góc của chương trình để xác định vị trí, kích thước của khung ghi hình

- Bấm Rec để bắt đầu ghi hình

- Di chuyển chuột vào khung ghi hình và làm các công việc mà bạn muốn ghi

- Bấm save để kết thúc ghi hình và lưu toàn bộ quá trình đó thành GIF. Đơn giản thế thôi

Mình đã thử khoảng gần 10 chương trình chụp hình hoặc quay phim màn hình, nhưng để ra 1 file Gif động thì đây là chương trình đơn giản và dễ dùng nhất rồi bạn ạ. Đây cũng là chương trình duy nhất có thể ghi hình và xuất thẳng ra GIF động luôn.

 

@Tue_NV: Mình góp ý có gì không phải bạn đừng giân nhé: Vì sao bạn lại duy trì thói quen trích dẫn bài của người khác khi trả lời họ vậy? cho dù là bài của họ có ở ngay phía trên bài của bạn và có thể bài của họ viết rất dài. Đọc rối mắt lắm bạn à, mệt mỏi vì kéo chuột nữa. Mình cho rằng chỉ cần trích dẫn nếu bài của họ ở quá xa, khác trang hoặc trích dẫn 1 ý nào đó của họ để trả lời cho ý đó là được rồi. Nếu bài của họ cách 1 vài bài khác thì chỉ cần nháy @ là họ hiểu và mọi người cũng hiểu mà.


  • 0

#1698 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 11 May 2013 - 10:02 AM

Tue_NV: Mình góp ý có gì không phải bạn đừng giân nhé: Vì sao bạn lại duy trì thói quen trích dẫn bài của người khác khi trả lời họ vậy? cho dù là bài của họ có ở ngay phía trên bài của bạn và có thể bài của họ viết rất dài. Đọc rối mắt lắm bạn à, mệt mỏi vì kéo chuột nữa. Mình cho rằng chỉ cần trích dẫn nếu bài của họ ở quá xa, khác trang hoặc trích dẫn 1 ý nào đó của họ để trả lời cho ý đó là được rồi. Nếu bài của họ cách 1 vài bài khác thì chỉ cần nháy @ là họ hiểu và mọi người cũng hiểu mà.

 

Mình trích dẫn 1 ý của bạn ấy đó chứ

Góp ý với bạn : Những bài viết kiểu này nên đưa vào tin nhắn cá nhân, không nên viết ở đây nhé.......


  • 0

#1699 Song Nhi

Song Nhi

    biết vẽ rectang

  • Members
  • PipPip
  • 83 Bài viết
Điểm đánh giá: 52 (tàm tạm)

Đã gửi 28 May 2013 - 10:09 PM

Các Bác làm ơn hướng dẫn em vấn đề này:
Trong bản vẽ đang có rất nhiều hình chữ nhật (HCN) (được vẽ bằng lệnh RECtangle, dạng đường polyline), các Bác viết giúp em yêu cầu sau:
 
Gọi lệnh >> Yêu cầu chọn một HCN làm mẫu, pick chọn một HCN có sẵn trong bản vẽ.
              >> Xuất ra list toạ độ điểm Bottom Left của tất cả các HCN: "cùng kích thước & layer" với HCN mẫu (đã chọn), kể cả nó, trong toàn bản vẽ.
              >> Sắp xếp list toạ độ xuất ra theo trật tự: từ "TRÁI qua PHẢI & TRÊN xuống DƯỚI"
 
P/S: Các HCN trong bản vẽ đều có các cạnh song song với hệ trục tọa độ, không xét trường hợp "cùng kích thước & layer" nhưng khác góc xoay!
Cám ơn các Bác đã quan tâm đến vấn đề của em!


  • 0

#1700 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 28 May 2013 - 10:16 PM

Bạn viết lisp được thì vấn đề này đâu khó lắm đâu. Tôi đề nghị: hay bạn cứ viết, rồi vướng đâu hỏi đó nhỉ?

Với lại, nếu nhờ viết lisp thì mở topic mới, chứ ai lại ghi lên đây nó loãng chứ hè!


  • 2

* 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.