Đế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

#1081 hugo007

hugo007

    biết lệnh erase

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

Đã gửi 28 February 2012 - 05:54 PM

Sao đánh ktd nó báo không có lệnh này nhỉ?Lúc đầu mình nghĩ cũng do chưa có font nhưng khi sử dụng ở nhà thì không sao,vào cty thì không được mặc dù máy ở cty và ở nhà cài font cùng 1 loại.
PS Ha:Mình hết quyền like nên không nhấn cho bạn được.Mai mình bù nha.
  • 0

#1082 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 February 2012 - 06:17 PM

Ừ! Do mình chưa kiểm tra máy có Font đó hay không mà
Đây là đoạn kiểm tra máy tính của bạn có Font hay không?



(defun ktrafont (font)
;;;write by Tue_NV
(vl-cmdf "style" "dimstyle" font)
(if (/= (getvar "cmdactive") 0)
(progn
(command "0" "1" "0" "n" "n")
(alert (strcat "Ten " font "co trong may tinh cua ban"))
)
(alert (strcat "Ten " font "khong co trong may tinh cua ban"))
)
)
Bạn DVH kiểm tra lại xem
Lisp chạy trên máy của mình đã tồn tại Font


Command: ktd style Enter name of text style or [?] <Standard>: dimstyle
New style.
Specify full font name or font filename (TTF or SHX) <txt>: VHELVCN.TTF Specify
height of text or [Annotative] <0.0000>: 0 Specify width factor <1.0000>: 1
Specify obliquing angle <0>: 0 Display text backwards? [Yes/No] <No>: n Display
text upside-down? [Yes/No] <No>: n
"dimstyle" is now the current text style.

Chà! Cái này chưa hiểu nguyên nhân nhưng nó thế này:
1). Fontfile "VHELVCN.TTF" là 100% có trong Cad.
2). Fontfile "VHELVCN_0.TTF" là không có trong Cad.
3). Kiểm tra font theo hàm ktrafont thì 1) là không có, 2) là có.
4). Nên dùng 1) thì lỗi, dùng 2) thì OK.
Bạn nào kiểm tra giùm vớ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.


#1083 hugo007

hugo007

    biết lệnh erase

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

Đã gửi 29 February 2012 - 03:10 PM

Ừ! Do mình chưa kiểm tra máy có Font đó hay không mà
Đây là đoạn kiểm tra máy tính của bạn có Font hay không?



(defun ktrafont (font)
;;;write by Tue_NV
(vl-cmdf "style" "dimstyle" font)
(if (/= (getvar "cmdactive") 0)
(progn
(command "0" "1" "0" "n" "n")
(alert (strcat "Ten " font "co trong may tinh cua ban"))
)
(alert (strcat "Ten " font "khong co trong may tinh cua ban"))
)
)
Bạn DVH kiểm tra lại xem
Lisp chạy trên máy của mình đã tồn tại Font


Command: ktd style Enter name of text style or [?] <Standard>: dimstyle
New style.
Specify full font name or font filename (TTF or SHX) <txt>: VHELVCN.TTF Specify
height of text or [Annotative] <0.0000>: 0 Specify width factor <1.0000>: 1
Specify obliquing angle <0>: 0 Display text backwards? [Yes/No] <No>: n Display
text upside-down? [Yes/No] <No>: n
"dimstyle" is now the current text style.

Bạn TUE_NV ơi?sao mình tải font VHELVCN.TTF về chép vào font của cad và win luôn rồi mà nó vẫn báo lỗi như thế?Cảm ơn bạn nhiều?
  • 0

#1084 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 29 February 2012 - 03:32 PM

Bạn TUE_NV ơi?sao mình tải font VHELVCN.TTF về chép vào font của cad và win luôn rồi mà nó vẫn báo lỗi như thế?Cảm ơn bạn nhiều?

