Cây

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.

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

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.