Lisp offset về hai phía.

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

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

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