Tính được đi công tác Hà Nội. Thế mà bị chuyển ra Bình Dương.
thế là giấc mơ thăm lăng bác tiêu tang. hihihih nhưng cũng an ủi Binh Dương gần nhà.
Đôi chút về Công Trình đang công tác
Bệnh Viện Phụ Sản Quốc Tế HẠNH PHÚC.
sảnh chính:
Thứ Bảy, 25 tháng 9, 2010
Thứ Năm, 16 tháng 9, 2010
BYLAYER VÀ BYBLOCK
Sự khác nhau giữa Bylayer và Byblock |
Bạn đã bao giờ tự hỏi Bylayer và Byblock khác nhau như thế nào chưa? Bạn dùng Bylayer và Byblock khi nào? Đây là 2 cách quản lý đối tượng (về màu sắc và đường nét). Và ý nghĩa của của nó... Ý nghĩa của các tính năng này như sau : BY LAYER : thuộc về lớp (layer) đang chứa nó (object). Diễn giải dài dòng là: nếu một số đối tượng nào đó thuộc một layer có kiểu đường là hidden, màu đỏ, độ dày nét 0.15,... thì nó cũng có những tính năng này y như là lớp đang chứa nó. BY BLOCK : thuộc về BLOCK đang chứa nó (object). Diễn giải dài dòng là: nếu một số đối tượng có tính năng này thuộc một block có kiểu đường là hidden, màu đỏ, độ dày nét 0.15,... thì nó cũng có những tính năng này y như là block đang chứa nó, chứ không phải nó có những tính năng của LAYER đang chứa BLOCK đó. Ví dụ 1: tôi có 1 block, trong block này có 1,2,3... đối tượng mang tính năng BYLAYER. Nếu tôi đặt nó tại Layer có màu đỏ, kiểu đường Hidden, dày 0.3,... thì Block này chũng màu đỏ, đường Hidden và dày 0.3. Bạn thử dùng chức năng tùy chỉnh properties (nhấn Ctrl+1) để thay đổi các tính năng này của Block (màu đỏ thành màu xanh, đường hidden thành continue, nét 0.3 thành 1.0). Vô ích, Block này đã bị ràng buộc các tính năng của LAYER. Ví dụ 2: tôi có 1 block, trong block này có chứa các đối tượng mang tính năng BYBLOCK. Nếu tôi đặt nó tại Layer có màu đỏ, kiểu đường Hidden, dày 0.3,... thì Block này chũng màu đỏ, đường Hidden và dày 0.3. Bạn thử dùng chức năng tùy chỉnh properties (nhấn Ctrl+1) để thay đổi các tính năng này của Block (màu đỏ thành màu xanh, đường hidden thành continue, nét 0.3 thành 1.0). Thành công, Block này sẽ cập nhật các tính năng trên vì nó không bị ràng buộc vào LAYER. Các đối tượng mang tính năng BYBLOCK nhưng không nằm trong BLOCK sẽ có màu trắng/đen (do nó không biết thuộc về tính năng của block nào). Chú ý : Khi tạo Block, bạn nên cân nhắc kỹ trước khi quyết định cho các đối tượng thộc về BYLAYER hay BYBLOCK. Vì khi EXPLODE một bock, các đối tượng có tính năng ByBlock sẽ có màu trắng/đen, còn các đối tượng ByLayer sẽ có các tính năng của Layer đang chứa nó. Về đối tượng DIMENSION, chương trình CAD định nghĩa nó là một BLOCK đặc biệt mang biệt danh là Dimension. Do đó các đối tượng thuộc kích thước (đường dóng, đường kích thước, text, ...) sẽ có các tính năng như các đối tượng trong một block. |
Thứ Tư, 15 tháng 9, 2010
AUTO LISP
LISP chuyền các loại đường ra pline với phân đoạn do mình đặt :
;; free lisp from cadviet.com
;;;***********************************************************
;;;CONVERT TO PLINES PROGRAM WITH FULL COMMENTS!
;;;Convert all objects: Line, Pline, Spline, Arc, Circle, Ellipse_
;;;to Plines. Length of 1 segment is specified by user
;;;Copy & Paste to Notepad, Saveas *.lsp, Appload then Type C2P to run
;;;Happy New Year 2008!
;;;Written by ssg - January 2008 - www.cadviet.com
;;;***********************************************************
;;;-------------------------------------------------------------
(defun makepl ( e d1 / ps pe d d2 p2) ;;;Make pline along curve e. Length of 1 segment = d1
(vl-load-com) ;;;Load Visual LISP extensions before use vlax-xxxx functions
(setq
ps (vlax-curve-getStartPoint e) ;;;Start point
pe (vlax-curve-getEndPoint e) ;;;End point
d (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) ;;;Length of curve e
d2 d1 ;;;Init variable distance
)
(command "pline") ;;;Call pline command
(command ps) ;;;Start point
(while (<= d2 d) ;;;While not over end point pe
(setq p2 (vlax-curve-getPointAtDist e d2)) ;;;Variable point at d2 = length along curve
(command p2) ;;;Continue pline command from current point to p2
(setq d2 (+ d2 d1)) ;;;Increase distance d2 by d1
) ;;;End while
(command pe "") ;;;Pline to pe and finish command
)
;;;-------------------------------------------------------------
(defun C:C2P( / d1 ss oldos i e ans) ;;;Convert to Plines
(if (not d0) (setq d0 0.5)) ;;;Init dividual distance, global variable
(setq d1 (getreal (strcat "\nLength of 1 segment <" (rtos d0) ">:"))) ;;;Input distance
(if d1 (setq d0 d1) (setq d1 d0)) ;;;Reset or get distance
(setq
ss (ssget '((0 . "LINE,LWPOLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE"))) ;;;Selection set
oldos (getvar "osmode") ;;;Save osmode
i 0 ;;;Init counter
)
(setvar "osmode" 0) ;;;Disable osmode
(repeat (sslength ss) ;;;Repeat for all entities in ss
(setq e (ssname ss i)) ;;;Set e for entity with ordinal i in selection set ss
(makepl e d1) ;;;Use makepl function. Make pline along e
(setq i (1+ i)) ;;;Increase counter
)
(initget "Y N") ;;;Init keywords
(setq ans (getkword "\nDelete source objects? [Yes/No] <N>:")) ;;;Get answer from user
(if (= ans "Y") (command "erase" ss "")) ;;;Erase source objects if ans = "y" or "Y"
(setvar "osmode" oldos) ;;;Reset osmode
(princ) ;;;Silent quit
)
;;;-------------------------------------------------------------
cập nhận liên tục
;; free lisp from cadviet.com
;;;***********************************************************
;;;CONVERT TO PLINES PROGRAM WITH FULL COMMENTS!
;;;Convert all objects: Line, Pline, Spline, Arc, Circle, Ellipse_
;;;to Plines. Length of 1 segment is specified by user
;;;Copy & Paste to Notepad, Saveas *.lsp, Appload then Type C2P to run
;;;Happy New Year 2008!
;;;Written by ssg - January 2008 - www.cadviet.com
;;;***********************************************************
;;;-------------------------------------------------------------
(defun makepl ( e d1 / ps pe d d2 p2) ;;;Make pline along curve e. Length of 1 segment = d1
(vl-load-com) ;;;Load Visual LISP extensions before use vlax-xxxx functions
(setq
ps (vlax-curve-getStartPoint e) ;;;Start point
pe (vlax-curve-getEndPoint e) ;;;End point
d (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) ;;;Length of curve e
d2 d1 ;;;Init variable distance
)
(command "pline") ;;;Call pline command
(command ps) ;;;Start point
(while (<= d2 d) ;;;While not over end point pe
(setq p2 (vlax-curve-getPointAtDist e d2)) ;;;Variable point at d2 = length along curve
(command p2) ;;;Continue pline command from current point to p2
(setq d2 (+ d2 d1)) ;;;Increase distance d2 by d1
) ;;;End while
(command pe "") ;;;Pline to pe and finish command
)
;;;-------------------------------------------------------------
(defun C:C2P( / d1 ss oldos i e ans) ;;;Convert to Plines
(if (not d0) (setq d0 0.5)) ;;;Init dividual distance, global variable
(setq d1 (getreal (strcat "\nLength of 1 segment <" (rtos d0) ">:"))) ;;;Input distance
(if d1 (setq d0 d1) (setq d1 d0)) ;;;Reset or get distance
(setq
ss (ssget '((0 . "LINE,LWPOLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE"))) ;;;Selection set
oldos (getvar "osmode") ;;;Save osmode
i 0 ;;;Init counter
)
(setvar "osmode" 0) ;;;Disable osmode
(repeat (sslength ss) ;;;Repeat for all entities in ss
(setq e (ssname ss i)) ;;;Set e for entity with ordinal i in selection set ss
(makepl e d1) ;;;Use makepl function. Make pline along e
(setq i (1+ i)) ;;;Increase counter
)
(initget "Y N") ;;;Init keywords
(setq ans (getkword "\nDelete source objects? [Yes/No] <N>:")) ;;;Get answer from user
(if (= ans "Y") (command "erase" ss "")) ;;;Erase source objects if ans = "y" or "Y"
(setvar "osmode" oldos) ;;;Reset osmode
(princ) ;;;Silent quit
)
;;;-------------------------------------------------------------
cập nhận liên tục
CAD MỚI NHỎ GỌN HIỆU QUẢ
download nhấn vào đây ZWCAD 2010 link mediafire
Đây là chương trình trợ giúp thiết kế giống như CAD của 1 hảng khác, kô phải của Atodesk.
chương trình này tương thích với file DWG, và có giao diện và tính năng như Autocad.
được cái chương trình này khá rẻ cho bản quyền. nếu bạn muốn thay thế phần mềm Autocad nhằm giảm chi phí thì dây là một trong những phầm mềm tốt.
Đây là chương trình trợ giúp thiết kế giống như CAD của 1 hảng khác, kô phải của Atodesk.
chương trình này tương thích với file DWG, và có giao diện và tính năng như Autocad.
được cái chương trình này khá rẻ cho bản quyền. nếu bạn muốn thay thế phần mềm Autocad nhằm giảm chi phí thì dây là một trong những phầm mềm tốt.
Thứ Ba, 14 tháng 9, 2010
Đăng ký:
Bài đăng (Atom)