+

Phụ thu.

2012-01-30T23:39:00.000-08:00

1- Hôm trước cùng vợ dẩn bé em đi Nhập học, hôm đầu ghé khách sạn tư nhân (thực ra là cái nhà nghỉ nhưng người chủ vốn là thầy dạy đại học của mình bơm cái tên nó thành thế cho oai), phòng 2 giường đôi nhưng ở 3 người thì lể tân bảo tính phụ thu thêm phần bé em. Mình cũng ừ, hôm sau trả phòng thì thấy vẩn tính giá gốc chắc chủ nhà nhận ra sinh viên cũ nên bỏ phần chặt chém.

2- Vợ chồng thèn bạn thân cùng vợ chồng mình mùng 7 tết rủ tụ tập ăn tối xong phởn chí lôi nhau đi cafe. Mình và bạn viêm họng uống nước chanh, vợ bạn không dùng gì (bạn bảo nhân viên cho vợ bạn mấy viên xí muội), vợ mình tra menu gọi 1 sữa chua mãng cầu.Bạn tính tiền vợ mình lấy hóa đơn xem thấy giá món vợ dùng cao hơn trong menu (tụi còn lại gọi ko xem menu nen ko biết) hỏi ra thì phục vụ bảo phụ thu ngày tết mỗi món phụ thu 10 ngàn (cafe cóc ở mình chỉ 5 ngàn 1 ly) à còn 4 viên xí muội mổi viên 2 ngàn.

3- Sáng mùng 8 tết đi làm ngày đầu anh em lại ra quán cạnh cơ quan ngồi rồi hú mình qua, cẩn thận mình hỏi bé phục vụ trà lipton giá bao nhiêu/ly bé cười cười nghe chừng ko muốn trả lời. Mọi người tới trước chỉ mặt bàn mình nhìn thấy có dán mẩu giấy ghi từ 28/12-8/01 Al phụ thu mổi món 8 ngàn. Thôi sếp đãi buổi này nên mình cũng làm 1 ly, kể ra thì quán này còn sòng phẳng báo chừng trước anh ko thích có quyền xách mông ra khỏi quán.

4- Ngồi bàn về món phụ thu tết có ý cho rằng tết anh em mình đi chơi còn nhân viên người ta phải phục vụ nên phải tăng lương cho họ. Mình thì cho rằng nhân viên đếch có được tăng đồng nào vào túi chủ tất thôi. Mà có tăng lương cũng là phương án của nhà ông, ông nhắm ko lời thì ông nghỉ con mẹ nó đi ai ép ông bán mà đòi phụ thu.

Năm Rồng.

2012-01-22T20:29:00.000-08:00

Theo lệ thường (năm trước) nay lại là ngày đầu năm mới mình làm cái khai phím cho hanh thông cả năm.

1- Gọi là khai phím nhưng dân kỹ thuật như mình dùng chuột là chính, tay trái mới dùng phím nên tình hình đã đạt được đến trình độ gỏ phím mà không cần nhìn màn hình (do phải nhìn bàn phím tìm nút).

2- Ngày 28 Al lôi co láp ra tính mần tí thì trục trặc, bàn phím không gỏ được, Đem nhờ "chiên da di tính" thầy phán dính phím. Đem ra tiệm sửa xe máy trộm của hắn ít ngàn bạc hơi xịt cật lực vào cái bàn phím thế là về em lại chạy phe phé.

3- Năm nay đối với mình thật đặc biệt, vì vừa đám cưới xong ngày 21 Al, mọi thứ điều mới mẽ, cảm giác thật đầy đủ và hành phúc. Ai cũng chúc cho mình có rồng con.

Chúc.

2012-01-16T19:33:00.000-08:00

Xuân thời đã đến, tết thời chưa.
Thưởng tết thời chưa, lương thời thưa.
(Nghị quyết năm nay kiềm lạm phát,
nghe "hứa" sang năm tiếp tục kiềm)

Chúc cho tư vấn cùng với các
phía có liên quan đến việc kiềm.
Ráng hết năm nay rồi lại sẽ
cố tiếp sang năm mới (Nhâm Thìn).

Lại chúc bà con đang lặn ngụp
trong lạm, trong tăng với cả suy.
Sang năm sẽ thôi không lặn nửa.
Cùng nhau ta sẽ chuyễn sang bơi.

Vài dòng vui vẻ cho quên khổ.
Nay chúc mọi người một mùa xuân.
Cái gì cũng được nhiều vô số.
Bắt ghế rung chân đón tết rồng.

(Vừa viết nóng hổi bởi Duy782006)

Khoe, báo, xin

2012-01-04T23:56:00.000-08:00

1-Tin sốt dẻo.Ngày 14/01/2012 (nhằm ngày 21 tháng 12 năm Tân Mão Duy782006 chính thức thôi làm hội viên của hội độc thân ...... thế giới.
2-Từ 1 suy ra Duy782006 tạm dừng viết lisp ít nhất đến hết ngày 15 tết âm lịch.
3-Chủ nhân các dự án đang dang dở mà mình hứa với các bạn; các dự án mới yêu cầu sau thông báo này vui lòng chờ đến hết hạn thông báo, mọi khiếu nại ném đá vui lòng tạm dừng.

Thông báo này thay cho thông báo nghỉ tết.
Quà mừng cho Duy782006 (nếu có) vui lòng gửi về địa chỉ:
Phạm Quốc Duy 113 Phan Chu Trinh
TP Quảng Ngãi Tỉnh Quảng Ngãi

Nhà thờ họ Phạm - Phước Bình - b.Nguyên - b.Sơn

2011-12-01T18:48:00.000-08:00

Lisp vẽ hình chữ nhật và 4 hình tròn ở góc.

2011-11-23T18:44:00.000-08:00

*Theo yêu cầu của bạn LAMPV bên mục viết lisp mình tạo bài này.
-Nguyên văn câu hỏi:
Trích dẫn(Lampv)
chao anh. em nhờ anh viết cho em cái lisp. như trong bản vẽ nhé cảm ơn anh
http://www.mediafire.com/?6j9kk3g3xsv2zlb

-Tạm thời mình chưa set layer, color, Ltype và vẽ cụ thể. Chỉ vẽ hình chữ nhật, 2 đường trục, hình tròn ở giữa, cặp 4 vòng tròn chính 4 góc.
-Chờ bạn LAMPV có yêu cầu xem đã hòm hòm chưa thì mình viết tiếp, về cơ bản là vẽ được nguyên cái hình đấy.

Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!

(defun c:VCN ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))

(setq a (getpoint "\nChon tam hinh chu nhat: "))
(setvar "osmode" 0)

(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))

(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))

(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))

(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))

(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))

(command ".RECTANG" gocduoitrai goctrenphai)
(command ".LINE" bphai btrai "")
(command ".LINE" btren bduoi "")

(or rgiua (setq rgiua 17))
(command ".CIRCLE" a rgiua)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rgiua 2 2) " >:")))(rgiua)))
(command "UNDO" "1")
(command ".CIRCLE" a rgiua)

(or kcngang (setq kcngang 67))
(setq kcngang (cond ((getreal (strcat "\nKhoang cach vong tron goc voi tim ngang < " (rtos kcngang 2 2) " >:")))(kcngang)))
(command ".LINE" atren aduoi "")
(setq linengang (entlast))
(command ".MOVE" linengang "" a (polar a pi kcngang))
(command ".MIRROR" linengang "" atren aduoi "N")
(setq linengangphai (entlast))

(or kcdoc (setq kcdoc 77))
(setq kcdoc (cond ((getreal (strcat "\nKhoang cach vong tron goc voi tim doc < " (rtos kcdoc 2 2) " >:")))(kcdoc)))
(command ".LINE" aphai atrai "")
(setq linedoc (entlast))
(command ".MOVE" linedoc "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" linedoc "" atrai aphai "N")
(setq linedocphai (entlast))

(or rtrong (setq rtrong 10))
(command ".CIRCLE" a rtrong)
(setq trontrentrai (entlast))
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq trontrenphai (entlast))

(command ".MIRROR" "last" "" atrai aphai "N")
(setq tronduoitrai (entlast))

(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronduoiphai (entlast))

(setq rtrong (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rtrong 2 2) " >:")))(rtrong)))

(command "erase" trontrenphai trontrentrai tronduoiphai tronduoitrai "")
(command ".CIRCLE" a rtrong)
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")

(or rngoai (setq rngoai 12))
(command ".CIRCLE" a rngoai)
(setq tronngoaitrentrai (entlast))
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronngoaitrenphai (entlast))

(command ".MIRROR" "last" "" atrai aphai "N")
(setq tronngoaiduoitrai (entlast))

(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronngoaiduoiphai (entlast))

(setq rngoai (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rngoai 2 2) " >:")))(rngoai)))

(command "erase" tronngoaitrenphai tronngoaitrentrai tronngoaiduoiphai tronngoaiduoitrai "")
(command ".CIRCLE" a rngoai)
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")

(setq aphaitam (polar a pi (+ rngoai 3)))
(setq atraitam (polar a (* pi 2) (+ rngoai 3)))
(setq atrentam (polar a (/ pi 2) (+ rngoai 3)))
(setq aduoitam (polar a (* (/ pi 2) 3) (+ rngoai 3)))

(command ".LINE" aphaitam atraitam "")
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")

(command ".LINE" atrentam aduoitam "")
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")

(command "erase" linedocphai linedoc linengangphai linengang "")

(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))

-Bạn LAMPV có yêu cầu gì thì nêu ở đây, hôm qua bạn yêu cầu sai bài viết mình đã dời về mục yêu cầu lisp mong bạn lần sau nêu yêu cầu đúng chổ nếu không mình sẽ xoá nhé.

*Cập nhật ngày 02/12/2011 theo yêu cầu của bạn Lampv.
-Đã đã vẽ nguyên cái hình đấy trên 1 layer hiện hành.
-Chưa đánh kích thước và set layer + Ltype.

Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!

(defun c:VCN ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))

(setq a (getpoint "\nChon tam hinh chu nhat: "))
(setvar "osmode" 0)

(command ".XLINE" a (polar a pi 3) (polar a (/ pi 2) 3) "")

(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))

(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))

(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))

(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))

(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))

(command ".undo" "1")

(command ".RECTANG" gocduoitrai goctrenphai)
(command ".LINE" bphai btrai "")
(command ".LINE" btren bduoi "")

;;;;;;;;
(or rgiua (setq rgiua 17))
(setq bankinhve1 rgiua)
(duy:hien1tron)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgiua 2 2) " >:")))(rgiua)))
(setq bankinhve1 rgiua)
(duy:ve1tron)
;;;;;;;;
;;;;;;;;
(or dngangl (setq dngangl 90))
(setq kcdoingang (/ dngangl 2))
(duy:hien2line)
(setq dngangl (cond ((getreal (strcat "\nKich thuoc bang giua < " (rtos dngangl 2 2) " >:")))(dngangl)))
(setq kcdoingang (/ dngangl 2))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dngangln (setq dngangln 25))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:hien2line)
(setq dngangln (cond ((getreal (strcat "\nKhoang cach bang ben voi mep ngoai < " (rtos dngangln 2 2) " >:")))(dngangln)))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dnganglt (setq dnganglt 43))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:hien2line)
(setq dnganglt (cond ((getreal (strcat "\nKich thuoc bang ben < " (rtos dnganglt 2 2) " >:")))(dnganglt)))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or rgcoc (setq rgoc 10))
(or dngang (setq dngang 67))
(or ddoc (setq ddoc 77))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:hien4tron)
(setq rgoc (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgoc 2 2) " >:")))(rgoc)))
(setq dngang (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngang 2 2) " >:")))(dngang)))
(setq ddoc (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddoc 2 2) " >:")))(ddoc)))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocn (setq rgocn (+ rgoc 3)))
(setq bankinhve4 rgocn)
(duy:hien4tron)
(setq rgocn (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocn 2 2) " >:")))(rgocn)))
(setq bankinhve4 rgocn)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocm (setq rgocm 5))
(or dngangm (setq dngangm 72))
(or ddocm (setq ddocm 42))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:hien4lucgiac)
(setq rgocm (cond ((getreal (strcat "\nBan kinh hinh luc giac < " (rtos rgocm 2 2) " >:")))(rgocm)))
(setq dngangm (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangm 2 2) " >:")))(dngangm)))
(setq ddocm (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocm 2 2) " >:")))(ddocm)))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:ve4lucgiac)
;;;;;;;;
;;;;;;;;
(or rgcocnm (setq rgocnm (+ rgocm 3)))
(setq bankinhve4 rgocnm)
(duy:hien4tron)
(setq rgocnm (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocnm 2 2) " >:")))(rgocnm)))
(setq bankinhve4 rgocnm)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocg (setq rgocg 2.5))
(or dngangg (setq dngangg 36))
(or ddocg (setq ddocg 91))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:hien4tron)
(setq rgocg (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgocg 2 2) " >:")))(rgocg)))
(setq dngangg (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangg 2 2) " >:")))(dngangg)))
(setq ddocg (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocg 2 2) " >:")))(ddocg)))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocng (setq rgocng (+ rgocg 0.5)))
(setq bankinhve4 rgocng)
(duy:hien4tron)
(setq rgocng (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocng 2 2) " >:")))(rgocng)))
(setq bankinhve4 rgocng)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocgd (setq rgocgd 6))
(or dnganggd (setq dnganggd 24))
(or ddocgd (setq ddocgd 82))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:hien4tron)
(setq rgocgd (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgocgd 2 2) " >:")))(rgocgd)))
(setq dnganggd (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dnganggd 2 2) " >:")))(dnganggd)))
(setq ddocgd (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocgd 2 2) " >:")))(ddocgd)))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;

(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien1tron ( )
(command ".CIRCLE" a bankinhve1)
(setq doituongxoa (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve1tron ( )
(command ".erase" doituongxoa "")
(command ".CIRCLE" a bankinhve1)
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4tron ( )
(command ".CIRCLE" a bankinhve4)
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4tron ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".CIRCLE" a bankinhve4)
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4lucgiac ( )
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4lucgiac ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4cong ( )
(command ".line" (polar a pi (+ bankinhve4 3)) (polar a (* pi 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".line" (polar a (/ pi 2) (+ bankinhve4 3)) (polar a (/ (* pi 3) 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien2line ( )
(command ".line" atren aduoi "")
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve2line ( )
(command ".erase" doituongxoa doituongxoa1 "")
(command ".line" atren aduoi "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))

*Cập nhật ngày 05/12/2011 theo yêu cầu copy thêm chi tiết vừa vẽ ra 1 vị trí mới của bạn Lampv.
-Tạm thời mình copy ra mà không tạo thành block.
-Nếu ko có nhu cầu thống kê thì theo mình để đối tượng rời thế cho tiện.

Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!

(defun c:vcn (/ tbl)
(setq a (getpoint "\nChon tam hinh chu nhat: "))
(duy:vechitietcokhi)
(setq b (getpoint "\nChon tam hinh chu nhat tiep theo: "))
(command ".copy" tbl "" a b "")
(Princ))

;;;;;;;;;;;;;;;;;;
(defun duy:vechitietcokhi ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)

(command ".XLINE" a (polar a pi 3) (polar a (/ pi 2) 3) "")

(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))

(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))

(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))

(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))

(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))

(command ".undo" "1")

(command ".RECTANG" gocduoitrai goctrenphai)
(setq tbl (ssget "l"))
(command ".LINE" bphai btrai "")
(duy:themvaotbl)
(command ".LINE" btren bduoi "")
(duy:themvaotbl)

;;;;;;;;
(or rgiua (setq rgiua 17))
(setq bankinhve1 rgiua)
(duy:hien1tron)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgiua 2 2) " >:")))(rgiua)))
(setq bankinhve1 rgiua)
(duy:ve1tron)
;;;;;;;;
;;;;;;;;
(or dngangl (setq dngangl 90))
(setq kcdoingang (/ dngangl 2))
(duy:hien2line)
(setq dngangl (cond ((getreal (strcat "\nKich thuoc bang giua < " (rtos dngangl 2 2) " >:")))(dngangl)))
(setq kcdoingang (/ dngangl 2))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dngangln (setq dngangln 25))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:hien2line)
(setq dngangln (cond ((getreal (strcat "\nKhoang cach bang ben voi mep ngoai < " (rtos dngangln 2 2) " >:")))(dngangln)))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dnganglt (setq dnganglt 43))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:hien2line)
(setq dnganglt (cond ((getreal (strcat "\nKich thuoc bang ben < " (rtos dnganglt 2 2) " >:")))(dnganglt)))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or rgcoc (setq rgoc 10))
(or dngang (setq dngang 67))
(or ddoc (setq ddoc 77))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:hien4tron)
(setq rgoc (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgoc 2 2) " >:")))(rgoc)))
(setq dngang (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngang 2 2) " >:")))(dngang)))
(setq ddoc (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddoc 2 2) " >:")))(ddoc)))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocn (setq rgocn (+ rgoc 3)))
(setq bankinhve4 rgocn)
(duy:hien4tron)
(setq rgocn (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocn 2 2) " >:")))(rgocn)))
(setq bankinhve4 rgocn)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocm (setq rgocm 5))
(or dngangm (setq dngangm 72))
(or ddocm (setq ddocm 42))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:hien4lucgiac)
(setq rgocm (cond ((getreal (strcat "\nBan kinh hinh luc giac < " (rtos rgocm 2 2) " >:")))(rgocm)))
(setq dngangm (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangm 2 2) " >:")))(dngangm)))
(setq ddocm (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocm 2 2) " >:")))(ddocm)))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:ve4lucgiac)
;;;;;;;;
;;;;;;;;
(or rgcocnm (setq rgocnm (+ rgocm 3)))
(setq bankinhve4 rgocnm)
(duy:hien4tron)
(setq rgocnm (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocnm 2 2) " >:")))(rgocnm)))
(setq bankinhve4 rgocnm)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocg (setq rgocg 2.5))
(or dngangg (setq dngangg 36))
(or ddocg (setq ddocg 91))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:hien4tron)
(setq rgocg (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgocg 2 2) " >:")))(rgocg)))
(setq dngangg (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangg 2 2) " >:")))(dngangg)))
(setq ddocg (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocg 2 2) " >:")))(ddocg)))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocng (setq rgocng (+ rgocg 0.5)))
(setq bankinhve4 rgocng)
(duy:hien4tron)
(setq rgocng (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocng 2 2) " >:")))(rgocng)))
(setq bankinhve4 rgocng)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocgd (setq rgocgd 6))
(or dnganggd (setq dnganggd 24))
(or ddocgd (setq ddocgd 82))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:hien4tron)
(setq rgocgd (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgocgd 2 2) " >:")))(rgocgd)))
(setq dnganggd (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dnganggd 2 2) " >:")))(dnganggd)))
(setq ddocgd (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocgd 2 2) " >:")))(ddocgd)))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;

(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien1tron ( )
(command ".CIRCLE" a bankinhve1)
(setq doituongxoa (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve1tron ( )
(command ".erase" doituongxoa "")
(command ".CIRCLE" a bankinhve1)
(duy:themvaotbl)
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4tron ( )
(command ".CIRCLE" a bankinhve4)
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4tron ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".CIRCLE" a bankinhve4)
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4lucgiac ( )
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4lucgiac ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4cong ( )
(command ".line" (polar a pi (+ bankinhve4 3)) (polar a (* pi 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".line" (polar a (/ pi 2) (+ bankinhve4 3)) (polar a (/ (* pi 3) 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien2line ( )
(command ".line" atren aduoi "")
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve2line ( )
(command ".erase" doituongxoa doituongxoa1 "")
(command ".line" atren aduoi "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))

;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:themvaotbl ( )
(command "Select" tbl "last" "")
(setq tbl (ssget "P"))
(Princ))

Hình như.

2011-11-18T19:10:00.000-08:00

1.Đôi khi bất chợt nghe một âm thanh, thấy một hình ảnh, ngửi một mùi nào đó lại có cảm giác rất quen thuộc và đặc biệt giống như mình đã trải qua không gian này lần nào đó vào thời điểm rất có ý nghĩa. Cố nhớ xem là khi nào thì không tài nào nhớ nổi, sau này khi ngập trong không gian như vậy mình không còn cố nhớ nửa chỉ là thả trôi cho cảm xúc nói chung cảm giác rất tuyệt. Tất nhiên mình là người có trách nhiệm với bản thân và chung quanh nên vẩn để lại 1 chút tập trung vào lái xe. Thường cảm giác này thoáng cái rất ngắn trong khi mình lái xe và ở nhiều nơi khác nhau có cả nơi chắc chắn mình chưa đến lần nào. Có lý thuyết cho rằng cảm giác này là tiềm thức lưu lại từ kiếp trước, lại có anh bảo là có thể mình đã xem qua phim ảnh hay nơi nào đó và đọc lại trong ký ức. Mình thì ko rỏ anh nào đúng mà có khi cả 2 anh sai tuốt. Chỉ biết lúc đó rất thích, không hẳn là cảm giác vui mà giống như là nhớ nhớ dù là ko biết nhớ gì.

2.Sao lại có đoạn trên? Lúc tối là tối cuối trong chuỗi 1 tuần làm liên tục cả ngày đêm ở cơ quan, mình về nhà lúc 10h tối trên con đường đi hàng ngày tự nhiên có cảm giác này. Nhưng thoáng cái mùi hoa Sữa quá nồng đã phá toang và như mọi khi vẩn ko rỏ là cảm giác gì. Về đến nhà mình lại bị 1 cảm giác xâm chiếm toàn bộ cơ thể, lần này mình biết và gọi tên được cảm giác này, đó là "oải và buồn ngủ".

Lisp xén vòng tròn ra làm 2 bằng 2 điểm.

2011-11-15T01:03:00.000-08:00

Theo yêy cầu của bạn TAM mình viết lisp này.
-Tác dụng xén vòng tròn ra hai nửa bằng đường thẳng giả định đi qua 2 điểm chỉ định.
-Tên lệnh CDT.
-Thao tác:
+Nhập lệnh.
+Chọn đường tròn.
+Chọn điểm thứ nhất.
+Chọn điểm thứ hai.
Hai điểm này không nhất thiết nằm trên đường tròn chỉ cần nằm trong phạm vi vòng tròn hoặc ngoài và cắt qua đường tròn là được.

Bạn copy nội dung và tạo file lisp nhé!

(defun c:cdt ()
(command "undo" "be")

(setq ddd (entsel "\nChon duong tron"))
(while
(or
(null ddd)
(/= "CIRCLE" (cdr (assoc 0 (entget (car ddd)))))
)
(princ "\nDoi tuong khong phai la duong tron! Chon lai")
(setq ddd (entsel "\nChon duong tron"))
)

(setq DT (car ddd))
(setq DTM (entget DT))
(setq BANKINH (cdr (assoc 40 DTM)))
(setq BANKINH (* 2 BANKINH))

(command "copy" ddd "" (list 0 0) (list 0 0))
(setq dtmoi (entlast))
(setq a (getpoint "\nChon diem thu nhat: "))
(setq b (getpoint a"\nChon diem thu hai: "))

(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)

(setq gocab (angle a b))
(setq gocba (angle b a))
(setq a (polar a gocba BANKINH))
(setq b (polar b gocab BANKINH))

(command "BREAK" ddd "f" a b)
(command "BREAK" dtmoi b a)

(command "undo" "end")
(setvar "osmode" luubatdiem)
(Princ)
)

Lớn và nhỏ.

2011-11-03T17:43:00.000-07:00

-Mình là kiến túc sư thỉnh thoảng có mon men làm vài cái ảnh và ra tiệm ảnh in.
-Có 2 tiệm ảnh gần nhau 1 tiệm lớn và 1 tiệm nhỏ. Ban đầu tiệm nhỏ nhận đơn hàng và đem tiệm lớn in xong đem giao cho khách. Nay thì đã có máy và tự in mình là khách hàng của tiệm nhỏ ngay từ khi hắn chưa có máy in.
-Mình không thích làm việc với tiệm lớn ko phải vì chất lượng ảnh xấu hơn mà vì vài lý do linh tinh.
+Anh lớn làm việc theo quy trình khép kín và khách hàng chỉ có tiếp xúc được với người nhận đơn hàng mà anh này ko có rành lắm về chuyên môn (giống mình).
+Anh nhỏ thì cái phòng kỹ thuật nằm chem bẻm bên ngoài và mình có thể tám chuyện trực tiếp với cái anh in và chỉnh ảnh.
*Tất nhiên bạn sẽ nghỉ ông cứ làm ra thành phẩm rồi đưa họ in chứ tám chuyện với thèn rửa ảnh làm wué gì. Nhưng không phải đâu là không phải đâu. Cái thèn KTS là mình theo chuẩn khổ giấy là A0-A1 ... A4. Còn cái anh ảnh thì chuẩn khác nên nếu làm theo chuẩn mình xong đưa ảnh in thì ảnh phải xén đi 1 phần cái ảnh mình theo cái tỉ lệ tréo ngoe của ảnh và ảnh tự cắt thì ko khi nào đúng ý đồ của mình.
-Nên khi in thể nào mình cũng phải ngồi bên xem ảnh làm việc và đưa cái yêu cầu sao cho dung hoà giữa chuyên môn của ảnh và mình.

Lisp SCALE mọi loại đối tượng quanh tâm chính nó.

2011-10-27T20:11:00.000-07:00

*Lisp này mình chỉnh từ lisp sưu tầm theo yêu cầu của 1 bạn đọc. Mình thêm phần undo toàn cục cho lisp này luôn.
-Lệnh: SB

Bạn copy nội dung và tạo file lisp nhé!

(defun c:sb()
(command "undo" "be")
(defun ST:Geom-Center (ent / p1 p2)
(vla-getboundingbox (vlax-ename->vla-object ent) 'p1 'p2)
(setq p1 (vlax-safearray->list p1)
p2 (vlax-safearray->list p2)
pt (mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5))
)
)
(or cale (setq cale 2))
(setq cale (cond ((getreal (strcat "\nTi le scale < " (rtos cale 2 2) " >:")))(cale)))
(foreach e (acet-ss-to-list (ssget))
(command ".scale" e "" "_non" (ST:Geom-Center e) cale )
)
(command "undo" "end"))

Chỉnh sửa từ

Đã lâu lắm rồi.

2011-10-24T01:56:00.000-07:00

Các thứ tiền cả này nọ :-(

Mã: 45839
Tên sản phẩm: Để Hôn Em Lần Nữa
Số lượng: 1
Đơn giá: 61.200(vnd)
Thành tiền: 61.200(vnd)
Trị giá tiền hàng: 61.200(vnd)
Phí vận chuyển: 7.000(vnd)
Phí thanh toán: 8.000(vnd)
Tổng trị giá: 76.200(vnd)

-Lâu lắm mình mới bỏ tiền ra mua 1 cuốn sách, mà lại là sách truyện, mà lại còn mua qua internet.
-Thật ra đây là lần đầu mua sách qua nét lý do vì anh dịch vụ này có hình thức thanh toán bằng cách nhân viên bưu điện giao sách và thu tiền.
-Thế cho nó chắc ko lo mất đi 1 khoảng trong tài khoản mà ko biết chửi ai. Bù lại mất toi mấy ngàn phí thanh toán (đó là chưa kể phí vận chuyễn nhớ).
-Lý do cũng không phải là truyện quá đặc sắc không mua không được mà là tác giả có cái kiểu lôi kéo hay hay mà không quá lộ.

Xem lôi kéo

-Thông thường mình không mua sách truyện thay vào đó mình đặt tạp chí Văn nghệ quân đội, trong í truyện ngắn đọc là vừa sức với mình dù thoảng cũng có vài truyện trúc trắc đọc cứ hoa cả mắt nhưng tỉ lệ ít thôi.
-Sách kỹ thuật thì đã mua vài cuốn và đến nay đã đủ dùng chắc còn lâu mới mua nửa. À mình có mua 1 cuốn chính tả vì hay sai mấy cái lặt vặt nên thoảng có viết gì trên blog thì tra tí cho bà con đỡ thấy cái văn hoá lùn của mình vậy thôi.
-Các tuyển tập chọn lọc hoặc sách dạy làm người, làm giàu, làm eo thì mình ko mua thấy trùng bài và sến sến không thực tế.

Lisp đổi tên BLOCK được chọn.

2011-10-21T00:47:00.000-07:00

*Lisp dùng đổi tên BLOCK được chọn thành tên mới do mình nhập vào.
-Tên lệnh: CTB.

Bạn copy nội dung và tạo file lisp, hoặc tải về phía cuối bảng code nhé!

(defun c:ctb ( )
(command "undo" "be")

(setq ddd (entsel "\nChon BBLOCK muon doi ten"))
(while
(or
(null ddd)
(/= "INSERT" (cdr (assoc 0 (entget (car ddd)))))
)
(princ "\nDoi tuong khong phai la Block! Chon lai")
(setq ddd (entsel "\nChon BLOCK muon doi ten"))
)

(setq DT (car ddd))
(setq DTM (entget DT))
(setq TENKHOI (cdr (assoc 2 DTM)))

(setq TENBLOCKMOIDAT (getstring 5"\nNhap ten BLOCK moi:"))

(command "_BEDIT" TENKHOI "" "_BSAVEAS" TENBLOCKMOIDAT "_BCLOSE")

(setq DTM (subst (cons 2 TENBLOCKMOIDAT) (assoc 2 DTM) DTM))
(entmod DTM)

(command "undo" "end")
(Princ))

Đã viết ở

ý nghĩa của những con số.

2011-10-06T01:55:00.000-07:00

Tằng tằng đừng có mà tưởng là bói toán gì ở đây nhớ, chỉ là ý nghĩa của những con số đó đối với bản thân Duy782006 thôi.

2. Phím nóng gọi anh hai. Lại nói về số 2: đây là dãy bàn "tính từ phía giáo viên tính xuống" mà Duy thích và giành được trong suốt 3 năm cấp 3

3. Phím nóng gọi ba.

4. Phím nóng gọi má.

5. Phím nóng gọi 1 đồng nghiệp ở cơ quan.

6 và 7 là gọi em yêu.

Bạn sẽ "théc méc" cái đồng nghiệp kia sao lại có số trước em yêu của mình. Đơn giản là phím nóng mình dùng cho các số hay gọi nhất mà anh đồng nghiệp này trước mình rất hay gọi chỉ đứng sau gia đình. Còn em yêu của mình mới có xuất hiện nên mình không có thay đổi vì đã quen biên chế cho anh kia con 5 rồi. Bù lại mình dành co em yêu mình những 2 số.

33. Là số người theo dỏi blog của mình (đứng im không thay đổi từ lâu lắm rồi). Thêm nửa nó là con số rất chi đặc biệt vì là số tuổi của mình khi tìm được nửa kia của mình.

30-10. đối với mình và hầu hết các bác làm bên tư vấn thiết kế có dùng vốn ngân sách là mốc để mà cày, mà đua; công trình lớn bé kiểu gì cũng phải xong trước ngày này nếu không thì mất vốn.

Lisp quay mọi loại đối tượng quanh tâm chính nó.

2011-09-21T20:40:00.000-07:00

*Lisp này mình sưu tầm chủ yếu là để học, có 2 điều mình học đc rong lisp này
-1.Cách ứng sử với từng đối tượng trong 1 nhóm đối tượng mà lâu nay mình viết hơi dài nay theo kiểu ày thì tiết kệm kha khá.
-2. Cách lưu lại giá trị nhập vào như trên.

Bạn copy nội dung và tạo file lisp nhé!

(defun c:rb()
(defun ST:Geom-Center (ent / p1 p2)
(vla-getboundingbox (vlax-ename->vla-object ent) 'p1 'p2)
(setq p1 (vlax-safearray->list p1)
p2 (vlax-safearray->list p2)
pt (mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5))
)
)
(or ang (setq ang 180))
(setq ang (cond ((getreal (strcat "\nGoc quay < " (rtos ang 2 2) " >:")))(ang)))
(foreach e (acet-ss-to-list (ssget))
(command ".rotate" e "" "_non" (ST:Geom-Center e) ang )
))

Nguồn gốc xuất sứ

Gửi vợ tương lai của anh!

2011-09-20T01:55:00.000-07:00

Chắc vợ cũng ngạc nhiên khi nhận được thư này của chồng. Chả là nhân dịp cuối tuần về quê lại đối mặt với lô xích sông những câu hỏi, đòi và chửi cũ rích:
Các bô lão thì hỏi “mày sao thế”; “chừng nào cho tao uống rượu” ... có cụ ngoa ngoắt thì chửi “ đồ láo ăn”.

Đám trẻ trẻ thì đòi ăn bánh hồng, đòi xác định giới tính vân vân và vân vân.
Nói chung chồng như con nợ lớn đi đến đâu nghe đòi đến đó, cứ thấy mặt là đòi ngay. Mới mùng 1 tết chồng tương lai yêu quý của vợ (là cái thằng anh đây) diện đồ chảnh mặt tươi hơn hớn thì có cụ đến tương ngay 1 câu hỏi thăm vợ làm chồng cứ là nhớ vợ đến kinh người hết khí thế tết mới chả xuân, Được cái sau đó hàng loạt đối tượng thuộc đủ thành phần già trẻ lớn bé đủ cả cũng tương câu đó vào mặt nên cái mặt chồng nó cũng dày dần theo năm tháng.
Mà cũng kỳ lúc chồng còn đang đi học í chả ai hỏi thăm vợ cả mà thay vào đó là dặn dò đủ kiểu nào là “lo học cho cật lực vào” nào là “không được yêu đương nhăng nhít mà sao nhãng việc học”.
Thế mà đùng 1 cái gần đây ai cũng quan tâm tới vợ yêu của chồng, chả hiểu mọi người thế nào nửa tự nhiên từ 1 thèn không người yêu chuyển thành thèn có vợ thế nào được, mới có 10 mí năm chứ có bao nhiêu đâu.
Nói cũng hơi quá chứ mọi người quan tâm đến vợ cũng vài năm rồi nhất là khi đám bạn chồng lần lượt đứa thì lên xe bông, đứa thì lên xe hoa thì các cụ càng sốt ruột tợn. Đám bạn của chồng thì vì ko muôn bị quấy rầy tụi nó vào mấy ngày lể nên tìm cách đuổi khéo chồng lên xe bông bằng cách lôi chồng đi trưng bày khắp nơi nhưng tại tụi nó cũng như chồng không biết vợ đang ở đâu nên toàn trưng bày ko đúng chổ kết quả là sau vài lần đuổi khéo thì tụi nó cũng huỵch toẹt ra là “ông lo kiếm người yêu mà đi chơi đi chứ tụi tui ko còn thanh niên mà đi chơi với ông mãi”.
Tụi này đúng là nói mà không biết nghỉ chồng với tụi nó 1 lứa mà tụi nó nói tụi nó không còn thanh niên hoá ra nó nói chồng già à? Còn lâu nhớ đây còn thanh niên ngời ngời đây này. Cũng may sưu tầm mãi cũng sót lại 1 thèn trẻ ngời ngời như chồng nên hai thanh niên tụi anh vẩn hay tổ chức nhậu với nhau mà ko thèm ới cái đám bạn già kia cho bỏ ghét.
Đùng 1 cái thèn kia bảo chồng vài hôm đi phụ rể cho nó hơ hơ hèn chi dạo này thèn kia có một số hoạt động bí mật ko còn tích cực nhậu nhẹt với chồng nửa.
Tự nhiên chồng nhớ vợ yêu của chồng quá, không biết giờ này vợ đang Shopping, Spa hay du lịch tận đẩu tận đâu. Mà có khi vợ cũng đang tự hỏi chồng đang ở đâu như chồng cũng nên.
Nhân tiện chồng cũng mô tả sơ sơ về bản thân để nhỡ ra thấy chồng xẹt qua thì vợ ới giúp chồng một tiếng để chồng còn biết đường vợ nhé.
Ngoại hình chồng cũng tàm tạm nổi bật là màu da rất rắn chắc vợ mà thấy anh chàng vào mà da trắng trắng yếu ớt thì chắc chắn ko phải là chồng rồi.
Ưu điểm chồng đã luyện xem HBO nghe họ nói hàng giờ dù không hiểu gì lâu nay nên chồng biết lắng nghe, chồng có thể ngồi im lặng nghe vợ nói hàng giờ, hàng ngày mà ko cắt lời vợ, trong lúc đó chồng có thể ngắm vợ và nghỉ đến việc con của chúng ta sẽ được dạy dỗ chu đáo như nào. Chồng biết cách lựa ra trong đống quần áo bộ nào tươm tất nhất để mặc.
Nhược điểm của chồng thì gần như ko có nhưng chồng cũng ráng lôi vài điều cho có gọi là chứ không vợ lại cho là chồng bốc phét. Chồng hay thức khuya và lại hay dậy sớm nhưng chồng hứa sẽ tắt đèn và gỏ phím rón rén để ko làm hỏng giấc mộng đẹp của vợ yêu.
À đặc điểm nổi bật nhất của chồng là lúc nào cũng đi một mình từ đám cưới, lễ hội hay hội thảo, hội nghị cứ thấy anh chàng nào có 1 mình mắt nhìn dáo dác thì 99,99% đó là chồng rồi (đang tìm vợ đấy mà) vợ để ý nhé.
Vợ yêu liên lạc với chồng nhé nếu chưa có điều kiện gặp trực tiếp thì vợ liên lạc với chồng qua dzahu nhé níc của chồng là docthanmakhongvuitinh (độc thân mà không vui tính) .

TB. Chồng yêu vợ lắm nhé mau mà liên lạc với chồng đi.

Cái ảnh trái tim í là chồng chôm nhà người khác về chỉnh màu đấy chứ chồng ko biết vẽ đâu

Hoàn thiện Lisp tạo và chỉnh sửa menu.

2011-09-08T01:54:00.001-07:00

Nay mình hoàn thiện lisp tạo nemu giúp các bạn ko rành vẩn tạo được menu bằng thao tác trực quan và dể hiểu.
-Bạn load file này về và copy vào thư mục menu trong ổ E. (do mình gặp trở ngại trong việc xoá file bằng lisp nên bị hạn chế phải thư mục cố định mới được).
-Load nó lên gỏ lệnh VMN thì sẽ có 1 menu mới cho bạn: Ban đầu nó có tên duy782006 (quảng cáo tí) bạn dùng lệnh DTMN hoặc chọn trên menu để đổi tên theo ý bạn.
-Khi load lên nó sẽ xuất hiện menu sử dụng:
+Ban đầu nó chỉ có 1 mục đó là giới thiệu lisp menu (trong quá trình biên tập bạn nên đổi nó sang chức năng khác vì đây là mục khởi thuỷ mình tạo để có đường vào chức năng biên tập)
+Phía dưới menu sử dụng có chức năng gọi menu biên tập (mục này là cố định lisp không hổ trợ chỉnh sửa mục này).
-Khi gọi menu biên tập lisp sẽ tắt menu sử dụng và thay menu biên tập vào:
+Menu biên tập có các mục giống hệt menu sử dụng trong phần hiển thị tiêu đề chỉ khác phía sau có chử biên tập bạn chọn mục nào thì chức năng biên tập sẽ cho các lựa chọn:
Gỏ C: Chèn mục đơn vào bên trên vị trí mục vừa chọn.
Gỏ L: Chèn mục xếp lớp vào vào bên trên vị trí mục vừa chọn (lưu ý rằng lisp hổ trợ việc lồng các mục xếp lớp vào nhau nhưng chỉ giới hạn trong 5 cấp vì mình nghỉ như thế là quá đủ cho nhu cầu) có một hạn chế là lisp ko kiểm tra tính sẳn có của 1 menu xếp lớp nên nếu bạn tạo 1 mục xếp lớp có tiêu đề trùng tiêu đề menu xếp lớp hiện có thì menu cũ sẽ được thay thế bằng menu mới. Mổi mục xếp lớp tại menu biên tập sẽ có 1 mục hổ trợ xoá bỏ menu này (mục này bạn không thể thay đổi nội dung và không xuất hiện bên menu sử dụng).
Gỏ P: Chèn đường phân cách bên trên vị trí mục vừa chọn. Trên mổi đường phân cách trong menu biên tập sẽ có 1 mục xoá đường phân cách giúp việc xoá đường phân cách bêb dưới mà không ảnh hưởng đến các đường phân cách khác (mục này bạn không thể thay đổi nội dung và không xuất hiện bên menu sử dụng).
Gỏ S: Sửa mục chọn bằng cách nhập nội dung hiển thị và tên lệnh mới.
Gỏ X: Xoá bỏ mục chọn (lưu ý rằng kkhông nên xoá bỏ toàn bộ các mục đơn vì như thế sẽ ko có mục khởi thuỷ giúp bạn thực hiện chức năng biên tập).
*Tại menu biên tập còn hổ trợ các chức năng:
-ĐTNM: Đổi tên menu chính.
-SLMN: Sao lưu menu hiện hành.
-GLMN: Gọi lại menu đã sao lưu.
-TLMN: Tạo mới menu (lúc này menu quay về trạng thái ban đầu như khi vừa mới gọi lệnh VMN).
-XBMN: Xoá bỏ hoàn toàn menu khỏi cad của bạn
*Khi nào cần sử dụng chức năng biên tập thì bạn hãy load lisp còn bình thường menu hoạt động mà ko cần lip (chỉ là chức năng gọi menu biên tập sẽ không thực hiện được).

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop1xl ()
(setq filemenuchinhp1xl (open (strcat dauduongdan tenfilemodoc) "r"))
(while (setq noidungmenuchinhp1xl (read-line filemenuchinhp1xl))
(setq noidungnguyen noidungmenuchinhp1xl)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop") (setq tenfilemodoc (strcat "/menuxl" ndtruoc ".txt")) (write-line (strcat "[->" ndtruoc "]") filemns) (docghigiuapop1xla))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t(" ndsau ")]^C^C_" ndsau) filemns))
))
))

