Thứ Tư, 2 tháng 2, 2011

Khai phím đầu năm.

Hình ảnh lụm từ net chỉnh màu bởi duy782006 mang tính minh họa.


Thường mọi người khai bút đầu năm, còn mình khai phím đầu năm.


-Khi mình học lớp 1 bắt đầu tập viết (không như bây giờ con nít tập viết từ mẫu giáo) thì còn sống ở thời viết bút lá tre mà thời đó đúng là cái ngòi bút i như cái lá tre bị xẻ 1 rãnh ở giữa là xong, cứ chấm 1 phát thì viết được 1 chử đã hết mực lại chấm nên lúc đó đi học mổi đứa cầm theo bình mực và kết quả khi về bình mực thường vơi đi kha khá nhưng được cái nó không mất đi đâu cả mà nó ngự trên quần áo tay chân của các ông tướng cả.
-Lan man qua chuyện mực tí ha: Mực lúc đó ai khá khá thì mua mực pha sẳn đựng trong bình về chỉ việc chấm và viết nhưng cái thời thiếu thốn thì chủ yếu kím cái chai không (miệng chai phải to để đút lọt cây bút vào ko thì pha xong có mà uống cho hết) có chai rồi thì mua mực khô (không phải khô mực nướng en đâu ha) mực này nó trông giống viên than đá đập vụn í đem về ngâm với nước thì được mực viết nhưng cặn kinh khủng thường xuyên tắc ngòi và thỉnh thoảng xòa ra phát tèm lem cả vở, anh nào siêng (như mình) thì ngâm xong lấy vải lọc cho đở cặn.
-Bàn học sinh lúc ấy có khoét 1 lổ tròn và 1 lổ dài thì cái lổ tròn í là chổ để bình mực vào. Tất nhiên ko phải ai cũng chịu khó lo khoảng mực như mình nên lên lớp hết thì thì các ông tướng chuyển qua chấm trộm trong giờ học và đổ trộm trong giờ ra chơi. Lúc đó thiếu thốn quần áo vải cũng ko ra gì nên cảm giác lạnh lúc đó kinh khủng hơn bây giờ nhiều lại ko có nước nóng mà tắm nên nhiều khi các cô (giáo í) lấy mực quẹt lên cổ các ông làm biếng để các ông về bắt buộc phải tắm cho sạch vết mực nên mực còn có tác dụng mới là bắt tắm cưỡng bức :-).
-Quay lại cây viết: Sau một thời gian thì cây viết lá tre cải tiến 1 chút là thiết kế thêm 1 cái lá tre nhỏ hơn úp ngược vào lá tre lớn tạo thành bọc chứa mực từ đó chấm 1 phát thì viết được 1 hàng và thỉnh thoảng lại xòa cho phát hoành tráng hơi lá cũ nhiều (bị nhiều mực hơn mà). Rồi lên bút máy lúc này có phần chứa mực trong cây viết lun thiệt hiện đại hết sức từ đó hành trang đi học bớt đc bình mực. Lúc này ai đi học quên bơm mực thì xin đứa bên cạnh nhỏ cho mấy giọt. Chứ ko trộm đc nửa.
-Lúc xưa thì viết bằng bút nên đầu năm khai bút, chử của mình thì hoài cổ thường xuyên ngả ngửa nay cứu cánh xuất hiện toàn làm bằng còm píu tờ cả viết cả vẽ cái chi cũng phím với cả chuột nên nay mùng 1 mình làm phát khai phím cho hắn hên cả năm. Chúc bà con năm mới phát tài. Ưng gì được nấy!

Thứ Năm, 27 tháng 1, 2011

Nhiều chuyện.

