Ét vê chín sáu phẩy năm. p2

Nó chỉ không hợp với thầy dạy toán thôi vì cô dạy toán thì hợp khỏi nói.

Số là cũng trong năm lớp tám cư dân trường nó lại được một phen xôn xao vì nó nghiễm nhiên giựt cái giải nhứt toàn tỉnh thi vẽ chuyện hồi sau sẽ rỏ. Nhưng hồi này bà cô Diên dạy toán vốn là cô chủ nhiệm của nó đã vận động hành lan lẫn ko hành lan các thứ và điểm trung bình các môn của nó tăng như giá ngâm thuốc Trung Quốc, cái cớ bả đưa ra là thi tỉnh nó còn đứng nhứt mà hông lẽ hông được tiên tiến là sao. Thế là giữa năm nó lên trụ cờ ngồi vì gian lận trong thi cử, cuối năm lại leo tót lên trụ cờ một phát nửa vì thành tích kể trên.

Bà cô Diên này có một đứa con là thèn Diễn phải nói là thần đồng dù trong giai đoạn đó Việt Nam đột nhiên xuất hiện thần đồng nhiều vô số kể nhưng không sao thèn Diễn vẫn cứ là thần đồng trong đống thần đồng. Thèn Diễn này có hai cái tài. Tài thứ nhất là cộng nhẩm nhanh siêu cấp vô đỵch cứ đọc 1 tràng số và dấu ngừng đọc thì nó đọc đáp số.

…..

Hàm về ẩn hiện layer.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Hien toan bo layer trong ban ve
;;;Cu phap su dung (duy:layer_hienhet)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun duy:layer_hienhet ()
(Command “_.-LAYER” “_ON” “*” “”)
(princ)
)

Thêm

Hàm tạo list tên các layer trong tập hợp chọn.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Tao danh sach cac layer trong tap chon
;;;Cu phap su dung (duy:layer_tapchon>listten tapchon)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun duy:layer_tapchon>listten (tapchon / tapchon sttd LAY LAYLST)
(setq sttd 0)
(while (setq LAY (ssname tapchon sttd))
(setq LAY (cdr (assoc 8 (entget LAY))))
(if (not (member LAY LAYLST))
(setq LAYLST (cons LAY LAYLST))
)
(setq sttd (1+ sttd))
)
LAYLST)

Ét vê chín sáu phẩy năm. p1

Khi học phổ thông nó ngán nhất khi ba nó hỏi nó vẻ trịnh trọng “mày tính sau này chọn nghề gì?” thật ra nó cũng me sẳn trong đầu vài ba nghề hót hót rồi nhưng mấy lúc mà bị hỏi toàn là mấy lúc ba nó phát hiện ra thèn con mình dốt như hạch thì bố bảo nó cũng ko dám nêu mấy cái nghề nghe tên đã thấy búng toanh toách ấy ra, đành ngồi nghe ba nó lên 1 lớp về lý tưởng và phấn đấu, thường ba nó kết thúc bằng việc chọn cho nó 1 cái nghề nghe có vẻ rất chân tay. Nó ngồi nghe đầu vẫn nghĩ về các nghề hót hót.

Việc học của nó cũng vẻ vang chứ nào có tệ lậu gì cho cam. Chẳng qua nó không tiêu hóa nổi cái môn mà ở đó người ta cộng trừ nhân chia cả số cả chử hầm bà lằng loắng quắng. Chẳng thà toán học số cộng với số thì ra số cứ thế mà bễnh. Còn môn hóa thì như đã nói cứ thấy thằng chữ cặp kè thằng số theo là nó điên hết cả người ko thèm ngó tới. À còn chưa kể một môn tréo nghoe không kém chử “a” thì không đọc là “a” mà đọc là cái chi chi đó, tương tự các chữ khác cũng thế ấy là môn ngoại ngữ. Nên hai môn tào lao này nó không cho vào mắt lấy 1 xíu.

Nhưng vì phép màu nào đó các môn này nó chưa bao giờ dưới 5 điểm thế mà đùng 1 cái môn mà nó cho là dể và nó học vô ầm ầm thì kết thúc kỳ 1 năm lớp 10 nó được nhỏn 1,9 điểm. Cũng kỳ nó nhớ mấy lần kiêu lên bảng giải bài tập trong khi ông thầy vừa ngủ gật vừa nhớ về cái gì đâu đâu thì nó giải bài cho thằng bên cạnh, cứ nó viết dòng giải ra thằng kia chép lại xong nó xóa và giải tiếp cứ thế đến khi vì trọng lượng bản thân của ông thầy vì phân bố không điều từ từ đỗ về trước thì ông giật mình bảo hết giờ giải bài thế là bài thằng kia giải xong còn bài nó chưa có chữ nào trên bảng.