Hugo007 thử đổi thành "VHELVCN_0.TTF" xem có lỗi không. Tôi cũng có font "VHELVCN.TTF" nhưng vẫn lỗi. Sửa lại "VHELVCN_0.TTF" thì không lỗi, nhưng chưa tìm ra nguyên nhân vì sao.
  • 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.


#1085 hugo007

hugo007

    biết lệnh erase

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

Đã gửi 29 February 2012 - 04:37 PM

Hugo007 thử đổi thành "VHELVCN_0.TTF" xem có lỗi không. Tôi cũng có font "VHELVCN_0.TTF" nhưng vẫn lỗi. Sửa lại "VHELVCN_0.TTF" thì không lỗi, nhưng chưa tìm ra nguyên nhân vì sao.

Cảm ơn Ha nhe,đúng là đổi lại thì được.Không hiểu tại sao nhỉ?
  • 0

#1086 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 02 March 2012 - 11:40 PM

mình tạo 1 annotative style bằng hàm entmake như sau:
(defun makestyle:20-arial-t nil
(entmakex '((0 . "STYLE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbTextStyleTableRecord")
(2 . "2.0Arial")(70 . 0)(40 . 0.002)(41 . 1.0)(50 . 0.0)(71 . 0)(42 . 0.002)(3 . "VNARIAL.ttf")(4 . "")
(-3 ("ACAD" (1000 . ".VnArial") (1071 . 34)) ("AcadAnnotative" (1000 . "AnnotativeData")(1002 . "{")(1070 . 1)(1070 . 1)(1002 . "}"))))))

Tuy nhiên nó chỉ chạy trơn chu trên bản vẽ được khởi tạo bằng các bản cad có hỗ trợ chức năng này. (2008 trở lên)
Với các bản vẽ được khởi tạo bằng cad đời thấp, đem mở bằng cad đời cao và chạy hàm trên thì nó không chịu nhả ra kết quả. Mình bắt buộc fải tạo ra 1 đối tượng nào đó có gắn annotative (bằng command) thì từ đó hàm trên mới chạy được.

=> KL: Các bản cad đời cao đã không tự động tải 1 thông tin gì đó liên quan đến annotative object khi mở các bản cad không fải do nó tạo ra. Thông tin đó chỉ được tải vào bản vẽ khi lần đầu tiên có 1 đối tượng annotative được tạo.

Có bác nào vấp phải vấn đề này chưa? Thông tin bị thiếu liên quan đến annotative là gì? làm thế nào để nó tự động tải khi mờ các bản vẽ của cad đời thấp.
Ps: mình kiểm tra các arx đã được tải vào bản vẽ, trước và sau khi chạy được hàm trên là như nhau nên có thể loại trừ nguyên nhân này.
  • 1

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


#1087 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 07 March 2012 - 05:51 PM

Đã tìm ra nguyên nhân:
- Các đối tượng anotative được gắn dữ liệu mở rộng Xdata để phân biệt với các đối tượng bình thường. Chuỗi xác định 1 đối tương anotative là "AcadAnnotative".

- Giống như mọi đối tượng có chứa xdata khác. thông tin về kiểu của nó cần phải được khai báo vào cơ sở dữ liệu của bản vẽ. việc khai báo này được thực hiện thông qua hàm (regapp application) với đối số application là chuỗi xác định kiểu xdata.
ví dụ với các đối tượng của chương trình thiết kế đường Nova tạo ra, nó đăng ký kiểu là "TDNW". Bạn có thể tự tạo cho mình 1 kiểu xdata khi viết phần mềm để phân biệt với các đối tượng của chương trình khác bằng cách này (regapp "TenChuongTrinhCuaBan")

- Ở trường hợp trên thì chỉ cần cho hàm (regapp "AcadAnnotative") tự động thực thi khi mở bản vẽ là được. nếu "AcadAnnotative" đã được khai báo rồi nó trả về nil.
  • 1

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


#1088 toanmda