*Dạo này giờ ăn tối đang coi phim sóng tình. Sao thấy cánh đàn ông mình tệ quá: ông thì toàn tiêu tiền của chị em, ông thì suốt ngày rủ bạn gái về ở chung rồi đóng vai hờn giận lung tung.
-Thời sinh viên mình cũng đã từng chứng kiến cảnh tương tự. Hồi đó tụi mình thuê nguyên 1 tầng nhà trong đó 2 cô nử ở phòng nhỏ, 5 ông nam ở phòng lớn chung khu wc và cầu thang.
-Ban đầu thì tới bửa ăn bên này mời bên kia, rồi bên kia mời lại (ăn quán đi chung cho vui). Nhưng lực lượng không cân bằng nên cái đoạn tài chính hắn lấn cấn nghẹt cái toàn dân trí thức không ai tiện cân đo đong đếm, được đâu 1 tuần thì thèn duy782006 là em quyết định làm người nhỏ mọn. Em đưa ra đề nghị gom hết tiền ăn lại đưa em giữ sau đó thì đi ăn em chi. May quá các trí thức trẻ đồng ý và từ đó em có 1 cuốn sổ (ai ko en thì làm dấu cuối tháng trả lại tiền) đầu tháng đi thu từng vị kiên quyết tới cuối tháng mới trả lại phần mấy hôm không en từ đó bị cả nhóm không ưa nhưng ko ai giám phản đối và có biệt danh ông già.
-Có trả lại thì đương nhiên có thu thêm nguyên nhân không phải nhóm trí thức nào cũng có lẩn vào 1 ông nhỏ mọn nên kết quả là có khi chi tiêu quá tay dẫn đến hết tiền en mà tháng thì chưa có hết nên hay đi thăm bạn vào cái thời điểm nhạy cảm này. Mà hay lắm nghen người mà ko có tiền nhất là tiền en thì dòm cái mặt biết ngay. Trên cái bước đường đi thăm đó thì có lúc thăm trúng nhóm của em và cánh trí thức trẻ kia hào phóng mời đi en chung đâu được khoảng vài lần đến tháng sau ai mời thì em tính vào cho hắn và thông báo hắn hết tiền en trước thời hạn từ đó ko ai còn dám hào phóng nửa và từ đó biệt danh ông già lưu hành bộ giờ được quảng bá rộng rãi cho toàn lớp.
-Duy782006 mặc nhiên được gạch khỏi danh sách tìm bạn trai của các nàng em cũng ko lấy điều đó làm buồn. Cứ ngó quanh mà xem mấy chàng galăng có bạn gái (nói bình dân thì kiu là bồ) không biết vui sướng ở đâu chứ làm 1 lần 2 cái đồ án thì chỉ có hoá điên (đó là nói em chứ tụi hắn chưa thấy ai điên cả lúc nào cũng chành miệng ra cười ra vẻ hạnh phúc lắm).
-Quay lại chuyện ve vãn của các chàng và nàng. Trong nhóm em có 1 nàng đẹp gái và 1 chàng to con đẹp trai cộng thêm có tài, đồ án mà chàng thể hiện thì cứ gọi là mê. Theo đúng quy luật thì chàng thích nàng còn nàng thì vẩn đong đưa chưa thích hẳn, chàng làm đủ trò để nàng hết đong đưa và khi cái độ đong đưa của nàng ít lại thì ... BÙM.... xuất hiện 1 doanh nhân thành đạt.
-Anh cu cùng tầng nhảy đứng nảy ngồi còn anh thành đạt thì rất hay lui tới và đưa nàng đi các địa chỉ mà cánh trí thức ko đủ khả năng đi. Và nàng về líu lo kể um cả tầng còn chàng thì mặt có phần hơi khó dòm. Hôm đó sinh nhật nàng anh đẹp trai bóp bụng chi ra 1 khoảng kha khá tổ chức sinh nhật nàng để gở điểm, cuối buổi "tối" doanh nhân lại xuất hiện rủ nàng đi chơi, nàng đồng ý ngay, thưa thật với các bác nàng của em mà thế thì em mua lấy triệu quả bóng bay tặng cho nàng lên mây phức cho khuất mắt (bởi thế nên nay vẩn còn dưới đất 1 mình đây này), Anh đẹp trai tất nhiên ko phải là em nên chơi cú liều nắm tay nàng cứng ngắc.
-Xin phép các bác em xoi mói đời tư anh đẹp trai tí. Anh này tập tạ từ nhỏ và rất thích ở trần, nói thế các bác biết trông anh í đô con như nào rồi. À có lần lớp đang vẽ mẫu nam giữa chừng anh "ngừ mẩu" mệt đứng hông nổi xin thôi cuối cùng thầy bốc nóng anh đẹp trai đứng mẫu và bù anh í 9 điểm môn này.
-Quay lại đoạn nắm tay các bác tưởng tượng mừ thèn lôi cũng hông ra chứ nói chi anh thành đạt, với cả anh thành đạt có gan bằng trời cũng ko dám lôi vì kèm theo màn nắm tay anh đẹp trai còn khuyến mại thêm bài thảm ngồi khóc tu tu. À e chưa thưa với các bác là buổi sinh nhật diển ra ở phòng to nên em chứng kiến cả chứ em không phải "thèn nhìu chiện". Anh thành đạt bỏ cuộc, các trí thức khác biết ý lánh đi còn mổi thèn em ngu lâu ko lánh đi mà ngang nhiên trải chăn ra nằm lên và đắp phần còn lại. Em ngủ thôi các bác ạ. Đám trí thức lánh đi lâu lắm em giật mình dậy nghe chừng khuya thế mà vẩn nắm tay ngồi đó. Điên người em mới bảo con bé đó mày đi về phòng đi thế là nó về mà thèn kia vẩn còn nắm tay nên đi theo cả thèn đấy, nào đã yên ko biết tụi nó qua đó làm gì mà em nghe đùng đùng khoảng 5' sau đó thì yên tới sáng (hay em ngủ quên ko nghe ko biết nửa). Sáng dậy thì hai đứa nó thành 1 cặp thỉnh thoảng em thấy cỏng nhau đi chơi nhìn đau cả mắt nhưng em cũng ko dám dạy lời nào.
-Bây giờ thì rã rồi tốt nghiệp xong phần ai nấy tếch em cũng mất liên lạc cả nhưng thấy rằng phải dày mặt như thế chứ như cái thân em thấy ai cũng hơn mình nên cứ có xuất hiện đối tượng thứ 3 là em bấm nút biến mất hút nên thỉ thoảng gặp vẩn có người chửi em bảo tại em ko hết mình.