(close filemenuchinhp1xl)
(write-line (strcat "[<---]") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop1xla ()
(setq filemenuchinhp1xla (open (strcat dauduongdan tenfilemodoc) "r"))
(while (setq noidungmenuchinhp1xla (read-line filemenuchinhp1xla))
(setq noidungnguyen noidungmenuchinhp1xla)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop") (setq tenfilemodoc (strcat "/menuxl" ndtruoc ".txt")) (write-line (strcat "[->" ndtruoc "]") filemns) (docghigiuapop1xlb))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t(" ndsau ")]^C^C_" ndsau) filemns))
))
))

(close filemenuchinhp1xla)
(write-line (strcat "[<---]") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop1xlb ()
(setq filemenuchinhp1xlb (open (strcat dauduongdan tenfilemodoc) "r"))
(while (setq noidungmenuchinhp1xlb (read-line filemenuchinhp1xlb))
(setq noidungnguyen noidungmenuchinhp1xlb)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop") (setq tenfilemodoc (strcat "/menuxl" ndtruoc ".txt")) (write-line (strcat "[->" ndtruoc "]") filemns) (docghigiuapop1xlc))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t(" ndsau ")]^C^C_" ndsau) filemns))
))
))

(close filemenuchinhp1xlb)
(write-line (strcat "[<---]") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop1xlc ()
(setq filemenuchinhp1xlc (open (strcat dauduongdan tenfilemodoc) "r"))
(while (setq noidungmenuchinhp1xlc (read-line filemenuchinhp1xlc))
(setq noidungnguyen noidungmenuchinhp1xlc)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop") (setq tenfilemodoc (strcat "/menuxl" ndtruoc ".txt")) (write-line (strcat "[->" ndtruoc "]") filemns) (docghigiuapop1xld))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t(" ndsau ")]^C^C_" ndsau) filemns))
))
))

(close filemenuchinhp1xlc)
(write-line (strcat "[<---]") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop1xld ()
(setq filemenuchinhp1xld (open (strcat dauduongdan tenfilemodoc) "r"))
(while (setq noidungmenuchinhp1xld (read-line filemenuchinhp1xld))
(setq noidungnguyen noidungmenuchinhp1xld)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop") (setq tenfilemodoc (strcat "/menuxl" ndtruoc ".txt")) (write-line (strcat "[->" ndtruoc "]") filemns) (docghigiuapop1xle))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t(" ndsau ")]^C^C_" ndsau) filemns))
))
))

(close filemenuchinhp1xld)
(write-line (strcat "[<---]") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop1xle ()
(setq filemenuchinhp1xle (open (strcat dauduongdan tenfilemodoc) "r"))
(while (setq noidungmenuchinhp1xle (read-line filemenuchinhp1xle))
(setq noidungnguyen noidungmenuchinhp1xle)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "mnduongphancach") (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t(" ndsau ")]^C^C_" ndsau) filemns))
))

(close filemenuchinhp1xle)
(write-line (strcat "[<---]") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop2xl ()
(setq filemenuchinhp2xl (open (strcat dauduongdan tenfilemodoc) "r"))
(while (setq noidungmenuchinhp2xl (read-line filemenuchinhp2xl))
(setq noidungnguyen noidungmenuchinhp2xl)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop")
(setq tenfilemodoca (strcat "/menuxl" ndtruoc ".txt"))
(write-line (strcat "[->" ndtruoc "]") filemns)
(setq tenmnxlhthia ndtruoc)
(docghigiuapop2xla))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line (strcat "[Xoa duong phan cach]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xl "\"" "\;" "\"" tenfilemodoc "\"" "\;" "\"" "x" "\"" "\;") filemns) (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t--Bien Tap]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xl "\"" "\;" "\"" tenfilemodoc "\"" "\;") filemns))
))
))

(close filemenuchinhp2xl)
(write-line (strcat "[---]") filemns)
(write-line (strcat "[<-Xoa menu xep lop " tenmnxlhthi " nay]^C^C_" "xmnxl" "\;" "\"" tenmnxlhthi "@menuxeplop" "\"" "\;" "\"" "/menuchinh.txt" "\"" "\;") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop2xla ()
(setq filemenuchinhp2xla (open (strcat dauduongdan tenfilemodoca) "r"))
(while (setq noidungmenuchinhp2xla (read-line filemenuchinhp2xla))
(setq noidungnguyen noidungmenuchinhp2xla)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop")
(setq tenfilemodocb (strcat "/menuxl" ndtruoc ".txt"))
(write-line (strcat "[->" ndtruoc "]") filemns)
(setq tenmnxlhthib ndtruoc)
(docghigiuapop2xlb))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line (strcat "[Xoa duong phan cach]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xla "\"" "\;" "\"" tenfilemodoca "\"" "\;" "\"" "x" "\"" "\;") filemns) (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t--Bien Tap]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xla "\"" "\;" "\"" tenfilemodoca "\"" "\;") filemns))
))
))

(close filemenuchinhp2xla)
(write-line (strcat "[---]") filemns)
(write-line (strcat "[<-Xoa menu xep lop " tenmnxlhthia " nay]^C^C_" "xmnxl" "\;" "\"" tenmnxlhthia "@menuxeplop" "\"" "\;" "\"" tenfilemodoc "\"" "\;") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop2xlb ()
(setq filemenuchinhp2xlb (open (strcat dauduongdan tenfilemodocb) "r"))
(while (setq noidungmenuchinhp2xlb (read-line filemenuchinhp2xlb))
(setq noidungnguyen noidungmenuchinhp2xlb)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop")
(setq tenfilemodocc (strcat "/menuxl" ndtruoc ".txt"))
(write-line (strcat "[->" ndtruoc "]") filemns)
(setq tenmnxlhthic ndtruoc)
(docghigiuapop2xlc))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line (strcat "[Xoa duong phan cach]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xlb "\"" "\;" "\"" tenfilemodocb "\"" "\;" "\"" "x" "\"" "\;") filemns) (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t--Bien Tap]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xlb "\"" "\;" "\"" tenfilemodocb "\"" "\;") filemns))
))
))

(close filemenuchinhp2xlb)
(write-line (strcat "[---]") filemns)
(write-line (strcat "[<-Xoa menu xep lop " tenmnxlhthib " nay]^C^C_" "xmnxl" "\;" "\"" tenmnxlhthib "@menuxeplop" "\"" "\;" "\"" tenfilemodoca "\"" "\;") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop2xlc ()
(setq filemenuchinhp2xlc (open (strcat dauduongdan tenfilemodocc) "r"))
(while (setq noidungmenuchinhp2xlc (read-line filemenuchinhp2xlc))
(setq noidungnguyen noidungmenuchinhp2xlc)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop")
(setq tenfilemodocd (strcat "/menuxl" ndtruoc ".txt"))
(write-line (strcat "[->" ndtruoc "]") filemns)
(setq tenmnxlhthid ndtruoc)
(docghigiuapop2xld))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line (strcat "[Xoa duong phan cach]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xlc "\"" "\;" "\"" tenfilemodocc "\"" "\;" "\"" "x" "\"" "\;") filemns) (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t--Bien Tap]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xlc "\"" "\;" "\"" tenfilemodocc "\"" "\;") filemns))
))
))

(close filemenuchinhp2xlc)
(write-line (strcat "[---]") filemns)
(write-line (strcat "[<-Xoa menu xep lop " tenmnxlhthic " nay]^C^C_" "xmnxl" "\;" "\"" tenmnxlhthic "@menuxeplop" "\"" "\;" "\"" tenfilemodocb "\"" "\;") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop2xld ()
(setq filemenuchinhp2xld (open (strcat dauduongdan tenfilemodocd) "r"))
(while (setq noidungmenuchinhp2xld (read-line filemenuchinhp2xld))
(setq noidungnguyen noidungmenuchinhp2xld)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop")
(setq tenfilemodoce (strcat "/menuxl" ndtruoc ".txt"))
(write-line (strcat "[->" ndtruoc "]") filemns)
(setq tenmnxlhthie ndtruoc)
(docghigiuapop2xle))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line (strcat "[Xoa duong phan cach]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xld "\"" "\;" "\"" tenfilemodocd "\"" "\;" "\"" "x" "\"" "\;") filemns) (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t--Bien Tap]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xld "\"" "\;" "\"" tenfilemodocd "\"" "\;") filemns))
))
))

(close filemenuchinhp2xld)
(write-line (strcat "[---]") filemns)
(write-line (strcat "[<-Xoa menu xep lop " tenmnxlhthid " nay]^C^C_" "xmnxl" "\;" "\"" tenmnxlhthid "@menuxeplop" "\"" "\;" "\"" tenfilemodocc "\"" "\;") filemns)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun docghigiuapop2xle ()
(setq filemenuchinhp2xle (open (strcat dauduongdan tenfilemodoce) "r"))
(while (setq noidungmenuchinhp2xle (read-line filemenuchinhp2xle))
(setq noidungnguyen noidungmenuchinhp2xle)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "mnduongphancach") (write-line (strcat "[Xoa duong phan cach]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2xle "\"" "\;" "\"" tenfilemodoce "\"" "\;" "\"" "x" "\"" "\;") filemns) (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t--Bien Tap]^C^C_" "xmnkxl" "\;" "\"" noidungmenuchinhp2xle "\"" "\;" "\"" tenfilemodoce "\"" "\;") filemns))
))

(close filemenuchinhp2xle)
(write-line (strcat "[---]") filemns)
(write-line (strcat "[<-Xoa menu xep lop " tenmnxlhthie " nay]^C^C_" "xmnxl" "\;" "\"" tenmnxlhthie "@menuxeplop" "\"" "\;" "\"" tenfilemodocd "\"" "\;") filemns)
)

;;;;;;;;;;;;;;;;;
(defun c:vmn ()
(doanvmn))
;;;;;;;;;;;;;
(setq dauduongdan "E:/menu")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun doanvmn ()

(setq filemns (open (strcat dauduongdan "/dslenh.mns") "w"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;taofilechuamenuchinh
(setq tinhtrangfilechinh (findfile (strcat dauduongdan "/menuchinh.txt")))
(cond
((= nil tinhtrangfilechinh)
(setq taofilemenuchinh (open (strcat dauduongdan "/menuchinh.txt") "w"))
(write-line "Gioi thieu menu @gtmn" taofilemenuchinh)
(close taofilemenuchinh)
))

;;;;;;;;;;;;;;;;;;;;;;;;;;;taofilechuatenmenu
(setq tinhtrangfilechinh (findfile (strcat dauduongdan "/tenmenu.txt")))
(cond
((= nil tinhtrangfilechinh)
(setq taofiletenmenu (open (strcat dauduongdan "/tenmenu.txt") "w"))
(write-line "Menu Duy782006" taofiletenmenu)
(close taofiletenmenu)
))

;;;;;;;;;;;;;;;;;;;;;;;;;;;vietdaupop1
(setq mofiletieude (open (strcat dauduongdan "/tenmenu.txt") "r"))
(setq noidungtieude (read-line mofiletieude))
(close mofiletieude)
(write-line "***MENUGROUP=DSLenh" filemns)
(write-line "***POP1" filemns)
(write-line (strcat "ID_tieude [" noidungtieude "]") filemns)

;;;;;;;;;;;;;;;;;;;;;;;;;;;vietgiuapop1
(setq filemenuchinhp1 (open (strcat dauduongdan "/menuchinh.txt") "r"))
(while (setq noidungmenuchinhp1 (read-line filemenuchinhp1))
(setq noidungnguyen noidungmenuchinhp1)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop") (setq tenfilemodoc (strcat "/menuxl" ndtruoc ".txt")) (write-line (strcat "[->" ndtruoc "]") filemns) (docghigiuapop1xl))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t(" ndsau ")]^C^C_" ndsau) filemns))
))
))
(close filemenuchinhp1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;vietcuoipop1
(write-line "[---]" filemns)
(write-line "[Goi menu bien tap \t(BTMN)]^C^C_btmn" filemns)

;;;;;;;;;;;;;;;;;;;;;;;;;;;vietdaupop2
(write-line "***POP2" filemns)
(write-line (strcat "ID_tieude [" noidungtieude "]") filemns)

;;;;;;;;;;;;;;;;;;;;;;;;;;;vietgiuapop2
(setq filemenuchinhp2 (open (strcat dauduongdan "/menuchinh.txt") "r"))
(while (setq noidungmenuchinhp2 (read-line filemenuchinhp2))
(setq noidungnguyen noidungmenuchinhp2)
(setq dodainguyen (strlen noidungnguyen))
(setq dodainguyenl dodainguyen)
(doc@)

(cond
((= ndsau "menuxeplop")
(setq tenfilemodoc (strcat "/menuxl" ndtruoc ".txt"))
(write-line (strcat "[->" ndtruoc "]") filemns)
(setq tenmnxlhthi ndtruoc)
(setq tenfilemoxoa "/menuchinh.txt")
(docghigiuapop2xl))
((/= ndsau "menuxeplop")

(cond
((= ndsau "mnduongphancach") (write-line (strcat "[Xoa duong phan cach]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2 "\"" "\;" "\"" "/menuchinh.txt" "\"" "\;" "\"" "x" "\"" "\;") filemns) (write-line "[---]" filemns))
((/= ndsau "mnduongphancach")

(write-line (strcat "[" ndtruoc "\t--Bien Tap]^C^C_" "xmn" "\;" "\"" noidungmenuchinhp2 "\"" "\;" "\"" "/menuchinh.txt" "\"" "\;") filemns))
))
))
(close filemenuchinhp2)

;;;;;;;;;;;;;;;;;;;;;;;;;;;vietcuoipop2
(write-line "[---]" filemns)
(write-line "[DOI TEN MENU CHINH \t(DTMN)]^C^C_dtmn" filemns)
(write-line "[xOA BO MENU \t(XBMN)]^C^C_xbmn" filemns)
(write-line "[LAM LAI MENU \t(TLMN)]^C^C_tlmn" filemns)
(write-line "[LUU MENU HIEN TAI \t(SLMN)]^C^C_slmn" filemns)
(write-line "[LOAD MENU DA LUU \t(GLMN)]^C^C_glmn" filemns)
(write-line "[---]" filemns)
(write-line "[Goi menu su dung \t(SDMN)]^C^C_sdmn" filemns)

;;;;;;;;;;;;;;;;;;;;;;;;;;;ketthucvietmns
(close filemns)

(command "_menuload" (strcat dauduongdan "/dslenh.mns"))
(menucmd "P13=+DSlenh.pop1")
(princ)
)