Thế là sau buổi họp phụ huynh ba nó lại nói về lý tưởng và phấn đấu còn nó ngồi nghĩ đến việc nó trở thành nhà khoa học và  sáng chế ra 1 loại hương giá cực rẻ để cho tụi học trò có thể mua và làm cho ông thầy đang ngủ gật kia lâu bị giật mình hơn thì những đứa như nó đâu có bị rầy như bây giờ.

Hình như nó có hông hạp với các thầy dạy toán hay sao ấy. Năm lớp tám tụi trong lớp nó được 1 phen xôn xao vì nó được nêu tên trong buổi chào cờ đầu tuần với thành tích mang tài liệu vào phòng thi môn Lý. Chuyện là hôm ấy sau khi làm xong bài thi hết có chừng nửa thời gian nó ung dung nộp bài đi ra. Khi ngang qua thằng Hoa Nga  thấy thằng này đang cắn cây bút ra chừng căm thù lắm. Nó đi vòng ra phía cửa sổ lụm một tờ giấy xé ra 1 mẫu nhỏ nhỏ bỏ túi kiếm chổ khuất tính viết bào giải ném cho thèn Hoa Nga để cảm ơn cái vụ thằng này hay bày mưu rủ nó cúp học đi chơi. Đang kiếm thì thầy Huy  xuất hiện.

Thầy Huy dạy toán có dạy lớp nó. Thầy đen ko thua gì nó nhưng phải cái thầy mập hơn nó tỉ lần. Thầy có đặc điểm  chấm bài kiểm tra tại lớp luôn mỗi lúc như vậy thầy thường nheo mắt, giật mình, rớt xuống ghế (thầy cố tình làm thế cho tụi nó thấy ý bảo khả năng làm bài của tụi nó làm thầy phục vô đối) nó ngồi xem mà nghỉ hổng chừng ông này làm diển viên kịch câm thì phải gọi là đỉn.

Thầy thấy nó ra sớm nghe chừng ko hài lòng vì làm đếch gì có thằng học sinh nào lại đi dạo trong khi tụi kia thi, chỉ có thầy là giám thị hành lang mới có quyền đó. Lòng ghanh tị nổi lên thầy nghỉ chắc ông này mang tài liệu nên mới làm bài nhanh thế. “Ê ông kia lại đây” nó nghe và đoán chắc thầy gọi nó vì là “cây khô không sợ chết héo” nên nó ung dung lại. Thò tay vào túi nó lôi ra trúng mẩu giấy nó vừa lụm khi nảy thầy ngó thấy tờ giấy trắng thầy nheo mắt lại xem kỹ nó có dùng công nghệ gián điệp gì không, sau đó thầy lật phía sau tờ giấy lại, mặt thầy giản ra rạng rỡ vì bên phía đó có mấy dòng chữ. Thầy lập biên bản là nó đem tài liệu vào phòng thi môn Lý trong khi cái đầu ngu như một trái dầu của nó hông hiểu sao một ông thầy dạy toán chắc có học đại học mà hông biết mấy dòng kia là Hóa học hay sao? Chưa kể nó bị đứt khúc ráo trọi. Tự nhiên nó đồng cảm với ông thầy toán đang hớn hở vì vừa phá được nạn tiêu cực trong thi cử, nó nghỉ chắc ông này dốt hóa như mình và tin tưởng tương lai mình cũng có khả năng học hết đại học và đi làm như ổng.

Hàm lấy giá trị trong chuổi.

Cái này điên bà cố nè. Lisp nó có rồi (hàm nth đó) mà hông biết cắm đầu viết với lại dùng lung tung trong các hàm khác rồi nên giữ dậy luôn á.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Doc phan tu cua list
;;;Cu phap su dung (duy:laylist listcandoc thutudoc)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:laylist (listdoc thutu / listdoc thutu kqdoc)
(repeat (fix (- thutu 1))
(setq listdoc (cdr listdoc))
)
(setq kqdoc (car listdoc))
kqdoc)

Tạo list nội dung của 1 file txt.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Tao list chua noi dung file
;;;Cu phap su dung (duy:taolist<f tenfile)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:taolist<f (filename / filename)
(setq lkq nil)
(setq ndd (open filename “r”))
(while
(/= nil (setq ddd (read-line ndd)))
(setq lkq (append lkq (list ddd)))
)
(close ndd)
lkq)

 