Thứ Tư, 12 tháng 1, 2011

Tệ.

1. Mấy nay hơi rãnh dạo lên net nghía blog thiên hạ (Đoạn này quyết định xóa vì đối tượng mình đề cập đến ko hài lòng) Xóa...................

2. Hầu hết các bạn tuổi sinh viên thì chủ đề của họ là tình yêu, nó choáng 80% nội dung trên blog và không dưới 2 "đối tác" khác nhau trong khoảng 20 bài viết. Lại thấy mình thật tệ 365 ngày rồi mà vẫn còn là "có quen".

3. Hôm ngồi cafe với 1 bưu điện, 1 công an, 1 giáo viên nghe họ bàn chuyện mua bán đất nào là chổ này phát triển, nơi kia tương lai, mặt bằng giá cả. Con lạy thánh mớ bái con làm xây dựng có biết chút ít về các quy hoạch đã đang và sẽ thực hiện nhưng ko dám mở miệng lấy 1 câu cuối cùng xin phép về trước vì quá choáng. Con tệ thật. */o_o\*

4.....MÌnh tệ thật........

Thứ Ba, 14 tháng 12, 2010

Lệnh FILLET với bán kính R=0, không ảnh hưởng tới lệnh FILLET hiện tại.

Trong khi vẽ nhất là quy hoạch bạn phải dùng lệnh fillet với 1 số bán kính r nhất định, nhưng thỉnh thoảng lại cần fillet với bán kính R=0 thì lại mất cái giá trị cũ cứ phải gỏ lại. Cad đời mới thì nhấn nút gì gì đó trong khi thực hiện lệnh fillet sẽ cho ra bán kính R=0 nhưng mình quen dùng lệnh nên đặt cái lisp để làm việc này.
-Bình thường bạn cứ dùng lệnh FILLET bình thường.
-Muốn FILLET với bán kính R=0 thì dùng lệnh F0, không ảnh hưởng chi tới ông FILLET cả nhé.

Bạn copy nội dung và tạo file lisp hay tải file về cũng được!

(defun c:f0)
(setq bkflcu (getvar "filletrad"))
(setvar "FILLETRAD" 0)
(command "fillet" pause)
(while (< 0 (getvar "CMDACTIVE"))
(command pause)
)
(setvar "FILLETRAD" bkflcu)
(Princ)
)

Thứ Hai, 6 tháng 12, 2010

Copy xong thì lưu nhóm đối tượng sau cùng thành đối tượng vừa chọn.

Mổi khi bạn dùng lệnh COPY xong thực hiện lệnh khác muốn chọn đối tượng vừa chọn trước thì dùng tham số P, muốn chọn đối tượng vừa tạo ra thì dùng tham số L, nhưng cái ông L này chỉ chọn được mổi cái đối tượng mới nhất thôi chứ ko có được 1 nhóm đối tượng mới nhất. Bạn ưng chọn được nhóm đối tượng mới nhất sinh ra bởi lệnh copy chứ gì? Dùng cái này nhé:
Thay vì dùng COPY thì dùng CPP của duy782006 nì thì sau đó dù bất cứ lệnh gì bạn gọi tham số P nó sẽ chọn cái nhóm đối tượng tạo ra sau cùng cho bạn.
Bạn copy nội dung và tạo file lisp hay tải file về cũng được!

