Thứ Sáu, 25 tháng 12, 2009

Tết


“Mổi năm hoa Đào nở.
Lại thấy ông đồ già”

Đây là ký ức về tết của nhiều người riêng ký ức của mình thì không có hình ảnh này. Ký ức của mình hắn khác hoắc hà. Tụi trẻ lúc đó thích cái khoảng thời gian trước tết còn hơn là tết nửa vì:

*Bánh nổ.
-Cứ gần tết thì dọc hai bên lề đường đoạn đầu cầu sẽ có hai hàng chảo to thiệt là to để .................... rang nổ, ở đây người ta làm dịch vụ cứ nhà nào cũng xoay sở kím cho được ít nếp nổ rồi ra đây rang cho nó nổ bung bét lên (giống giống cái món bỏng ngô thơm bơ bây giờ í). Rang xong thì đem về để làm bánh nổ lúc này thì mấy ông nhóc mới tranh thủ dùng đủ trò mè nheo để ........ kím lấy 1 ít mà bỏ bị nhai chừng chừng còn chủ yếu là đem xo của ông nào nhiều hơn. Tới giai đoạn thứ hai là người lớn mới lấy đường thắng với ít gừng thơm lừng rồi rưới cái này lên chổ nếp đã bung trộn cho điều để làm chất kết dính, đoạn này mới hấp dẩn nghen. Mặc dù người lớn ai cũng bận trộn trộn rưới rưới nhưng các ông lại chàng ràng chạy nhảy gần đó hoài sợ bụi dính vào thì mệt nên các vị được phát cho một nắm cái sản phẩm đã được trộn này (thường thì to cở trái mãng cầu) để các vị kiếm chổ nào ngồi gặm tất nhiên tay và mặt sau khi giải quyết xong cái quả này thì không dơ mới lạ. Tiếp theo người lớn mới dồn hổn hợp này vào khuôn rồi đóng lại thành cây khi lấy ra khỏi khuôn thì nó giống như cái cây mốc bê tông đỏ đỏ trắng trắng cắm dọc đường ấy công đoạn này không xơ múi được gì nhưng ....... hông sao còn hồi sau nửa mà. Bây giờ tới đoạn dùng dao cắt cái cây này thành từng miếng thế nào một cây cũng phải có hai cái đầu phần này xấu ai lại trưng bày lên dĩa ngày tết bao giờ ===> có đây tụi nhỏ sẽ lo vụ làm đẹp này bằng cách thầu hết ráo cái đám đầu đày này tất nhiên kèm theo màn kỳ kèo xin thêm mấy d9aon5 giữa không được đẹp (do đóng không đều nên bị rổ ấy) thế là chỉ một món bánh nổ đám con nít đã được 3 niềm vui mà tết đâu phải có 1 loại bánh như vậy đâu .............

*Mứt dừa.
Đầu tiên là khâu đập sọ dừa để lấy phần cơm bên trong. Dừa để làm mức là dừa già nên nước dừa đã nhạt thếch khoảng này không hấp dẩn mấy, thường mình mong trong số đó có 1 quả đã nứt mộng (người lớn và con nít thì gần như là cái sự mong hắn khác nhau ghê lắm) lúc này quả bị (được) nứt mộng này không dùng làm mứt vì bao nhiêu chất dinh dưỡng đã đem nuôi cái mộng hết rồi. Cái mộng này nó hình thành bên trong trái dừa hình thức giống như củ hành tây ấy nếu "may mắn" thì nó to cở củ sắn (củ đậu), ăn xốp xốp hay hay thường thì cả xóm mới có 1 quả kiểu này và cái dùng măm măm này cũng tương đối nhỏ nên hông có shape rộng rải mà lén măm một mình.
Ầy sao mình kể cái dụ gì cũng dẩn đến cái khoảng măm măm thế nhỡ? Con nít mà lúc nào cũng nghỉ tới khoản này thôi nhất là con nít cái thời rất ít cái làm quà vặt được hị hị.
Tiếp tới cái vụ sau khi đã lấy được phần cơm quả dừa mới lấy dao lạng nó ra thành giãi dài giống như cái ruybăng (càng dài càng đẹp) khoảng này thể nào cũng dư ra vài miếng hông thể lạng được nửa. Có đây có đây lúc này nếu mà hoành tráng thì có 1 cái bánh tráng nướng (bánh đa) thơm lừng, giòn rụm en chung với cái sản phẩm dôi dư kia thì ngon ác. nếu hông có bánh tráng thì .......... vẫn ngon thường.
Tới đoạn rim mức không kể dài dòng lôi thôi làm gì, sản phẩm thể nào cũng có mấy mẩu bị đứt ngăn ngắn, bị dính nùi lại hông gở ra được cái này bày lên dĩa xấu hoắc nên một lần nửa mình "giúp" đội hình được đẹp bằng cách thủ tiêu sạch mấy cái mất thẩm mỹ này. Lại hết 1 món.