;;;;;;;;;;;;;;
;;;;;;;;;;;;;;
;;;;;;;;;;;;;;
(Defun doc@ ( )

(setq dodainguyen (- dodainguyen 1))
(setq noidungdocdc (substr noidungnguyen dodainguyen 1))
(if (/= noidungdocdc "@")
(doc@)
)
(IF (= noidungdocdc "@") (PROGN
(setq ndtruoc (substr noidungnguyen 1 (- dodainguyen 1)))
(setq ndsau (substr noidungnguyen (+ dodainguyen 1) (- dodainguyenl dodainguyen)))
)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:xbmn ()
(command "_menuunload" "DSLenh")
(command "SHELL" (strcat "del " "E:\\menu\\dslenh.*" ))
(command "DELAY" "3000" "")
(command "SHELL" (strcat "del " "E:\\menu\\*.txt" ))
(command "DELAY" "3000" "")
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tlmn ()
(command "_menuunload" "DSLenh")
(command "SHELL" (strcat "del " "E:\\menu\\dslenh.*" ))
(command "DELAY" "3000" "")
(command "SHELL" (strcat "del " "E:\\menu\\*.txt" ))
(command "DELAY" "3000" "")
(doanvmn)
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:slmn ()
(command "SHELL" "MD E:\\menu\\saoluumenu" )
(command "DELAY" "1000" "")
(command "SHELL" "copy E:\\menu\\*.txt E:\\menu\\saoluumenu\\" )
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:glmn ()
(command "_menuunload" "DSLenh")
(command "SHELL" (strcat "del " "E:\\menu\\dslenh.*" ))
(command "DELAY" "3000" "")
(command "SHELL" (strcat "del " "E:\\menu\\*.txt" ))
(command "DELAY" "3000" "")
(command "SHELL" "copy E:\\menu\\saoluumenu\\*.txt E:\\menu\\" )
(command "DELAY" "3000" "")
(doanvmn)
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:btmn ()
(command "_menuunload" "DSLenh")
(command "_menuload" (strcat dauduongdan "/dslenh.mns"))
(menucmd "P13=+DSlenh.pop2")
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:sdmn ()
(command "_menuunload" "DSLenh")
(command "_menuload" (strcat dauduongdan "/dslenh.mns"))
(menucmd "P13=+DSlenh.pop1")
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:dtmn ()
(setq tenmoi (getstring "\nNhap ten menu:"))
(command "_menuunload" "DSLenh")
(setq mofiletieude (open (strcat dauduongdan "/tenmenu.txt") "w"))
(write-line tenmoi mofiletieude)
(close mofiletieude)
(doanvmn)
(Princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:xmn ()
(setq noidungtimxoa (getstring "\nNhap:"))
(setq filedocsua (getstring "\nNhap:"))

(setq mofilegiua (open (strcat dauduongdan filedocsua) "r"))
(setq mofiletrunggian (open (strcat dauduongdan "/trunggian.txt") "w"))
(setq kieutacdongmenu (strcase (getstring "\nChen muc don/ chen muc xep Lop/ Sua muc/ Xoa muc/ chen duong Phan cach:")))

(cond
((= kieutacdongmenu "X")
(while (setq noidunggiua (read-line mofilegiua))
(if (/= noidungtimxoa noidunggiua)
(write-line noidunggiua mofiletrunggian)
)
)
);dongcondxoamenu
((= kieutacdongmenu "S")
(setq noidunghienthi (getstring 5"\nNhap noi dung hien thi tren menu:"))
(setq tenlenh (getstring "\nNhap ten lenh:"))
(setq chuoivietthem (strcat noidunghienthi "@" tenlenh))

(while (setq noidunggiua (read-line mofilegiua))
(if (/= noidungtimxoa noidunggiua)
(write-line noidunggiua mofiletrunggian)
)
(if (= noidungtimxoa noidunggiua)
(write-line chuoivietthem mofiletrunggian)
)
)
);dongcondchinhmenu
((= kieutacdongmenu "C")
(setq noidunghienthi (getstring 5"\nNhap noi dung hien thi tren menu:"))
(setq tenlenh (getstring "\nNhap ten lenh:"))
(setq chuoivietthem (strcat noidunghienthi "@" tenlenh))

(while (setq noidunggiua (read-line mofilegiua))
(if (= noidungtimxoa noidunggiua)
(write-line chuoivietthem mofiletrunggian)
)
(write-line noidunggiua mofiletrunggian)
)
);dongcondthemmenu

((= kieutacdongmenu "L")
(setq noidunghienthi (getstring 5"\nNhap tieu de menu xep lop nay:"))
(setq chuoivietthem (strcat noidunghienthi "@menuxeplop"))

(while (setq noidunggiua (read-line mofilegiua))
(if (= noidungtimxoa noidunggiua)
(write-line chuoivietthem mofiletrunggian)
)
(write-line noidunggiua mofiletrunggian)
)
(setq mofilexeplopghi (open (strcat dauduongdan "/menuxl" noidunghienthi ".txt") "w"))
(write-line "Gioi thieu menu xep lop@gtmnxl" mofilexeplopghi)
(close mofilexeplopghi)
);dongcondthemmenuxeplop

((= kieutacdongmenu "P")
(setq thoigianhienhanh (menucmd "M=$(getvar, date)"))
(setq chuoivietthem (strcat thoigianhienhanh "@mnduongphancach"))

(while (setq noidunggiua (read-line mofilegiua))
(if (= noidungtimxoa noidunggiua)
(write-line chuoivietthem mofiletrunggian)
)
(write-line noidunggiua mofiletrunggian)
)
);dongcondthemmenuphancach

);dongcond

(close mofilegiua)
(close mofiletrunggian)

(setq mofilegiua (open (strcat dauduongdan filedocsua) "w"))
(setq mofiletrunggian (open (strcat dauduongdan "/trunggian.txt") "r"))
(while (setq noidunggiua (read-line mofiletrunggian))
(write-line noidunggiua mofilegiua)
)
(close mofilegiua)
(close mofiletrunggian)
(command "SHELL" (strcat "del " "E:\\menu\\trunggian.txt" ))
;(command "SHELL" (strcat "del " dauduongdan "/trunggian.txt" ))

(command "_menuunload" "DSLenh")
(doanvmn)

(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:xmnkxl ()
(setq noidungtimxoa (getstring "\nNhap:"))
(setq filedocsua (getstring "\nNhap:"))

(setq mofilegiua (open (strcat dauduongdan filedocsua) "r"))
(setq mofiletrunggian (open (strcat dauduongdan "/trunggian.txt") "w"))
(setq kieutacdongmenu (strcase (getstring "\nChen muc don/ Sua muc/ Xoa muc/ chen duong Phan cach:")))

(cond
((= kieutacdongmenu "X")
(while (setq noidunggiua (read-line mofilegiua))
(if (/= noidungtimxoa noidunggiua)
(write-line noidunggiua mofiletrunggian)
)
)
);dongcondxoamenu
((= kieutacdongmenu "S")
(setq noidunghienthi (getstring 5"\nNhap noi dung hien thi tren menu:"))
(setq tenlenh (getstring "\nNhap ten lenh:"))
(setq chuoivietthem (strcat noidunghienthi "@" tenlenh))

(while (setq noidunggiua (read-line mofilegiua))
(if (/= noidungtimxoa noidunggiua)
(write-line noidunggiua mofiletrunggian)
)
(if (= noidungtimxoa noidunggiua)
(write-line chuoivietthem mofiletrunggian)
)
)
);dongcondchinhmenu
((= kieutacdongmenu "C")
(setq noidunghienthi (getstring 5"\nNhap noi dung hien thi tren menu:"))
(setq tenlenh (getstring "\nNhap ten lenh:"))
(setq chuoivietthem (strcat noidunghienthi "@" tenlenh))

(while (setq noidunggiua (read-line mofilegiua))
(if (= noidungtimxoa noidunggiua)
(write-line chuoivietthem mofiletrunggian)
)
(write-line noidunggiua mofiletrunggian)
)
);dongcondthemmenu

((= kieutacdongmenu "P")
(setq thoigianhienhanh (menucmd "M=$(getvar, date)"))
(setq chuoivietthem (strcat thoigianhienhanh "@mnduongphancach"))

(while (setq noidunggiua (read-line mofilegiua))
(if (= noidungtimxoa noidunggiua)
(write-line chuoivietthem mofiletrunggian)
)
(write-line noidunggiua mofiletrunggian)
)
);dongcondthemmenuphancach

);dongcond

(close mofilegiua)
(close mofiletrunggian)

(setq mofilegiua (open (strcat dauduongdan filedocsua) "w"))
(setq mofiletrunggian (open (strcat dauduongdan "/trunggian.txt") "r"))
(while (setq noidunggiua (read-line mofiletrunggian))
(write-line noidunggiua mofilegiua)
)
(close mofilegiua)
(close mofiletrunggian)
(command "SHELL" (strcat "del " "E:\\menu\\trunggian.txt" ))
;(command "SHELL" (strcat "del " dauduongdan "/trunggian.txt" ))

(command "_menuunload" "DSLenh")
(doanvmn)

(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:xmnxl ()
(setq noidungtimxoa (getstring "\nNhap:"))
(setq filedocsua (getstring "\nNhap:"))

(setq mofilegiua (open (strcat dauduongdan filedocsua) "r"))
(setq mofiletrunggian (open (strcat dauduongdan "/trunggian.txt") "w"))

(while (setq noidunggiua (read-line mofilegiua))
(if (/= noidungtimxoa noidunggiua)
(write-line noidunggiua mofiletrunggian)
)
)

(close mofilegiua)
(close mofiletrunggian)

(setq mofilegiua (open (strcat dauduongdan filedocsua) "w"))
(setq mofiletrunggian (open (strcat dauduongdan "/trunggian.txt") "r"))
(while (setq noidunggiua (read-line mofiletrunggian))
(write-line noidunggiua mofilegiua)
)
(close mofilegiua)
(close mofiletrunggian)
(command "SHELL" (strcat "del " "E:\\menu\\trunggian.txt" ))
;(command "SHELL" (strcat "del " dauduongdan "/trunggian.txt" ))

(command "_menuunload" "DSLenh")
(doanvmn)

(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun c:gtmn ( )
(alert "*Tien ich bien tap va su dung menu truc quan.
*Co hai menu song song voi cac de muc giong nhau:
-Menu su dung: Dung nhu menu binh thuong.
-Menu bien tap: Co chuc nang bien tap, khi ban chon bien tap muc nao thi co 5 lua chon cho ban:
+Go C: Chen muc menu don tren muc vua chon.
+Go L: Chen muc menu xep lop tren muc vua chon.
+Go P: Chen duong phan cach tren muc vua chon.
+Go S: Chinh sua muc vua chon.
+Go X: Xoa bo muc vua chon khoi menu.
*Menu su dung co muc cuoi cung dung goi menu bien tap.
*Menu bien tap co muc cuoi cung dung goi menu su dung va cac chuc nang:
-Doi ten menu chinh.
-Xoa bo menu.
-Sao luu menu.
-Goi menu da luu.
-Khoi tao lai menu ban dau")
(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun c:gtmnxl ( )
(alert "-Khi khoi tao mot menu xep lop minh mac dinh cho no mot muc don hien hanh.
-Tu muc don nay ban dung chuc nang bien tap de co duoc menu ung y.
-Minh ho tro ban viec tao ra cac menu xep lop long trong nhau.
-Gioi han long menu xep lop o day minh goi han trong 5 cap.
-Khi ban tao 2 menu xep lop co ten trung nhau thi noi dung cua menu tao sau se thay the menu truoc.")
(princ))

Tải về

An toàn giao thông.

2011-09-08T01:43:00.000-07:00

-Mấy nay ra đường thấy nhiều băng rôn tuyên truyền về an toàn giao thông treo đầy đường.
-Kể cũng xôm nhưng ko biết mấy bác chỉ đạo hay mấy "thèn" treo bị lú lẩn mà toàn treo che tầm nhìn giao thông, đặc biệt là che ráo trọi đèn tín hiệu giao thông. Phải đến cách nó 2 bước chân thì mới thấy nó sáng đèn màu gì.

Lisp offset về hai phía.

2011-08-13T04:11:00.001-07:00

Trước đây mình có lisp VT dùng offset line về hai bên nay nâng nó lên cho Pline, line, spline, circle, ellipse.
-Tên lệnh O2.

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

(Defun c:o2 ()
(vl-load-com)
(command "undo" "be")

(if (= droff nil)
(setq droff1 2.00)
(setq droff1 droff)
)
(setq
droff (GETREAL (strcat "\nNhap do rong offset: <" (rtos droff1 2 2) ">"))
)
(if (= droff nil)
(setq droff droff1)
)

(setq SS (ssget (list (cons 0 "ellipse,lwpolyline,spline,line,circle"))))
(setq i 0)
(setq N (sslength ss))
(while (< i N)
(setq TEXTENT (ssname SS i))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)

(setq diemchuan (vlax-curve-getPointAtDist TEXTENT 0))
(setq diemdinhhuong (vlax-curve-getPointAtDist TEXTENT 0.01))
(setq goc (angle diemchuan diemdinhhuong))
(setq diembentrai (polar diemchuan (- goc (/ pi 2)) droff))
(setq diembenphai (polar diemchuan (+ goc (/ pi 2)) droff))

(command ".offset" droff textent diembentrai textent diembenphai "")

(setq i (1+ i))
(setvar "osmode" luubatdiem)
)

(command "undo" "end")
(princ)
)

Tải về

Lập lờ.

2011-08-12T03:07:00.000-07:00

1.
-Là 1 thèn đàn ông trí nhớ kém lại ko quen trả giá nhưng nhiều lúc cần mua vài món đồ lựa chọn của mình là siêu thị lúc này mình có thể yên tâm cả đám người đang di chuyển, bốc, xách quanh mình kia cũng chịu cùng chung mức giá với mình chứ ko cá nhân nào tài năng trả giá được trong siêu thị cả.
-Đi ngang hàng gì gì đó đang kiếm chai mắm và ko rỏ cái nào ngon dở thì ô là la có 1 chai in hàng chử "nước mắm nhỉ" to tổ nái thế là mua (nước mắm nhỉ mà ko ngon mới lạ). Đem em về nhà ăn gần quá nửa chai mới phát hiện phía trên dòng chử to vật vã kia là dòng bé xíu "thơm ngon như" khà khà cái tội mắt mũi kèm nhèm ăn trúng hàng điểu nó đã bảo tao là đồ nhái còn bưng về.

2.
-Cơ quan mình ở ngã năm nhìn ra ngoài bằng 1 mảng kính tầm 6m X 3m, nói chung ngày nào cũng thấy tai nạn ngoài đó nhưng may toàn a quyệt nhẹ.
-Sáng ra đùng 1 cái bên kia đường trưng cái biển quảng cáo cửa hàng mới mở mua điện thoại tặng đến 2 triệu. Bà con bàn tán chắc nó dụ chứ khi đến mua lại đưa đều kiện là phải mua điện thoại gì thì mới tặng hai triệu chứ. Nhưng hoá ra anh em đa nghi cứ mua điện thoại là tặng ... nhưng do anh em ko chịu đọc cái dòng nhỏ xíu bên dưới chứ hai triệu đây là hai triệu phiếu quà tặng khứa khứa.

Sưu tầm ý nghĩa từ SEO

2011-08-02T02:17:00.000-07:00

-Lâu nay thấy cụm từ SEO xuất hiện kha khá trên net hỏi bé yêu (rành ngoại ngữ hơn mình) thì bé chỉ biết CEO về lĩnh vực kinh doanh hay ngân hàng gì gì đó.
-Nay vào Đây thì chộp được như sau:
"SEO: Viết tắt của cụm từ Search Engine Optimization, thường được dịch là tối ưu hoá công cụ tìm kiếm, tạo ra các nội dung trên một web/blog về một chủ đề nào đó sao cho khi có người dùng các công cụ tìm kiếm (Google, Bing, Yahoo Search…) về chủ đề ấy thì trong phần kết quả hiện ra, web/blog đấy ở ngay những trang đầu."

Nguồn gốc xuất sứ

Đẹp.

2011-07-28T18:34:00.000-07:00

-Sáng sau khi thức gần nguyên đêm để hoàn thành hồ sơ kịp sáng nay giao mình quay về lịch làm thường ngày: Ấy là dậy sớm, ấy là linh tinh cá nhân, ấy là tưới cây quét nhà. À khoe thêm chương trình hành động sáng của mình dạo này có 1 chút âm nhạc.
-Chả là mới bưng đầu DVD ở quê vào và 1 con radio cũ có chức năng như cái nhận và phát âm thanh (con này lụm ở de chai tiết kiệm khoảng vài trăm mua âmly và loa). Với cái lổ tai âm nhạc của mình thì thế là ổn. Sáng muốn nhí nhố thì nghe FM nhạc thì ko mấy chủ yếu nghe 2 MC chí choé, muốn nhẹ nhàng thì lôi Tuấn Ngọc và Quang Dũng cho rên rỉ.
-Âm nhạc sáng còn là 1 bài mà thường xuất hiện tầm 7h20 ấy là bé yêu của mình gọi, mình để bé chuông riêng hà hà.
-Mấy nay công việc khá nhiều nói chung làm đầu tắt mặt tối nhưng ko biết do trời thỉnh thoảng mưa không khí mát mẻ, hay có âm nhạc sáng nhất là nhạc chuông đt mà mình ít trổ quáu khi bị hối.
-Dạo này quanh mình thấy cái gì cũng thật đẹp.

* Vừa mới xoi phần thống kê blog của mình thì:
-Trong tuần này có 406 lượt truy cập từ Bỉ trong khi chỉ có 384 lượt từ Việt Nam. Xem tổng thể toàn thời gian thì Bỉ 5.609 lượt và Việt Nam 33.639 lượt. Vậy là có bạn nào bên ấy đang quan tâm đến blog mình trong thời gian này. Mong rằng bạn ấy cảm thấy không thất vọng khi ghé qua!
-Trong các từ khoá tìm kiếm dẩn đến đây có 1 đoạn từ dung tục chắc bạn này cảm thấy bực khi được dẩn đến đây. Xin lổi bạn vậy do trùng hợp tiêu đề "chú ơi" mà bạn bất đắc dĩ phải ghé qua.
-Các chủ đề quan tam nhiều nhất theo thống kê là cân bằng giữa các bài viết về kỹ thuật và các bài kể lể của mình. Hoá ra mình gỏ cũng tạm tạm. Nhỉ?

Lisp vẽ pline mũi tên 2 đầu

2011-07-14T08:49:00.000-07:00

Nhân dịp có người nhờ chỉnh lisp của người khác nhưng đọc lisp lòi mắt mệt quá nên mình banh ra viết lại tuốt nên giới thiệu luôn đây.
-Tên lệnh: 2MT.
-Chọn điểm thứ nhất, chọn các điểm tiếp theo kết thúc thì enter.
-Điểm đầu và điểm cuối sẽ có dấu mũi tên hình tam giác (giá trị mặc định là 250, có thể nhập giá trị khác).
-Các điểm bên trong xét cặp 3 điểm liền kề nếu thẳng hàng thì vẽ hình tròn vào điểm thứ 3 và thứ 2 (bán kính mặc định 50, có thể nhập giá trị khác)

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

(defun c:2mt(/ tinhtrangtron)
(command "undo" "be")

(vl-load-com)

(if (null dlmt)(setq dlmt "250"))
(if (null dlvt)(setq dlvt "50"))
(Setq temp T)
(While temp
(setq po1 (strcat "\ndo lon Mui ten la(" dlmt ")/ Do lon Vong tron (" dlvt "): "))
(Initget "m M v V")
(setq str (getpoint po1))
(Cond
((= str "m") (setq dlmt (getstring (strcat"\nDo lon mui ten <" dlmt "> :"))))
((= str "M") (setq dlmt (getstring (strcat"\nDo lon mui ten <" dlmt "> :"))))
((= str "V") (setq dlvt (getstring (strcat"\nDo lon vong tron <" dlvt "> :"))))
((= str "v") (setq dlvt (getstring (strcat"\nDo lon vong tron <" dlvt "> :"))))
(Progn
(Setq po1 str)
(setq temp nil)
)
)
)

(setq dlmtt (atof dlmt))

(setq po2 (getpoint po1"\n Chon diem tiep theo :"))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command "pline" po1 "w" 0 (/ dlmtt 2) (polar po1 (angle po1 po2) dlmtt) "w" 0 0 po2 "")
(setvar "osmode" luubatdiem)
(setq La (entlast))
(setq sht 0)

(while (setq po3 (getpoint po2"\nChon diem tiep theo : "))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command "pline" po2 po3 "")
(setvar "osmode" luubatdiem)
(command "pedit" "m" "L" La "" "j" "0" "")
(setq La (entlast))
(cond
((/= (angle po1 po2) (angle po2 po3))
(setq tinhtrangtron "ko")
(if (/= sht 0)(command "erase" vtr ""))
(setq sht 0))
((= (angle po1 po2) (angle po2 po3))
(setq sht (+ 1 sht))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".circle" po3 dlvt)
(setq vtr (entlast))
(if (= sht 1)(command ".circle" po2 dlvt))
(setq tinhtrangtron "co")
(setvar "osmode" luubatdiem)
)
)
(setq po1 po2)
(setq po2 po3)
)

(if (= tinhtrangtron "co")(command "erase" vtr ""))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command "pline" po2 "w" 0 (/ dlmtt 2) (polar po2 (angle po2 po1) dlmtt) "")
(setvar "osmode" luubatdiem)
(command "pedit" "m" "L" La "" "j" "0" "")
(command "undo" "end")
(princ)
)

Tải về

load

Đã viết ở

Nhân dịp thi.

2011-07-05T17:57:00.000-07:00

*Chả liên quan chi tới việc các bạn thí sinh hiện nay đang thi ĐH mà là chuyện thi hồi đại học của mình.
1. Mấy năm đầu đại học mình được ở miễn phí nhà của 1 anh cùng lớp (.. và 1 ngày kia anh này cưới) anh này đi làm thời gian rồi mới lại đi học nên kiến thức cũng trôi đi ít, rủ mình ở miễn phí để hỗ trợ lôi kéo lại đám kiến thức này. Nói chung mình cũng hoàn thành được nhiệm vụ này trong khả năng bản thân.

2. Môn gì quên rồi nổi tiếng là diệt sinh viên.
-Giảng viên cho trước 21 đề trong vòng 1 tuần và cam đoan là thi trong 21 đề ấy thôi. Đám sinh viên mừng như bắt được vàng.
-Nội bộ hình thành khoảng 4 nhóm giải đề nói nhóm cho oai chứ là bốn ông giỏi nhất ngồi giải toàn bộ 21 đề mà ko thèm hợp tác nhau, kèm theo là các ông ko có khả năng giải mà lại muốn có bản photo bảng giải (để làm gì thì ko đào sâu thêm nhớ) chăm lo trà nước ca hát, mỗi nhóm có 1 ông đi hát dạo về tiến độ và dìm hàng nhóm kia. Nói chung không khí sôi xục như báo lá cải hiện nay.
-Ông Duy782006 ko nằm trong 4 ông giỏi nhất nên ko giải đề mà bỏ ra 1 ngày đầu cùng anh chủ nhà đi chơi và hát dạo với bè lũ 4 ông. Sau đó bỏ 1 ngày ngồi dòm bộ đề phân tích tổng hợp, chung quy 21 đề này phân ra có các dạng được chỉnh sửa, xáo trộn. Giử quả đầu tỉnh táo phân xong 4 dạng và đưa ra cách giải từng dạng.
-Phần ông Duy đã xong nhiệm vụ hướng dẩn anh chủ nhà nhận biết các dạng và cách giải từng dạng xong cũng chỉ mất 5 ngày. Còn 2 ngày lại đi hát dạo, xoi thì thấy bè lũ 4 ông giải từng đề cụ thể có ghi số đề rỏ ràng và cái tôi của ông nào cũng to nên ko thèm dòm nhau mà tự giải, phần các ông là người chứ kông phải tiên nên có ông sai bài này có ông sai bài kia. Duy782006 cũng ko dám ý kiến chỉ quán triệt với anh chủ nhà là lập trường phải vững vào phòng thi cứ tự giải theo sườn mình đã chỉ chứ ko thèm chép bài giải tụi nó.
-Vào thi đúng như lời hứa giảng viên phát toàn bộ 21 đề để tránh tình trạng dòm nhau, phòng thi thì yên tâm nhớn vì đã có bộ đề do 4 ông giải cụ thể chỉ phải lén lút chép lại thôi ông nào tinh mắt lẹ tay thì đc. Nhưng ô hô cứ ông nào hô cái số đề lên thì được ném cho 1 đống bài giải, mỗi bài mổi vẻ đếch có giống nhau chỉ có cách bốc đại 1 bài mà chép cố mạng.
-Kết quả thi rớt hàng loạt vì có nhiều cá nhân kiệt sức bốc trúng bài giải sai. Tập đoàn này đc thi lại và cũng vẫn 21 đề ấy. Tập đoàn này mới đi lấy số liệu điều tra từ tầng lớp thi qua là: đề số mấy; bài giải của ai đúng. Nói thật trong lúc bốc mà thèn nào nhớ đc là bài giải của ai thì Duy782006 là tui đi đầu xuống đất. Thế là kịch bản cũ lại tiếp diển thi lần 2 vẩn rụng như sung.
-Tất nhiên Duy782006 và anh chủ nhà đương nhiên qua từ vòng chính thức kèm vài vết bầm do chúng ném bài giải cho mà ko chụp nên coi như bị chọi đá.

3. Thi môn vật liệu xây dựng toàn lớp có mỗi thèn được 10 điểm là Duy782006 lý do đề ra là so sánh 2 loại vật liệu các thành phần khác cũng thuộc nhưng nêu thành danh sách tính năng từng loại xong thôi. Còn mình kẻ thành bảng và sau khi liệt kê có so sánh tính năng này thì cái nào hơn.
-Bác bác kia rút ra bài học. Sau lại thi môn máy xây dựng đề yêu cầu nêu tính năng các loại máy thế là các bác quất cho bảng so sánh lại bị trừ điểm vì tội tào lao.

4. Kinh nghiệm đúc kết:
-Trước khi thi vài ngày thì ko thèm dòm sách vở (vài thôi nhớ trước đó thì phải dòm 1 cách khoa học), nếu được trong thời gian này đi chơi và trưng bày cái sự rãnh của mình cho đối thủ thấy thì càng tốt.
-Không học kiểu thuộc lòng mà tổng hợp ra cái sườn nắm cho vững.
-Dòm ngó và hiểu cái đề cho kỹ họ biểu làm gì thì làm nấy chứ ko có sáng tác ngẫu hứng.

Thêm chức năng thay đổi giá trị text cho lisp rải đt theo đường dẩn

2011-07-03T08:38:00.000-07:00

Đã chỉnh lại lisp thêm chức năng rải text thay đổi giá trị.
-Tên lệnh: RT.
-Hỏi chọn đối tượng ko phải text thì hỏi miết đến khi nào chọn đúng text thì hỏi tiếp điểm chuẩn, trong dòng hỏi điểm chuần có lồng giá trị thay đổi text mặc định là 1 (nghĩa là giá trị text thay đổi theo kiểu cộng 1 giá trị) nếu muốn thay đổi giá trị này thì đừng chọn điểm chuần vội mà gỏ d enter lisp hỏi giá trị cộng thêm bạn nhập vào (nhận cả giá trị âm nhé). Nhập xong lisp tiếp tục hỏi chọn điểm chuẩn.
-Hỏi chọn các đối tượng muốn rải theo (các đối tượng này là bất cứ cái gì bạn muốn) lisp sẽ rải nhóm đối tượng này và cái text bạn chọn ban đầu (giá trị cái text sẽ thay đổi còn các đối tượng chép theo giữ nguyên) nếu không chép theo cái gì thì enter.
-Các bước tiếp theo giống như cũ.
*Trong này có lệnh chính:
-RTD: rải từ điểm đã trình bày hôm trước.
-RDT: rải đồi tượng đã trình bày hôm trước.
-RT: rải text trình bày hôm nay.
*Và 1 lệnh khuyến mại:
-DTD: đo từ điểm, dùng đo độ dài đối tượng giữa 2 điểm trên đối tượng đó.

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

(Defun c:rdt (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituong)
(choncuver)

(setq diemchuan (vlax-curve-getPointAtDist chondd 0))
(setq diemdinhhuong (vlax-curve-getPointAtDist chondd chieudaicuver))

(setq chieudaitinh chieudaicuver)
(setq dautinh +)

(setq thuchienrai raikieukhongtext)
(hoikieuraicd)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun c:dtd (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m daidendiem)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(choncuver)
(cdxuatphatdo)
(cdketthucdo)
(Cond
((< daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidenhuongdo daidendiemdo)))
((> daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidendiemdo daidenhuongdo)))
)
(command "undo" "end")
(princ (strcat "\nChieu dai doan do la: " (rtos chieudaidoan 2 4)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun c:rt (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m daidendiem)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituongtext)

(princ "\nChon doi tuong rai kem theo text :")
(setq ss (ssget))
(cond
((= ss nil) (setq thuchienrai raikieutextkokem))
((/= ss nil) (setq thuchienrai raikieutextcokem)))

(choncuver)
(chondiemxuatphat)
;(setq thuchienrai raikieutext)
(hoikieuraicd)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun c:rtd (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m daidendiem)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituong)
(choncuver)
(chondiemxuatphat)
(setq thuchienrai raikieukhongtext)
(hoikieuraicd)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemchuandoituong ()
(setq dc (getpoint "\nChon diem goc: "))
(cond
((= dc nil) (princ "\nChua chon duoc diem goc:") (chondiemchuandoituong))
((/= ss nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chonnhomdoituongtext ()
(if (null congthem)(setq congthem "1"))
(setq ddd (entsel "\nChon text mau"))
(while
(or
(null ddd)
(/= "TEXT" (cdr (assoc 0 (entget (car ddd)))))
)
(princ "\nDoi tuong khong phai la text! Chon lai")
(setq ddd (entsel "\nChon text mau"))
)
(setq sst (car ddd))
(setq DTTT (entget sst))
(setq NDTTT (cdr (assoc 1 DTTT)))
(Setq temp T)
(While temp
(setq dc (strcat "\nDon vi cong them la(" congthem "): "))
(Initget "D")
(setq str (getpoint dc))
(Cond
((= str "D") (setq congthem (getstring (strcat"\nDon vi cong them la <" congthem "> :"))))
(Progn
(Setq dc str)
(setq temp nil)
)
)
)
(princ)
)

;;;;;;;;;;;;;;;;;
(Defun dotructiep ()
(cdxuatphatdo)
(cdketthucdo)
(Cond
((< daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidenhuongdo daidendiemdo)))
((> daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidendiemdo daidenhuongdo)))
)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdxuatphatdo ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemchuando (getpoint "\nTu diem :"))
(setvar "osmode" 0)
(setq daidendiemdo (vlax-curve-getDistAtPoint chondd diemchuando))
(setvar "osmode"luubatdiem)
(cond
((= daidendiemdo nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdxuatphatdo))
((/= daidendiemdo nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdketthucdo ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemdinhhuongdo (getpoint diemchuando"\nDen diem :"))
(setvar "osmode" 0)
(setq daidenhuongdo (vlax-curve-getDistAtPoint chondd diemdinhhuongdo))
(setvar "osmode"luubatdiem)
(cond
((= daidenhuongdo nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdketthucdo))
((/= daidenhuongdo nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdxuatphat ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemchuan (getpoint "\nDiem bat dau rai tren duong dan:"))
(setvar "osmode" 0)
(setq daidendiem (vlax-curve-getDistAtPoint chondd diemchuan))
(setvar "osmode"luubatdiem)
(cond
((= daidendiem nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdxuatphat))
((/= daidendiem nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdketthuc ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemdinhhuong (getpoint diemchuan"\nDiem ket thuc rai tren duong dan:"))
(setvar "osmode" 0)
(setq daidenhuong (vlax-curve-getDistAtPoint chondd diemdinhhuong))
(setvar "osmode"luubatdiem)
(cond
((= daidenhuong nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdketthuc))
((/= daidenhuong nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun thongbaoketqua ()
(princ (strcat "\nChieu dai doan la: " (rtos chieudaitinh 2 4) doanhienthinoidung))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemxuatphat ()
(cdxuatphat)
(cdketthuc)
(Cond
((< daidendiem daidenhuong) (setq chieudaitinh (- daidenhuong daidendiem)) (setq dautinh +))
((> daidendiem daidenhuong) (setq chieudaitinh (- daidendiem daidenhuong)) (setq dautinh -))
)
(setq doanxuatphat daidendiem)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun hoikieuraicd ()
(setq kraicd (strcase (getstring "\nKieu rai theo: Tinh /So luong/")))

(Cond
((= kraicd "T") (raisoluongtinh))
((/= kraicd "T")
(Cond
((= kraicd "S") (raisoluongcd))
((/= kraicd "S") (raikhoangcachcd))
)
)
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluongtinh ()
(setq slrai (getreal "\nRai them may lan khong tinh doi tuong tai diem bat dau rai:"))
(setq chieudaidoan (GETDIST "\nKhoang cach 1 lan rai: "))
(Cond
((= chieudaidoan 0) (dotructiep)))

(setq tongdoan (* slrai chieudaidoan))
(Cond
((> tongdoan chieudaitinh)
(princ (strcat "\nChieu dai doan la: " (rtos chieudaitinh 2 4) ", Yeu cau la: " (rtos chieudaidoan 2 4) "x" (rtos slrai 2 0) "=" (rtos tongdoan 2 4)))
(princ "\nVuot qua chieu dai cho phep, nhap lai:")
(raisoluongtinh))
((< tongdoan chieudaitinh)
(setq sl (fix (+ slrai 1)))
(setq sl (fix sl))
(setq doanhienthinoidung (strcat "\nDa thuc hien rai: " (rtos slrai 2 0) " lan voi khoang cach " (rtos chieudaidoan 2 4)))
(thuchienrai)
)
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raikhoangcachcd ()
(setq chieudaidoan (GETDIST "\nKhoang cach 1 lan rai: "))
(Cond
((= chieudaidoan 0) (dotructiep)))
(Cond
((> chieudaidoan chieudaitinh)
(princ (strcat "\nChieu dai doan la: " (rtos chieudaitinh 2 4) ", Yeu cau la: " (rtos chieudaidoan 2 4)))
(princ "\nVuot qua chieu dai cho phep, nhap lai:")
(raikhoangcachcd))
((< chieudaidoan chieudaitinh)
(setq sol (+ (/ chieudaitinh chieudaidoan) 1))
(setq sl (fix sol))
(setq sl (fix sl))
(setq doanhienthinoidung (strcat "\nDa thuc hien rai: " (rtos sol 2 0) " lan voi khoang cach " (rtos chieudaidoan 2 4)))
(thuchienrai)
)
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluongcd ()
(setq slc (getreal "\nChia duong dan thanh may lan:"))
(setq chieudaidoan (/ chieudaitinh slc))
(setq sl (fix (+ 1 slc)))
(setq doanhienthinoidung (strcat "\nDa thuc hien rai: " (rtos slc 2 0) " lan voi khoang cach " (rtos chieudaidoan 2 4)))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun chonnhomdoituong ()
(princ "\nChon doi tuong rai:")
(setq ss (ssget))

(cond
((= ss nil) (princ "\nChua chon duoc doi tuong nao:") (chonnhomdoituong))
((/= ss nil)
(setq dsl (sslength ss))
(cond
((= dsl 1)
(setq doituong (ssname SS 0))
(setq doituong (entget doituong))
(setq KIEUDOITUONG (cdr (assoc 0 doituong)))
(cond
((= KIEUDOITUONG "INSERT") (setq dc (cdr (assoc 10 doituong))))
((/= KIEUDOITUONG "INSERT") (chondiemchuandoituong))
);ketthuccondxemblock
);kethucdsl1
((/= dsl 1) (chondiemchuandoituong))
);ketthuccondnho

);ketthucsetqdsl
);ketthuccondtong
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemchuandoituong ()
(setq dc (getpoint "\nChon diem goc: "))
(cond
((= dc nil) (princ "\nChua chon duoc diem goc:") (chondiemchuandoituong))
((/= ss nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun choncuver ()

(setq ddd (entsel "\nChon duong dan:"))
(while
(or
(null ddd)
(or (= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (= "MTEXT" (cdr (assoc 0 (entget (car ddd))))) (= "HATCH" (cdr (assoc 0 (entget (car ddd))))) (= "INSERT" (cdr (assoc 0 (entget (car ddd))))) (= "REGION" (cdr (assoc 0 (entget (car ddd))))) (= "DIMENSION" (cdr (assoc 0 (entget (car ddd)))))
)
)
(setq ddd (entsel "\nDoi tuong khong the lam duong dan! Chon lai"))
)

(setq chondd (car ddd))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq chieudaicuver (vlax-curve-getDistAtParam chondd (vlax-curve-getEndParam chondd)))
(setq doanxuatphat 0)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;
(Defun raikieukhongtext (/ quaykhong)

(setq quaykhong (strcase (getstring "\nCo quay doi tuong vuong goc voi duong dan khong: Khong/")))
(Cond
((= quaykhong "K") (setq copygiua copykoquay))
((/= quaykhong "K")(setq copygiua copyquay))
)

(setq index -1)

(repeat sl
(setq index (1+ index))
(setq d2 (dautinh doanxuatphat (* chieudaidoan index)))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq p2 (vlax-curve-getPointAtDist chondd d2))
(setvar "osmode"luubatdiem)
(copygiua)
)
(thongbaoketqua)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun copycuoiquay()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d5 (- (dautinh doanxuatphat (* chieudaidoan index)) 0.01))
(setq p5 (vlax-curve-getPointAtDist chondd d5))
(setq L 0)
(setq M (sslength ss))
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p5)
(command ".rotate" "last" "" p2 180)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYQUAY(/ p3)
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d3 (+ (dautinh doanxuatphat (* chieudaidoan index)) 0.001))
(setq p3 (vlax-curve-getPointAtDist chondd d3))
(setvar "osmode"luubatdiem)
(Cond
((= p3 nil) (copycuoiquay))
((/= p3 nil)
(setq L 0)
(setq M (sslength ss))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p3)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
)
)

(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;
(Defun raikieutextcokem (/ quaykhong)

(setq quaykhong (strcase (getstring "\nCo quay doi tuong vuong goc voi duong dan khong: Khong/")))
(Cond
((= quaykhong "K") (setq copygiuatext copykoquaytext) (setq copygiua copykoquay))
((/= quaykhong "K")(setq copygiuatext copyquaytext) (setq copygiua copyquay))
)

(setq index -1)

(repeat sl
(setq index (1+ index))
(setq d2 (dautinh doanxuatphat (* chieudaidoan index)))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq p2 (vlax-curve-getPointAtDist chondd d2))
(setvar "osmode"luubatdiem)
(copygiuatext)
(copygiua)
)
(thongbaoketqua)
(princ)
)
;;;;;;;;;;;;;;
(Defun raikieutextkokem (/ quaykhong)

(setq quaykhong (strcase (getstring "\nCo quay doi tuong vuong goc voi duong dan khong: Khong/")))
(Cond
((= quaykhong "K") (setq copygiuatext copykoquaytext))
((/= quaykhong "K")(setq copygiuatext copyquaytext))
)

(setq index -1)

(repeat sl
(setq index (1+ index))
(setq d2 (dautinh doanxuatphat (* chieudaidoan index)))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq p2 (vlax-curve-getPointAtDist chondd d2))
(setvar "osmode"luubatdiem)
(copygiuatext)
)
(thongbaoketqua)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun copycuoiquaytext ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d5 (- (dautinh doanxuatphat (* chieudaidoan index)) 0.01))
(setq p5 (vlax-curve-getPointAtDist chondd d5))
(command ".copy" sst "" dc p2)
(command ".rotate" "last" "" p2 p5)
(command ".rotate" "last" "" p2 180)
(setq congthems (atoi congthem))
(setq DTDM (entlast))

(if (and (>= (ascii NDTTT) 48) (<= (ascii NDTTT) 57))
(setq NDTTT (itoa (+ (atoi NDTTT) congthems)))
(setq NDTTT (chr (+ (ascii NDTTT) congthems)))
)

(setq Elist (entget DTDM))
(setq Oldlist (assoc 1 Elist))
(setq Oldtext (cdr Oldlist))
(setq Oldtext (strcase Oldtext nil))
(setq Newlist (cons '1 NDTTT))
(setq Elist (subst Newlist Oldlist Elist))
(entmod Elist)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYQUAYtext (/ p3)
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d3 (+ (dautinh doanxuatphat (* chieudaidoan index)) 0.001))
(setq p3 (vlax-curve-getPointAtDist chondd d3))
(setvar "osmode"luubatdiem)
(Cond
((= p3 nil) (copycuoiquaytext))
((/= p3 nil)
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".copy" sst "" dc p2)
(command ".rotate" "last" "" p2 p3)

(setq congthems (atoi congthem))
(setq DTDM (entlast))

(if (and (>= (ascii NDTTT) 48) (<= (ascii NDTTT) 57))
(setq NDTTT (itoa (+ (atoi NDTTT) congthems)))
(setq NDTTT (chr (+ (ascii NDTTT) congthems)))
)

(setq Elist (entget DTDM))
(setq Oldlist (assoc 1 Elist))
(setq Oldtext (cdr Oldlist))
(setq Oldtext (strcase Oldtext nil))
(setq Newlist (cons '1 NDTTT))
(setq Elist (subst Newlist Oldlist Elist))
(entmod Elist)
(setvar "osmode"luubatdiem)
)
)

(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYKOQUAYtext ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".copy" sst "" dc p2 "")
(setq congthems (atoi congthem))
(setq DTDM (entlast))

(if (and (>= (ascii NDTTT) 48) (<= (ascii NDTTT) 57))
(setq NDTTT (itoa (+ (atoi NDTTT) congthems)))
(setq NDTTT (chr (+ (ascii NDTTT) congthems)))
)

(setq Elist (entget DTDM))
(setq Oldlist (assoc 1 Elist))
(setq Oldtext (cdr Oldlist))
(setq Oldtext (strcase Oldtext nil))
(setq Newlist (cons '1 NDTTT))
(setq Elist (subst Newlist Oldlist Elist))
(entmod Elist)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;

Tải về

Nhảm nhí, linh tinh

2011-06-22T20:39:00.000-07:00

-Lưu ý bài này không dành cho người đang bực.
-Mà nói trước là rất linh tinh và tào lao đừng có dòm làm gì.
. ..........
. . .
. . . .
. . . . .
. . . . .
. . . . .
. . . ... ...
. .... . . . .........
. . . . . . .
. . . . . . ......
. . . . . . .
. . . . . . .
........ .................... . . ...............
-Vẩn cứ dòm à? Thì đấy dòm đi bảo đừng mà cứ cố xong thì đừng có mà chửi nhé!
Đang thiết kế cái "các vi dít" cho mình.
-Tính đưa luôn số tài khoảng ATM vào để tiện việc ai đó muốn lén đưa tiền cho mình.
-Nghỉ lại làm đếch gì có chuyện đó (đòi mòn mép mà ko đưa nửa là) nên thôi.
-Thấy dở hơi quá ha YOU?.
-Ừ thì đã nói là dở hơi mà ai biểu ngó làm gì.
-Xả xì trét tí ....................... đừng bực. Khứa khứa!

Hoàn thiện lisp rải đối tượng theo đường dẩn.

2011-06-20T01:49:00.000-07:00

-Tên lệnh: RTD (rải từ điểm)
-Hỏi chọn đối tượng muốn rải: Bạn chọn thoải mái bằng các kiểu (đối tượng gì cũng được) kết thúc chọn bằng enter.
+Nếu bạn chọn hơn 1 đối tượng thì sẽ hỏi bạn chọn điểm chuẩn cho nhóm đối tượng này (dùng để làm điểm đặt trên đường dẩn í).
+Nếu bạn chọn 1 đối tượng thì sẽ xem nếu đối tượng không phải là block thì vẩn hỏi chọn điểm chuẩn, Nếu đối tượng là block thì bỏ qua phần hỏi chọn điểm chuẩn mà lấy điểm chèn của block đó làm điểm chuẩn.
-Hỏi chọn đường dẩn dùng để rải.
-Hỏi điểm đầu và điểm cuối đoạn rải (2 điểm này phải nằm trên đường dẩn nếu kông thì lisp sẽ hỏi lại. Sẽ thực hiện rải trong khoảng từ điểm thứ nhất đến điểm thứ 2 nếu bạn muốn rải nguyên đường thì chọn 2 điểm đầu mút)
-Hỏi “Kieu rai theo: Tinh/So luong/(khoang)” :
+Rải theo số lượng thì nhập S enter.
+Rải theo cách tính toán thì nhập T enter.
+Rải theo khoảng cách thì nhập K enter hoặc enter không (thực chất cứ nhập vào khác S thì nhận là khoảng cách).
-Lựa chọn rải theo số lượng thì hỏi số lượng dùng chia điều đoạn rải cho số lượng.
-Lựa chọn Khoảng cách thì hỏi khoảng cách (Khoảng cách này nhập số bằng bàn pím hoặc chọn 2 điểm bất kỳ trên màn hình và lấy ra khoảng cách theo đường chom bay giữa 2 điểm). Nếu bạn muốn lấy khảng cách giữa 2 điểm trên đường dẩn (khoảng cách tính men theo đường dẩn giửa 2 điểm) thì nhập 0 (số không) lisp sẽ hỏi điểm đầu và điểm cuối đoạn đo (2 điểm này phải nằm trên đường dẩn nếu kông thì lisp sẽ hỏi lại).
-Lựa chọn tính thì sẽ hỏi khoảng cách và số lượng rải. Nếu số lượng nhân khoảng cách nhập vào dài hơn đoạn rải thì lisp yêu cầu nhập lại. Đoạn nhập khoảng cách tương tự như trên. Bắt đầu rải từ điểm thứ nhất.
-Hỏi “Co quay doi tuong vuong goc voi duong dan khong: Khong/(Co)") :
+Không quay đối tượng cho vuông góc với đường dẩn thì nhập K enter.
+Có quay thì nhập C en ter hoặc enter không (thực chất cứ nhập vào khác K thì nhận là có).

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

(Defun c:rdt (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituong)
(choncuver)
(hoikieurai)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun c:dtd (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m daidendiem)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(choncuver)
(cdxuatphatdo)
(cdketthucdo)
(Cond
((< daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidenhuongdo daidendiemdo)))
((> daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidendiemdo daidenhuongdo)))
)
(command "undo" "end")
(princ (strcat "\nChieu dai doan do la: " (rtos chieudaidoan 2 4)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun c:rtd (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m daidendiem)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituong)
(choncuver)
(chondiemxuatphat)
(hoikieuraicd)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun dotructiep ()
(cdxuatphatdo)
(cdketthucdo)
(Cond
((< daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidenhuongdo daidendiemdo)))
((> daidendiemdo daidenhuongdo) (setq chieudaidoan (- daidendiemdo daidenhuongdo)))
)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdxuatphatdo ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemchuando (getpoint "\nTu diem :"))
(setvar "osmode" 0)
(setq daidendiemdo (vlax-curve-getDistAtPoint chondd diemchuando))
(setvar "osmode"luubatdiem)
(cond
((= daidendiemdo nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdxuatphatdo))
((/= daidendiemdo nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdketthucdo ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemdinhhuongdo (getpoint diemchuando"\nDen diem :"))
(setvar "osmode" 0)
(setq daidenhuongdo (vlax-curve-getDistAtPoint chondd diemdinhhuongdo))
(setvar "osmode"luubatdiem)
(cond
((= daidenhuongdo nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdketthucdo))
((/= daidenhuongdo nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdxuatphat ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemchuan (getpoint "\nDiem bat dau rai tren duong dan:"))
(setvar "osmode" 0)
(setq daidendiem (vlax-curve-getDistAtPoint chondd diemchuan))
(setvar "osmode"luubatdiem)
(cond
((= daidendiem nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdxuatphat))
((/= daidendiem nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun cdketthuc ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemdinhhuong (getpoint diemchuan"\nDiem ket thuc rai tren duong dan:"))
(setvar "osmode" 0)
(setq daidenhuong (vlax-curve-getDistAtPoint chondd diemdinhhuong))
(setvar "osmode"luubatdiem)
(cond
((= daidenhuong nil) (princ "\nDiem vua chon khong nam tren duong dan, chon lai:") (cdketthuc))
((/= daidenhuong nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun thongbaoketqua ()
(princ (strcat "\nChieu dai doan la: " (rtos chieudaitinh 2 4) doanhienthinoidung))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemxuatphat ()
(cdxuatphat)
(cdketthuc)
(Cond
((< daidendiem daidenhuong) (setq chieudaitinh (- daidenhuong daidendiem)) (setq dautinh +))
((> daidendiem daidenhuong) (setq chieudaitinh (- daidendiem daidenhuong)) (setq dautinh -))
)
(setq doanxuatphat daidendiem)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun hoikieuraicd ()
(setq kraicd (strcase (getstring "\nKieu rai theo: Tinh /So luong/")))

(Cond
((= kraicd "T") (raisoluongtinh))
((/= kraicd "T")
(Cond
((= kraicd "S") (raisoluongcd))
((/= kraicd "S") (raikhoangcachcd))
)
)
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluongtinh ()
(setq slrai (getreal "\nRai them may lan khong tinh doi tuong tai diem bat dau rai:"))
(setq chieudaidoan (GETDIST "\nKhoang cach 1 lan rai: "))
(Cond
((= chieudaidoan 0) (dotructiep)))

(setq tongdoan (* slrai chieudaidoan))
(Cond
((> tongdoan chieudaitinh)
(princ (strcat "\nChieu dai doan la: " (rtos chieudaitinh 2 4) ", Yeu cau la: " (rtos chieudaidoan 2 4) "x" (rtos slrai 2 0) "=" (rtos tongdoan 2 4)))
(princ "\nVuot qua chieu dai cho phep, nhap lai:")
(raisoluongtinh))
((< tongdoan chieudaitinh)
(setq sl (fix (+ slrai 1)))
(setq sl (fix sl))
(setq doanhienthinoidung (strcat "\nDa thuc hien rai: " (rtos slrai 2 0) " lan voi khoang cach " (rtos chieudaidoan 2 4)))
(thuchienrai)
)
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raikhoangcachcd ()
(setq chieudaidoan (GETDIST "\nKhoang cach 1 lan rai: "))
(Cond
((= chieudaidoan 0) (dotructiep)))
(Cond
((> chieudaidoan chieudaitinh)
(princ (strcat "\nChieu dai doan la: " (rtos chieudaitinh 2 4) ", Yeu cau la: " (rtos chieudaidoan 2 4)))
(princ "\nVuot qua chieu dai cho phep, nhap lai:")
(raikhoangcachcd))
((< chieudaidoan chieudaitinh)
(setq sol (+ (/ chieudaitinh chieudaidoan) 1))
(setq sl (fix sol))
(setq sl (fix sl))
(setq doanhienthinoidung (strcat "\nDa thuc hien rai: " (rtos sol 2 0) " lan voi khoang cach " (rtos chieudaidoan 2 4)))
(thuchienrai)
)
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluongcd ()
(setq slc (getreal "\nChia duong dan thanh may lan:"))
(setq chieudaidoan (/ chieudaitinh slc))
(setq sl (fix (+ 1 slc)))
(setq doanhienthinoidung (strcat "\nDa thuc hien rai: " (rtos slc 2 0) " lan voi khoang cach " (rtos chieudaidoan 2 4)))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun chonnhomdoituong ()
(princ "\nChon doi tuong rai:")
(setq ss (ssget))

(cond
((= ss nil) (princ "\nChua chon duoc doi tuong nao:") (chonnhomdoituong))
((/= ss nil)
(setq dsl (sslength ss))
(cond
((= dsl 1)
(setq doituong (ssname SS 0))
(setq doituong (entget doituong))
(setq KIEUDOITUONG (cdr (assoc 0 doituong)))
(cond
((= KIEUDOITUONG "INSERT") (setq dc (cdr (assoc 10 doituong))))
((/= KIEUDOITUONG "INSERT") (chondiemchuandoituong))
);ketthuccondxemblock
);kethucdsl1
((/= dsl 1) (chondiemchuandoituong))
);ketthuccondnho

);ketthucsetqdsl
);ketthuccondtong
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemchuandoituong ()
(setq dc (getpoint "\nChon diem goc: "))
(cond
((= dc nil) (princ "\nChua chon duoc diem goc:") (chondiemchuandoituong))
((/= ss nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun choncuver ()

(setq ddd (entsel "\nChon duong dan:"))
(while
(or
(null ddd)
(or (= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (= "MTEXT" (cdr (assoc 0 (entget (car ddd))))) (= "HATCH" (cdr (assoc 0 (entget (car ddd))))) (= "INSERT" (cdr (assoc 0 (entget (car ddd))))) (= "REGION" (cdr (assoc 0 (entget (car ddd))))) (= "DIMENSION" (cdr (assoc 0 (entget (car ddd)))))
)
)
(setq ddd (entsel "\nDoi tuong khong the lam duong dan! Chon lai"))
)

(setq chondd (car ddd))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq chieudaicuver (vlax-curve-getDistAtParam chondd (vlax-curve-getEndParam chondd)))
(setq doanxuatphat 0)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun hoikieurai ()
(setq dautinh +)
(setq krai (strcase (getstring "\nKieu rai theo: So luong/")))
(Cond
((= krai "S") (raisoluong))
((/= krai "S")(raikhoangcach))
)

(princ)
)
;;;;;;;;;;;;;;
(Defun raikhoangcach ()
(setq chieudaidoan (GETDIST "\nKhoang cach doan chia: "))
(setq sol (+ (/ chieudaicuver chieudaidoan) 1))
(setq sl (fix sol))
(setq sl (fix sl))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluong ()
(setq slc (getreal "\nChia duong dan thanh may lan:"))
(setq chieudaidoan (/ chieudaicuver slc))
(setq sl (fix (+ 1 slc)))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun thuchienrai (/ quaykhong)

(setq quaykhong (strcase (getstring "\nCo quay doi tuong vuong goc voi duong dan khong: Khong/")))
(Cond
((= quaykhong "K") (setq copygiua copykoquay))
((/= quaykhong "K")(setq copygiua copyquay))
)

(setq index -1)

(repeat sl
(setq index (1+ index))
(setq d2 (dautinh doanxuatphat (* chieudaidoan index)))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq p2 (vlax-curve-getPointAtDist chondd d2))
(setvar "osmode"luubatdiem)
(copygiua)
)
(thongbaoketqua)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun copycuoiquay()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d5 (- (dautinh doanxuatphat (* chieudaidoan index)) 0.01))
(setq p5 (vlax-curve-getPointAtDist chondd d5))
(setq L 0)
(setq M (sslength ss))
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p5)
(command ".rotate" "last" "" p2 180)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYQUAY(/ p3)
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d3 (+ (dautinh doanxuatphat (* chieudaidoan index)) 0.001))
(setq p3 (vlax-curve-getPointAtDist chondd d3))
(setvar "osmode"luubatdiem)
(Cond
((= p3 nil) (copycuoiquay))
((/= p3 nil)
(setq L 0)
(setq M (sslength ss))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p3)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
)
)

(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYKOQUAY()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".copy" ss "" dc p2 "")
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;
(Defun c:vdd ()

(setq ddd (entsel "\nChon duong dan:"))
(while
(or
(null ddd)
(or (= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (= "MTEXT" (cdr (assoc 0 (entget (car ddd))))) (= "HATCH" (cdr (assoc 0 (entget (car ddd))))) (= "INSERT" (cdr (assoc 0 (entget (car ddd))))) (= "REGION" (cdr (assoc 0 (entget (car ddd))))) (= "DIMENSION" (cdr (assoc 0 (entget (car ddd)))))
)
)
(setq ddd (entsel "\nDoi tuong khong the lam duong dan! Chon lai"))
)

(setq chondd (car ddd))
(setq L (vlax-curve-getDistAtParam chondd (vlax-curve-getEndParam chondd)))
(setq diemdau (vlax-curve-getPointAtDist chondd 0))
(setq diemcuoi (vlax-curve-getPointAtDist chondd l))
(setq dc (getpoint "\nChon diem goc: "))
(command ".line" dc diemcuoi "")
(command ".line" dc diemdau "")

(princ)
)

Tải về

Lisp tạo và chỉnh sửa menu.

2011-06-14T08:26:00.000-07:00

*Thấy yêu cầu làm menu bằng lisp cũng hay hay mình làm 1 cái như này.
-Load cái bên dưới về giải nén ra thư mục MENU chép vào ổ C.
-AP file themmenu.lsp lên sẽ được menu như này.

-Mình chuẩn bị sẳn 4 lệnh:
+Tạo mục mới. Lệnh sẽ hỏi chuổi hiển thị ở menu và tên lệnh thực hiện lisp sẽ tạo ra mục mới trong menu.
+Tạo đường phân cách.
+Chèn 1 dòng mờ dùng làm tiêu để hay chju1 thích.
+Xóa nội dung menu.
Chúc các bạn vui với ứng dụng này. Hạn chế là mình chưa tìm cách tạo menu sếp lớp và xóa từng mục menu được.

load

Đã viết ở

Lisp rải đối tượng theo đường dẩn bổ sung điểm xuất phát.

2011-06-03T18:33:00.000-07:00

Theo chương trình hành động nay mình thêm phần chọn điểm bắt đầu rải và hướng rải cho lisp rải đối tượng theo đường dẩn.
*Lệnh rải cho toàn bộ đường dẩn thì vẩn như cũ.
*Lệnh rải từ điểm:
-Tên lệnh RTD.
-Chọn đối tượng cần rải như cũ.
-Chọn đường dẩn như cũ.
-Chọn điểm bắt đầu rải (nằm trên đường dẩn).
-Chọn điểm chỉ hướng rải (nằm trên đường dẩn).
-Lúc này các phần sau giống lisp cũ chỉ có điều đối tượng rải từ điểm bắt đầu do mình chọn và rải về phía mình chọn.
*Dự kiến là sau khi chọn 2 điểm sẽ hỏi các lựa chọn:
-Theo số lượng trên toàn bộ đoạn từ điểm bắt đầu rải theo hướng chỉ và đi hết đường dẩn. (cái này đã có)
-Theo khoảng cách trên toàn bộ đoạn từ điểm bắt đầu rải theo hướng chỉ và đi hết đường dẩn. (cái này đã có)
-Từ điểm bắt đầu rải theo hướng chỉ và đi hết đường dẩn hỏi số lần rải và khoảng cách rải (nhân với nhau không nhất thiết rải đến hết).
-Theo số lượng trên đoạn từ điểm bắt đầu rải đến điểm chỉ hướng.
-Theo khoảng cách trên đoạn từ điểm bắt đầu rải đến điểm chỉ hướng.
Đang nghỉ cách nào gộp vào 1 câu hỏi cho nó ngắn nên tạm thời dùng như trên đã.

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

(Defun c:rdt (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituong)
(choncuver)
(hoikieurai)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun c:rtd (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituong)
(choncuver)
(chondiemxuatphat)
(hoikieuraicd)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemxuatphat ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 545)
(setq diemchuan (getpoint "\nDiem bat dau rai tren duong dan:"))
(setq diemdinhhuong (getpoint diemchuan"\nHuong rai so voi diem chuan:"))
(setvar "osmode" 0)
(setq daidendiem (vlax-curve-getDistAtPoint chondd diemchuan))
(setq daidenhuong (vlax-curve-getDistAtPoint chondd diemdinhhuong))
(setvar "osmode"luubatdiem)
(Cond
((< daidendiem daidenhuong) (setq chieudaitinh (- chieudaicuver daidendiem)) (setq dautinh +))
((> daidendiem daidenhuong) (setq chieudaitinh daidendiem) (setq dautinh -))
)
(setq doanxuatphat daidendiem)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun hoikieuraicd ()
(setq kraicd (strcase (getstring "\nKieu rai theo: So luong/")))
(Cond
((= kraicd "S") (raisoluongcd))
((/= kraicd "S")(raikhoangcachcd))
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raikhoangcachcd ()
(setq chieudaidoan (GETDIST "\nKhoang cach doan chia: "))
(setq sol (+ (/ chieudaitinh chieudaidoan) 1))
(setq sl (fix sol))
(setq sl (fix sl))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluongcd ()
(setq slc (getreal "\nChia duong dan thanh may lan:"))
(setq chieudaidoan (/ chieudaitinh slc))
(setq sl (fix (+ 1 slc)))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun chonnhomdoituong ()
(princ "\nChon doi tuong rai:")
(setq ss (ssget))

(cond
((= ss nil) (princ "\nChua chon duoc doi tuong nao:") (chonnhomdoituong))
((/= ss nil)
(setq dsl (sslength ss))
(cond
((= dsl 1)
(setq doituong (ssname SS 0))
(setq doituong (entget doituong))
(setq KIEUDOITUONG (cdr (assoc 0 doituong)))
(cond
((= KIEUDOITUONG "INSERT") (setq dc (cdr (assoc 10 doituong))))
((/= KIEUDOITUONG "INSERT") (chondiemchuandoituong))
);ketthuccondxemblock
);kethucdsl1
((/= dsl 1) (chondiemchuandoituong))
);ketthuccondnho

);ketthucsetqdsl
);ketthuccondtong
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemchuandoituong ()
(setq dc (getpoint "\nChon diem goc: "))
(cond
((= dc nil) (princ "\nChua chon duoc diem goc:") (chondiemchuandoituong))
((/= ss nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun choncuver ()

(setq ddd (entsel "\nChon duong dan:"))
(while
(or
(null ddd)
(or (= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (= "MTEXT" (cdr (assoc 0 (entget (car ddd))))) (= "HATCH" (cdr (assoc 0 (entget (car ddd))))) (= "INSERT" (cdr (assoc 0 (entget (car ddd))))) (= "REGION" (cdr (assoc 0 (entget (car ddd))))) (= "DIMENSION" (cdr (assoc 0 (entget (car ddd)))))
)
)
(setq ddd (entsel "\nDoi tuong khong the lam duong dan! Chon lai"))
)

(setq chondd (car ddd))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq chieudaicuver (vlax-curve-getDistAtParam chondd (vlax-curve-getEndParam chondd)))
(setq doanxuatphat 0)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun hoikieurai ()
(setq dautinh +)
(setq krai (strcase (getstring "\nKieu rai theo: So luong/")))
(Cond
((= krai "S") (raisoluong))
((/= krai "S")(raikhoangcach))
)

(princ)
)
;;;;;;;;;;;;;;
(Defun raikhoangcach ()
(setq chieudaidoan (GETDIST "\nKhoang cach doan chia: "))
(setq sol (+ (/ chieudaicuver chieudaidoan) 1))
(setq sl (fix sol))
(setq sl (fix sl))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluong ()
(setq slc (getreal "\nChia duong dan thanh may lan:"))
(setq chieudaidoan (/ chieudaicuver slc))
(setq sl (fix (+ 1 slc)))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun thuchienrai (/ quaykhong)

(setq quaykhong (strcase (getstring "\nCo quay doi tuong vuong goc voi duong dan khong: Khong/")))
(Cond
((= quaykhong "K") (setq copygiua copykoquay))
((/= quaykhong "K")(setq copygiua copyquay))
)

(setq index -1)

(repeat sl
(setq index (1+ index))
(setq d2 (dautinh doanxuatphat (* chieudaidoan index)))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq p2 (vlax-curve-getPointAtDist chondd d2))
(setvar "osmode"luubatdiem)
(copygiua)
)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun copycuoiquay()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d5 (- (dautinh doanxuatphat (* chieudaidoan index)) 0.01))
(setq p5 (vlax-curve-getPointAtDist chondd d5))
(setq L 0)
(setq M (sslength ss))
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p5)
(command ".rotate" "last" "" p2 180)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYQUAY(/ p3)
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d3 (+ (dautinh doanxuatphat (* chieudaidoan index)) 0.001))
(setq p3 (vlax-curve-getPointAtDist chondd d3))
(setvar "osmode"luubatdiem)
(Cond
((= p3 nil) (copycuoiquay))
((/= p3 nil)
(setq L 0)
(setq M (sslength ss))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p3)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
)
)

(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYKOQUAY()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".copy" ss "" dc p2 "")
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;

Tải về

Cây

2011-05-25T08:23:00.000-07:00

1_Ở tp Quảng Ngãi mình rất hay đi trên đường Trần Hưng Đạo (đường đi làm của mình mà). Đường này rất mát do hai bên vỉa hè trồng toàn cây Đuôi công. Cá nhân mình rất thích trồng cây này và khi thiết kế cây xanh vỉa hè mình rất hay trồng cây này. Nhưng sau này các bác "đầy tớ to" của tỉnh mình bảo nó giống cây chổi chà quá và cứ thấy thiết kế cây này là các bác lắc tịa thế là cây này mặc nhiên ko đc trồng ở tỉnh mình nửa.

2_Trước sở giáo dục có 2 cây phượng vĩ cứ hè là nở bông một cây đỏ tươi, một cây nhạt hơn. Cá nhân mình thích cây đỏ tươi hơn (màu hoa í). Một dạo tỉnh mình nổi lên phong trào trồng cây Lộc Vừng (do tên nó na ná lộc vàng) thực chất theo cái sự hiểu biết của mình thì đây là cây cơm nguội (nghe gúm chết, mình ghét cây này cực chả thấy đẹp gì cả). Một hôm đi ngang qua thay vì 2 cây phượng thì trong sân sở chiễm chệ 2 cây lộc vừng to vật vã. Tụi xấu mồm bảo do sếp mới hạp với cây Lộc Vừng nên thay quách 2 cây phượng. Nhưng mà hông phải đâu là không phải đâu "do bão làm 2 cây phượng bị gãy sợ nguy hiểm cho mọi người" nên sếp mới bứng dụt đi và thay cây khác vào đấy chứ. Em đảm bảo tin em nghe ngóng là hoàn toàn sự thiệt.

3_Lúc xưa em thấy công viên có trồng cây leo rất hay: nếu bảo cây thật thì giống giả quá, mà nếu bảo giả thì giống cây thật quá (hình bên trái đấy ạ)

, em mơ có ngày mình trồng lấy mớ. Hôm đi mua cây về trồng thấy có loại này em mua 1 nhánh dài khoảng 3 gang tay (hết mừ ngàn). Trồng đâu chừng 1 năm nó leo um xùm vách rào mà lá to vật xấu kinh (hình như cây này còi thì mới đẹp), em bỏ 1 buổi lôi đầu nó xuống đem bỏ rác được 1 đống (tầm cở 2 xe ba gác chở thì hết). Tụi chở rác ko chịu chở thế là phải lót tay tụi nó ít gọi là tiền xăng nó mới chịu chở đi. Em tính đống này mà chặt khúc bán được giá như hồi mua chắc em phải có nhiều triệu chứ chẳng chơi.

4_Trên đường đi nghiệm thu về bác chủ đầu tư nhanh mắt thấy bên đường có cây Quăng (Chớ không phải Quen nhớ) đang ra trái đỏ cây nên đem ra bình luận. Trên xe có 6 người thì chỉ 4 người biết cây này. Trong số 2 người ko biết thì 1 người hơn mình 7 tuổi còn 1 người cũ xì, hơn mình chắc cũng 20 tuổi. Mình ngạc nhiên thời mình tụi con nít vẩn hái trái chín này về ngâm muối để ăn (trái này mủ độc ác mủ tươi dính lưỡi thì nứt ra rát khiếp) tụi mình ăn nó như quà vặt í. hai bác này cũ lại gốc ở quê thế mà ko biết, chưa kể gổ cũng là loaị hay dùng trong đóng tủ kiểng nhà quê.

5_Trước UBND tỉnh trồng 1 hàng cây Hoàng Nam trông giống như cây cột màu xanh.

Cây này đặc điểm là từ gốc tới ngọn điều thấy lá phủ và mặt cắt ngang tán cây gần như nhau, cao đuồng đuỗng em rất thích tạo dáng của cây này. Hôm thiết kế sân vườn cho UNBD huyện Tư Nghĩa em quất cho 2 hàng dọc theo lối vào và hình dung rất đẹp nhưng khi bảo vệ phương án các bác hội đồng dè bỉu bảo là cây xanh mà không có bóng mát thì trồng làm qué gì. Thế là bắt em thay bằng cụm 3 cây cau bẹ trắng bảo thế cho vững (như kiềng 3 chân) Thế mà vững thật bác chủ tịch này sau lên vù vù. Nhưng bác mà lên thêm chút nửa thể nào cũng sẽ ngày ngày thấy 1 hàng cây (dô diên theo ý bác) trước cơ quan làm việc của mình. Chắc vì bác ko ưa dòm mặt cái cây này nên ko thèm lên nửa chỉ dừng lại ở cấp Sở thôi.

6_"Hoa sữa vẩn nồng nàn đường phố đêm đêm, có lẽ nào anh lại quên em" Hị hị nghe lãng mạn quá nhỉ. Các bác gật và lắc cũng nghe theo kiểu lãng mạn thế là hàng loạt con đường ở TP mình được trồng hoa Sửa. Đúng là "nồng nàn" thật nhà nào gần cây hoa sữa mà tới mùa hoa thì thôi rồi, hên chút nửa mà ở trúng đường trồng toàn bộ hoa sữa thì có thở vào mắt. Tới mùa hoa Sữa thì về Quảng Ngãi mà coi bà con nhà ta mang sào ra đánh cây hoa Sữa cho rớt bông xuống thiệt là chiện loạ.

Lisp rải đối tượng theo đường dẩn.

2011-05-23T19:27:00.000-07:00

*Lâu nay dùng cái MEASURE và DIVIDE của cad thấy có vài hạn chế:
-Chỉ rải được point và block.
-Block thỉ phải gỏ tên và được chèn ra với tỉ lệ 1/1.
-Bỏ qua không chèn vào vị trí xuất phát của đường dẩn.
*Dựa trên cái lisp xác định điểm của bác SSG cho mình cải tạo và nhập chung thành 1 lệnh tác dụng tương đương và cải thiện các nhược điểm mình nêu trên: (à nghe bảo cad12 đã kết hợp array theo đường dẩn nhưng mình chưa tiếp xúc nên ko biết có bị dẩm lên đó ko nhưng đây là thử nghiệm vì mình tính cho xác định điểm bắt đầu và hướng rải nửa nhưng chưa nghỉ ra kịch bản vì có quá nhiều thường hợp muốn)
-Tên lệnh: RDT (rải đối tượng)
-Hỏi chọn đối tượng muốn rải: Bạn chọn thoải mái bằng các kiểu (đối tượng gì cũng được) kết thúc chọn bằng enter.
+Nếu bạn chọn hơn 1 đối tượng thì sẽ hỏi bạn chọn điểm chuẩn cho nhóm đối tượng này (dùng để làm điểm đặt trên đường dẩn í).
+Nếu bạn chọn 1 đối tượng thì sẽ xem nếu đối tượng không phải là block thì vẩn hỏi chọn điểm chuẩn, Nếu đối tượng là block thì bỏ qua phần hỏi chọn điểm chuẩn mà lấy điểm chèn của block đó làm điểm chuẩn.
-Hỏi chọn đường dẩn dùng để rải.
-Hỏi “Kieu rai theo: So luong/(khoang)” :
+Rải theo số lượng thì nhập S enter.
+Rải theo khoảng cách thì nhập K enter hoặc enter không (thực chất cứ nhập vào khác S thì nhận là khoảng cách).
-Tùy theo lựa chọn mà hỏi khoảng cách rải hay số lượng rải.
-Hỏi “Co quay doi tuong vuong goc voi duong dan khong: Khong/(Co)") :
+Không quay đối tượng cho vuông góc với đường dẩn thì nhập K enter.
+Có quay thì nhập C en ter hoặc enter không (thực chất cứ nhập vào khác K thì nhận là có).
*Xong rồi. Bác nào có nhu cầu thì dùng không có thì dòm. Mong không ném đá hoặc dè bỉu.

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

(Defun c:rdt (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m)
(vl-load-com)
(command "undo" "be")
(command "ucs" "")
(chonnhomdoituong)
(choncuver)
(hoikieurai)
(command "ucs" "p")
(command "undo" "end")
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chonnhomdoituong ()
(princ "\nChon doi tuong rai:")
(setq ss (ssget))

(cond
((= ss nil) (princ "\nChua chon duoc doi tuong nao:") (chonnhomdoituong))
((/= ss nil)
(setq dsl (sslength ss))
(cond
((= dsl 1)
(setq doituong (ssname SS 0))
(setq doituong (entget doituong))
(setq KIEUDOITUONG (cdr (assoc 0 doituong)))
(cond
((= KIEUDOITUONG "INSERT") (setq dc (cdr (assoc 10 doituong))))
((/= KIEUDOITUONG "INSERT") (chondiemchuandoituong))
);ketthuccondxemblock
);kethucdsl1
((/= dsl 1) (chondiemchuandoituong))
);ketthuccondnho

);ketthucsetqdsl
);ketthuccondtong
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun chondiemchuandoituong ()
(setq dc (getpoint "\nChon diem goc: "))
(cond
((= dc nil) (princ "\nChua chon duoc diem goc:") (chondiemchuandoituong))
((/= ss nil)))
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun choncuver ()

(setq ddd (entsel "\nChon duong dan:"))
(while
(or
(null ddd)
(or (= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (= "MTEXT" (cdr (assoc 0 (entget (car ddd))))) (= "HATCH" (cdr (assoc 0 (entget (car ddd))))) (= "INSERT" (cdr (assoc 0 (entget (car ddd))))) (= "REGION" (cdr (assoc 0 (entget (car ddd))))) (= "DIMENSION" (cdr (assoc 0 (entget (car ddd)))))
)
)
(setq ddd (entsel "\nDoi tuong khong the lam duong dan! Chon lai"))
)

(setq chondd (car ddd))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq chieudaicuver (vlax-curve-getDistAtParam chondd (vlax-curve-getEndParam chondd)))
(setq diemdau (vlax-curve-getPointAtDist chondd 0))
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;
(Defun hoikieurai ()
(setq krai (strcase (getstring "\nKieu rai theo: So luong/")))
(Cond
((= krai "S") (raisoluong))
((/= krai "S")(raikhoangcach))
)
(princ)
)
;;;;;;;;;;;;;;
(Defun raikhoangcach ()
(setq chieudaidoan (GETDIST "\nKhoang cach doan chia: "))
(setq sol (+ (/ chieudaicuver chieudaidoan) 1))
(setq sl (fix sol))
(setq sl (fix sl))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun raisoluong ()
(setq slc (getreal "\nChia duong dan thanh may lan:"))
(setq chieudaidoan (/ chieudaicuver slc))
(setq sl (fix (+ 1 slc)))
(thuchienrai)
(princ)
)
;;;;;;;;;;;;;;
(Defun thuchienrai (/ quaykhong)

(setq quaykhong (strcase (getstring "\nCo quay doi tuong vuong goc voi duong dan khong: Khong/")))
(Cond
((= quaykhong "K") (setq copygiua copykoquay))
((/= quaykhong "K")(setq copygiua copyquay))
)

(setq index -1)

(repeat sl
(setq index (1+ index))
(setq d2 (* chieudaidoan index))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq p2 (vlax-curve-getPointAtDist chondd d2))
(setvar "osmode"luubatdiem)
(copygiua)
)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun copycuoiquay()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d5 (- chieudaicuver 0.001))
(setq p5 (vlax-curve-getPointAtDist chondd d5))
(setq L 0)
(setq M (sslength ss))
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p5)
(command ".rotate" "last" "" p2 180)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;
(defun COPYQUAY(/ p3)
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq d3 (+ (* chieudaidoan index) 0.001))
(setq p3 (vlax-curve-getPointAtDist chondd d3))
(setvar "osmode"luubatdiem)
(Cond
((= p3 nil) (copycuoiquay))
((/= p3 nil)
(setq L 0)
(setq M (sslength ss))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(while (< L M)
(setq DT (ssname ss L))
(command ".copy" DT "" dc p2)
(command ".rotate" "last" "" p2 p3)
(setq L (1+ L))
)
(setvar "osmode"luubatdiem)
)
)

(princ)
)
;;;;;;;;;;;;;;

Tải về

Hình ảnh minh họa kết quả

Ngược Nguyên tắc.

2011-05-06T01:24:00.000-07:00

1/ Bước vào bàn làm việc nóng muốn chết, với tay giật cái quạt và ngồi chờ .... chả thấy mát gì cả. Liếc ngang thì cái quạt vẩn đang quay ầm ầm nhưng cánh và lồng bảo vệ nằm dưới đất, "chậc" thèn nào giởn mình giữa trới nóng thế này, thôi cứ gắn lại cho mát rồi điều tra sau. Vặn vặn vặn ... hoài không thấy cứng gì cả nhìn lại cái nắp vặn cánh thì ko còn cái nào gọi là gai hay ren gì cả.

2/Thường mày râu thì anh nào cũng đã trải qua cái vụ sửa (hoặc phá) đồ đạc và vặn ốc (bulon) và chắc anh nào cũng nghe ngóng và thuộc nguyên tắc vặn cùng chiều kim đồng hồ là vặn vào còn ngược chiều kim đồng hồ là vặn ra. Nhưng nguyên tắc này mà đem áp dụng cho vị trí cái chụp nhựa vặn để giữ cánh quạt là ăn mày ngay. Vốn cái cánh quạt này quay theo chiều kim đồng hồ nên cái núm này mà cũng vặn theo chiều đó thì càng ngày liên kết sẽ càng lỏng và 1 ngày kia nó có nguy cơ hạ xuống ngay chổ mình ngồi hoặc rớt ra mà còn dính trong lồng gây kẹt cháy thì mang vạ nên người ta mới sản xuất "thèn" này gai ngược.

3/ Phần 2 giải thích vì sao cái núm mình đang cầm ko còn cái gai nào: Là vì 1 ông nông dân nào đó ko biết lý do gì mà muốn mở cái quạt của mình ra, ông này cũng có chút hiểu biết nhưng mà biết ko tới nơi cộng thêm tứ chi phát triển nên nghiến răng mà vặn ra (thực chất là vặn vào) và ... 1 thời điểm kia bựt đi mía hết đoạn gai của cái núm quách.

4/ Chiều sẽ làm việc với cha bảo vệ về vụ này. Chỉ là nhân tiện lưu ý cánh mày râu và mày ko râu ko phải cái gì cũng theo nguyên tắc mình đã biết. Nếu theo đúng nguyên tắc mà thấy hông ổn thì đề nghị nghe ngóng lại, có đôi lúc ngược thì mới đúng.

Ảnh nhà góc phố.

2011-04-12T05:36:00.000-07:00

Lại thêm 1 con tình thương mến thương nửa.

Giành

2011-04-06T02:04:00.000-07:00

*Lúc trước nc với người bạn nhân dịp người này lên kế hoạch làm 1 chuyến đi Đà Nẳng:
Theo cái sự hiểu biết của mình thì Quảng Ngãi – Đà Nẳng mổi ngày chỉ có chuyến Mai Linh là đi đúng giờ và không nhồi nhét, nên anh này gọi và được trả lời phải đến bến vào lúc ... trước khi xe chạy khoảng 10 phút và phải mua vé kẻo thì hết.

Anh này cho như thế là ko ổn vì đi chơi thì anh muốn đi lúc nào thì đi ko được ra điều kiện với anh í và anh chọn giải pháp bắt xe trên đường, Đúng là việc này đúng ý anh là muốn đi bắt xe lúc nào thi đi nhưng bù lại là ko biết khi nào thì có xe cho mà bắt và ngồi thì nhồi nhét. Anh cho rằng việc nhồi nhét là nhỏ như con thỏ đi có 3 tiếng chứ nhiêu đâu mà lo. Ấy là anh này ko quan trọng chuyện gò bó về thể xác chỉ muốn tâm hồn thoải mái.

-Mình thì quan điểm ngược lại, đi phải đúng kế hoạch giờ giấc khi nào đi, ngồi phải thoải mái (đúng thiết kế của xe), vậy là mình ko quan trọng bị gò bó về tâm hồn, thậm chí có phần thích vì mình quan niệm nó là kỹ luật và thể hiện sự văn minh (bởi thế mình thường xuyên ngồi 1 mình ở các cuộc đám cưới dù biết thiên hạ chắc chắn đi sau đó từ 1 đến vài tiếng đồng hồ).

-Có 1 điều lạ mình ko chịu được chật. Nếu ngủ hơn 1 người trên giường chỉ có 1 bên thoáng thì mình cố giành bằng được bên này. Có 1 lần thằng bạn cùng phòng giận mình mấy ngày khi đã thoi thẳng vào mặt thằng này vì nó ôm chặt 2 tay mình ko cho cử động trong vòng 1 phút. Đấy là thói quen xấu nhưng cứ ko cử động thoải mái được mình nổi khùng lên ngay.

-Quay lại chuyện cái giường chỉ có 1 bên thoáng. Do dân mình đất và tiền điều thiếu nên các giường hầu như kê xát vách, như vậy là ko văn minh (có 1 lần đọc đâu đó thấy 1 tên nước ngoài rất ngạc nhiên về chuyện này, nó hỏi chúng mày phải trèo qua nhau khi xuống gường à). Biết thế, mình lại là kiến trúc sư nhưng đến giờ giường mình vẩn chỉ có 1 mặt thoáng (lí do như trên) vậy là phải tiếp tục làm người xấu tính là đi giành phía nằm với người ngủ cùng. May là chưa phải làm việc này với người phụ nữ yêu thương của mình.

Gia đình Duy782006 tết 2011.

2011-02-26T19:26:00.000-08:00

Nhân dịp tết tập trung đông đủ đại gia d9nh2 mình làm vài tấm kỹ niệm.
Trong các ảnh thì Duy782006 đóng vai trò chú các bạn ko nhầm với ông nhé :-)

Gia đình 1	Gia đình 2
Ông cháu	Ông, bà, chú, cháu

Bánh tráng xông khói.

2011-02-05T00:15:00.000-08:00

Hình ảnh lụm từ net chỉnh màu bởi duy782006 mang tính minh họa không phải ảnh của chủ chòm

Hôm 28 âm lịch đi TP Quảng Ngãi đón anh hai từ SG về tranh thủ ghé quán quen làm tô cháo lòng. Được thưởng thức 1 cái bánh tráng nướng khét mù mùi khói hầu hết mọi người than phiền vụ này nhưng mình thì không vì mình hiểu cái bánh tráng khét mù này là cố gắng trong mùa mưa dầm dề chứ chả ai muốn làm ra cái sản phẩm như thế, chủ yếu là mình cũng đã trải qua 1 đoạn thơ ấu tham gia vào việc làm bánh tráng này.
-Lúc đó nhà mình sống gần bờ sông trong căn nhà nhỏ tí lợp tôn dựng trên khoảnh đất được người bà con cho ở ké. Nhà ngoại gần đó và ngoại lúc này đã có tuổi không lái xe lam nửa mà về dựng lò làm bánh tráng, nhà ngoại to lại có gác nên mình thường xách vở qua leo lên gác: học thì ít mà hay lon ton phụ ngoại trong khâu phơi bánh (trên mái nhà).
-Mình nhớ khi đó các vỉ phơi được đan bằng tre chứ ko phải bằng lưới như bây giờ. Khâu chọn, ngâm gạo xay bột, tráng bánh thì mình xin phép bỏ qua vì không hiểu lắm nhưng cái vỉ thì mình có hiểu. Nếu để nguyên vỉ tre thế mà trải bánh tráng lên phơi thì khi khô bánh và vỉ rất chi là đoàn kết một cái bánh khi gở ra cho được thì kết quả là rất nhiều bánh mổi tội nhìn nó giống i như cái ......... bánh tráng bể :-) và tất nhiên bán chẳng ai mua. Thế nên có cái quét lên vỉ để tạo cái tách liên kết kia ra cho dể gở và theo kết quả truyền đời của dân gian thì cái này là nước vo gạo, không phải vo ra rồi lấy quét liền mà được nha, đựng trong hủ sành khoảng 2 ngày cho nó lên men chua lè lên thì mới đem quét lên vỉ để cho khô thì sẽ có 1 lớp phấn mỏng tên vỉ là đạt.
-Nói nghe đơn giản thế nhưng mà quét quá tay thì lớp phấn này nhiều quá thì bánh vừa héo có xu hướng thun lại và nó trượt trên vỉ co lại dày lên và bé tí như cái bánh xèo cũng hông ai thèm mua nên cái khâu quét này phải dựa vào mắt kinh nghiệm chứ hông có định lượng chi hết. Mổi lần ngoại làm đoạn này vì nó chua lè nên mình hông có dòm thành ra thất truyền kinh nghiệm này (cho mình).
-Thuận lợi thì trời nắng đẹp đẹp phơi xong gở bánh khỏi vỉ và bỏ mối cho người ta. Gặp khi mưa kéo dài bánh dự trữ hết ko có bỏ mối thì phải làm mọi cách nào than nào lửa để hơ bánh cho khô nhưng giá thành ko đc tăng (giữ mối mà) nên cái đoạn hơ này tận dụng tất tật các thứ đốt được thường là củi (than mắc chịu hông nổi) mùa mưa thì củi cũng ẩm nên sản phẩm thường khét mù khói là vì vậy.
-Hôm đó thèn khó tính là mình ko hề phàn nàn lấy 1 tiếng mà lại còn có cảm giác rưng rưng nhớ đến ngoại nay đã mất cả (ông bà).

Khai phím đầu năm.

2011-02-02T21:27:00.000-08:00

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!

Nhiều chuyện.

2011-01-27T05:10:00.000-08:00

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

Tệ.

2011-01-12T18:42:00.000-08:00

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

HAPPY NEW YEAR!

2011-01-01T03:52:00.000-08:00

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.

2010-12-14T23:18:00.000-08:00

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)
)

Tải về

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

2010-12-06T23:08:00.000-08:00

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)
)

Tải về

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

2010-12-03T19:51:00.000-08:00

Đâ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).

load

Nguồn gốc

Nốt Lặng.

2010-11-19T03:55:00.000-08:00

Thời điểm mình viết bài này thì chủ đề nóng nhất là 20/11. Mọi người hô khẩu hiệu với các lời hay ho cả rồi riêng mình viết lại câu chuyện xảy ra lâu lắm rồi nhưng nó vẫn cứ đọng lại trong đầu mình. Các bạn đang và sẽ là giáo viên đọc bài mày mình mong nhìn nhận theo lối tích cực từ đó có điều chỉnh trong cách ứng xử với học sinh của mình:
-Năm thứ nhiêu của năm cấp 2 thì mình ko nhớ rỏ lúc này mình ko còn quá giỏi như lúc cấp 1 nhưng về phong độ môn toán mình vẩn còn duy trì. Thi học kỳ môn toán mình làm xong sớm và ra ngoài ngang qua cửa sổ thì có đứa bạn nháy nháy ý bảo ném co nó bài giải mình lòng vòng nhặt dưới đất 1 tờ giấy còn 1 mặt trắng xé ra 1 mẩu bé bé cho vào túi tính kiếm chổ vắng thì viết bài giải ném vào cho nó.
-Thầy giám thị hành lang thấy mình ra sớm mới gọi tới bắt nọn (mình nghỉ thế) "cậu đưa tờ giấy trong túi cho tôi" mình nghỉ bình thường vì chưa viết cái gì vào đấy nên đưa ra. Thấy thầy ấy lật lại thì mặt kia đã có mấy dòng chử và là công thức hóa học. Thầy kết luận mình đem tài liệu vào phòng thi và sau đó tên mình được đọc trong trong buổi chào cờ trước toàn trường.
-Ở đây mình ko bàn đến chuyện đúng hay sai nhưng mình coi thường một người dạy toán có tiếng là giỏi của trường mà nhìn tờ giấy ko biết nôi dung của nó là môn toán, lý hay hóa. Đến bây giờ gặp lại tôi vẩn còn cảm giác coi thuờng.

Thật.

2010-11-13T05:53:00.000-08:00

-1-Trước nay mình cứ tự nhận là tính mình "thật" nhưng chưa có tổ chức cá nhân nào công nhận. Đến nay thì đã có 1 cá nhân chính thức công nhận danh hiệu này của mình và để thêm phần trịnh trọng danh hiệu này được nâng lên hoa mỹ 1 tí nửa ấy là "thật quá". Chuyện như này:
-Hôm í mình cùng với đoàn giáo dục đi miền núi đầu tư xây dựng trường. Hậu cuộc họp ấy thì như thường lệ lại vẫn là cuộc nhậu. Ở cái huyện miền núi bé như cái lổ mủi ấy thì có 1 quán nhậu đã là may nên toàn bộ các cá nhân kiệt xuất (hay sức) của huyện nhà cũng như nơi khác điều tập trung cả vào đây.
-Khi đoàn vào thì đã có vài xe ô hô đậu trước quán loại mà biển số không màu trắng í.
-Thưa thật với các bác nói đi họp cho oai chứ thực ra cả buổi lon ton ngoài hiện trường đo đo vẽ vẽ nên giờ mình vừa mệt vừa đói trông cho nó đem cái gì lên xơi phát cho nó đở run.
-Nhưng chưa kịp cho gì vào mồm thì bàn ngồi trước bắt đầu chơi xa luân chiến cứ lần lượt từng vị cầm ly qua "giao lưu". Cứ bác nào qua cũng được bác hiệu trưởng giới thiện chức danh nghe cứ búng toanh toách, bên này cứ banh muồm ra cười với uống tính mình xấu ăn lại đang đói như gấu thức ăn trước mặt mà ko có thời gian để làm vài miếng hỏi các bác làm sao mà cái bản mặt nó tươi cho được.
-Các bác trong hội mình chắc cũng thía thôi nhưng điều là dân làm quan có kinh nghiệm trong vụ này nên mặt tươi roi rói. Sau có 1 bác lại sang lần này ko nghe bác hiệu trưởng giới thiệu mà chỉ bảo "bác này thì chắc ai cũng biết rồi", bảo thật mình chả thấy có tí ấn tượng nào là quen bác này cả. Lúc này trong hội mình lại có bác bồi cho 1 câu mình nghe như sét đánh ngang tai. "Ở tỉnh này mà ko biết bác í thì ko phải dân Quảng Ngãi rồi".
-Bậy thật cha này là thi công mà ngang nhiên chuyễn hộ khẩu mình khỏi tỉnh thì loạn. Thế nên cái thèn tôi cũng bưng cái ly bia lên mà cụng với bác (khách í) 1 cái mà phát biểu thiệt thà rằng tui đúng là dân Quảng Ngãi nhưng chả biết bác là ai. Lập tức không khí trên bàn khác hẳn hình như nó hơi sượng lại thì phải, có 1 bác lanh mồm mới vớt giùm mình 1 câu bảo chứ mày ko xem tivi à. Bảo thật với các bác em xem ca nhạc mới cả phim chứ có coi thời sự đâu mà biết bác í là ai. Thế là mình cứ thành thật khai ra như thế, lần này thì bác khách sượng thấy rỏ và đi về bàn từ đó về sau ô là la mặc sức ăn không bị quấy rầy gì nửa, bàn bên ấy cấm có bác nào sang mời nửa mình nghỉ các bác hội mình chắc phải cảm ơn mình lắm lắm nhưng mà tình hình ko có vẻ như mình nghỉ bác nào ăn cũng rón rén mất hết tự nhiên. Trên đường về bác trưởng đoàn (khen) mình 1 phát "thèn này thiệt quá". "Cái người mà ai cũng biết là ai" ấy mà mày "tạt nguyên ly bia vào mẹt" thế thì bằng bóp cổ cái sinh mệnh chính trị của tụi tao rồi. Hơ thế ra thật cũng là cái tội.
-2-Quay 1 tí lại thời sinh viên ...........................................................................................................

Của Duy đâu ??

2010-11-04T20:55:00.000-07:00

1. Bây giờ thấy các bé con học theo kiểu cải cách hay đổi mới chi chi đó mà viết hẳn vào trong sách, cứ học xong thì quyển sách này vứt.

- Mình sinh năm 1978 nghĩa là nguyên đoạn cấp 1 vẫn còn chế độ học lại sách có tổ chức: Nghĩa là sách được phát cho học sinh vào đầu năm học và thu lại vào cuối năm để sang năm lại phát cho lớp sau.

- Sách thì bằng giấy cộng thêm cái công nghệ thời đó thì mấy khi mà đẹp lại trải qua 1 hoặc vài năm dưới sự lật lật mở mở của mấy ông học trò, chỉ cần tưởng tượng thế thì biết nó tã tới cở nào rồi.

- Tất nhiên rồi cũng tới lúc ko còn dùng đc nửa thì sẽ được dặm vào 1 ít sách mới, với cả có khi gặp trúng ông xài trước lười học hoặc cẩn thận thì cũng còn mới thế nên trong đống sách phát ra thì có quyển đẹp quyển xấu.

- Việc phát sách đầu năm thì đúng ra do cô giáo phụ trách phát theo kiểu hên xui nhưng thường thì cô giao cho cờ đỏ hoặc để 1 đống đấy lên tự nhận. Vậy nên cái sự nhanh nhẹn, xông pha mới có dịp mà phát huy, riêng mình không thèm tranh giành với đám phàm phu đó làm chi cứ từ từ có gì nhận nấy nên sách mình nhận về thì hết 99,99% là te tua xơ mướp rồi.

- Hông sao về chịu khó mông má lại tí rồi cũng dùng đc. Hồi đấy khó khăn có đc mấy họa báo Liên Xô (in màu, giấy dày như tạp chí nhà đẹp bây giờ í) là rất hiếm nhưng nhà mình có, lấy hắn mà bọc lại bìa sách dòm bên ngoài cho tươm tất rồi dán dán ép ép xong thì quyển sách ko đến nổi tệ lắm. Mình cứ bằng lòng thế ko thèm tranh giành làm chi (may khi lớn lên mình thoát khỏi thời 2 người mua chung cái quần tà lỏn chứ không thì ở truồng suốt đời).

2. Lúc nhỏ toàn ăn khoai là chính nhưng sao mình học giỏi thế không biết ??? Hình như nguyên 5 năm cấp một mình toàn đứng nhứt he he. Nên việc nhận phần thưởng trước bàn dân thiên hạ với mình là mặc nhiên ko có chi phải lăn tăn.

Đùng 1 cái năm lớp 5 có tới 2 thèn đứng nhứt lại là năm cuối cấp nên đc xuống trường huyện nhận phần thưởng, mình tà tà như mọi khi đến khi dòm lên thất thèn ku nhứt mới kia đã đứng sẳn mà chả hiểu sao 1 lớp có 1 suất đứng thôi. Ừ thế mày đứng đi tao ngồi vậy cuối cùng thì phần thưởng của mình với nó như nhau mổi tội cái mẹt mình ko có trong hình lãnh thưởng.

3. Ngoài ông anh ruột ra lúc nhỏ mình chơi với 1 đứa nửa là anh em nhà cô nhà cậu, ngang ngang tuổi mình. Ông nội nó là ông ngoại mình. Mẹ nó là tiểu thương hay còn gọi là "tư sản mẹt" vào thời đó nên tiền bạc cũng rủng rẻn và nó có nhiều đồ chơi, mình chơi với nó chủ yếu là ké đồ chơi.

- Thèn này được ông ngoại mình cưng kinh (cháu nội lại là đích tôn mà) nên ông hay dẩn nó đi chơi với cả ăn vặt. Lúc đó còn nhỏ chưa biết dị là gì nên mình cứ bám theo hưởng xớ. Nhưng cái đoạn mua đồ chơi cho thì không hưởng xớ được.

- Có lần ông đi Bình Định về mua theo 2 con hổ bằng đất sét sơn màu mình mừng kinh nhưng mà hóa ra của thèn kia tất vì đó là 1 cặp chứ ko phải hai con. Thôiiii bằng đất sét chứ gì vào xóm gốm mè nheo xin lấy 1 cục về nặn ra cả đàn ấy chứ tao chả cần.

- Ko biết do bẩm sinh hay do tự làm đồ chơi hoài mà mình trở thành khéo tay dù có lấy kính hiển vi mà soi thì cấm có thấy 10 đầu ngón tay mình có cái hoa tay nào.

4. Năm lớp 8 trường tổ chức thi vẽ để chọn ra đội hình đi thi huyện mình lọt vào được thế là đi thi toàn huyện, hồi giờ toàn vẽ trên giấy vở tự nhiên vào thi thấy phát cho mổi vị 1 tấm bản đồ (khoảng tầm tờ A1) to vật vã (lật cái lưng trắng lại vẽ lên đó), phát đến mình là thèn cuối cùng (tại lãnh theo kiểu giơ tay mình thì thong thả) ........ tèn ten hết giấy.
-Trong khi mình còn ngồi chờ ban tổ chức kiếm giấy thì tụi kia hì hục vẽ. Tình hình là hiệu sách (cả huyện có mổi chổ này bán bản đồ) hết hàng nên ban tổ chức mới lấy kéo cắt 1 cái hình quảng cáo trong phòng cho mình làm giấy vẽ tờ này là bìa cứng. Cuối cùng mình cũng có tờ giấy để thi với thiên hạ mặc dù tờ giấy này hông giống ai.
-Toát mồ hôi vật lộn với tờ giấy (to quá mà) mình cũng bôi màu xong cho nó, không biết do mình vẽ đẹp hay do thông cảm vụ thiếu giấy mà ban tổ chức cho mình giải nhất. He he chuẩn bị đi thi tỉnh nha oai wué.
-Kinh ngiệm lần thi huyện mình toàn vẽ màu cây mà tờ giấy lớn quá vẽ lâu mình mới tìm hiểu thì biết có màu nước bôi nhanh hơn thế là nhân dịp được lên tỉnh xin ba má cho 1 hộp màu nước.
-Cọ thì tự chế chỉ cần cắt 1 nhúm tóc, 1 cái vỏ tuýp kem đánh răng (thời đó vỏ làm bằng kim loại) , và mấy cây đũa tre là mình sản xuất ra 1 bộ cọ (3 cây) đủ dùng. Vào thi tụi trong tỉnh cứ gọi là lác mắt với ông nhớ.
-Từ nhà vào nơi thi có 24km bây giờ mình đi hàng ngày mà hồi đó xa thế ko biết, huyện cử 2 phụ trách đội đưa đoàn gồm 2 vẽ và 2 kể chuyện đem chuông đi đánh xứ người.
-Hội tụ anh tài cả tỉnh vào phòng lại tới khâu phát giấy với chút kinh nghiệm mình dòm ngó ai cầm giấy to thì lại gần nhận nhanh kẻo mà hết thì chết dở, Nhưng hóa ra trong tỉnh mà ko bằng nhà quê vẽ tờ giấy nhỏ tí (A3) mình cũng có phần. Lại còn dặn hỏng thì phát lại (tỉnh có khác tổ chức ngon lành thế).
-Biết địch biết ta trăm trận trăm thắng mình đi lòng vòng nắm tình hình (tờ giấy to vật vã còn bôi kịp xá gì tờ bé tí thế kia) nghe các bác trong ban tổ chức bàn tán chỉ trỏ nào là con họa sĩ này, học trò cưng nhà văn hóa kia mình bắt đầu phát sốt, thôi đường nào cũng thua cứ bôi cật lực vào tới đâu hay tới đó.
-Lần đầu tiên vẽ màu nước lại thêm bộ cọ tự chế quá Pro mình phệt 1 phát dòm thấy đen ngòm, may có cả màu trắng mình đổ cho 1 mớ rồi lấy nước bôi lên quẹt cọ thí xác, ngó ra cửa thấy phụ trách đội của mình đâu mất tiêu (bị trước khi vô thi anh phụ trách nói ảnh còn đứng đó thì may ra bài mình đạt còn ảnh đi mất tiêu thì mình rớt chắc) vậy thì tèo rồi còn gì anh phụ trách cũng có chút khiếu nên mới hộ tống mình ảnh mà chê thì mình chả còn hy vọng.
-Loáng cái tờ giấy mình đầy màu ok xong lại đi dạo thì có 1 bác bảo mình "sao ko nhấn thêm mà đi đâu đấy" mình mà biết nhấn cái gì thì chết ngay tại trận nhưng cũng quay về chổ ngồi chờ bác lơ mình lại đi dòm ngó thấy có thèn vẽ bầu trời đẹp ác thế là mình về cắm đầu vẽ lại cái bầu trời nhưng chả giống thèn kia được, nhìn nó cứ loang lỗ thế nào í thôi kệ.
-Kết quả là cái quả ấy của mình đứng nhất toàn tỉnh, nghe các bác ấy tán là có chiều sâu nhờ biết kỷ thuật loang màu hớ hớ chả biết đường nào mà lần.
-Huyện mình mới điều 1 con uóat vào đón đội đi thi về chứ ko cho đi xe đò nửa (oách nhé) đón cả đội còn có cả đội nghi thức đi theo. Nói chung chả biết các bác í tính toán kiểu gì, 1 con uóat mà đội đi thi đã 4 vị + 2 phụ trách vậy mà 1 ông lái xe với cả 4 nghi thức đội chạy hai mí cây số vào đón thì ngồi vào đâu. Nói chung là ko nhớ nhồi nhét kiểu gì cuối cùng mình ngồi bệt sau thùng xe điên thế không biết.

*Kể lể nảy giờ chủ yếu là này: Mình thì tính chập chạp lại ko muốn bon chen cộng thêm cái vụ thật quá (hôm nào nói cái vụ thật này sau...) nên cái gì mình có cũng ko có trọn vẹn toàn là phải mông má cải tạo lại và đến giờ mình vẫn thấy ổn chưa có gì phải phàn nàn.
Nhưng (lại nhưng diển văn của các bác lớn lớn cũng thế mà) cái đoạn mà ai cũng có thì đến nay mình vẩn chưa có.
-Theo cái sự đọc và nghe ngóng của mình thì vốn chúa sinh ra loài người có sức mạnh hơi bị dã man, sau đó ông nì có hôm ngồi rảnh rỗi mới giật mình vì thí cái bọn người này nó phá kinh quá ko chừng nó quậy lên tới mình thì chít là lá la thế là ngài tách loài người làm hai thế mới sinh ra cái vụ có ông có bà đấy. Và vì lúc này mỗi người còn có mỗi nửa nên ko còn mạnh nửa thế mới phải đi tìm nhau (cho mạnh dể bề phá phách và làm lung tung việc í mà).
-Hông biết cái nửa của Duy đang ở đâu hay là tìm nhầm nửa khác mất thì Duy có mà toi hị hị. Thế nên nay mới lên cái thông báo này mà hỏi bàn dân thiên hạ chứ cái nửa kia của Duy đâu??????

Thơ

2010-11-04T08:09:00.000-07:00

Bài thơ này lụm trên net cũng có nhiều bản nhưng mình thích bản này, hình ảnh là do mình ghép vào nhìn cho hay ho tí.

Thấy ....

2010-10-26T20:35:00.001-07:00

Một dạo cứ sáng sáng là anh em lại ới nhau đi khi thì Thư viện tỉnh khi thì Diên Hồng (nhà thi đấu tỉnh), khi thì nhà văn hóa lao động tỉnh.
Ấy chớ có tưởng là cái lòng yêu thể thao với cả đọc sách của mấy ông làm tư vấn nó cao nhé bạn thực tình thì đến mấy chổ đấy để café sáng thôi.
Vì sân vườn các nơi này rộng mà ít người đến nên các bác quản lý nghĩ ra trò cho thuê sân làm quán café. Cũng hiệu quả phết sáng nào người xe cũng nờm nợp ra vào cổng mấy công trình này, dân ngoại tỉnh mà nhìn thoáng qua thí phải nể tinh thần thể thao, văn hóa của dân Quảng Ngãi (mới sáng đã đông thế cơ mà).
Mình cũng tham gia vào đội ngũ gây hiểu nhầm này chủ yếu là giá hắn mềm hơn mấy anh sân vườn đầu tư bài bản lại có thể hùng hồn tuyên bố với tụi ở quê “hôm nào tao chả ghé thư viện” đại loại thế.
Ban đầu các quán này gọi bằng căn tin sau làm ăn được các bác ngồi nghĩ ra cái tên nghe kiêu toanh toách ấy. Lúc này quản lý của các bác quản lý thấy không ổn mới ra cái sự cấm ko cho quán café tồn tại trong mấy công trình đất đai thừa thải của nhà nước này.
Thế là kế hoạch lách được thực hiện:
-1: Cứ để nguyên tên quán đấy chỉ có điều quay mặt nó vào bên trong quán (dòm ra thì thấy tên, dòm dô thì không). Chắc chiêu này ko lách được nên 1 thời gian sau thấy thực hiện kế hoạch 2.
-2: Ném béng cái tên luôn cho nó quay lại làm căn tin. Cũng được 1 thời gian sau hình như các bác bên trên đè mạnh quá thế là nghỉ hẳn.
Chậc nghỉ thì thôi vậy bà con lại quay ra bàn tán có phần khen các bác quản lý của quản lý lần này làm en được nói dẹp là dẹp chứ ko lách liếc gì xấc. (dù cái đoạn lách này diển biến cũng hơn cả tháng).
Sáng nay lại nghe thèn bạn làm bên bộ đội alo “tới thư viện café mày” thèn này “mày mơ ngủ hay là lâu quá ko ló mẹt ra khỏi doanh trại mà ko biết vụ dọn dẹp này” Nó kiên quyết bảo ra mình rón rén cưỡi con xe tã ra thì ô là la cái gì thế kia em lại chiễm chệ ở đó có phần diêm dúa hơn xưa có cả cổng riêng nhớ. Kệ các bác quản mới chả lý có bán thì ta cứ uống khà khà.
Mấy hôm sau lại thấy thông báo đi cổng kia (cổng thư viện), mấy hôm sau lại thấy dời cái bảng hiệu vào tít bên trong.
Hà hà lại bắt đầu vòng tuần hoàn đây đúng là phát triển theo hình trôn ốc thật. Lại liên tưởng tới cái dĩa cơm mà dân văn phòng độc thân như mình ngày nào cũng dòm thấy: càng ngày nó càng teo lại tự nhiên 1 hôm ........ ngạc nhiên chưa nó lại to vật vã chớ có banh mồm ra cười lên giá rồi đấy hớ hớ và nó lại bắt đầu quá trình teo dần điều chờ đến ngày .... ngạc nhiên chưa.

Những phát biểu nhảm của Duy782006 :->>O

2010-10-16T21:05:00.000-07:00

-Phát biểu khi 1 buổi sáng đi hớt tóc thì con xe máy dơ hù ngồi chờ:

Tại sao tiệm hớt tóc và tiệm rửa xe không ở cạnh nhau nhỉ?

-Phát biểu khi đi xe buýt Quảng Ngãi - Bình Sơn và ngược lại:

Tại sao gần bến xe buýt không có chổ gửi xe máy qua đêm nhỉ?

-Phát biểu khi ngồi chèo queo 1 mình vào ngày lễ của chị em:

Tại sao không có ngày dành riêng cho cánh đàn ông vậy kà?

-Phát biểu theo cả nhu cầu thực tế và lãng mạn (lấy sáng và ngắm sao):

Tại sao người ta không sản xuất viên ngói bằng thủy tinh?

Cafe hử? ồiiiiiiiiii!

2010-10-12T05:55:00.000-07:00

Điệp khúc "Cafe ?" gần như sáng nào cũng vang lên và tùy vào hoàn cảnh mà "thôi" hoặc "rồi" nhưng cái đoạn rồi ấy thì thường xuyên hơn vì nghề tư vấn thiết kế lại nhận money theo sản phẩm nên có phần thoải mái về thời gian tí (tối ta lại cày bù khớ khớ).
Nói cafe cho oai chứ cả năm có khi chỉ uống có vài ly cafe còn thì toàn trà mới cả sữa hoặc nước khoáng đóng chai.
Những lần thật sự cafe thì chủ yếu là đến sau và đối tượng đến trước đã gọi sẳn 1 đen để đó và đối tượng này mình tương đối nể mặt thì "chậc" thôi cố vậy. Sau cái "chậc" này thì là cả 1 ngày đấy cấm có làm gì đc he he, chả biết sao cứ uống cái này vào thì tay chân cứ run tim thì đập mạnh cứ như say ấy (và quan trọng đếch thấy ngon).
Dị ứng nhất những ông (hoặc bà) đi thì lề mề lệch phệt tới nơi thì mọi người chuẩn bị về đến nơi thế nhưng cứ hiên ngang 'ới bà chủ 1 đen" :-( đợi chờ mặc bay, mấy lúc đấy cứ là muốn úp nguyên fin lên đầu hắn điên hết cả người thế nhưng vẫn cứ phải banh mồm nhe nanh ra mà cười lại còn bảo mày cứ từ từ việc gì mà vội (bố mày sắp về mà còn phải chờ từng giọt từng giọt cái mặt bố mày hằm hằm như thế mày ko nhận ra à? Ngu).
Hôm gặp con em (hồi xưa mình thích nó kinh nhưng nó đếch thích mình nên mình bực quá bỏ luôn) nó lại rủ mình đi cafe để lên lớp cho cái vụ nên lập gia đình và cái vụ giữ tâm hồn thư thái gì đấy mà nó mới ngộ ra (chắc đoạn này nó mới mua máy đếm tiền nên có thời gian rảnh nghiên cứu thiền hay cái chi chi đó). Vào quán hai người gọi 1 đen, 1 trà lipton khi đem ra thèn phục vụ nghiễm nhiên ném ly cafe cho mình còn bé kia thì trà .... khà khà, vốn khó tính mình mới bảo nó đổi qua cho đúng làm thèn nhỏ mắt tròn mắt dẹt vừa đổi vừa dòm cái bản mặt mình coi có nhầm ko.
Cafe buổi sáng thì chủ yếu là ngồi tào lao là chính nhưng mà tối thì hiếm nếu có chắc chắn có việc: khi thì nhờ đỡ chuyện gì (chủ yếu là tụi bạn hắm làm nhà), khi thì có người thấy cái mặt mình ở giá hoài tội nghiệp mới lôi đi quảng cáo cho cô này cô kia ...... kết quả thì ko cần thông báo cứ dòm cái lý lịch bên dưới thì biết :->>O, đấy còn chưa dã man có khi đứa bạn ko thân và tương đối cũ réo đi mới ngồi chưa kịp thở thì nó tương cho cái thiệp báo hỷ ặc tủi thân quá. Lại sắp đóng mặt dày đi ăn cưới và nghe lũ bạn đòi nợ ăn. Ngán.... hâyyyyyyyy :-XX<

Scale linetype_scale và htach_scale.

2010-10-04T08:25:00.000-07:00

Lisp này gồm 2 tiện ích scale rất tiện khi bạn là dân quy hoạch:
+SCLT: Scale tất cả linetypescale của các đối tượng trong vùng chọn theo tỉ lệ nhập vào.
+SCH: Scale tất cả Hatch scale của các đối tượng trong vùng chọn (tự động lọc đối tượng hatch trong vùng chọn) theo tỉ lệ nhập vào.

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

(defun c:sclt (/)
(if (= tlscl nil)
(setq tlscl1 2.00)
(setq tlscl1 tlscl)
)
(setq
tlscl (GETREAL (strcat "\nBan muon scale linetype bao nhieu lan: <" (rtos tlscl1 2 2) ">"))
)
(if (= tlscl nil)
(setq tlscl tlscl1)
)
(prompt "\nChon doi tuong muon chinh.")
(setq ss (ssget))
(setq c 0)
(setq N (sslength ss))
(while (< c N)
(setq eT (ssname ss c))
(setq e (entget eT))
(setq dtsckt (cdr (assoc 48 e)))
(if (= NIL dtsckt)
(command ".chprop" eT "" "S" tlscl "" "")
(setq dtsc tlsc)
)
(IF (/= NIL dtsckt) (PROGN
(setq dtsc (* (cdr (assoc 48 e)) tlscl))
)
)
(setq e (subst (cons 48 dtsc) (assoc 48 e) e))
(entmod e)
(setq c (1+ c))
)
(command "undo" "end")
(Princ)
)
;;;;;;;;;;;
(defun c:sch (/)
(setvar "CMDECHO" 0)
(command "undo" "be")
(if (= tlsc nil)
(setq tlsc1 2.00)
(setq tlsc1 tlsc)
)
(setq
tlsc (GETREAL (strcat "\nBan muon scale hatch bao nhieu lan: <" (rtos tlsc1 2 2) ">"))
)
(if (= tlsc nil)
(setq tlsc tlsc1)
)
(prompt "\nChon doi tuong muon chinh.")
(setq ss (ssget '((0 . "hatch"))))
(setq c 0)
(SETQ N (SSLENGTH SS))
(while (< c N)
(setq eT (ssname ss c))
(setq e (entget eT))
(setq dtsc (* (cdr (assoc 41 e)) tlsc))
(command "hatchedit" et "p" "" dtsc "")
(setq c (1+ c))
)
(command "undo" "end")
(Princ)
)

Tải về

Nhà phố

2010-10-04T07:58:00.000-07:00

Con nhà phố tình thương mến thương. Nỏ có đồng mà ún nước nửa. :-(

Tiện ích Biện tập và sử dụng thư viện.

2010-10-04T06:49:00.001-07:00

Tiện ích thư viện:
Bạn load về giải nén và chép thư mục thuvien vào ổ c, sau đó tạo thêm 2 thư mục TVND và TVCT đường dẩn như sau:
C:/thuvien/tvnd.
C:/thuvien/tvct.
Load file C:/thuvien/goithuvien.lsp lên là bạn đã có trong tay tiện ích biên tập và sử dụng các thư viện rồi.
*Lệnh chính là TV sẽ ra bảng lệnh chính từ đây truy cập vào các thư viện con hoặc gỏ lệnh trực tiếp gọi từng loại thư viện.
-Xuất hiện bảng lệnh chính sau.

*Trong tiện ích thư viện mình chia làm 3 nhóm chính.
-Thư viện có đặt tên.

-Thư viện không đặt tên.

-Thư viện đường dẩn.

*Thư viện có đặt tên gồm 08 thư viện chính:
-Thư viện chi tiết 1: CT1.
-Thư viện chi tiết 2: CT2.
-Thư viện chi tiết 3: CT3.
-Thư viện chi tiết 4: CT4.
-Thư viện chi tiết 5: CT5.
-Thư viện chi tiết bể tự hoại: CTBTH.
-Thư viện chi tiết tam cấp: CTTC.
-Thư viện chi tiết của các loại: CTCU.
-Bảng lệnh chính của thư viện có đặt tên như sau.

-Khi muốn thao tác cho ô hình ảnh nào thì bạn click chuột trái vào ô hình ảnh đó và chọn các nút bên dưới để thực hiện thao tác mong muốn.
-Mình giới thiệu lần lượt tính năng và thao tác từng nút.
+Thoi: Thoát khỏi bảng lệnh.
+Chen: Chèn chi tiết vừa chọn vào bảng vẽ.
+Tao: Tạo mới chi tiết tại ô vừa chọn.Khi chọn chức năng này xảy ra 2 trường hợp:
>Tại vị trí ô chọn chưa tồn tại chi tiết nào: Lisp tiến hành hướng dẩn bạn tạo mới dữ liệu cho ô này, trình tự như sau:
Đầu tiên bạn cần có sẳn chi tiết cần tạo thành thư viện trên bảng vẽ, Zoom cho nó to gần bằng màn bình vì sau này chi tiết được tạo ra sẽ dùng cái ảnh của màn hình hiện hành để hiển thị lên bảng lệnh.
Lisp hỏi: Chon doi tuong muon tao... Bạn chọn tất cả các đối tượng muốn tạo thành chi tiết, khi chọn xong thì enter.
Lisp hỏi: Chon diem chen: Bạn chọn điểm bằng cách click chuột trái, điểm này sau này là điểm chèn cơ sở của chi tiết.
Lisp hỏi: Ten dung de hien thi: Bạn gỏ tên của chi tiết, cái này sẽ hiển thị bên dưới ô ảnh của chi tiết.
OK xong bạn đã tạo được chi tiết mới vào thư viện rồi.
>Tại vị trí ô chọn đã tồn tại chi tiết: Sẽ có bảng hỏi bạn như sau:

-Bạn chọn Thoi thì lisp bỏ qua việc tạo chi tiết mới tại vị trí này và kết thúc.
-Bạn chọn Co thì lisp tiến hành như bước trên và xóa bỏ chi tiết hiện có.
*Các thư viện còn lại cách dùng tương tự bạn tự khám phá nhé

Tải về

Toà án nhân dân huyện Trà Bồng

2010-10-02T07:42:00.000-07:00

Quả này đang tìm ý, xin chủ trương chưa biết đi về đâu.

Tạo PLINE trong lisp:

2010-08-27T05:57:00.000-07:00

Vấn đề vướng khó chịu nhất của bà con (kể cả mình) khi viết lisp là làm việc với pline:
-Trường hợp đơn giản nhất là vẽ 1 pline với số đỉnh bất kỳ sau đó lấy giá trị diện tích của nó miễn cưỡng lắm thì viết như sau:
(DEFUN c:dtpl ( )
(setq a (getpoint "\nChon diem dau tien: "))
(setq b (getpoint a"\nChon diem tiep theo: "))
(command "pline" a b "")
(setq plhoinay (entlast))
(setq a b)
(while (setq b (getpoint a"\nChon diem tiep theo : "))
(command "pline" a b "")
(command "pedit" "m" "L" plhoinay "" "j" "0" "")
(setq plhoinay (entlast))
(setq a b)
)
(command "pedit" plhoinay "c" "")
(command "area" "object" "last")
(setq dientich (getvar "area"))
(alert (rtos dientich 2 2))
(princ)
)

Giải thích lisp trên như sau:

(setq a (getpoint "\nChon diem dau tien: "))
Hỏi chọn 1 điểm trên màn hình và gán cho biến a
(setq b (getpoint a"\nChon diem tiep theo: "))
Hỏi chọn 1 điểm trên màn hình và gán cho biến b
(command "pline" a b "")
Thực hiện lệnh pline vẽ từ a đến b, kết thúc lệnh pline
(setq plhoinay (entlast))
Gán pl vừa tạo cho biến hoinay
(setq a b)
Gán điểm b hiện tại thành điểm a
(while (setq b (getpoint a"\nChon diem tiep theo : "))
Khởi động vòng lặp tồn tại khi điều kiện biến điểm b được gán bằng pick điểm, nếu enter thì kết thúc vòng lặp
(command "pline" a b "")
Thực hiện lệnh pline vẽ từ a đến b, kết thúc lệnh pline.......lưu ý lúc này điểm a chính là điểm b của đoạn trên đã được gán qua nhé
(command "pedit" "m" "L" plhoinay "" "j" "0" "")
Thực hiện lệnh pedit lựa chọn m, chọn pline vừa tạo, chọn pline tạo trong đoạn trước đã gán cho biến plhoinay, chọn J để nối thành 1 pline liên tục
(setq plhoinay (entlast))
Gán pl vừa tạo cho biến hoinay
(setq a b)
Gán điểm b hiện tại thành điểm a
)
kết thúc vòng lặp nếu nhấn enter, lúc này sản phẩm là 1 đường pline hở
Đoạn bên dưới là thủ tục đóng kín pline và lấy giá trị diện tích và báo ra kết quả. Nhưng nếu vùng muốn tính diện tích chứa cả cung tròn thì việt viết nhại theo lệnh pline là rất khó khăn và cuối cùng mình cũng tìm ra giải pháp bắng cách lisp trả hẳn về cad thực hiện xong lệnh pline xong thì lisp tiếp tục chạy.

Bài này Duy đang viết dở nha bạn ........

Hướng dẩn viết DCL bài mở đầu:

2010-07-21T06:08:00.000-07:00

Bạn nên theo dỏi theo tên bài viết tăng từ nhỏ tới lớn thì mới đúng trình tự!

Đến đây phần lisp coi như tạm đủ dùng, về cơ bản thì bây nhiêu đó nắm vững và ứng dụng linh hoạt thì làm được ối chuyện. Phần hổ trợ thêm cho lisp mà gần gủi nhất là hộp thoại: Cái này chủ yếu giải quyết khâu oai và màu mè. Kiến thức này của mình cũng ít nhưng cũng mạnh dạn làm vài bài giúp các bạn có khái niệm cơ bản để có thể tự nghiên cứu chuyên thêm tuỳ vào khả năng của mỗi người.

**Chương trình dùng viết hộp thoại: Tất cả các chương trình soạn thảo văn bản. Mình vẫn dùng notepad. Lưu nó ra định dạng *.DCL là được.
**Trong 1 file *.DCL có thể chứa nhiều hộp thoại trong đó:
-Mở đầu bằng
tenhopthoai : dialog {
label = "noidungtieude";
-Kết thúc bằng
}

-Trong đó:
+ tenhopthoai là tên lisp dùng để gọi hộp thoại này (lưu ý đặt tên khác nhau cho các hộp thoại và viết liên tục không khoảng cách)
+ Noidungtieude là nội dung hiển thị phía trên của hộp thoại (Cái này ưng viết sao cũng được có thể có khoảng cách chủ yếu dùng báo tên hoặc chức năng hộp thoại này. Muốn bỏ trống thì label = " ";

**Số dấu { và } trong 1 định nghĩa hộp thoại là bằng nhau.
**Hộp thoại chỉ là cái vỏ còn nội dung bên trong, hoạt động thế nào là do lisp quyết định. Trước tiên cứ thiết kế hộp thoại cho ưng ý cái đã, từ từ tính tới nội dung.
*Mẹo: khi viết xong hộp thoại muốn nghía xem nó như nào mà chưa cần viết lisp để gọi hắn lên thì bạn làm như sau:

-Khởi động cad.
-Vào Tools => Autolisp => Visual lisp editor. Nó khở động lên chương trình.
-Bạn vào File => Open và open cái file *.DCL muốn nghía lên.
-Vào Tools => Inter face tools => Preview DCL Editor. Nó sẽ hiện cái hộp thoại lên cho bạn xem trước.

**Mọi hộp thoại ít nhất phải có 1 nút dùng thoát khỏi hộp thoại mà ko thực hiện chức năng nào như sau.
:button {
label = "Cancel";
key = "Cancel";
is_cancel = true;
}

**Bắt đầu là thủ tục để có 1 nút nhấn cho hộp thoại.

:button {
label = "Ten nut 1";
width = 0;
key = "btn_bieuthuc1";
}

Vậy hộp thoại đơn giản như sau:

tenhopthoai : dialog {
label = "noidungtieude";

:button {
label = "Cancel";
key = "Cancel";
is_cancel = true;
}

}

Hình dáng như sau:

Hộp thoại này chỉ có duy nhất nút thoát khỏi hộp thoại. Kết hợp thêm 1 nút nửa để làm việc khác như sau:

tenhopthoai : dialog {
label = "noidungtieude";

:button {
label = "Ten nut 1";
width = 0;
key = "btn_bieuthuc1";
}

:button {
label = "Cancel";
key = "Cancel";
is_cancel = true;
}

}

Hình dáng như sau:

Khi không nói gì thì các nội dung trong hộp thoại sẽ xếp từ trên xuống dưới. Muốn sắp xếp lại thì dùng 2 cú pháp sắp sếp ( xem bài sau).

Hướng dẩn viết lisp bài 30:

2010-07-04T01:38:00.000-07:00

Bạn nên theo dỏi theo tên bài viết tăng từ nhỏ tới lớn thì mới đúng trình tự!

Đáp án đây. Hy vọng bạn đã hoàn thành giống như sau:

(defun c:vht ()
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)

(Princ "\nChon cac text :")
(setq tapdoituong (ssget '((0 . "text"))))
(setq diemchuan (getpoint "\nChon diem canh le: "))
(setq thutu 0)
(setq sodoituong (sslength tapdoituong))

(while (< thutu sodoituong)
(setq doituong (ssname tapdoituong thutu))
(setq laynoidung (entget doituong))
(setq diemve (cdr (assoc 10 laynoidung)))

(setq xmoi (car diemchuan))
(setq ymoi (cadr diemve))
(setq diemmoi (list xmoi ymoi))

(command "move" doituong "" diemve diemmoi)
(setq thutu (+ thutu 1))
)
(command "undo" "end")
(setvar "osmode" luubatdiem)
(Princ)
)

**Sau đây mình nói về cách lấy thông tin của đối tượng bằng lisp:
Giả sử rằng bạn có đối tượng (doituong) bạn có được bằng cách nào thì tùy. Muốn lấy thông tin từ nó bạn phải làm việc giống như là mở cửa bước vào trong phòng. Dùng hàm enteget:
(setq laynoidung (entget doituong))
Khi đã vào phòng thì có nhiều thứ để lấy. Mổi thông tin của đối tượng có 1 con số đại diện ví dụ điểm canh lề thứ nhất của text là số 10. Dùng hàm cdr và assoc sẽ lấy được thông tin tương ứng với con số đó.
(setq diemve (cdr (assoc 10 laynoidung)))
Mình sẽ gỏ lại bảng các số đại diện như từ điển bạn cần thông số gì thì vào tra nhé. (Một vài cái hay dùng thôi chứ nhiều lắm mình gỏ không nổi, bạn mua sách về lisp sẽ có bảng này).

CHUNG:
Layer của đối tượng: 8
Kiểu của đối tượng: 0
Màu của đối tượng: 62
Tên dạng đường: 6

TEXT:
Nội dung text: 1
Độ lớn text: 40
Style: 7
Điểm canh lề thứ nhất: 10

BLOCK: (INSERT) Lưu ý block thì trong từ điển của cad là đối tượng INSERT
Tên BLOCK: 2
Điểm chèn: 10
Góc quay: 50
Tỉ lệ theo trục X: 41
Tỉ lệ theo trục Y: 42
Tỉ lệ theo trục Z: 43

LINE:
Điểm đầu: 10
Điểm cuối: 11

CIRCLE:
Tọa độ tâm: 10
Bán kính: 40

PLINE: (LWPOLYLINE)
Độ rộng: 43
Số lượng đỉnh: 90

DIMENSION:
Style: 3

Vậy cách lấy thông tin text như sau:
Nội dung text: (setq noidung (cdr (assoc 1 laynoidung)))
Độ lớn text: (setq dolon (cdr (assoc 40 laynoidung)))
Style: (setq style (cdr (assoc 7 laynoidung)))
Điểm canh lề thứ nhất: (setq diemve (cdr (assoc 10 laynoidung)))

Cách làm 1 bộ lisp di động.

2010-06-07T23:34:00.000-07:00

*Bạn có trong tay một bộ lisp ưng ý và dùng đã quen. Đôi lúc bạn ngồi 1 máy khác cảm thấy rất bất tiện, cài lisp của mình vào thì sợ ảnh hưởng đến người khác.
*Mình cũng bị tình trạng này và đến nay đã tìm ra cách giải quyết nên khoe với mọi người. Cách này mình gọi là lisp di động.
-Nhiều bạn sẽ nghỉ lisp thì để đâu cũng không quan trọng chỉ cần load lên thôi có gì phải tinh vi,,,,,,,,,,, Vấn đề là lisp nhiều khi không đơn thuần chỉ là các file lisp mà còn rất nhiều thứ kèm theo ví dụ:
+File dwg dùng chèn vào phục vụ nhu cầu nào đó của lisp.
+File dcl dùng hiển thị hộp thoại.
+Các file sld dùng cho hộp thoại và các mục đích trang trí, minh họa khác.
Nói chung là có rất nhiều loại file kèm theo cần phải dùng trong ứng dụng lisp.

-Thông thường người viết lisp có hai cách ứng xử với các file này:
+Chỉ đích danh file với đầy đủ đường dẩn ví dụ:
(command ".INSERT" "C:\\tienich\\dwg\\cott.dwg" (list (car a)(cadr a)) 1 1 0)
+Chỉ tên file không có đường dẩn và tạo Support File Search Path đến thư mục chứa file ví dụ:
(command ".INSERT" "cott.dwg" (list (car a)(cadr a)) 1 1 0)
Và Add thư mục C:\\tienich\\dwg\\ vào Support File Search Path.
-Cả hai trường hợp trên phù hợp khi lisp nằm cố định trên máy. Bây giờ bạn chép tất cả vào CD hoặc USB để đem nó đi máy khác thì đường dẩn sẽ không còn ổn định (mổi máy mổi khác) Tôi xin trình bày cách mà tôi áp dụng cho ứng dụng lisp của mình như sau:

-Tổ chức một thư mục tổng (tôi đặt tên tienich).Bên trong là các thư mục con theo từng loại file (để dể kiểm soát) ví dụ tôi đặt như sau:
+DWG
+DCL
+LENH
+FLIEHETHONG
-Tạo 1 file bất kỳ tốt nhất nên là file có định dạng đặt biệt chút cho đở nhầm lẩn (trường hợp của tôi là file DUY.ICO). Đặt file này trong thư mục tổng ví dụ: tienich\\duy.ico. Tác dụng của file này tôi sẽ trình bày phía dưới.
-Cải tạo tất cả các dòng trong lisp có liên quan đến file bên ngoài như sau:

(start_image "img_1")
(slide_image 0 0 (dimx_tile "img_1")(dimy_tile "img_1") (strcat odiachay "\\tienich\\dcl\\lgoduy.sld"))
(end_image)

(setq DCL_ID (load_dialog (strcat odiachay "\\tienich\\dcl\\VEKHOIDAC.DCL")))

(command "INSERT" (strcat odiachay "\\tienich\\dwg\\cos") (list (car p0cos)(cadr p0cos)) 1 1 0)
Nghĩa là cần phải xác định biến odiachay thì các dường dẩn đến file mới hoàn thiện.
-Tạo file lisp để khi load lên sẽ làm tất cả các bước sau:
+Xác định biến odiachay.
+Load tất cả các file lsp cần load.
Nội dung như sau:

(setq vitrifilekiemtraduongdan (getfiled "DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON " "" "ico" 0))
(setq dodaiduongdantienichdocduoc (strlen vitrifilekiemtraduongdan))
(setq dodaiduongdantienichdocduoctru (- dodaiduongdantienichdocduoc 16))
(setq tenodiachay (substr vitrifilekiemtraduongdan 1 dodaiduongdantienichdocduoctru))
(setq odiachay tenodiachay)
(load(strcat odiachay "/tienich/lenh/thuvienndung"))
(load(strcat odiachay "/tienich/lenh/thuvienchitiet"))
(load(strcat odiachay "/tienich/lenh/tienichchonht"))
(load(strcat odiachay "/tienich/lenh/thongke"))

Phần màu xanh dùng để load các file lisp.
Phần màu cam dùng xác định biến odiachay cách làm việc như sau:
+Hiển thị hộp thoại open file với tiêu đề DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON, định dạng file mặc định là file *.ico.
+Đọc ra đường dẩn đầy đủ của file DUY.ICO.
+Đếm số ký tự trong chuổi vừa thu được.
+Trừ số ký tự đi 16 (là số ký tự của chuỗi tienich\\duy.ico).
+Lấy giá ra chuỗi con của chuổi tên file đầy đủ từ vị trí đầu tiên đến vị trí thứ đã trừ đi 16.
Giá trị này chính là biến odiachay.

*Tất nhiên có nhiều cách hay hơn để làm việc lisp di động này nhưng mình làm được như vậy và dùng thấy rất ổn nên giới thiệu lên đây mong giúp được cho nhửng bạn đang bị vướng vấn đề như mình.
*Tham khảo sản phẩm ở Đây!

Copy kiểu sketchup.

2010-06-01T19:51:00.000-07:00

Nhân dịp học sketchup thấy lệnh copy của hắn cũng hay hay mình viết lips có chức năng tương tự và thêm 1 lựa chọn cho phong phú.
-Tên lệnh: pcm
-Thao tác:
+Nhập lệnh.
+Chọn đối tượng cần copy.
+Chọn điểm xuất phát.
+Chọn điểm đến.
*Lisp thực hiện copy nhóm đối tượng từ điểm xuất phát đến điểm đến và đưa ra 3 lựa chọn. *N/:N/<: trong đó N là số tuỳ ý (nhập trực tiếp luôn nhé ví dụ *5 lisp sẽ tự lọc lấy số để thực hiện).
+Lựa chọn *N thì đối tượng sẽ được copy thêm N lần với khoảng cách từ từ đối tượng này đến đối tượng kia bằng điểm xuất phát đến điểm đến.
+Lựa chọn :N Thì khoảng cách từ điểm xuất phát đến điểm đến sẽ được chia làm N lần và đối tượng sẽ được copy đến các điểm nút này.
+Lựa chọn < thì sau khi enter lisp hỏi khoảng cách giới hạn và tính toán rãi trong khoảng cách này phần dư thì bỏ. (kiểu như MEASURE của cad ấy)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun thuchiencopy ()
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(repeat solanthuchien
(setq index (1+ index))
(command ".copy" doituong "" p1 (polar p1 goc (* kc index)))
)
(setvar "osmode" luubatdiem)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun kieunhan ()
(setq index 1)
(setq solanthuchien (- (atoi kytuconlai) 1))
(thuchiencopy)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun kieuchia ()
(setq index 0)
(setq kc (/ kc (atoi kytuconlai)))
(setq solanthuchien (- (atoi kytuconlai) 1))
(thuchiencopy)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun kieutrong ()
(setq p3 (getpoint p1 "\nRai trong khoang: "))
(setq kc1 (distance p1 p3))
(setq index 1)
(setq solanthuchien (- (fix (/ kc1 kc)) 1))
(thuchiencopy)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun tinhtoankieu ()
(setq ddkc (strlen kieuchep))
(setq skytuconlai (- ddkc 1))
(setq kytuconlai (substr kieuchep 2 skytuconlai))
(setq kytudautien (substr kieuchep 1 1))

(if (= kytudautien "*")
(progn
(kieunhan)
))
(if (= kytudautien ":")
(progn
(kieuchia)
))
(if (= kytudautien "<")
(progn
(kieutrong)
))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:cpm ()
(command "undo" "be")
(setvar "MODEMACRO" "RAI DOI TUONG THEO QUY LUAT CHO TRUOC")
(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
(Prompt "\nChon doi tuong muon chep...")
(setq doituong (ssget)
p1 (getpoint "\nDiem bat dau: ")
p2 (getpoint p1 "\nDiem ket thuc: ")
goc (angle p1 p2)
kc (distance p1 p2)
index 0
)
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".copy" doituong "" p1 p2)
(setvar "osmode" luubatdiem)
(setq kieuchep (getstring "\n*N/:N/<: "))
(tinhtoankieu)
(command "undo" "end")
(setvar "MODEMACRO" "**CHUC BAN LAM VIEC HIEU QUA** PHAM QUOC DUY - BINH SON - QUANG NGAI")
(Princ))

Tải về

Ghi chép tào lao.

2010-05-30T23:48:00.001-07:00

-Những ghi chép của Duy cập nhật hàng ngày (thỉnh thoảng) tại đây.
-Nếu bạn đọc thấy có gì không thích hoặc có ý kiến khác cũng mong vui lòng không bình luận.
-Nếu bạn là người quen khi gặp mình vui lòng không đề cập đến những nội dung đã đọc trên này.

6 - 7 - 2010 Làm thèn tư vấn thiết kế bây giờ nhục như con chó. Mình bán sức lao động và chất xám mà nhiều lúc không khác gì thèn ăn mày là mấy. Nhục.	27 - 7 - 2010 Ngủ dậy thì thấy đầu hơi ấm, lại cảm rồi! Trưa và tối en cháo lại làm 1 mớ thuốc (mua của mấy lang băm ngoài đường) hi vong mai lai cày cấy tốt kẻo lại thất thu. À mai lại co quả đám cưới. Ớn.
30 - 5 - 2010 .......Cả ngày chủ nhật cúp điện. Ông bạn Quảng Ngãi ra hú đi biển ổng dẩn theo vợ còn mình ............ Tủi thân gì đâu! Đi cả ngày en uống linh tinh mệt.	31 - 5 - 2010 .......Bố của thủ quỹ mới mất hôm qua. Nay lại cuối tháng tới kỳ lương kiểu này chắc là chờ mỏi cổ đây ...................... Trưa nay còn nhiệm vụ sửa cái máy bơm, trời thì nắng điên. Bể khổ vô biên!

Ánh xạ giá trị đối tượng text, nguồn đổi giá trị, đích bị sửa (Sưu tầm)

2010-05-24T22:18:00.000-07:00

Nguồn gốc:

Bạn muốn một số đối tượng text link giá trị với một đối tượng text nào đó. Nhưng bạn không muốn biến nó thành block, làm thế nào đây?

Hãy làm như sau:
- Tại dòng command, dùng lệnh FIELD.
- Tại bảng lệnh Field, phần Field names chọn Object, tại phần Object type: bạn sẽ thấy một nút có biểu tượng con chuột, bạn nhấn vào biểu tượng này. Màn hình CAD sẽ được hiện ra để bạn chọn đối tượng text nguồn - là đối tượng mà bạn muốn giá trị của nó là gốc và sẽ được tự động link vào các text khác. Chọn xong đối tượng text nguồn, bảng lệnh Field sẽ xuất hiện.
- Tại bảng lệnh Field vừa mới xuất hiện trở lại, trong phần Property hãy chọn Contents. Lúc này, bạn liếc vào phần Preview, sẽ thấy xuất hiện giá trị của text vừa chọn. Liếc xuống Field expression bạn sẽ thấy cấu cấu trúc dạng: %<\AcObjProp Object(%<\_ObjId xxxxxxxxxx>%).Backward \f "%bl2">% trong đó xxxxxxxxxx sẽ là mã ID của đối tượng text vừa chọn. Hãy copy dòng biểu thức trong Field expression - bằng cách tô xanh dòng chữ này rồi phải chuột chọn copy.
- Nhấn Cancel để thoát khỏi bảng lệnh Field.
- Trở lại màn hình CAD, bạn tạo một đối tượng TEXT bằng lệnh DTEXT rồi paste giá trị vừa copy vào đối tượng TEXT. Hoặc bạn cũng có thể edit một đối tượng đã có để paste giá biểu thức rồi vào. Nói một cách tổng quát, AutoCAD trong lúc REGEN sẽ tìm các text có biểu thức %<\AcObjProp Object(%<\_ObjId xxxxxxxxxx>%) và thay bằng giá trị của đối tượng text ánh xạ.

-Khi hoàn thành cái text đích nằm trên cái nền mờ mờ ảo ảo không ưng lắm. Bạn ưng nó giống mấy cái text khác thì:
Bạn đánh lệnh FIELDDISPLAY và nhập giá trị 0

Hướng dẩn viết lisp bài 29:

2010-05-18T02:09:00.001-07:00

Bạn nên theo dỏi theo tên bài viết tăng từ nhỏ tới lớn thì mới đúng trình tự!

Một chức năng hay của lisp là có thể thao tác lặp lại một vài thao tác trên từng đối tượng của tập hợp chọn.
Ứng dụng vòng lặp While.
Ví dụ bạn có tập hợp tapdoituong gồm các text hình thành từ
(setq tapdoituong (ssget '((0 . "text"))))
Bây giờ bạn muốn vẽ 1 hình tròn tâm tại điểm chèn text bán kính 100.
Việc vẽ 1 hình tròn bằng lisp khi biết tâm và bán kính bằng lisp thì đơn giản rồi.
(command "circle" diemve 100)
Vấn đề là làm lần lượt cho từng text trong cả tập hợp chọn.
Dùng hàm sslength để lấy ra số lượng đối tượng trong tập hợp chọn
(setq sodoituong (sslength tapdoituong))
Hàm ssname lấy ra đối tượng thứ thutu trong tập hợp tapdoituong
(setq doituong (ssname tapdoituong thutu))
Đầu tiên cho thutu = 0 sau đó áp dụng vòng lặp While với điều kiện thutu< sodoituong, cuối vòng lặp cho thutu = thutu+1 đến khi thutu= sodoituong thì vòng lặp sẽ dừng lại.

Đoạn lisp như sau:
(defun c:vht ()
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)

(Princ "\nChon cac text :")
(setq tapdoituong (ssget '((0 . "text"))))
(setq thutu 0)
(setq sodoituong (sslength tapdoituong))

(while (< thutu sodoituong)
(setq doituong (ssname tapdoituong thutu))
(setq laynoidung (entget doituong))
(setq diemve (cdr (assoc 10 laynoidung)))
(command "circle" diemve 100)
(setq thutu (+ thutu 1))
)
(command "undo" "end")
(setvar "osmode" luubatdiem)
(Princ)
)

Bạn chạy thử lisp này chọn các text nó sẽ vẽ các hình tròn vào điểm chèn của từng text.
Đoạn sau giúp lấy ra điểm chèn của text:
(setq laynoidung (entget doituong))
(setq diemve (cdr (assoc 10 laynoidung)))
Bài sau mình sẽ nói về cách lấy các thông tin về đối tượng cad bằng lisp, có bao hàm cả hai dòng trên. Bài này bạn chấp nhận nó đã nhé.
*Để thực hành mình ra 1 đề bài bạn viết thử nhé.
Viết lisp hỏi chọn các text, hỏi chọn điểm canh lề, move các text được chọn sao cho điểm canh lề của text thẳng hàng theo phương thẳng đứng.
*Gợi ý:
-Cơ bản đoạn lisp như trên.
-Sau khi chọn đối tượng thêm phần hỏi chọn điểm canh lề. (diemchuan)
-Sau khi lấy được điểm canh lề text (trường hợp này là diemve). Bỏ dòng vẽ hình tròn mà thay bằng dòng move.
-Move từng text từ điểm canh lề (diemve) đến điểm mới. Điểm mới xác định bằng cách lấy giá trị x của diemchuan và y của diemve.
*Sẽ có đáp án trong bài tới.

Hướng dẩn viết lisp bài 28:

2010-05-18T02:08:00.000-07:00

Bạn nên theo dỏi theo tên bài viết tăng từ nhỏ tới lớn thì mới đúng trình tự!

*Trong khi viết lisp đôi khi có các dữ liệu nhập vào lặp lại cứ mỗi lần lisp hỏi lại phải nhập vào. Cách hay hơn là dữ liệu nào nhập vào rồi thì ghi nhớ lại cho lần sau nếu cần giá trị khác thì nhập vào còn nếu vẫn dùng giá trị cũ thì chỉ cần enter là có giá trị cũ để dùng.
-Sau đây là đoạn lisp giúp cho bạn có thêm 2 hàm có tác dụng lưu giữ giá trị nhập vào. Mình tìm thấy nó trong 1 đĩa cd ko biết rỏ tác giả và cũng không tìm hiểu cách làm việc của nó cứ biết tác dụng và ứng dụng vào công việc thôi. Bạn cũng vậy nhé cứ lưu đoạn này lại sau đó dùng theo cách mình hướng dẩn.

;---------------------------------------
(defun nstr (stri def)
(princ stri)
(princ "<")
(princ " ")
(princ def)
(princ ">")
(princ ":")
(princ " ")
);defun nstr
;--------------------
(defun nstr1 (stri)
(princ stri)
(princ "<")
(princ "Nhap vao")
(princ ">")
(princ ":")
(princ " ")
);defun nstr1
;---------------------
(defun nint (prompt def / temp)
(if def
(setq temp (getint (nstr prompt def)))
(setq def (getint (nstr1 prompt)))
);if def
(if temp
(setq def temp)
def
);if temp
);defun nint
;---------------------
(defun dnint (prompt def / temp)
(if def
(setq temp (getreal (nstr prompt def)))
(setq def (getreal (nstr1 prompt)))
);if def
(if temp
(setq def temp)
def
);if temp
);defun nint
;--------------------
(defun ndist (po prompt def / temp) ;nhan kh/cach va luu gia tri mac dinh
(if def
(setq temp (getdist po (nstr prompt def)))
(setq def (getdist po (nstr1 prompt)))
)if def
(if temp
(setq def temp)
def
);if temp
);defun ndist
;-----------------------------------

Cách dùng:
-Hàm ndint: lưu giữ giá trị số. Giá trị số này được nhập từ bàn phím.

(setq giatri (dnint "\nTi le chinh "giatri1))
(setq giatri1 giatri)

Ví dụ đoạn lisp scale với tỉ lệ scale được lưu lại.

(Defun c:sclt (a)
(command "undo" "be")
(Prompt "\nChon doi tuong muon chinh ti le")
(setq dtthu (ssget))
(setq a (getpoint "\nChon tam phong: "))
(setq tilechinh (dnint "\nTi le chinh "tiledchinh1))
(setq tiledchinh1 tilechinh)
(command "scale" dtthu "" (list (car a)(cadr a)) tilechinh)
(command "undo" "end")
(Prin I)
)

*Cách dùng:
-Hàm ndist: lưu giữ giá trị khoảng cách. Giá trị này được chuyễn thành số, giá trị này có thể được nhập từ bàn phím.

(setq giatri (ndist a "\nDo cao khoi muon ve "giatri1))
(setq giatri1 giatri)
Trong đó a là điểm đã được xác định.
Ví dụ đoạn lisp vẽ box với cao độ khối được lưu lại.

(Defun c:khoi (a)
(command "undo" "be")
(setq a (getpoint "\nDiem thu nhat:"))
(setq b (getcorner a"\nDiem thu hai: "))
(setq dckhoive (ndist a "\nDo cao khoi muon ve "cckhoive1))
(setq cckhoive1 dckhoive)
(command "box" (list (car a) (cadr a) (caddr a)) (list (car b) (cadr b) (caddr b)) dckhoive)
(command "undo" "end")
(Prin I)
)

Bạn lưu ý đoạn định nghĩa hai hàm này chỉ cần load lên 1 lần trong 1 phiên làm việc thì các lisp có dùng 2 hàm này điều chạy được cả nhé.

Thư viện các file trường học (sưu tầm)

2010-05-17T19:48:00.000-07:00

load

Nguồn gốc

Buông xuôi!

2010-05-11T02:15:00.000-07:00

Nắng chiều soi xuyên những ngón tay gầy
Lá vàng rơi xao xác dưới ngót chân
Cứ muội mê hoang mang tới đời mình
Chợt bước xa xôi về cõi mung lung nào có ai biết
Chốn trần gian ta lê bước dài qua bao lợi danh vẫy gọi
Cứ vờ xem ta như lá khô rơi rơi nhẹ theo cơn gió
Xoáy lòng ta theo dãy cát vàng khi đêm trời mưa đổ xuống
Để thấy ta như chợt đã hư vô tình như trong cơn mơ

Muộn màng tay trắng ôm bao ngậm ngùi đây tay ta quá mỏi mệt
Chỉ cần ta yên một phút thôi cho đời sẽ qua
Niềm khát khao bây giờ mãi chỉ còn lại một nắm tro tàn bay đi mất
Dừng lại suy nghĩ cho cuộc đời mình bao năm bon chen làm gì
Để rồi xua tay ngọn gió bay ngang vài nhánh hoa
Một chút hương thơm cỏ dại một tiếng than van mệt nhoài
Buông xuôi

Trò chơi xếp lisp:

2010-04-12T23:45:00.000-07:00

Để viết lisp mình dùng phương pháp giống như chơi trò xếp gạch, nghĩa là các đoạn đã viết thành công mình sẽ lưu lại thành kiểu từ điển sau đó thì xếp nó lại với nhau theo nhu cầu của mình. Xin chia sẽ với các bạn bộ từ điển viết lisp của mình.

Đoạn mở đầu cho tất cả các lisp:
(defun c:tenlenh ()
(command "undo" "be")
Trong đó tenlenh là cái mà bạn gỏ vào thanh command để thực thi lệnh lisp.

Đoạn kết thúc cho tất cả các lisp:
(command "undo" "end")
(princ)
)

Còn tất cả các đoạn bên dưới thì ghép vào giữa hai đoạn trên thì coi như bạn viết được lisp rồi đó.

Lưu bắt điểm tự động :
(setq luubatdiem (getvar "osmode"))

Trả lại bắt điểm tự động:
(setvar "osmode" luubatdiem)

Lưu tên layer hiện hành :
(setq luulayer (getvar "clayer"))

Trả lại layer hiện hành :
(setvar "clayer" luulayer)

Lưu bán kính lệnh fillet hiện hành :
(setq luubankinh (getvar "filletrad"))

Trả lại bán kính lệnh fillet hiện hành :
(setvar "filletrad" luubankinh)

Lưu kiểu chử hiện hành :
(setq luukieuchu (getvar "TEXTSTYLE"))

Trả lại kiểu chử hiện hành :
(setvar "TEXTSTYLE" luukieuchu)

Đoạn chọn điểm a bằng clik chuột trái:
(setq a (getpoint "\nChon diem: "))

Đoạn chọn điểm b bằng clik chuột trái có đường dẩn hướng nối với điểm a:
(setq b (getpoint a"\nChon diem: "))

Đoạn lấy khoảng cách từ a đến b:
(setq daiab (distance a b))
Đoạn lấy góc mà đoạn ab tạo với trục x: (giá trị thu được là radian)
(setq gocab (angle a b))

Đoạn đổi giá trị góc từ radian sang độ:
(setq gocdo (* 180 (/ gocradian pi)))

Đoạn vẽ line từ a tới b:
(command ".line" a b "")

Đoạn vẽ circle tâm a bán kính a b:
(command ".circle" a b)

Đoạn chọn 1 nhóm đối tượng lưu thành biến doituong:
(setq doituong (ssget))

Đoạn chọn 1 nhóm đối tượng bằng cách chọn pline bao quanh lưu thành biến doituong:
(setq plst (acet-geom-vertex-list (car (entsel "\n Chon pline gioi han"))))
(setq doituong (ssget "wp" plst))

Đoạn move nhóm đối tượng doituong từ a tới b:
(command ".move" doituong "" a b)

Đoạn move nhóm đối tượng vừa chọn trước đó từ a tới b:
(command ".move" "previous" "" a b)

Đoạn move đối tượng vừa được tạo mới nhất từ a tới b:
(command ".move" "last" "" a b)

Đoạn làm xuất hiện bảng chọn color của cad và trả về giá trị mau là số từ 1 đến 225.
(princ "\nChon mau lop :")(setq mau (acad_colordlg 7))

Đoạn lưu giá trị là số: Biến kết quả để dùng là biến giatri
(if (= giatri nil)
(setq giatri1 5.0)
(setq giatri1 giatri)
)
(setq giatri (GETREAL (strcat "\nNhap so can luu: <" (rtos giatri1 2 2) ">")))
(if (= giatri nil)
(setq giatri giatri1)
)

Đoạn lưu kết quả là chử: Biến kết quả để dùng là giatric
(if (= giatric nil)
(setq giatric1 "mau")
(setq giatric1 giatric)
)
(setq giatric (GETSTRING (strcat "\nNhap chu can luu: <" giatric1 ">")))
(if (= giatric "")
(setq giatric giatric1)
)

Mới học được đoạn lưu số và chử coi bộ ngắn hơn chút nửa:
-Lưu giá trị số
(or gtso (setq gtso 180))
(setq gtso (cond ((getreal (strcat "\nNhap so < " (rtos gtso 2 2) " >:")))(gtso)))

-Lưu giá trị chuổi
(or gtchuoi (setq gtchuoi "noidung"))
(setq gtchuoi (cond ((getstring (strcat "\nNhap chu < " gtchuoi " >:")))(gtchuoi)))

“Chú yêu cháu mất rồi!” Phần7

2010-04-11T03:42:00.000-07:00

Nguồn gốc:

Chương XIX: Chú yêu cháu mất rồi!

Một tuần nay tôi ko liên lạc với Thanh Trúc và cả cô bé Thanh Mai nữa. Chuyện giữa tôi và Thanh Trúc mẹ tôi vẫn chưa hay biết. Tôi sợ nếu nói ra bà chắc sẽ buồn lắm, dù sao thì Thanh Trúc cũng là mẫu con dâu lý tưởng của mẹ tôi mà. Mấy ngày này tôi vẫn đến công ty bình thường nhưng trong lòng luôn mang tâm trạng buồn dù tôi ko hề để nó ảnh hưởng tới việc ở công ty.

Tôi nằm trên giường, trong lòng tôi nỗi buồn lại dâng trào. Tôi buồn vì chuyện giữa tôi và Thanh Trúc cũng nhiều nhưng nỗi buồn lo cho Thanh Mai còn nhiều hơn. Từ hôm đó tôi ko liên lạc cho cô bé mặc dù rất lo cho cô bé. Thanh Mai đã vì tôi, vì đứng ra lên tiếng cho tôi mà bị ăn một cái tát như giáng trời của chị. Đã bao lần tôi mở điện thoại nhưng lần nào cũng vậy, tôi ko đủ can đảm để bấm số cho cô bé. Tôi sợ một cái gì đó vô hình lắm mà tôi cũng ko biết rõ. Tôi sợ sẽ làm cho tình cảm của cô bé và chị thêm bất ổn, tôi sợ sự thương hại hay cái cười cho một kẻ thật bại như tôi, và tôi sợ… gặp rồi tôi ko biết phải nói gì với cô bé nữa. Nhưng trong suốt một tuần nay, tôi luôn nhớ tới cô bé, nhớ nhiều lắm. Nhớ ánh mắt sáng long lanh mỗi khi cô bé cười, nhớ giọng nói lanh lảnh của cô bé, nhớ cái cách kể chuyện cười đầy khôi hài của cô bé. Tôi nhớ lắm! Nhớ lắm!

Và nỗi nhớ đã vượt lên trên cả nỗi buồn, và sự sợ hãi lo âu, tôi mở máy gọi cho cô bé. Có tiếng nhạc chờ nhưng cô bé ko nhấc máy, tôi quyết định gửi tin nhắn.
- “Thanh Mai, chú biết là cháu có cầm máy, chú lo cho cháu lắm! Hãy nhắn lại cho chú đi!”

Tới tận 30 phút sau tôi mới nhận đc tin nhắn trả lời của Thanh Mai.
- “Cháu ko sao đâu! Người đáng lo lúc này là chú mới phải!”
-“ Ko, chú cũng ko sao! Chú chỉ hơi buồn một chút nhưng chú lo cho cháu nhiều hơn! Chú muốn gặp cháu, ngay bây giờ đc ko Thanh Mai!”

Đồng hồ đã điểm hơn 9 rưỡi tối, tôi và Thanh Mai ko đến quán “Khoảng Lặng” như mọi khi mà chúng tôi đi bộ trên con đường cách nhà cô bé ko xa. Cả hai chúng tôi im lặng đi bên nhau, chẳng ai nói một lời nào. Cái lặng im như giết chết tất cả. Nhìn cái dáng nhỏ bé, trầm tư ko nói gì của Thanh Mai, tôi ko thể kìm lòng. Tôi đưa tay nắm lấy tay cô bé. Cô bé chợt đứng khựng lại, nhìn tôi. Tôi mặc kệ, tôi vẫn cứ siết chặt lấy bàn tay mềm mại, ấm áp của cô bé và kéo cô bé bước đi. Thanh Mai im lặng bước đi bên tôi. Một lần nữa tôi ko thể kìm nỗi lòng mình, tôi nhớ cô bé nhiều lắm, lúc này tôi mới nhận ra cô bé quan trọng với tôi nhường nào. Tôi muốn ôm ghì cô bé vào lòng, tôi muốn lấp đầy những khoảng trống cô đơn và nhớ mong trong lòng tôi, tôi muốn đc cô bé sưởi ấm cho lòng mình, tôi muốn trao yêu thương cho cô bé! Tôi muốn và tôi muốn.

Thanh Mai bé nhỏ đang nằm gọn trong vòng tay tôi. Cái ấm áp truyền đi khắp cơ thể. Tôi siết chặt cô bé vào lòng, để mái đầu cô bé tựa lên bờ ngực với trái tim đang đập mạnh mẽ của tôi. Và trong tiếng gió vang lên lời thì thầm: “Chú yêu cháu mất rồi!”

Lời chủ blog: Câu chuyện vẫn còn tiếp. Đoạn sau thì hai người họ đến với nhau và cưới nhau, cũng trải qua sóng gió dằn vặt nhưng cuối cùng cũng kết thúc có hậu. Đặc biệt phần sau diển tả chủ yếu tâm lý sau hôn nhân của vợ chồng chênh lệch tuổi tác và ít vui nên mình thích dừng câu chuyện ở đây. Bạn thích xem tiếp thì tải file bên dưới về xem nhé!

Load

“Chú yêu cháu mất rồi!” Phần6

2010-04-11T03:37:00.000-07:00

Nguồn gốc:

Chương XVI: Sẽ ổn thôi!

Chúng tôi xin phép về sớm ngay sau khi nụ hôn “trời đánh” kết thúc. Trước khi ra đến cửa quán chúng tôi còn may mắn nghe đc cuộc đối thoại giữa hai cái bóng đen khuất trong góc rèm.
- Anh đã nhìn con bé đó rất say mê!
- Em nói gì vậy?
- Rõ ràng là như vậy? Anh nói anh và nó chả có gì! Chỉ là một trò chơi mà thôi! Âý vậy mà suốt buổi anh chỉ săm soi nó và thằng người yêu mới của nó thôi. Anh còn khó chịu nữa. Rõ ràng anh ghen!
- Em bị điên à?
- Anh nói cái gì cơ!...
-….

Suốt buổi về, chúng tôi lặng im ko nói gì với nhau cả. Tôi ko biết con bé có giận tôi ko nữa. Nhớ lại lúc tôi trao “nụ hôn đầu” cho nó thật là ngớ ngẩn. Ko biết lúc đấy con bé có nhắm mắt ko nữa hay là mở trừng trừng nhìn tôi cũng nên. Vì thực ra là chỉ có mình tôi hôn, con bé đứng im như tượng chẳng hề nhúc nhích. Mà chả biết có phải là hôn ko vì chỉ là môi chạm môi thôi mà.

Cả đêm tôi chả thể nào chợp mắt nổi. Cứ nhắm mắt vào là y như rằng cảnh ấy lại hiện ra và mặt tôi lại có cảm giác như nóng rát. Dư âm của “nụ hôn” ấy còn trong tôi nhiều quá! Mọi thứ cứ như chỉ vừa mới mấy phút trước và giờ tôi vẫn còn cảm nhận rõ từng hơi thở cũng như cái mềm mại từ đôi môi con nhỏ. Tôi gần như phát điên mất. Tôi thật là ngu ngốc khi lại có hành động dại dột như thế. “Thanh Mai! Chú xin lỗi!” – Đó là câu mà cả đêm tôi lẩm bẩm cho đến khi chìm vào giấc ngủ hình như môi vẫn còn mấp máy.

Sáng hôm sau tôi đến công ty khá trễ. Tại cả đêm tôi mất ngủ mà. Tôi ngồi vào bàn làm việc và uống cốc cà phê cậu Đức mang cho như cố để làm cho đầu óc mình tỉnh táo hơn. Thật tệ hại, tôi đã lầm khi quyết định nhận lời đề nghị làm người yêu giả của con bé Thanh Mai dù kết quả có vượt cả sự mong đợi của chúng tôi. Với ý nghĩ đó tôi lại thần người ra như một kẻ ngớ ngẩn trên bàn làm việc dù chuông điên thoại tôi đang la hát inh ỏi.

- Anh Lâm! – Tôi giật mình trở lại thực tế bởi tiếng cậu Đức đang ở cửa phòng. - Điện thoại kìa? Anh sao thế? – Tôi vội mở máy nhưng máy đã báo “1 cuộc gọi nhỡ” - Số của con bé Thanh Mai. Chưa kịp định thần thì cậu Đức đã tiến tới. – Sếp sao vậy? Mệt ạ?
- À ko! Tôi… tôi…
- Sếp hôm nay kì quá! Đi làm muộn. Đến công ty thì cứ như người mất hồn. Sếp đang suy nghĩ gì vậy? Hay sếp và chị Thanh Trúc có chuyện gì?
- Cậu nói linh tinh gì vậy?
- Vậy tóm lại là sếp nào sao? Nói em nghe xem em giúp gì đc ko?
- Thôi khỏi, cậu ra ngoài để tôi yên một chút. Tôi cần nghỉ ngơi.
- Vâng, đành vậy. Có gì sếp cứ nói với em. Thôi em ra đây.

Cậu Đức bỏ ra ngoài để cho tôi có một khoảng riêng nghỉ ngơi. Tôi ko nghĩ mọi chuyện lại tệ hại đến thế này. Tại sao tôi cứ có cảm giác tội lỗi vậy. Điên thật. Nhìn điện thoại tôi lại nhớ ra con nhỏ gọi cho tôi có chuyện gì nhỉ. Tôi có nên gọi lại cho nó ko? Ko biết nó có giận tôi ko? Đúng là điên thật. Tôi giật bắn mình bởi tiếng chuông điện thoại chợt vang.

- Alo, chú… đây!
- Tí về chú cháu mình gặp nhau ở quán “Khoảng lặng” đc ko ạ?
- Hả?... À ừ, đc!
- Vậy nhé, cháu cúp máy đây.
Con bé nó đòi gặp tôi làm gì nhỉ? Trời đúng là mọi thứ đang rối hết cả lên rồi. Đau đầu quá!

Tại quán cà phê con bé vẫn mặc nguyên áo đồng phục và đeo cặp đến gặp. Chắc là tan học cái nó rẽ vào đây luôn. Con bé ngồi xuống đối diện với tôi. Ko hiểu sao tôi lại mất tự nhiên vô cùng và câu đầu tiên tôi thốt ra là:
- Chú… chú… Hôm qua… cháu đi học về lâu chưa?

Con bé phì cười, trông tôi lúc đấy chắc nhìn ngu ngu đần đần lắm!
- Hôm qua chủ nhật mà chú! - Rồi nó lại cười làm mặt tôi càng đỏ hơn. Tôi từ trước đến giờ luôn là một người lãnh đạo có uy trước đám nhân viên, tôi luôn có tiếng nói trước mọi người, ấy thế mà kể từ hồi gặp con nhỏ đến giờ tôi luôn bị nó dồn vào thế dở khóc dở cười, khốn đốn và khổ sở. Đấy, ngay cả đến việc ăn nói cũng ấp úng và thật ngớ ngẩn để cho một đứa nhóc nó cũng cười mình đc. Như nhận ra thái độ ko mấy vui vẻ gì của tôi, nó ko cười nữa và cố tỏ ra thật nghiêm túc. Con nhỏ có bao giờ nghiêm túc đc đâu!

- Hì – Nó cười! Đấy tôi nói có sai đâu, vừa mới ngồi nghiêm chỉnh, mặt giả bộ nghiêm trang lắm mà chưa đc vài giây đã nhe răng rồi! – Chú có vẻ bất ổn nhỉ?
- Gì?
- Thì đó ạ! Từ lúc đến tới giờ trông chú căng thẳng quá!... Ê hèm! – Nó chợt hắng giọng. – Thôi cháu vào chủ đề chính đây! Bữa nay cháu mời à ko chú mời nhé! – Nó lại cười. – Cháu hông có mang tiền!^^
- Ừ! Cái đó cháu ko phải lo. Có gì thì nói đi!
- Hì, dạ! - Trời! Sao ngoan đột xuất vậy? - Trước tiên là cháu muốn cảm ơn chú! Nhờ có chú mà cháu hết buồn rồi!
- Hả?

- Nói thật là chuyện chia tay với anh Hải cháu cũng hơi buồn. Nhưng giờ hết rồi! – Hoá ra là chỉ vì chuyện này mà con nhỏ hay buồn thế. Trẻ con bây giờ tệ thật, yêu đương sớm nên khổ thế đấy! - Uả chú có nghe cháu nói ko đấy!
- À có có chứ!
- Hì, còn việc này quan trọng hơn, ý nghĩa với chú lắm đó!... Sao chú mặt đần ra thế?
- Cái gì?
- Hì, chết, cháu nhỡ miệng! - Nhỡ miệng ư, con nhỏ này nó quen nói với tôi thế rồi mà! - Việc thoả thuận giữa cháu và chú ý! Bộ chú quên rồi à? Thế thôi nhá!
- Thôi là thôi thế nào chứ! Ko đc! Chúng ta đã thoả thuận rồi mà! – Con bé lại phì cười.
- Hì, sao chú nóng vậy? Cháu đùa thôi mà. Kể ra chú cũng thích chị Trúc của cháu ghê nhỉ? – Tôi chợt đỏ mặt. Ko phải chỉ thích thôi đâu mà là rất thích ý chứ! Một cô gái hoàn hảo thế cơ mà!

Cuối cùng thì mọi chuyện cũng đc giải quyết ổn thoả một cách thật nhẹ nhàng. Âý thế mà tôi cứ tự làm cho nó rối hết cả lên. Mà con bé bộ vui lắm sao mà nó cười nhiều thế. Ừ mà tôi cũng thích nó cười hơn. Chẳng thíchh tẹo nào cái bộ dạng im lặng và đôi mắt buồn cứ nhìn xa xăm của nó. Cái vẻ nhí nhảnh, đành hanh và tinh quoái mới là con nhỏ Thanh Mai mà tôi biết chứ!

Chương XVII: Cô bé Thanh Mai.

Một tháng đã trôi qua, kể từ ngày nhỏ Thanh Mai ko còn là vật cản đường tôi nữa, cứ tưởng rằng như thế là đã ổn, nhưng mọi chuyện ko dễ dàng như tôi nghĩ. Theo “nghệ thuật cua gái Thành Đức” tôi đã phải bỏ bao nhiêu công sức và thời gian nhưng mọi chuyện chẳng đi đâu vào với đâu. Thanh Trúc cứ càng ngày càng xa tôi hơn, cô ấy luôn viện cớ để từ chối những cuộc gặp gỡ hay “hẹn hò trong mơ” của tôi. Tôi đến nhà cô ấy chơi, cô ấy vẫn cười nhưng rồi chỉ tiếp tôi đc dăm ba phút là y như rằng “công ty có việc gấp”. Tôi ko hiểu lý do tại sao mà cô ấy lại đối xử lạnh nhạt dần với tôi như vậy. Tôi đâu có làm gì sai với cô ấy hay… mà ko, nhỏ Thanh Mai thì chắc ko dính dáng gì tới chuyện này rồi. Nó vẫn luôn biết ơn vì sự giúp đỡ của tôi, hơn nữa chính nó còn hùng hồn tuyên bố sẽ ko làm kì đà cản mũi tôi nữa mà. Vậy thì vì sao chứ?

Tâm trạng buồn khiến tôi rẽ vào “Khoảng Lặng” lúc nào ko hay. Đây là nơi tốt nhất tôi cần mỗi khi buồn. Tôi bứơc vào ngồi chỗ quen thuộc của con bé và giờ cũng là của tôi. Mà cũng đã gần tháng nay tôi ko gặp con nhỏ. Ko phải nghe cái giọng lanh lảnh của nó, ko phải chịu những trò quỷ của nó, và cũng chẳng còn phải cãi nhau với nó nữa. Mà dạo này nó bận gì mà chẳng mấy gặp nó ở đây như mọi khi. Ừ, có lẽ tôi ko còn thấy ghét con nhỏ như ngày trc và hình như cũng thấy nhớ nó.

Cảnh thiên nhiên ngoài kia êm đềm thật, có cái gì cứ khiến tôi liên tưởng tới Thanh Mai. Đúng rồi cái vẻ tự nhiên tràn đầy sức sống, cái gì đó hoang dại chẳng chút kiêu kì. Tôi… tôi thấy nhớ con nhỏ. Tôi đang buồn, ước gì ngay bây giờ tôi gặp đc con nhỏ nhỉ, tôi sẽ bớt buồn hơn và tôi có thể hỏi đc đôi chút chuyện gì về Thanh Trúc cũng nên. Nhưng nếu đc gặp tôi sẽ hỏi nó cái gì? Nó đã nói là ko làm kì đà cản mũi nữa nhưng muốn cưa đổ đc chị nó thì tôi phải tự lực cánh sinh, nó ko can thiệp.

- Hù! – Tim tôi như bắn ra khỏi lồng ngực, cốc nâu đá trên tay tôi loạng choạng và sóng sánh hết cả ra ngoài, đổ cả lên quần áo tôi! – Ôí chết! Cháu… cháu xin lỗi! – Con nhỏ hốt hoảng, vớ cái khăn giấy trên khay lau tới tấp quần áo tôi.
- Thôi… thôi để chú tự làm! - Thực ra là đang có bao nhiêu con mắt trong quán nhìn chúng tôi. Nó đưa khăn giấy cho tôi tự lau rồi kéo ghế ngồi xuống. Mặt mày nó phụng phịu:
- Định hù chú tí… ai ngờ… Chú yếu tim thế? Chán chết đi đc! – Con nhỏ này thật là, tôi đang mãi suy nghĩ tự dưng nó “Hù” một cái ko giật mình mới lạ. Mà nó làm bẩn quần áo tôi, tôi ko càu nhàu nó thì thôi chứ đằng này nó chê trách tôi là sao.
- Cháu làm thế chú chưa đánh vỡ cốc là may đó.
- Hì!... Tại lâu ko gặp chú, muốn trêu chú tí! – Con bé cười toe. Tôi bây giờ mới để ý mỗi khi con bé cười đôi mắt nó sáng lắm, nhìn nó đúng là rất đẹp. Nếu hỏi trên khuôn mặt con bé thứ gì đẹp nhất thì tôi dám khẳng định đó là đôi mắt. Nó có đôi mắt màu nâu rất lạ, đôi mắt to, lông mi thật cong và dài. Đôi mắt nó khác hẳn với đôi mắt của chị và mẹ, bởi ở họ là đôi mắt có cái gì đó đây yêu kiều và huyễn hoặc trong khi nó là một đôi mắt luôn sáng và biết nói. Nếu muốn biết nó đang nghĩ gì chỉ cần nhìn vào đôi mắt nó thôi.

- Chú đang ngắm cháu đấy à?
- Hả? Chú… cháu nói gì vậy?
- Hì, cháu đùa mà! Tại chú cứ im lặng suốt từ lúc nãy!
- À… chú… chú đang nghĩ thôi mà!... À mà sao dạo này cháu làm gì vậy? Chẳng thấy cháu mấy khi ở nhà và cũng ít đến đây thì phải!
- Trời! Cháu đang nản đến chết đây. Mẹ bắt cháu đi học thêm. Tại mẹ bảo sắp thi cử cuối cấp đến nơi rồi mà cháu chẳng chịu học hành gì cả. Mà từ trc đến giờ cháu có biết gì đâu. Mà cái đầu cháu tệ thật, người ta càng học càng vào cháu thì càng học càng thấy ra!
-… - Tôi ko biết phải nói gì nữa. Hoá ra con bé đúng là một trời một vực với chị.

- Chú ko biết đâu, cả tuần lịch học cháu kín mít đến ngộp thở luôn. Sáng thì đi học trên lớp, trưa ăn cơm xong cái, đc ngủ có 30’ đã phải chuẩn bị đi học hai ca, tối về lại học ca nữa. Hôm nào cũng 8, 9 giờ tối cháu mới về. Học ngang tra tấn.
- Thì đời học sinh mà! Ngày xưa chú cũng phải cày kinh lắm!
- Nhưng mà cháu có hiểu gì đâu. Học như vịt nghe sấm!
- Chết! Học ko hiểu gì thì thi đại học làm sao đc!
- Hì, cháu từ trc tới giờ cũng biết là mình ko học đc nên cháu cũng chẳng mơ tưởng đến hai chữ “Đại học”. Với lại đại học đâu phải là con đường duy nhất mà chú!
- Ừ, nhưng…
- Mà thôi, cháu ứ thích nói chuyện học hành đâu, mệt lắm!
- Ừ, thì thôi vậy? À mà hôm nay cháu ko phải học thêm à? – Thôi chết tôi lại nhỡ miệng rồi!
- Hì! Bữa nay tới lớp thầy có việc đột xuất thế là đc nghỉ! Sung sướng ko gì bằng! Uả mà suốt từ nãy toàn nc về cháu thôi nha. Gìơ đến lượt chú đi! – Còn bé đưa đôi mắt sáng tinh quoái nhìn tôi – Chú và bà chị xinh đẹp của cháu thế nào rồi? Cả tháng nay chắc ko còn con bé kì đà cản mũi này nữa nên… Hì, chú đã ngỏ lời với chị cháu chưa? – Con bé nói khiến tôi buồn quá! Tôi mà dám ngỏ lời với cô ấy ư? Đến cả thời gian trò chuyện, cô ấy còn ko cho tôi nói gì đến chuyện cho tôi cơ hội bày tỏ tình cảm chứ. Mà nói thật nói về tình cảm thì có lẽ khái niệm đó còn mờ nhạt trong tôi quá! Cô ấy đâu cho tôi đc phát triển thứ tình cảm tốt đẹp mà tôi dành cho cô ấy.

- Chú Lâm! Sao mặt chú buồn thiu thế kia?
- À… À ko!
- Chú và chị cháu làm sao rồi đúng ko?
- Ko! Chú và chị cháu ko… ko sao cả! Vẫn bình thường! – Ko hiểu sao tôi lại chối quanh như thế trong khi rõ ràng lúc trc tôi rất muốn san sẻ với con bé vì nó là cái phao cứu trợ duy nhất của tôi lúc này. Tôi cũng chả hiểu nổi mình nữa!

Suốt buổi con bé pha trò làm tôi dù buồn nhưng cũng vơi bớt đi ít nhiều. Tôi ko ngờ nó lại có khiếu kể chuyện cười đến thế. Mười câu truyện thì cả mười nó làm tôi dù chẳng muốn cười cũng phải bật cười, nhiều khi đến chảy cả nước mắt. Tại con bé nó “lém” lắm, nó vừa kể bằng lời lại kiêm luôn cả diễn tả chân tay khiến nhiều lúc tôi cười ko phải vì câu truyện mà cười vì những hành động ngộ nghĩnh, và tinh nghịch của nó
Tiện đường nên tôi trở Thanh Mai về luôn. Lần đầu tiên con bé ngồi trên xe tôi mà ko hướng đôi mắt buồn rười rượi nhìn qua lớp kính xe nữa. Có lẽ con bé nói “nhờ chú mà giờ cháu ko còn buồn nữa” là sự thật. Trông con bé lúc này tôi thấy thích hơn. Và đáp lại điều đó, từ lúc lên xe nó hào hứng kể đủ thứ chuyện ở lớp học thêm và trên trường cho tôi nghe. Toàn những chuyện đc coi là thú vị cả. Nào từ bà cô chủ nhiệm hễ cứ giận là y như rằng nói lắp, và kẻ có thành tích gia tăng tỉ lệ nói lắp của bà cô chẳng ai khác là nó, rồi chuyện nó trị mấy thằng “đã cá sấu lại cứ tưởng mình đẹp, đã tép diu mà cứ tưởng hơn người” – nguyên văn lời con bé. Đúng là nghe nó kể tôi mới nhận ra một chân lý mà từ trc đến giờ tôi ko tin: “Tuổi trẻ tài cao!” - bọn trẻ bây giờ đúng là nghịch hơn chúng tôi ngày trước nhiều. Có lẽ phải đổi “nhất quỷ, nhì ma” cho “học trò” mới đúng!

Chúng tôi đang vui vẻ với những câu chuyện đầy kịch tính và thú vị của con bé thì chợt cả tôi và nó phải ngỡ ngàng, ngỡ ngàng đến nỗi nụ cười trên môi chúng tôi tắt lịm luôn.

Chương XVIII: Kẻ thất bại.

Bên kia đường, Thanh Trúc đang khoác tay một người đàn ông tiến vào nhà hàng “Đông Á”. Trông họ tình tứ cứ như một cặp tình nhân vậy. Lòng tôi có một cái gì đó nhoi nhói, phải rồi, giờ tôi đã tìm đc ra câu trả lời tại sao gần đây Thanh Trúc lại lạnh nhạt với tôi vậy.
- Chú dừng xe lại đi! – Thanh Mai lay tay tôi, đôi mắt nó đầy giận dữ. Nhưng tôi ko muốn, tôi ko dám đối mặt với sự thật này. – Chú Lâm! Cháu bảo chú dừng xe đi mà! – Con bé hét lên và động vào vô lăng xe làm chiếc xe loạng choạng, lệch hướng buộc tôi phải dừng lại. Con bé mở cửa xe kéo tôi đi thẳng tới chỗ chị nó và người đàn ông kia.

Thấy chúng tôi, Thanh Trúc khá ngỡ ngàng. Chưa kịp định thần thì Thanh Mai đã ném vào cô ấy cơn tức giận.
- Chị đang làm gì vậy? Giữa đường thế này mà chị có thể ngang nhiên như thế à?
- Thanh Mai!
- Đây là ngày Tổng giám đốc đáng kính của chị ư? Sao em thấy giống tình nhân của chị thì đúng hơn!
- Thanh Mai! Em có biết mình đang nói chuyện với ai ko?
- Em nói ko đúng à? Chị nỡ đối xử với chú Lâm vậy sao? Hay vì vị tổng giám đốc, ông Hàn Quốc đây lắm tiền hơn?

“Bốp” - Một âm thanh vang lên khiến tôi sững sờ. Thanh Mai ôm mặt, hướng đôi mắt đầy tức giận lên nhìn Thanh Trúc.
- Cái tát này cho cái tội em dám nói về chị mình như thế? Em càng ngày càng cư xử giống như một người vô văn hoá, càng ngày càng ko thể chấp nhận đc. - Bất chợt cô ấy hướng sang tôi – Xin lỗi anh Lâm, em biết là anh cũng dành tình cảm cho em, nhưng tình yêu ko thể gượng ép. Người em yêu là anh Chan đây. Việc gặp anh chỉ là vì em ko muốn làm mẹ buồn và cũng chưa thể nói với mẹ chuyện em và anh Chan. Em xin lỗi đã ko nói với anh ngay từ đầu. – Gìơ thì tôi đã hiểu tại sao ngay từ lần gặp đầu tiên cô ấy lại có thể để cho cô em gái của mình đi thay, hoá ra tôi chỉ là một con tốt hy sinh cho cái tên Chan đang đứng trc mặt tôi đây.

- Anh là Lâm? – Tên Chan giơ tay ra bắt. Đến nước này mà hắn nghĩ tôi có thể bình thản mà bắt tay hắn sao? Nhưng với một người cũng là lãnh đạo và có hiểu biết như tôi ko thể ko bắt tay lại. Tôi cố lấy bình tĩnh đón cái bắt tay của hắn. – Thanh Trúc đã kể chuyện về anh cho tôi nghe. Tôi và Thanh Trúc yêu nhau ko phải vì tiền như cô Thanh Mai nghĩ đâu. Thanh Trúc là một cô gái đẹp và tài năng, tôi rất yêu và ngượng mộ cô ấy. Một tình yêu xuất phát từ trái tim chứ ko phải từ miệng của một ông Tổng giám đốc dành cho cô trợ lý của mình. Thanh Trúc và tôi rất lấy làm tiếc việc đã ko nói rõ cho anh ngay từ đầu. Cô ấy định một thời gian nữa khi nói chuyện với bà Thanh - mẹ cô ấy xong thì cũng gặp anh đã nói rõ và gửi lời xin lỗi. Tôi nghĩ anh là một người rộng lượng và sẽ thông cảm cho chúng tôi. Chúng tôi yêu nhau thật sự.

Lời tên Chan nói như cứa vào da thịt tôi. Cảm giác là kẻ thua cuộc đã đè nặng trong lòng. Đó, những gì mà tôi đã làm trong bao ngày tháng qua hoá ra chỉ là thằng ngốc trc mặt người ta. Tôi đã sai lầm, đã quá sai lầm rồi. Lâm công việc như tôi thì tự dưng sao lại nghĩ đến chuyện yêu đương làm gì chứ. Công việc, chỉ có công việc tôi mới có thể chinh phục được, còn tình yêu – tôi chỉ là kẻ thất bại mà thôi!

“Chú yêu cháu mất rồi!” Phần5

2010-04-11T03:18:00.001-07:00

Nguồn gốc:

Chương XIII: Giận!

Sau hơn một tiếng đồng hồ, cuối cùng nó bắt tôi trở thành một tên khuân vác ko những ko lương mà lại còn mất lương. Nói thật tính ra số tiền mà tôi phải bỏ ra cho đống đồ đạc lỉnh kỉnh và đầy “man rợ” này cũng gần như ăn đứt nửa tháng lương của tôi. Nhưng cái đấy ko phải là vấn đề chính mà cái vấn đề ở đây là tôi chỉ sợ có ai đó người quen hay là một nhân viên nào trong công ty tôi bắt gặp hình ảnh tôi lúc này thì thật sự tôi ko biết giấu mặt đi đâu. Ai đời một trưởng phòng (tuy là trưởng phòng thôi nhưng ko giấu gì mọi người tôi rất có tiếng ở trong công ty cả về uy lẫn về tài và về… “sắc”) như tôi mà lại phải đi khuân vác và vào những chỗ chỉ dành cho chị em phụ nữ thì thích hợp hơn. Nhìn tôi lúc này thảm hại đến kinh khủng. Mồ hôi nhễ nhại mặc dù siêu thị, máy lạnh đang chạy vù vù; hai tay mỗi tay gần chục túi đồ là ít, chưa kể kẹp hai bên nách là hai cái hộp to tướng. Trong khi đó con nhỏ ung dung với hai cái túi con con hình như là đựng mấy cái cặp gim nho nhỏ thì phải. Đấy toàn đồ con con với nho nhỏ, trong khi tôi thì lỉnh kỉnh và to tướng. Hỏi có bất công ko cơ chứ. Bảo thì nó hồn nhiên: “Thế mới galăng chú nhỉ!”. Vâng, tôi đang “ga” và sắp muốn “lăng” tất cả ra đây!

- Chú ơi mình đi ăn kem đi!
- Cháu nghĩ chú có 12 tay à? – Tôi gần như gắt lên! Nó nhìn tôi đôi mắt mở tròn xoe, rồi chợt trùng xuống, hình như có cái gì đó thoáng qua trong đầu nó. Nó ko nói gì, chỉ đi thật nhanh ra chỗ đậu xe. Tôi ko biết là nó có giận tôi ko nữa. Chỉ biết rằng từ lúc lên xe về nó lại im lặng ko nói gì cả.

Tôi trở về nhà với hai cánh tay rã rời. Thực sự hôm nay tôi đã có một buổi đi mua sắm kinh điển nhất trong đời tôi. Cũng may mà chẳng có ai thân quen bắt gặp tôi cả. Nhưng hình ảnh con nhỏ lúc cuối buổi đi mua sắm cứ ám ảnh tôi mãi. Rõ ràng là nó sai còn gì. Mà tôi cũng đâu có nói gì quá đáng quá, chỉ là… sự thật thôi mà!

Sáng hôm sau đến công ty, tôi nhận được một gói bưu phẩm cùng với một mẩu giấy nhỏ: “Tiền hôm qua chú phải bỏ ra trả cho cháu. Chú đếm lại, nếu thiếu thì bảo cháu”. Tôi ko hiểu sao nữa, đọc mẩu giấy nó gửi tôi thấy lòng chợt nhói đau. Kiểu như vừa bị một vật nhọn nào đó đâm hay cào vào lòng vậy. Đúng là số tìên tôi bỏ ra hôm qua ko ít nhưng tôi đâu có bảo là nó phải trả tôi đâu. Mà sao nó phải nói câu “đếm lại” với chả “thiếu” chứ. Cứ như tất cả phải sòng phẳng, rõ ràng và có một cái gì đó khiến tôi khó chịu kinh khủng. Nó đã chạm vào lòng tự ái của tôi.

Trên đường về tôi lại tạt qua quán “Khoảng Lặng”. Thực sự vì con bé Thanh Mai mà bây giờ tôi cần một khoảng lặng cho chính mình. Chỗ quen của con bé vẫn trống trơn chưa có người ngồi nhưng tôi cũng chẳng buồn ngồi vào. Tự dưng tôi thấy ghét cả cái chỗ ngồi đó, mặc dù cảnh thiên nhiên ngoài kia vẫn đẹp như dạo trước. Có lẽ tại giờ tôi vẫn còn đang giận con nhỏ đó.

Ngồi nhâm nhi cốc nâu đá và nghe một bản nhạc của nước ngoài mà tôi ko biết tên chỉ biết rằng nó rất nhẹ và êm. Đúng thứ tôi cần lúc này. Chợt tôi nhìn thấy con nhỏ bước vào quán, ngồi đúng vị trí quen thuộc của nó. Có vẻ như nó ko nhìn thấy tôi. Nó lại gọi một cốc sinh tố sữa chua và đôi mắt đang hướng ra ngoài cửa kính. Đôi mắt nó ko còn sáng và tinh quoái như mọi khi, mà cứ man mác buồn. Hay nó đang giận tôi? Giận cái gì chứ? Tôi cũng còn đang giận nó đây!

Tôi quay lại với cốc nâu đá của mình. Nhưng mắt tôi vẫn ko thể nào rời khỏi con bé. Nó đang ngồi trầm tư chợt nhận đc một tin nhắn. Ko biết tin ấy viết gì chỉ biết rằng con bé thở dài một cái rồi lại chống cằm nhìn ra cửa kính.

Chương XIV: Lời hứa!

Đang nhìn con bé chợt điện thoại tôi rung. Tôi ko thể ngồi trong quán mà nói chuyện điện thoại được chắc chắn con nhỏ sẽ nghe thấy. Tôi phải đi vào tận chỗ khu vực phòng vệ sinh để nghe điện thoại. Thật chẳng may mắn tẹo nào, (chẳng hiểu sao lúc đấy tôi lại nghĩ như thế) khi tôi quay trở lại thì con bé đã đi mất. Thế là tôi đành phải quay trở lại với cốc nâu đá và bản nhạc mới những vẫn nhẹ nhàng và đầy êm dịu.

Con SANTAFEB đen của tôi lại một lần nữa có dịp được thắng gấp. Con bé giật mình bởi tiếng thắng xe đổ dồn sau lưng nó. Nó quay lại, đôi mắt mở tròn. Nó cứ đứng im như tượng. Tôi mở cửa xe bước xuống, ném đôi mắt giận dữ về phía con nhỏ:
- Cháu làm sao mà cứ như người mất hồn vậy?

Lúc này nó mới hơi nhúc nhích một tí. Khuôn mặt buồn chẳng lẫn đi đâu được.
- Chú hỏi cháu, cháu có nghe thấy ko?
Nó cúi mặt rồi bước đi tiếp. Ko thể chịu nổi, tôi kéo mạnh tay nó lại, bàn tay to lớn của tôi bóp chặt lấy cánh tay mảnh dẻ của nó.
- Người lớn hỏi thì phải trả lời chứ!
Nó đưa đôi mắt đã ngân ngấn lệ lên nhìn tôi rồi quay sang phía cánh tay đang bị bóp chặt, bất chợt nó nhắm mắt lại, hai hàng nước mắt cứ thể chảy dài trên khuôn mặt bé bỏng của nó. Tôi khẽ lới lỏng tay mình ra. Tôi biết nó đau. Nhưng tôi cá nó ko khóc vì đau.
- Thanh Mai, cháu có chuyện gì buồn đúng ko? Nói cho chú đi! – Ko hiểu sao lúc đó tôi lại có thể dịu dàng đến thế?

Bất chợt nó vung tay ra khỏi bàn tay tôi rồi ôm ghì lấy tôi và khóc to hơn. Tôi chả biết làm gì. Chân tôi gần như tê cứng. Có lẽ là tại do cảm giác bất ngờ và tệ hại hơn đó là: đây là người phụ nữ đầu tiên trừ mẹ tôi ra đã ôm tôi khi tôi biết thế nào là khái niệm “khác giới”. Con bé càng khóc to thì càng siết chặt tôi hơn. Rồi từ từ tiếng khóc cũng giảm dần và cuối cùng nó cũng buông tay ra khỏi người tôi.

- Cháu… cháu xin lỗi!
- Ừ, đc rồi! Có gì nói cho chú đi!
Nó lại ngước đôi mắt sưng đỏ lên nhìn tôi, cái nhìn hình như để tìm sự tin tưởng thì phải. Nó cúi mặt xuống, lí nhí.
- Ngày mai sinh nhật bạn trai cũ của cháu!
-… Tôi vẫn lặng im chờ con bé nói tiếp.
- Cháu định sẽ ko đi nhưng hôm nay anh ấy gửi tin nhắn cho cháu. – Hình như con bé lại khóc tiếp tôi nghe tiếng nấc đầy nghẹn ngào của nó. – Anh ấy nhắc lại lời hứa mà cháu từng nói: “Ngày sinh nhật anh em sẽ là người con gái hạnh phúc bên ngươì mình yêu và anh cũng vậy!”. - Rồi bất chợt con bé ngước đôi mắt toàn nước lên nhìn tôi. – Nhưng giờ thì chúng cháu đã chia tay. – Nó lại nấc lên những tiếng nấc mà tôi nghe cứ như xé ruột gan. - Sẽ chẳng có chuyện gì sảy ra nếu như cháu ko có lời hứa đó và anh ấy vẫn chưa có bạn gái mới!... - Nước mắt con bé lại lăn dài.

Tôi khẽ đưa tay lên lau những giọt nước nóng hổi. Rồi ân cần như một người bề trên:
- Đừng khóc nữa Thanh Mai. Đừng buồn vì người con trai này. Cháu phải làm sao cho cậu ta thấy chia tay cậu ta là một lựa chọn đúng đắn của cháu. Cậu ta đã làm thế với cháu thì cháu cũng có thể làm lại với cậu ta.
- Cháu ko hiểu ý chú!
- Cháu nhất định phải đi sinh nhật và đi cùng một anh chàng - người yêu của cháu!
- Người yêu giả?
- Ừ
- Nhưng… cháu ko có ai cả!
- Một anh chàng cũng ko có sao? – Nó lắc đầu.
- Cháu vừa mới chia tay người yêu mà!
- Vậy bạn, bạn con trai ý! – Con bé lại lắc đầu.
- Chả ai có thể giúp cháu đâu vì họ đều là bạn của anh ta nữa.
- Trời! Vậy thì ai bây giờ?
- Chú!
- Hả?

Chương XV: Kẻ giả mạo hoàn hảo!

Tôi đã đồng ý trở thành “người yêu giả mạo” của con nhỏ Thanh Mai. Vì một lí do à chính xác hơn là một điều kiện con nhỏ đề ra để thuyết phục tôi, đó là: “Nếu chú đồng ý cháu sẽ ko làm kì đà cản mũi chú nữa. Cháu sẽ để cho chú đc tự do cưa đổ chị cháu mà ko hề có bàn tay của cháu chen ngang!”. Cái đề nghị đó quả quá hấp dẫn với tôi. Tất nhiên tôi ko phải là một thằng ngốc mà lại đi từ chối rồi. Chuyện cả đời chứ có ít gì đâu. Tôi chỉ việc giả mạo làm người yêu nó một tối thôi mà. Chẳng thiệt thòi là mấy!

Tôi ko đóng mình trong những bộ đồ đứng đắn và lịch thiệp mà tôi vẫn mặc. Thay vào đó tôi mặc khá là cool (như bọn trẻ bây giờ thường nói) và thật thoải mái với áo cánh và quần jin. Nói thật tôi thường ngày đóng bộ comle mà trông vẫn còn trẻ hơn so với tuổi, thế nên hôm nay nhìn tôi ăn mặc thế này, tôi cá là trông ko quá 24. Dẫu sao thì như thế mới phù hợp đc với một con nhỏ 17, 18 tuổi mà.

Con nhỏ hiện ra trước mắt tôi hoàn toàn khác lạ. Nó ko còn buộc tóc, chẳng còn mặc quần tụt, và cũng chẳng đi những đôi giày đế bệt. Mà thay vào đó là một con nhỏ súng sính trong chiếc váy hoa xanh cùng chiếc túi sách cùng màu, chân đi dép cao gót, và mái tóc đen nhánh, tỉa lá đc thả dài với chiếc cặp ghim hình quả táo đính đá. Tôi đã thật sự ngây ngất mất mấy giây rồi mới kịp định thần lại. Lần thứ hai tôi phát hiện ra là con nhỏ - nó đẹp! Lần đầu là lúc ở siêu thị mấy hôm trước. Lần ấy tôi thấy nó đẹp một cách trẻ con nhí nhảnh – mang vẻ đẹp của sự tự nhiên. Còn lần này tôi thấy nó đẹp với vẻ đẹp thật nữ tính và đáng yêu. Nhưng vẻ đẹp ấy chỉ… gần bằng chị mà thôi! Tôi vẫn thấy Thanh Trúc là đẹp nhất mà!

Tôi và Thanh Mai tiến vào quán bar nơi tên người yêu cũ của con bé đã bao cả. Con nhỏ có vẻ hơi run, vẻ mặt đầy căng thẳng. Tôi đưa tay phải chống mạng sườn: “Nào em yêu!” Nó nhìn tôi, đôi mắt tròn xoe. Tôi vẫn giữ yên tay, hếch mắt chỉ vào cánh tay mình. Nó có vẻ ngại ngần vì nó hiểu ý tôi muốn nói gì. Tôi đành phải trở về là mình: “Cháu và chú đang là người yêu. Biết chưa?” Nó gật đầu và sau vài giây chần chừ cũng đưa tay vòng qua cánh tay tôi, khoác lấy và đứng sát bên tôi. Con bé ngước lên nhìn tôi có gì đó hơi ngượng ngùng. “Mỉm cười nào!”. Con bé khẽ cười thật tươi trước câu nói của tôi. Nó thì thầm: “Vâng anh yêu!”. Ko hiểu sao tôi chợt đỏ mặt trong khi rõ ràng tôi còn vừa nói như thế trước với nó. Chúng tôi cùng bước vào trông đúng như một cặp tình nhân thật sự. Sinh nhật có vẻ khách mời khá đông. Đang đi, con bé chợt khựng người lại. Trước mặt chúng tôi là một cậu nhóc trông cũng khá đẹp trai, bên cạnh còn có một con nhỏ khá xinh, mỗi tội trang điểm đậm quá. Tên nhóc có vẻ ngỡ ngàng trc sự xuất hiện của chúng tôi.

- Chúc mừng sinh nhật – Thanh Mai tiến đến đưa tặng bó hoa cho cậu ta.
- Thanh Mai… Đây là…
- Hì, là bạn trai mới của em. – Con bé mỉm cười ra hiệu tôi lại gần, sau khi tôi đã yên vị đứng bên cạnh con bé, con bé lại quay lại khẽ mỉm cười nói tiếp. - Lời nói hồi nào giờ linh nghiệm thật, chỉ có điều ko như hai ta đã dự đoán. Đời thường thế mà. Bất ngờ là điều thú vị của cuộc sống. – Nó nói mà nhìn thẳng vào mắt thằng nhóc.
- À… uk. - Rồi thằng nhóc quay sang phía tôi – Tôi là bạn trai cũ của Thanh Mai. – Con nhỏ đứng bên thằng nhóc nhăn mặt liếc sang, cậu ta như hiểu ra vội tảng lờ - Cám ơn đã đến dự sinh nhật của tôi.
- Tôi là Lâm, rất vui khi đc dự sinh nhật của cậu. Cám ơn cậu đã chia tay cô ấy để tôi có cơ hội tìm đc tình yêu đích thực của mình. – Tôi nói mà vòng tay ôm lấy bờ eo Thanh Mai, đôi mắt nhìn con bé vẻ đắm đuối lắm. Tên người yêu cũ có vẻ ko đc thoải mái. Đó là điều mà cả tôi và con bé đều trông đợi.

Chúng tôi cùng dự tiệc sinh nhật trong tiếng nhạc và tiếng người ồn ào náo nhiệt. Tên người yêu cũ của Thanh Mai mà tôi cũng chả buồn hỏi tên cứ săm soi chúng tôi suốt. Biết vậy chúng tôi càng tỏ ra thân mật với nhau hơn.

- Thanh Mai! Ko nghĩ là em lại đến đâu đấy. Lại còn đem cả bạn trai mới đi nữa.
- Bạn trai mới của em đây hả? Đẹp trai thế! – Tôi đang đc một con nhỏ khen mình nên cũng nâng nâng. Con bé Thanh Mai khẽ mỉm cười, liếc mắt sang và bắt quả tang tên người yêu cũ đang nhìn lén, ngay lập tập tức chàng ta giả bộ quay mặt đi. Nó và tôi ko hiểu sao cùng nhìn nhau cười. Chúng tôi đang vui vì hành động của thằng nhóc mà.

Chợt tiếng nhạc trên sân khấu vang lên rộn ràng. Một trong hai con nhỏ đang đứng cạnh chúng tôi vội kéo tay Thanh Mai:
- Lên nhảy thôi em! – Con bé khẽ lắc đầu từ chối:
- Bữa nay em mặc thế này ko hợp nhảy thế cho lắm!
- Vậy khiêu vũ chắc đc! – Tôi đứng dậy chìa tay ra trước mặt con bé – Em biết nhảy chứ? – Con bé đặt tay lên tay tôi.
- Một chút!

Chúng tôi bước lên sân khấu, tôi ra hiệu cho đổi nhạc. Thế là chúng tôi một mình một sân khấu cứ thế tung hoành. Con nhỏ nói là nó biết một chút ấy thế mà nó nhảy cực điêu luyện. Chúng tôi như hoà là một. Mỗi bước nhảy như êm du theo nhạc, như cuốn lấy nhau. Mọi người đổ dồn hết con mắt vào chúng tôi. Con nhỏ như trông đẹp hơn với những lọn tóc cứ bay nhảy sang hai bên, đôi chân nó uyển chuyển và toàn thân mềm mại kinh khủng. Chúng tôi thật sự tạo lên cả một ko gian đẹp và cuốn hút mọi người. Nhạc kết thúc, mọi người vô tay trầm trồ khen ngợi. Rồi đám đông chợt hô to: “Hôn nhau đi! Hôn nhau đi!....”

Chúng tôi luống cuống ko biết làm gì. Con bé căng thẳng hết cỡ, nó nhìn tôi ko giấu nổi vẻ sợ sệt, lo âu. Tiếng hối thúc của mọi người vẫn cứ vang lên ngày một to hơn. Rồi như một ma lực nào đó tác động, tôi đưa tay kéo sát người con bé lại và thì thầm: “Nhắm mắt lại!”. Mọi người vỗ tay rầm rầm và la hét inh ỏi. Tôi cảm nhận đc sự có mặt của đôi môi con bé trên môi của mình. Môi con bé thật mềm, mềm lắm. Tôi cứ bị dính chặt vào nó. Như có một luồng điện chạy dọc trong cơ thể tôi. Đây là lần đầu tiên tôi biết hôn là gì trong suốt gần 30 năm trời.

“Chú yêu cháu mất rồi!” Phần4

2010-04-10T02:38:00.000-07:00

Nguồn gốc:

Chương X: Ra đòn “hụt”.

Dù kế hoạch 2 bước đầu tiên của “nghệ thuật cua gái
– Thành Đức” đã thất bại, nhưng đừng hòng tôi chịu đầu hàng. Cái con bé Thanh Mai kia, đừng tưởng nó là “em vợ” tương lai của tôi mà tôi sợ nhé. Ko đâu, tôi sẽ cho nó phải nhớ đến câu: “Vỏ quýt dày có móng tay nhọn”!

- Alo, Thanh Trúc à, anh muốn mời lại em bữa trưa đc chứ? Lần trước em còn chưa ăn đc gì nhiều mà!
- Trưa nay ạ? Em công việc cũng đang nhiều. Nhưng thôi thế cũng được. Vậy lại chỗ cũ hả anh!
- Ừ.
- Vâng, vậy hẹn trưa gặp lại anh nhé!
– Cô ấy cúp máy trong khi tôi chưa kịp nói thêm câu gì. Tiếc thật, duy nhất chỉ có mỗi một lần đc nc điện thoại gần một tiếng đồng hồ với cô ấy còn đâu, tôi và cô ấy chỉ nói chuyện đc dăm ba câu là y như rằng “cuộc đàm thoại của bạn” đã kết thúc. Nhưng thôi, trưa nay tôi lại đc gặp trực tiếp cô ấy mà. Như vậy cũng tuyệt lắm rồi!

Tôi đến nhà hàng cũng khá sớm. Trong lúc ngồi chờ Thanh Trúc tôi chợt nhớ tới con nhỏ Thanh Mai, ko khéo hôm nay nó lại nhõng nhẽo đòi bám đuôi theo chị nó đến đây phá đám tôi thì chết. Nghĩ vậy, tôi mở máy tìm số điện thoại nó rồi ấn gọi. Đầu dây bên kia cái giọng đành hanh ko lẫn đi đâu đc:

- Chú gọi cháu có chuyện gì?
- À thì hỏi thăm cháu một chút thôi!
- Chuyện lạ Việt Nam nhá!
– Nghe có ghét ko cơ chứ!
- Chuyện lạ gì đâu. Thế hôm nay cô bé có muốn đi ăn nhà hàng cùng chú ko?
- Bộ hôm nay chú trúng gío sao?
– Con bé này, đúng là càng ngày càng khó ưa.
- Tự dưng mời cháu đi ăn nhà hàng làm gì?
- Vậy tưởng cô bé muốn ăn nên chú mời thôi. Nếu cô bé ko thích thì để dịp sau vậy. Chào cô bé nhé!

Tôi cúp máy thật nhanh, chỉ sợ thêm vài giây nữa nó đồng ý thì chết. Tôi chơi nước chặn đòn nó trước. Để nếu muốn đi ăn cùng chị nó thì nó sẽ ko dám đi nữa. Ai bảo tôi mời nó bảo tôi hâm mà, à ko trúng gió mới đúng chứ. Tự hả hê với sự thông minh của mình, tôi vui cứ như mở cờ trong bụng.

Còn gần 20 phút nữa mới tới giờ hẹn. Đúng là tâm trạng chờ đợi vừa háo hức vừa nóng ruột. Nghĩ về Thanh Trúc, tôi phải công nhận rằng, vẻ bề ngoài của cô ấy rất đẹp, tính cách lại dịu dàng nhưng cô ấy thực sự khó gần hơn tôi tưởng. Cũng phải thôi, cô ấy đẹp và tài năng thế chắc xung quanh cô ấy có nhiều người theo đuổi lắm, đâu riêng gì mình tôi. Nghĩ vậy, tôi chợt cảm thấy buồn!

Cuối cùng thì kim đồng hồ cũng chỉ 12h. Và Thanh Trúc quả đúng giờ, đưa mắt nhìn ra cửa nhà hàng tôi thấy Thanh Trúc thanh lịch và kiêu sa trong bộ váy công sở. Tóc búi cao càng khiến cô ấy thêm đẹp và đoan trang hơn. Nhưng tôi gần như muốn té ghế bởi theo sau Thanh Trúc còn có con nhỏ Thanh Mai. Nó mặc quần tụt và áo đồng phục, vai vẫn còn đeo cặp. Chắc chắn là nó vừa đi học về. Nhưng sao nó lại đến đây cùng Thanh Trúc chứ. Tôi đã chặn đầu nó thế rồi cơ mà.

Chương XI: Kì đà cản mũi.

- Anh đợi bọn em lâu chưa?
– “Ko, anh chỉ đợi mỗi em thôi mà, đâu có đợi thêm con nhỏ “kì đà cản mũi” kia.”
- À ko! Anh cũng vừa tới thôi!
- Em ko biết là hôm nay anh mời cả Thanh Mai đấy, nó bắt tội em phải quay ngược đường phi xe đến trường đón nó.
- Thì hôm nay chú Lâm có lời mời em đâu nỡ từ chối!
– Nó háy mắt nhìn tôi, trời ơi con nhỏ đáng ghét kia, tôi đâu có thèm mời nó chứ, tôi ko có lòng tốt đó đâu.
- Chú tưởng là cháu sẽ ko đến vì cháu bảo chú bị trúng gió mới mời cháu mà!
– Tôi cố làm nó phải dơ mặt.

- Thanh Mai em nói thế sao?
– Thanh Trúc quay sang em mình tỏ rõ vẻ ko hài lòng.
- Thì tự dưng lại mời em đi ăn, ko nói rõ là đi cùng chị thì em mới bảo là trúng gió chứ!
– Nó quay sang phía tôi.
- Vậy có nghĩa là chú ko hài lòng khi có sự xuất hiện của cháu ở đây? Cháu chỉ sợ chú buồn vì mất công mời mà cháu lại từ chối! Hoá ra là cháu nhầm. Vậy cháu về vậy!
– Tôi gần như tím mặt bởi những gì con nhỏ đó nói.
- Chú… chú ko hề có ý đó!
- Ai biết đc!

- Thanh Mai!... Anh Lâm, anh đừng để ý, con bé nó trêu anh đó!
– Trêu ư? Nó ko trêu đâu, nó đang giết tôi thì đúng hơn. Dù máu tôi đã dâng lên đến não nhưng thôi, tôi phải cố nhịn nếu ko sẽ sập vào bẫy của con nhỏ đáng ghét kia. Nó muốn tôi phải nóng giận đây mà. Đã thế tôi phải vui cho nó biết tay.
- Hì, người lớn ko nên chấp trẻ con mà! Thanh Mai này, chú rất muốn mời cháu đi ăn cùng mà. Bữa trước thấy cháu ăn ngon vậy đoán là cháu thích ăn mấy món ở đây. Cháu đến là chú vui lắm đó, đang buồn vì cứ nghĩ cháu giận chú nên ko thèm tới.
- Chú có lòng tốt vậy à? Vậy hôm nay chú có lòng, cháu xin có dạ!

Thế là lại một buổi đc ăn cơm cùng Thanh Trúc đã bị con nhỏ trời đánh
– kì đà cản mũi phá đám! Tôi chỉ giận là ko làm gì đc nó bởi sau nó có thần hộ mệnh là bà chị xinh đẹp đang ngồi đối diện tôi đây. Nhìn cô ấy mà tôi càng giận con nhỏ đáng ghét kia hơn. Nếu hôm nay nó ko có ở đây thì tôi đã có thể chuyện trò vui vẻ với Thanh Trúc rồi. Ôi sao ông trời chả thương tôi vậy, sao cứ cho con nhỏ ám quẻ tôi suốt thế!

Chương XII: Móng tay nhọn có ngọn mùng tơi.

Sau bữa trưa hôm trứơc thất bại, tôi quyết ko chịu bỏ cuộc, vì tôi biết nếu tôi bỏ cuộc là đúng ý con nhỏ Thanh Mai. Tôi gọi điện cho Thanh Trúc nhưng nghĩ thế nào tôi lại nhắn tin cho cô ấy.
- “Chiều nay em có rảnh ko?”
- “Chiều nay em định đi mua ít đồ”
- “ Vậy à? Hay để anh hộ tống em đi!”
- “^^. Hì, vậy là vừa đc đi ô tô mà lại tiết kiệm được xăng!”
- “ Hì, nếu em muốn thì cho em đi ô tô suốt, anh sẽ làm tài xế riêng cho em!”
- “ Hì, hôm nay thôi chứ suốt em ko đi đâu!”
- “Ừ, vậy thế nhá! Chiều này 2h anh qua đón em!”
- “Vâng”.

Đúng 2h tôi có mặt tại nhà Thanh Trúc, hôm nay ko phải là chủ nhật, tôi nghĩ con nhỏ Thanh Mai sẽ ko có ở nhà vì nó năm nay cũng 12 rồi chắc phải đi học thêm dữ lắm. Tôi xuống xe và bấm chuông. Một con nhỏ mặc quần soóc ngắn cũn, với cái áo phông dài che gần hết, tóc buộc lệch một bên và tay vẫn còn đang ngậm kẹo mút. Nó nhìn tôi cười cười.

- Chú đến đúng giờ ghê!
– Con nhỏ đó, nó ko đi học.
- Ừ.
– Tôi nói và cố cười.
- Chú vào nhà đi.
– Tôi bước vào theo nó. Vào đến nhà, bà Thanh lại niềm nở với tôi, mời tôi ngồi xuống uống nước và chuyện trò, trong khi đó con nhỏ chạy biến lên phòng. Nhìn quanh ko thấy Thanh Trúc đâu, tôi đoán là cô ấy đang ở trên phòng thay đồ lên cũng ko hỏi gì, vui vẻ tiếp chuyện “mẹ vợ tương lai!”.

Đúng 15 phút sau, tôi thấy con nhỏ Thanh Mai đã thay bộ quần áo khác, cái quần soóc ngắn giờ được thay bằng cái quần ngố ống rộng cùng cái thắt lưng hình đầu nâu to tướng và thêm cái áo phông ngắn. Mái tóc buộc lệch giờ đc buộc bổng cao, gọn gàng. Chắc là nó cũng định đi đâu đấy. Hay là nó đi học thêm. Đúng rồi.
- Đi thôi chú?
- Đi đâu?
- Thì đi mua đồ ạ!
- Nhưng… chú hẹn đi với chị Thanh Trúc rồi mà.
- Trời, chị Thanh Trúc còn phải đi làm việc công ty mà. Rõ ràng sáng nay chú nhắn tin rủ cháu đi mà.
- Chú… chú… chú nhắn tin cho chị Thanh Trúc chứ đâu nhắn tin cho cháu.
- A! Trời ơi! Cháu lãng trí quá! Hôm nay mượn sim chị ấy nhắn tin cho bạn. Thấy chú nhắn đến cứ tưởng chú nhắn cho cháu cơ. Chết rồi, thế ko phải là chị Thanh Trúc thì chú ko đưa cháu đi được sao?
– Con nhỏ đúng là kẻ đếu nhất mà tôi từng biết! Nó chơi khăm tôi giờ trước mặt “mẹ vợ” chả lẽ tôi lại từ chối. Tôi cố mỉm cười.
- Tất nhiên là ko rồi. Ngay bây giờ đã sẵn sàng hộ tống quý cô!
– Tôi cười mà cái mặt như sắp khóc. May thay tôi biết, đằng sau bà Thanh đang có vẻ hài lòng lắm. Ít ra thì điều đó cũng an ủi được tôi phần nào.

Tôi đưa con nhỏ tới siêu thị mua sắm. Con bé từ lúc lên xe đến giờ im lặng đến dễ sợ. Chỉ tựa đầu lên kính xe mà ngắm cảnh đường phố. Ko hiểu sao lần nào tôi chở nó bằng ô tô cũng thấy nó như thế. Những lúc nó sôi động và phá phách đến ghê gớm nhưng có nhiều lúc nó lại im lặng và ngoan ngoãn quá. Nhưng vừa mới xuống xe bước vào siêu thị nó đã trở lại như bình thường. Nó tung tăng chạy nhảy khắp nơi. Hết ngó hàng này lại đến hàng khác khiến tôi chóng cả mặt.

Lúc này tôi mới để ý, có rất nhiều thằng con trai trẻ để ý nó. Ừ thì công nhận, nhìn con bé tôi cũng thấy nó khá hồn nhiên và… thì cũng đẹp. Nhưng cái nét đẹp khác chị và mẹ gần như là hoàn toàn. Nó đẹp theo kiểu rất tự nhiên, trẻ con và có cái gì đấy căng đầy nhựa sống nhưng hoang dã quá. Trong khi mẹ và chị thì đẹp theo kiểu quý phải và kiêu sa – cái đẹp mà mẹ tôi rất thích. Trong đó có cả tôi thì phải.

Đang suy nghĩ chợt tôi giật mình bởi tiếng con bé.
- Chú! Cháu muốn mua đồ.
- Ừ thì cô bé thích cái gì thì cứ mua cái đấy.
- Chú trả tiền hả?
- Ừ!
- Hì! Vậy cháu ko khách sao đâu đấy!
– Nói rồi nó kéo tay tôi đi như bay về phía mấy cửa hàng bán đồ “WOMEN”. Mặt tôi nóng đỏ vì có những ánh mắt của cả nhân viên lẫn khách hàng toàn là nữ thôi cứ nhìn tôi một cách săm soi thực sự. Con bé thì vẫn hồn nhiên lôi ra một đống chọn chọn rồi lại giơ ra trước mặt tôi.

- Cái này đẹp ko chú?
– Tôi chỉ biết đường cười chữa ngại. Nhưng con bé vẫn chưa chịu dừng lại. Nó tiến lại gần tôi, giờ cái áo chíp ướm vào ngực tôi. Mọi người cười phá lên. Tôi giận nóng đỏ mặt. Tôi toan định bước ra khỏi thì nó kéo tay tôi lại.
– Cháu mua cho chị Thanh Trúc mà. Với lại có gì mà phải ngại.
- Rồi nó quay sang chỗ mấy người vừa cười tôi.
- Bộ các chị thấy buồn cười lắm khi chồng đi mua đồ cho vợ sao? Chính các chị còn thấy đáng cười thì hỏi sao chẳng bao giờ được chồng mua đồ tế nhị cho.
– Nó nói xong mà mấy bà chị em phụ nữ mặt phải ngượng chín. Con bé bỗng dưng biến tôi thành một người chồng lý tưởng mới sợ chứ.
– Chú! Mình mua tiếp chứ?
– Tôi gật đầu cái “rộp”.

Mua đồ nhỏ xong, con nhỏ lại kéo tôi vào cửa hàng tạp hoá bán những thứ rất là tạp hoá và… Nó cười cười với chị chủ hàng:
- Bán cho chú cháu mấy bịch băng vệ sinh ạ!
– Tôi gần như té ngửa tại chỗ. Con bé nó vừa nói cái gì thế? Mặt tôi vừa nãy còn rạng rỡ vì “quả dưa bở” nó tặng tôi ban nãy thì giờ lại trở về trạng thái nóng đỏ vì xấu hổ.

Cô chủ cửa hàng khá trẻ nhìn tôi rồi khẽ cười:
- Anh cần mấy bịch băng vệ sinh?
- Trời ơi, tôi gần như sắp ko chịu nổi nữa rồi.
- Khoản chục bịch đi chị! Chú nhỉ!
– Con bé quay sang tôi cười tươi rói. Tôi muốn đấm vào mặt nó lắm rồi. Nhưng chỉ là ý nghĩ mà thôi.
- Anh cần nhiều thế để làm gì vậy?
– Cô chủ cửa hàng vẫn ko tha cho tôi.
- Tôi…
- Hì… mua cho vợ mà chị! Phải ko chú!
- Ừ!
- Chú cháu còn vừa mua một đống đồ quần lót áo con cho vợ đây nè!
– Nói rồi nó rút mấy cái đồ đựng trong hai cái túi to đoành tôi đang cầm giơ lên cho chị chủ hàng xem. Làm chị ấy cười chảy cả nước mắt. Nó còn hồn nhiền kiễng chân khoác vai tôi.
– Chú cháu hơi bị chiều vợ đấy! Ông chồng lý tưởng số 1 nha!
– Tôi ko biết là nên cười hay nên khóc nữa đây! Tôi đã bị nó đánh gục rồi. Tôi đã từng tuyên bố hùng hồn là sẽ cho nó thấy thế nào là “Vỏ quýt dày có móng tay nhọn” và giờ nó đã cho tôi biết “Móng tay nhọn còn có ngọn mùng tơi!”