(defun c:cpp ( )
(Prompt "\nchon doi tuong")
(Setq dtgoc (Ssget))
(setq a (getpoint "\nChon diem chuan: "))
(setq b (getpoint a"\nCopy den diem: "))
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(command ".move" dtgoc "" a b)
(command ".copy" dtgoc "" b a)
(setq a b)
(setvar "osmode" oldos)

(while (setq b (getpoint a"\nCopy den diem : "))
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(command ".move" dtgoc "" a b)
(command ".copy" dtgoc "" b a)
(setq a b)
(setvar "osmode" oldos)
)
(command "undo" "end")

(Princ)
)

Thứ Sáu, 3 tháng 12, 2010

Khung lisp di động để bạn phát triển.

Đây là Bài viết của mình bên CADVIET.COM chủ đề này cũng nhiều bạn quan tâm nên đem về đăng lun trên blog mình.
Nguyên văn câu hỏi:

Trích dẫn(nguoi_tho_mo @ Nov 18 2010, 10:45)
Bác duy782006 và các cao thủ làm một mẫu "tien ich cv" đơn giản, có các loại foder: DWG, LSP, HETHONG, THVIEN...
mỗi foder chỉ nên có 1-vài file làm ví dụ cụ thể. khi muốn update, bổ xung lisp mới thì làm như thế nào?
nên viết bằng lsp không mã hóa để người dùng hiểu một phần + bổ xung + hoàn thiện.
Mục đính: nhiều người mới bắt đầu có thể tự làm dc tiện ích nho nhỏ cho mình và share lên diễn đàn.


Và đây là bài viết của mình:

Theo ý của bạn mình làm 1 cái khung đơn giản để bạn tự phát triển:
Mình tổ chức thư mục LISPDD chứa các thư mục con như sau:
-RUN: thư mục này chứa 3 file lisp khởi đầu dùng load menu, thiết lập đường dẩn và các việc cần thiết ban đầu.
-DCL: Chứa 1 file dcl ví dụ và các file text + sld dùng cho hiển thị hộp thoại này.
-CHEPTHEM: thư mục này có đặc điểm là sau khi load lisp bạn gỏ lệnh CAPNHAT thì các file chứa trong thư mục này được copy vào thư mục cài đặtcủa cad.
-AUTOADD: thư mục này sẽ được tự động add thêm vào đường dẩn tìm kiếm của cad sau khi bạn load lisp.
-LISP: thư mục này hiện chứa 3 lisp ví dụ, các lisp của bạn cũng nên tập trung vào đây để quản lý và load cho dể kiểm soát.
-HETHONG: hiện nay chứa file mns dùng hiển thị menu.

*Cách dùng:
Để chạy bộ này có 2 cách:
-Di động: Load file lispdd/run/didong.lsp. nó hỏi chỉ file duy.ico bạn chỉ cho nó lúc này nemu, lisp sẳn có sẽ được load lên để bạn dùng thử.
-Cố định:Trước tiên phải copy toàn bộ thư mục lisddd vào ổ C xong Load file lispdd/run/codinh lúc này nemu, lisp sẳn có sẽ được load lên để bạn dùng thử.
*Cách chỉnh sửa và thêm lisp, menu.
Sau khi load thành công thì thư mục AUTOADD sẽ được thêm vào đường dẩn tìm kiếm của cad nên nếu bạn có file nào cần dùng cho lisp mà ko muốn chỉ định đường dẩn trong lisp thì chứa nó trong thư mục này.
Lệnh HETHONG dùng copy toàn bộ các file trong thư mục CHEPTHEM vào thư mục cài đặt của cad chức năng này dùng khi bạn có 1 số file cần cập nhật mới ví dụ như line, hatch .v.v. (khi nào gỏ lệnh HETHONG thi mới thực hiện chức năng này nếu ko dùng đến thì ko gỏ lệnh này là xong).
-Cách thêm lisp vào: Bạn mở file lispdd/run/goilenh.lsp, bên dưới đoạn
(load(strcat odiachay "/lispdd/lisp/lisp1"))
(load(strcat odiachay "/lispdd/lisp/lisp2"))
(load(strcat odiachay "/lispdd/lisp/lisp3"))
bạn thêm 1 dòng:
(load(strcat odiachay "/lispdd/lisp/lisp4"))
Lưu ý lisp4 là tên lisp thêm vào không cần phần .lsp nhé. Muốn thêm nhiều lisp thì thêm nhiều dòng.
-File menu thì sửa trong lispdd/hethong/lispdd.mns. File này mình viết đơn giản gồm 3 dòng đôn và 1 nemu xếp lớp đọc cái hiểu ngay nên chắc ko cần hướng dẩn chỉnh file này. Sau khi chỉnh xong thì xóa file lispdd.cui đi để khi khởi động cad sẽ load lại nemu (nó tự load bạn ko phải load).