toanmda

    biết zoom

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

Đã gửi 12 March 2012 - 03:44 PM

http://www.cadviet.c...3/5527_aisc.zip
Nhờ ace chỉ giúp, mình sai ở đâu, mình sử dụng AutoCad 2009.
Trong file đính kèm có 3 file AISC.DCL, AISC.lsp, H-Member.dat
khi chạy lisp, lệnh AISC thì hộp thoại xuất hiện như hình, nhưng popup_list không có dữ liệu được load vào
Hình đã gửi
  • 0

#1089 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 12 March 2012 - 04:14 PM

http://www.cadviet.c...3/5527_aisc.zip
Nhờ ace chỉ giúp, mình sai ở đâu, mình sử dụng AutoCad 2009.
Trong file đính kèm có 3 file AISC.DCL, AISC.lsp, H-Member.dat
khi chạy lisp, lệnh AISC thì hộp thoại xuất hiện như hình, nhưng popup_list không có dữ liệu được load vào
Hình đã gửi

Bạn phải thêm dòng (set_list) vào trên dòng (action_tile "Mark" "(set_list)")
  • 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.


#1090 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 12 March 2012 - 04:22 PM


http://www.cadviet.c...3/5527_aisc.zip
Nhờ ace chỉ giúp, mình sai ở đâu, mình sử dụng AutoCad 2009.
Trong file đính kèm có 3 file AISC.DCL, AISC.lsp, H-Member.dat
khi chạy lisp, lệnh AISC thì hộp thoại xuất hiện như hình, nhưng popup_list không có dữ liệu được load vào
Hình đã gửi

Hề hề hề,
Theo thiển ý của mình sở dĩ cai popup list chả có thằng cu con nào ấy là do cái thằng (read-line f) nó hơi dốt nên không hiểu dược cái file H-Member.dat của bạn thui.
Theo help developer thì thằng read-line chỉ có thể Reads a string from the keyboard or from an open file, until an end-of-line marker is encountered .
Rất có thể do cái duôi .dat mà thằng read-line nó điếc nên bạn thử lưu lại file này thành file .Txt xem sao.
Hy vọng bắt đúng bênh của bạn.
Chúc bạn thành công.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1091 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 12 March 2012 - 04:25 PM

Hề hề hề,
Theo thiển ý của mình sở dĩ cai popup list chả có thằng cu con nào ấy là do cái thằng (read-line f) nó hơi dốt nên không hiểu dược cái file H-Member.dat của bạn thui.
Theo help developer thì thằng read-line chỉ có thể Reads a string from the keyboard or from an open file, until an end-of-line marker is encountered .
Rất có thể do cái duôi .dat mà thằng read-line nó điếc nên bạn thử lưu lại file này thành file .Txt xem sao.
Hy vọng bắt đúng bênh của bạn.
Chúc bạn thành công.

Nó đọc được bác PTB ạ!
  • 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.


#1092 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 12 March 2012 - 04:38 PM

Hề hề hề,
Theo thiển ý của mình sở dĩ cai popup list chả có thằng cu con nào ấy là do cái thằng (read-line f) nó hơi dốt nên không hiểu dược cái file H-Member.dat của bạn thui.
Theo help developer thì thằng read-line chỉ có thể Reads a string from the keyboard or from an open file, until an end-of-line marker is encountered .
Rất có thể do cái duôi .dat mà thằng read-line nó điếc nên bạn thử lưu lại file này thành file .Txt xem sao.
Hy vọng bắt đúng bênh của bạn.
Chúc bạn thành công.

Hề hề, bác Bình bắt bệnh .... "trật lất" :D
Bạn toanmda chưa (set_list) cho key "Mark" thì hành động (action_tile "Mark" "(set_list)") không có nghĩa gì cả

Ngoài ra các từ khóa trong DCL bạn toanmda cũng viết không đúng
Ví dụ : true không phải là True
Mình cũng không hiểu sao CAD vẫn không lỗi khi viết không đúng từ khóa
  • 2