Còn tiếp!

Thứ Năm, 17 tháng 12, 2009

Cải tiến lệnh gạch chân text bằng line.

Nhân có người nhờ cải tiến cái lệnh gạch chân text bằng line theo hướng:
-Line thuộc layer hiện hành.
-Chọn lựa gạch dưới hay gạch trên.
-Cho phép điều chỉnh khoảng cách giữa line và text.
Mình đã chỉnh lại và post lên bạn nào có nhu cầu giống thế thì dùng.

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

;Viet boi: KTS_DUY BINH SON - QUANG NGAI
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun c:GCM ( )
(command "undo" "be")
(if (null sochia)(setq sochia 5))
(Princ "\nHay chon doi tuong :")
(setq SS (ssget '((0 . "TEXT"))))
(setq i 0)
(setq N (sslength ss))

(initget "Tren Duoi")
(setq kieu (getkword "\nGach phia: Tren/ text: "))

(setq sochiam (dnint "\nKhoang cach line voi text bang do lon text chia "sochia))
(setq sochia sochiam)

(cond
((/= Kieu "Tren")
(gachduoi)
)
((= Kieu "Tren")
(gachtren)
)
)

(command "undo" "end")
(setvar "MODEMACRO" "**duy782006.blogspot.com**")
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun gachduoi ()
(while (< i N)
(setq TEXTENT (ssname SS i))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command "ucs" "object" textent)
(setq tbTB (textbox (list (cons -1 textent)))
ll (car tbTB)
ur (cadr tbTB)
ul (list (car ll) (cadr ur))
lr (list (car ur) (cadr ll))
)
(setq dccc (- (cadr ul) (cadr ll)))
(setq ddccc (/ dccc sochiam))
(command "line" (list (car ll)(- (cadr ll) ddccc)) (list (car ur)(- (cadr ll) ddccc)) "")
(command "ucs" "p")
(setq i (1+ i))
(setvar "osmode" luubatdiem)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun gachtren ()
(while (< i N)
(setq TEXTENT (ssname SS i))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command "ucs" "object" textent)
(setq tbTB (textbox (list (cons -1 textent)))
ll (car tbTB)
ur (cadr tbTB)
ul (list (car ll) (cadr ur))
lr (list (car ur) (cadr ll))
)
(setq dccc (- (cadr ul) (cadr ll)))
(setq ddccc (/ dccc sochiam))
(command "line" (list (car ll)(+ (cadr ur) ddccc)) (list (car ur)(+ (cadr ur) ddccc)) "")
(command "ucs" "p")
(setq i (1+ i))
(setvar "osmode" luubatdiem)
)
)
;---------------------------------------
(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
;-----------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





-Thao tác:
+Nhập lệnh: GCM
+Chọn đối tượng (chọn vô tư lisp tự lọc và nhận các đối tượng text) xong thì enter.
+Lisp hỏi Gach phia: Tren/ text: Bạn nhập T thì gạch trên, D thì gạch dưới (enter sẽ mặc định là gạch dưới).
+Lisp hỏi Khoang cach line voi text bang do lon text chia < 5>: Mặc định khoảng cách line với text là 1/5 độ lớn text muốn thay đổi thì bạn gỏ vào, không thì enter.

Thứ Sáu, 11 tháng 12, 2009







http://sites.google.com/site/duy782006/blog

Thứ Ba, 8 tháng 12, 2009

Tiện ích Xuất tọa độ.

Nếu bạn là dân quy hoạch thì không tránh khỏi việc ghi tọa độ các điểm trong bảng vẽ ở đây mình cung cấp 2 lisp trợ giúp việc này.
1-Tên lệnh: XTD
-Tác dụng:Liệt kê tọa độ x,y của điểm chọn bằng mủi tên chỉ trực tiếp vào điểm chọn.
-Thao tác:
+Nhập lệnh XDT.
Ban co muon chon diem toa do gia dinh khong: Co/Khong: Nếu dùng hệ tọa độ giả định thì gỏ c (nếu không thì gỏ k lúc này lisp sẽ lấy tọa độ 0,0 đúng tại gốc tọa độ)
Chon diem gia dinh: Chọn điểm cơ sở của bạn
Toa do X gia dinh : 100 nhập tạo độ x giả định của điểm vừa nhập
Toa do Y gia dinh : 100 nhập tạo độ y giả định của điểm vừa nhập
Ti le /: Nếu muốn thay đổi tỉ lệ (trường hợp bản vẽ của mình 1 mét không phải là 1 đơn vị) thì gỏ t và nhập giá trị 1 mét của mình vào. Nếu không thay đổi thì chọn điểm cần lấy tọa độ .
Chon diem viet ket qua:
Chon diem muon xem toa do :
Chon diem viet ket qua:
Kết quả viết ra là LEADER dùng dimstyle hiện hành.

2-Tên lệnh: LKD
-Tác dụng: Liệt kê tọa độ các điểm chọn thành bảng tại vị trí 0,0.
-Thao tác: giống lệnh XTD nhưng sau khi chọn điểm cần lấy tọa độ lisp sẽ hỏi số thứ tự của nút bạn nhập vào (các nút chọn không cần đúng thứ tự sau khi báo số thứ tự của nút thì lisp sẽ chèn block tên nhap vào vị trí này để bạn biết là đã chọn nút này rồi tránh trùng lắp). kết quả sẽ viết ra 1 bảng tạo vị trí tọa độ 0,0.

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

;Viet boi: KTS_DUY BINH SON - QUANG NGAI
;Dien dan: tailieukythuat.com
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun c:xtd ( )
(setq lc (strcase (getstring "\nBan co muon chon diem toa do gia dinh khong: Co/Khong: ")))

(if (= lc "C")
(progn
(setq a (getpoint "\nChon diem gia dinh: "))
(setq ax (dnint "\nToa do X gia dinh "ax1))
(setq ax1 ax)
(setq ay (dnint "\nToa do Y gia dinh "ay1))
(setq ay1 ay)

(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
(command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
(if (null met)(setq met 1))
(Setq temp T)
(While temp
(setq b (strcat "\nTi le /: "))
(Initget "t T")
(setq str (getpoint b))
(Cond
((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
(Progn
(Setq b str)
(setq momet met)
(setq temp nil)
)
)
)
(setq c (getpoint b"\nChon diem viet ket qua: "))
(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "osmode" 0)
(setq x (/ (car b) met))
(setq y (/ (cadr b) met))

(setq xg (/ (car a) met))
(setq yg (/ (cadr a) met))
(setq kx (- x xg))
(setq ky (- y yg))
(setq xm (+ kx ax))
(setq ym (+ ky ay))

(setq toadox (rtos xm 2 4))
(setq toadoy (rtos ym 2 4))
(setq noidungviet (strcat toadox "\\P" toadoy))
(command ".LEADER" b c "" noidungviet "")


(setvar "osmode" luubatdiem) (setvar "clayer" luulop)
(setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
(while
(setq b (getpoint "\nChon diem muon xem toa do : "))

(setq c (getpoint b"\nChon diem viet ket qua: "))
(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "osmode" 0)
(setq x (/ (car b) met))
(setq y (/ (cadr b) met))
(setq xg (/ (car a) met))
(setq yg (/ (cadr a) met))
(setq kx (- x xg))
(setq ky (- y yg))
(setq xm (+ kx ax))
(setq ym (+ ky ay))

(setq toadox (rtos xm 2 4))
(setq toadoy (rtos ym 2 4))
(setq noidungviet (strcat toadox "\\P" toadoy))
(command ".LEADER" b c "" noidungviet "")


(setvar "osmode" luubatdiem) (setvar "clayer" luulop)


)


)
)


(if (= lc "K")
(progn
(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
(command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
(if (null met)(setq met 1))
(Setq temp T)
(While temp
(setq b (strcat "\nTi le /: "))
(Initget "t T")
(setq str (getpoint b))
(Cond
((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
(Progn
(Setq b str)
(setq momet met)
(setq temp nil)
)
)
)
(setq c (getpoint b"\nChon diem viet ket qua: "))
(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "osmode" 0)
(setq x (/ (car b) met))
(setq y (/ (cadr b) met))

(setq toadox (rtos x 2 4))
(setq toadoy (rtos y 2 4))
(setq noidungviet (strcat toadox "\\P" toadoy))
(command ".LEADER" b c "" noidungviet "")

(setvar "osmode" luubatdiem) (setvar "clayer" luulop)


(setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
(while
(setq b (getpoint "\nChon diem muon xem toa do : "))
(setq x (/ (car b) met))
(setq y (/ (cadr b) met))
(setq c (getpoint b"\nChon diem viet ket qua: "))
(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "osmode" 0)
(setq toadox (rtos x 2 4))
(setq toadoy (rtos y 2 4))
(setq noidungviet (strcat toadox "\\P" toadoy))
(command ".LEADER" b c "" noidungviet "")

(setvar "osmode" luubatdiem) (setvar "clayer" luulop)


)


)
)





(setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
(Princ)
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(Defun c:lkd ( )
(setq lc (strcase (getstring "\nBan co muon chon diem toa do gia dinh khong: Co/Khong: ")))

(if (= lc "C")
(progn
(setq a (getpoint "\nChon diem gia dinh: "))
(setq ax (dnint "\nToa do X gia dinh "ax1))
(setq ax1 ax)
(setq ay (dnint "\nToa do Y gia dinh "ay1))
(setq ay1 ay)

(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
(command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
(if (null met)(setq met 1))
(Setq temp T)
(While temp
(setq b (strcat "\nTi le /: "))
(Initget "t T")
(setq str (getpoint b))
(Cond
((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
(Progn
(Setq b str)
(setq momet met)
(setq temp nil)
)
)
)
(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "osmode" 0)
(setq x (/ (car b) met))
(setq y (/ (cadr b) met))

(setq xg (/ (car a) met))
(setq yg (/ (cadr a) met))
(setq kx (- x xg))
(setq ky (- y yg))
(setq xm (+ kx ax))
(setq ym (+ ky ay))


(command "INSERT" (strcat odiachay "\\tienich\\dwg\\nhap") (list (car b)(cadr b)) 1 1 0)
(setq xht (getreal "\nSo thu tu cua nut : "))
(setq xh (- xht 1))
(setq nx (* 8 xh))
(setq sb (/ xh 10))
(setq sbn (* 100 (fix sb)))
(setq snl (- xh (fix sb)))
(setq nl (- nx (* 80 (fix sb))))

(setq CHIAM (/ XHT 10))
(setq LAMCHAN (fix CHIAM))
(setq NHANM (* LAMCHAN 10))
(setq tenkc (- XHT NHANM))
(setq tenkcn (* TENKC 100))
(setq TENKCM (fix TENKCN))

(Cond
((= TENKCM 100) (command "INSERT" (strcat odiachay "\\tienich\\dwg\\tdbdiem") (list (- sbn 14) (- 6 nl)) 1 1 0)
)
((/= TENKCM 100)
)
)

(command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos xm 2 4))
(command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos ym 2 4))
(command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
(command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
(command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
(setvar "osmode" luubatdiem) (setvar "clayer" luulop)


(setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
(while
(setq b (getpoint "\nChon diem muon xem toa do : "))

(setq x (/ (car b) met))
(setq y (/ (cadr b) met))
(setq xg (/ (car a) met))
(setq yg (/ (cadr a) met))
(setq kx (- x xg))
(setq ky (- y yg))
(setq xm (+ kx ax))
(setq ym (+ ky ay))

(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "MODEMACRO" "LIET KE TOA DO TAI DIEM 0-0")
(setvar "osmode" 0)
(command "INSERT" (strcat odiachay "\\tienich\\dwg\\nhap") (list (car b)(cadr b)) 1 1 0)
(setq xht (getreal "\nSo thu tu cua nut : "))
(setq xh (- xht 1))
(setq nx (* 8 xh))
(setq sb (/ xh 10))
(setq sbn (* 100 (fix sb)))
(setq snl (- xh (fix sb)))
(setq nl (- nx (* 80 (fix sb))))

(setq CHIAM (/ XHT 10))
(setq LAMCHAN (fix CHIAM))
(setq NHANM (* LAMCHAN 10))
(setq tenkc (- XHT NHANM))
(setq tenkcn (* TENKC 100))
(setq TENKCM (fix TENKCN))

(Cond
((= TENKCM 100) (command "INSERT" (strcat odiachay "\\tienich\\dwg\\tdbdiem") (list (- sbn 14) (- 6 nl)) 1 1 0)
)
((/= TENKCM 100)
)
)

(command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos xm 2 4))
(command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos ym 2 4))
(command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
(command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
(command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
(setvar "osmode" luubatdiem) (setvar "clayer" luulop)


)


)
)


(if (= lc "K")
(progn
(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
(command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
(if (null met)(setq met 1))
(Setq temp T)
(While temp
(setq b (strcat "\nTi le /: "))
(Initget "t T")
(setq str (getpoint b))
(Cond
((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
(Progn
(Setq b str)
(setq momet met)
(setq temp nil)
)
)
)
(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "osmode" 0)
(setq x (/ (car b) met))
(setq y (/ (cadr b) met))
(command "INSERT" "C:\\tailieukythuat\\dwg\\nhap" (list (car b)(cadr b)) 1 1 0)
(setq xht (getreal "\nSo thu tu cua nut : "))
(setq xh (- xht 1))
(setq nx (* 8 xh))
(setq sb (/ xh 10))
(setq sbn (* 100 (fix sb)))
(setq snl (- xh (fix sb)))
(setq nl (- nx (* 80 (fix sb))))

(setq CHIAM (/ XHT 10))
(setq LAMCHAN (fix CHIAM))
(setq NHANM (* LAMCHAN 10))
(setq tenkc (- XHT NHANM))
(setq tenkcn (* TENKC 100))
(setq TENKCM (fix TENKCN))

(Cond
((= TENKCM 100) (command "INSERT" "C:\\tailieukythuat\\dwg\\tdbdiem" (list (- sbn 14) (- 6 nl)) 1 1 0)
)
((/= TENKCM 100)
)
)

(command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos x 2 4))
(command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos y 2 4))
(command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
(command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
(command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
(setvar "osmode" luubatdiem) (setvar "clayer" luulop)


(setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
(while
(setq b (getpoint "\nChon diem muon xem toa do : "))
(setq x (/ (car b) met))
(setq y (/ (cadr b) met))
(setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
(setvar "MODEMACRO" "LIET KE TOA DO TAI DIEM 0-0")
(setvar "osmode" 0)
(command "INSERT" "C:\\tailieukythuat\\dwg\\nhap" (list (car b)(cadr b)) 1 1 0)
(setq xht (getreal "\nSo thu tu cua nut : "))
(setq xh (- xht 1))
(setq nx (* 8 xh))
(setq sb (/ xh 10))
(setq sbn (* 100 (fix sb)))
(setq snl (- xh (fix sb)))
(setq nl (- nx (* 80 (fix sb))))

(setq CHIAM (/ XHT 10))
(setq LAMCHAN (fix CHIAM))
(setq NHANM (* LAMCHAN 10))
(setq tenkc (- XHT NHANM))
(setq tenkcn (* TENKC 100))
(setq TENKCM (fix TENKCN))

(Cond
((= TENKCM 100) (command "INSERT" "C:\\tailieukythuat\\dwg\\tdbdiem" (list (- sbn 14) (- 6 nl)) 1 1 0)
)
((/= TENKCM 100)
)
)

(command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos x 2 4))
(command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos y 2 4))
(command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
(command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
(command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
(command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
(setvar "osmode" luubatdiem) (setvar "clayer" luulop)


)


)
)





(setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
(Princ)
)

;---------------------------------------
(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ần làm theo Hướng Dẫn khi dùng lisp này!

Thứ Sáu, 27 tháng 11, 2009

Cách tạo các block trong ngành nước:

Đây là Bài viết của mình bên CADVIET.COM Mình viết cũng dài nên đem về để dành vì tiếc công viết.
Nguyên văn câu hỏi:

Trích dẫn(maianhksn_231 @ Jul 23 2008, 04:28 PM)
Minh la thanh vien moi cua dien dan! Chao moi nguoi !
Cho minh hoi co cach nao ve nhanh cac phu kien nganh nuoc nhu co ,te^ , cut , ...v..v trong Auto Cad hay ko ?
Minh dang hoat dong trong nganh Cap Thoat Nuoc


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

Có hai cách thông dụng nhất:
1./Lấy của người khác:
-Coi quanh mình có ai đã vẽ rồi mà thấy người ta vẽ hợp hợp với mình thì bắt đầu chiến dịch:
+Bước 1: Lân la nói chuyện, làm quen hỏi xin này xin nọ. Nhớ là đừng xin cái bản vẽ mình thích ngay vì đây là bước thăm dò coi cái sự chia sẻ của người ta như thế nào để còn thực hiện bước 2.
+Bước 2:
*Phương án 1: Nếu người ta dể chịu khả năng chia sẻ cao thì xin cái bản vẽ mình thấy ưng rồi về ngồi tạo thư viện.
*Phương án 2: Nếu người ta keo không cho gì cả thì mình tìm cách chôm . Mục đích bước trước mình nói bạn không xin bản vẽ ngay từ đầu mà xin các thứ linh tinh khác là ngừa trường hợp này. Khi bạn xin mà người ta không cho sẽ cảnh giác với bạn và giử kỹ cái bạn xin dẩn đến khó chôm. Phần chôm thì thôi không nói dài dòng coi như bạn đã thành công. Đem về ngồi tạo thư viện.
2./Tự vẽ lấy:
-Bạn cần biết các lệnh: PLINE; LINE; FILLET; TRIM; EXTEND; OFFSET; MOVE; COPY; HATCH.
-Có 3 cách thông thường sau: mỗi cái đều có cái hay và dở riêng riêng mình khuyên nên chọn theo cách thứ 3.
+Vẽ 1 nét đặt màu sau đó in cho màu này in ra nét đậm theo ý thích.
+Vẽ bằng PLINE có độ dày định sẳn.
+Vẽ khung biên bên ngoài sau đó hatch bằng hatchname:SOLID.
*****Sau khi đã làm 1 trong 2 bước trên thì bắt đầu tạo thư viện như sau:
-Tạo 1 thư mục đặt tên tùy ý.
-Mở bản vẽ đã có đầy đủ các thứ chi tiết bạn cần: Thường mình thấy người ta có loại cho mặt bằng và cho sơ đồ không gian riêng.
-Chuyển tất cả các đối tượng trên về layer 0. Mục đích khi tạo thành block chèn vào các bản vẽ khác thì nó sẽ đi theo layer hiện hành.
-Đánh lệnh WBLOCK tạo từng chi tiết thành 1 block vào thư mục vừa tạo. Lưu ý khi tạo block:
+Đặt tên rỏ ràng không trùng lặp nhìn thấy là hiểu nó là cái gì ngay.
+Chọn điểm chèn hợp lý. Bạn tưởng tượng khi chèn thì chèn điểm nào làm gốc sẽ thuận lợi thì chọn điểm đó.
-Sau khi có đủ các block rồi thì chỉ cần insert vào các bản vẽ với góc quay, tỉ lệ hợp lý là được.
*****Nếu bạn là người cầu toàn thì có 1 mẹo nhỏ để bạn làm khỏe hơn.
-Bạn cần biết lệnh WIPEOUT.
-Trước khi tạo thư viện quanh chi tiết bạn vẽ 1 pline sau đó offset ra 1 chút khoảng cách tùy bạn, dùng lệnh WIPEOUT với đường pline này cho ẩn đường biên đi. Copy chi tiết để lên trên sau đó tạo block với cả đối tượng và vùng tạo bởi WIPEOUT. Khi bạn insert và đặt chi tiết này lên các đường ống thì giữa đối tượng và đường ống sẽ có 1 khoảng hở do WIPEOUT tạo ra rất tiện không cần phải cắt đường ống đở vất vả, tiết kiệm rất nhiều thời gian.
*****Thực chất đây là việc tất cả người vẽ cad đều dùng để tạo chi tiết thư viện chứ không riêng để vẽ tê, co, cút. Còn nếu ý bạn mà hỏi làm sao để vẽ ra tê, co, cút thì mình không biết diển tả làm sao hy vọng bạn đã biết vẽ CAD.

Xem bài viết tại trang gốc ở Đây !

Thứ Năm, 26 tháng 11, 2009

Ảnh làm nền gia phả:

Vừa qua mình có làm cây phả hệ cho dòng họ. Có tự thiết kế 1 cái ảnh nền nên chia sẽ bà con ai có nhu cầu thì dùng còn không có nhu cầu thì dòm hớ hớ!


Photobucket

Để tiết kiệm bạn có thể dùng ảnh trắng đen in trên nền giấy màu cũng đẹp phết. Chọn giấy màu vàng hoặc xanh chàm gì cũng đẹp cả.

Photobucket

Còn đây là file psd bạn sửa thoải mái nhé.

Thứ Ba, 17 tháng 11, 2009

Lo go họ Phạm:


Logo họ Phạm hình chữ nhật có kích có 4/3. Viền màu nâu thiên về đỏ. Nền màu vàng. Cây cổ thụ màu xanh lục tượng trưng cho dòng họ ta phát triển không ngừng như một cây đại thụ cành lá xum xuê xanh tốt, gợi cho mỗi người chúng ta nhớ đến cội nguồn, đến gốc rễ của dòng họ. Chữ “Phạm” tượng hình lấy tù chữ Nho (范(*),chữ Hán) ở giữa màu đỏ cờ (màu vàng của nền và màu đỏ của chữ Phạm chính là 2 màu của Quốc kỳ). Việc lấy chữ Phạm thể hiện bằng chữ Nho này biểu thị sự tôn trọng văn tự của cha ông ta ngày xưa. Điều này không có nghĩa là dòng họ Phạm ta từ Trung Quốc chuyển sang và cũng không phải Thủy tổ của họ Phạm Việt Nam là người Trung Quốc. Bên dưới có dòng chữ quốc ngữ HỌ PHẠM VIỆT NAM.
--------------------

(*) Việc thiết kế Logo các nhà đồ họa có thể lấy một hình vẽ, một hàng chữ, một biểu tượng nào đấy. Ở đây chúng ta lấy biểu tượng ấy là một chữ Phạm có nguồn gốc chữ Nho(chữ Hán) là một sự thường tình. Để những người không biết chữ nho dễ nắm được biểu tượng chữ Phạm ( 范 ) ông Phạm Đạo đã căn cứ vào một truyền thuyết bên Trung Quốc diễn tả bằng một bài thơ như sau:

CHỮ PHẠM
Một tộc người di trú tới ven sông
Nước đã cạn khô cỏ cháy trên đồng
Chẳng quản nắng mưa đồng lòng hiệp sức
Sông Dĩ hiền hòa đã được khai thông
Cơm chan mồ hôi, nhường nhau tấm áo
Để lúa ngô khoai xanh tốt trên đồng
Tộc người ấy lấy họ mình là Phạm
Bộ Thảo đầu (1) sông Dĩ (2) nước (3) mênh mông
-----------------
(1) bộ Thảo (艹), (2) chữ Dĩ (已), (3) bộ Thủy (水, 氵).
Chữ Phạm 范 gồm bộ “Thảo” ở trên đầu; bộ “Thủy” ở bên trái và chữ “Dĩ” ở bên phải
Sưu tầm từ http://www.hopham.org