Dùng cái này test thử nhé.

(defun c:test ()
(duy:taolist<f (getfiled “” “” “txt” 0))
)

Hàm tạo list chứa các bảng mô tả của cad

Dùng cái này để lấy list tên của: Block, Layer, Style, Dimstyle … đã có trong bản vẽ.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Tao list chua bang mo ta
;;;Cu phap su dung (duy:taolist kieu) kieu gom co appid block dimstyle layer ltype style ucs view vport
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:taolist (kieu / kieu nl lkq)
(setq lkq'())
(setq nl (tblnext kieu T))
(while nl
(setq lkq (append lkq (list (cdr (assoc 2 nl)))))
(setq nl (tblnext kieu))
)
lkq)

 

Dùng cái này test thử nhé.

(defun c:test ()
(duy:taolist “layer”)
)

Hàm sắp xếp thứ tự các đối tượng trong list theo tọa độ x và y.

Mình căm thù mấy cái hàm vl- hoặc ac- vân vân nhưng điên 1 cái là mình chưa viết được hàm làm việc như thằng vl-sort nên tạm dùng. Hăm he là có ngày ném quách thằng này đi ha ha.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Sep lai list doi tuong theo thu tu x tang dan
;;;Cu phap su dung (duy:xeplist>xtang listdt)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:xeplist>ytang (lst / lst)
(setq listsx (vl-sort lst ‘(lambda (e1 e2) (< (cadr (cdr (assoc 10 (entget e1)))) (cadr (cdr (assoc 10 (entget e2)))) ))))
listsx)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Sep lai list doi tuong theo thu tu y tang dan
;;;Cu phap su dung (duy:xeplist>ytang listdt)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:xeplist>xtang (lst / lst)
(setq listsx (vl-sort lst ‘(lambda (e1 e2) (< (car (cdr (assoc 10 (entget e1)))) (car (cdr (assoc 10 (entget e2)))) ))))
listsx)

Hàm tạo list các điểm pick.

Hàm này có lôi kéo tiếng Việt có dấu hiển thị trên dòng lệnh nên dùng 1 hàm chuyễn đổi vì hàm này ló mặt hầu khắp các hàm của mình nên mình kèm nó ngay đầy trang (bên cạnh chử trang chủ) ấy nha.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Tao list cac diem pick
;;;Cu phap su dung (duy:taolist<pick)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:taolist<pick (/ diemp lkq)
(setq diempc (getpoint (duy:s_tcvn>dl “\n§iÓm Thø nhÊt:”)))
(setq lkq (list diempc))
(while (setq diemp (getpoint diempc(duy:s_tcvn>dl “\n§iÓm tiÕp theo: <Enter ®Ó kÕt thóc>”)))
(setq lkq (append lkq (list diemp)))
(grdraw diempc diemp 3)
(setq diempc diemp)
)
lkq)

Hàm lấy tập chọn con trong tập chọn theo điều kiện.

Lưu ý muốn dùng được 2 hàm này phải kèm theo hàm chuyễn tập chọn thành list. Xem tại

https://ktsduy.wordpress.com/2013/04/26/ham-chuyen-tap-chon-thanh-list-va-nguoc-lai/

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Tao tap hop chon tu tap chon theo kieu doi tuong
;;;Cu phap su dung (duy:taotapchon_kieu<tapchon tapchongoc kieu)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:taotapchon_kieu<tapchon (tapchongoc kieu / tapchongoc kieu litgoc dtc tapchon)
(setq litgoc (duy:taolist<tapchon tapchongoc))
(setq tapchon (ssadd))
(foreach dtc litgoc

(cond
((= (cdr (assoc 0 (entget dtc))) kieu) (ssadd dtc tapchon))
)

)
tapchon)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Tao tap hop chon tu tap chon theo ma DXF
;;;Cu phap su dung (duy:taotapchon_dxf<tapchon tapchongoc madxf giatri)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:taotapchon_dxf<tapchon (tapchongoc madxf giatri / tapchongoc madxf giatri litgoc dtc tapchon)
(setq litgoc (duy:taolist<tapchon tapchongoc))
(setq tapchon (ssadd))
(foreach dtc litgoc

(cond
((= (cdr (assoc madxf (entget dtc))) giatri) (ssadd dtc tapchon))
)

)
tapchon)

Previous Older Entries

Theo dõi

Get every new post delivered to your Inbox.