#1093 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 12 March 2012 - 04:45 PM

Bác Tue_NV với bác DVH nói đúng. phải gán cho cái key "Mark" 1 hành động nó mới có ý nghĩa.
Bạn gán cho nó cái (set_list) nên mỗi lần ấn thì thấy nó vẫn thế.
VD: Mỗi lần tác động vày key Mark thì nó in ra màn hình chữ "abc"
(defun set_list ()
(start_list "Mark")
(foreach x lstdata (add_list (car x)))
(end_list)
)

(defun split (str delim / lst i)
(while (setq i (vl-string-search delim str))
(setq lst (cons (substr str 1 i) lst)
str (substr str (+ 2 i)))
)
(setq lst (cons str lst))
(reverse lst)
)

(defun getdata ()
(setq f (open (findfile "H-Member.dat") "r") lstData nil)
(while (setq Line (read-line f))
(setq data (split Line "\t"))
(setq lstData (cons data lstData))
)
(setq lstData (vl-remove '("") (reverse lstData)))
)

(defun c:AISC (/ sublist lstdata data)
(vl-load-com)
(getdata)
(setq dcl_id (load_dialog "AISC.dcl")) ; Load the DCL file.
(if (not (new_dialog "AISC" dcl_id)) ; Initialize the dialog.
(exit) ; Exit if this doesn't
)
(set_list)
(action_tile "Mark" "(pickMark)")
(start_dialog)
(unload_dialog dcl_id)
)
(defun pickMark ()
(print "abc")
)

  • 1

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#1094 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 12 March 2012 - 05:05 PM

Ngoài ra các từ khóa trong DCL bạn toanmda cũng viết không đúng
Ví dụ : true không phải là True
Mình cũng không hiểu sao CAD vẫn không lỗi khi viết không đúng từ khóa

Chỉ có key mới phải cần viết đúng chữ hoa và thường chứ 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.


#1095 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 12 March 2012 - 05:14 PM

Chỉ có key mới phải cần viết đúng chữ hoa và thường chứ nhỉ?

Có thể bạn nói đúng, và có thể là viết trật từ khóa thì không lỗi, nhưng định dạng sẽ không đúng, ví dụ canh lề chẳng hạn......
Và tốt nhất là viết đúng từ khóa :lol:
Mình bị mấy lần cái vụ chữ Hoa/ chữ thường trong DCL rồi, nên mình thường soạn thảo (có thể Copy/paste) trong VLISP editor
Từ khóa thì phân biệt bằng chữ màu xanh lá.
Bạn viết trật hoặc chữ hoa/thường hoặc không đúng từ khóa thì chữ sẽ là màu đen liền
Rất tiện sử dụng, quan sát DCL, soạn thảo DCL phải nói là rất tiện ích
Thân!
  • 1

#1096 toanmda

toanmda

    biết zoom

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

Đã gửi 13 March 2012 - 09:12 AM

Bác Tue_NV với bác DVH nói đúng. phải gán cho cái key "Mark" 1 hành động nó mới có ý nghĩa.
Bạn gán cho nó cái (set_list) nên mỗi lần ấn thì thấy nó vẫn thế.
VD: Mỗi lần tác động vày key Mark thì nó in ra màn hình chữ "abc"

(defun set_list ()
(start_list "Mark")
(foreach x lstdata (add_list (car x)))
(end_list)
)

(defun split (str delim / lst i)
(while (setq i (vl-string-search delim str))
(setq lst (cons (substr str 1 i) lst)
str (substr str (+ 2 i)))
)
(setq lst (cons str lst))
(reverse lst)
)

(defun getdata ()
(setq f (open (findfile "H-Member.dat") "r") lstData nil)
(while (setq Line (read-line f))
(setq data (split Line "\t"))
(setq lstData (cons data lstData))
)
(setq lstData (vl-remove '("") (reverse lstData)))
)

(defun c:AISC (/ sublist lstdata data)
(vl-load-com)
(getdata)
(setq dcl_id (load_dialog "AISC.dcl")) ; Load the DCL file.
(if (not (new_dialog "AISC" dcl_id)) ; Initialize the dialog.
(exit) ; Exit if this doesn't
)
(set_list)
(action_tile "Mark" "(pickMark)")
(start_dialog)
(unload_dialog dcl_id)
)
(defun pickMark ()
(print "abc")
)

Cám ơn các bác chỉ bảo, đúng là còn thiếu một hành động.



Hề hề hề,
Theo thiển ý của mình sở dĩ cai popup list chả có thằng cu con nào ấy là do cái thằng (read-line f) nó hơi dốt nên không hiểu dược cái file H-Member.dat của bạn thui.
Theo help developer thì thằng read-line chỉ có thể Reads a string from the keyboard or from an open file, until an end-of-line marker is encountered .
Rất có thể do cái duôi .dat mà thằng read-line nó điếc nên bạn thử lưu lại file này thành file .Txt xem sao.
Hy vọng bắt đúng bênh của bạn.
Chúc bạn thành công.

Mình thử với các file như .dat, .txt, .j77, .... hàm read-line vẫn đọc được. Theo mình thì những file có thể mở và đọc bằng note hay notepad thì vẫn dùng được read-line.
  • 1

#1097 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 13 March 2012 - 09:37 AM

Cám ơn các bác chỉ bảo, đúng là còn thiếu một hành động.
Mình thử với các file như .dat, .txt, .j77, .... hàm read-line vẫn đọc được. Theo mình thì những file có thể mở và đọc bằng note hay notepad thì vẫn dùng được read-line.

Đọc ngon :)
Code của bạn nhìn khá quen ^^
  • 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


#1098 toanmda

toanmda

    biết zoom

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

Đã gửi 13 March 2012 - 09:51 AM

Đọc ngon :)
Code của bạn nhìn khá quen ^^

Nhớ có lần nhờ Ketxu & tue_vn rồi, vẫn giữ cái code đó. :)
  • 0

#1099 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 14 March 2012 - 11:36 AM

Lisp dưới đây dùng để hứng tập hợp chọn được sinh ra bởi lệnh copy. Tôi thêm hàm acet vào để trở thành hứng của lệnh move thì bị lỗi. Ai biết xin chỉ giùm.
Hỏi thêm 1 câu nữa: hình như dòng (vl-catch...) là thừa?
P/S (14h 14/3/2012): hiệu chỉnh để mọi người dễ kiểm tra.

(defun C:HA()
(setq sst (ssget) pt1 (getpoint "\nDiem 1: ") pt2 (getpoint pt1 "\nDiem 2: "))
(SSCP sst pt1 pt2))
(defun SSCP (sst pt1 pt2 / obj sss pto)
(vl-load-com)
(or acdoc (setq acdoc (vla-get-activedocument (vlax-get-acad-object))))
(setq lstptobj (mapcar '(lambda (x) (vlax-3d-point (trans x 1 0))) (list pt1 pt2)))
(setq sss (ssadd))
(vlax-for x (setq sst (vla-get-activeselectionset acdoc))
(ssadd (vlax-vla-object->ename (setq obj (vla-copy x))) sss)
(vla-move obj (car lstptobj) (cadr lstptobj)))
; (vl-catch-all-apply 'vla-delete (list sst)) ;dong nay co bi thua khong???
; (acet-ss-entdel sst) ;them dong nay de del sst cu, tai sao bi loi???
sss)

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


#1100 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 14 March 2012 - 12:57 PM

- 1 là bác check lại kiểu của sst
- 2 là move không sinh đối tượng mới, bác "hứng" nhằm ý đồ gì vậy ạ ^^
  • 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