markdown:
Similar topics
Đăng Nhập
Latest topics
StatisticsDiễn Đàn hiện có
**6532**thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký:
[Tập](/u6533)
Tổng số bài viết đã gửi vào diễn đàn là
**1667**in **419**subjects [CÀI LISP TRONG CAD 2007](/t217-topic)
Trang
**1**trong tổng số **1**trang • [Share](#)•
[CÀI LISP TRONG CAD 2007](/t217-topic#575)
Anh admin chỉ giúp em lam sao để cài được UTILITYCAD V22009
vào cad 2007 vậy anh.Nếu như ko cài được thì có lisp nào tương tự như UTILITYCAD V22009 ko,anh cho em xin với.vì em đang sử phần mềm TDT KSVN chỉ sử dụng trên cad 2007 thôi.nên mỗi lần sử dụng lâu lắm mong anh giúp dùm.cảm ơn trước nhé.
vào cad 2007 vậy anh.Nếu như ko cài được thì có lisp nào tương tự như UTILITYCAD V22009 ko,anh cho em xin với.vì em đang sử phần mềm TDT KSVN chỉ sử dụng trên cad 2007 thôi.nên mỗi lần sử dụng lâu lắm mong anh giúp dùm.cảm ơn trước nhé.
**ro88**
- Binh nhất
- 1 .Aeanoid
Posts : 19
Points : 34
Reputation : 2
Join date : 28/09/2010
Age : 29
Đến từ : nha trang
-
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#576)
Bạn cài bình thường như Cad 2005 và các Cad khác thôi mà. bạn vào APPLOAD (AP)/Contents /Add rồi chọn đến đường dẫn Design/UTILITYCAD/LOADUFC.VLX. Sau đó khởi động lại Cad2007 và vào lệnh MENUUFC sẽ hiện trên Menu tab UFC. Nếu không được bạn vào MENULOAD trên cửa sổ đó chọn BROWSE chọn đến đường dẫn Design/UTILITYCAD/Mns/UFC.cui rồi Load --> OK.
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#577)
thanks bạn trước nhé.để mình làm thử.
**ro88**
- Binh nhất
- 1 .Aeanoid
Posts : 19
Points : 34
Reputation : 2
Join date : 28/09/2010
Age : 29
Đến từ : nha trang
-
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#578)
Admin cho xin bộ UTILITYCAD 2010 được không? hoặc viết giúp mình lisp bật các lựa chọn truy bắt điểm : Endpoint, Midpoint, Center, Quadrant, Intersection, Perpendicular, Nearest.
Cảm ơn Admin nhiều.
![ ](http://farm3.anhso.net/upload/20101209/08/o/anhso-082337_TBD.jpg)
Cảm ơn Admin nhiều.
![ ](http://farm3.anhso.net/upload/20101209/08/o/anhso-082337_TBD.jpg)
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#580)
Cái này thì đơn giản thôi qkhs.live , bạn có thể tuỳ chỉnh đoạn code sau theo ý thích nhé.
0= 0
1= điểm cuối
2= điểm giữa
4= tâm
8= nút
16= cung 1/4
32= giao điểm
64= điểm chèn
128= vuông góc
256= gần nhất
512= nhanh
Như vậy bạn thấy cách quản lý biến theo các bit hệ thống, nếu bạn muốn hoạt động đồng thời nhiều hơn 1 biến thì lấy tổng của nó nhé, ví dụ: bạn muốn chọn điểm cuối, điểm giữa, vuông góc thì bằng 131 hoặc (+ 1 2 128)
- Code:
(defun c:f3 ()
(setvar "osmode" 131)
(princ)
)
0= 0
1= điểm cuối
2= điểm giữa
4= tâm
8= nút
16= cung 1/4
32= giao điểm
64= điểm chèn
128= vuông góc
256= gần nhất
512= nhanh
Như vậy bạn thấy cách quản lý biến theo các bit hệ thống, nếu bạn muốn hoạt động đồng thời nhiều hơn 1 biến thì lấy tổng của nó nhé, ví dụ: bạn muốn chọn điểm cuối, điểm giữa, vuông góc thì bằng 131 hoặc (+ 1 2 128)
![](http://illiweb.com/fa/pbucket.gif)
**Chung tay xây dựng nền tảng vững chắc**- [Cầu đường Online](http://nguyentaudn.findtalk.biz) **Sàn giao dịch bất động sản**- **Cafe xem phim 3D Đà Nẵng**
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#581)
Anh em nào sửa lại giúp em lisp này với .Đây là lisp liệt kê tọa độ góc ranh lệnh là TD1.Khi xuất tọa độ góc ranh ra bảng thì cột STT có thể sửa lại bắt đầu từ M1,M2,.....(lisp xuất ra là 1,2,...)và đổi cột Y thành X và ngược lại,và cho font chữ về ARIAL được ko ,em xin cảm ơn trước .và đây là lisp:
;; free lisp from cadviet.com
;; free lisp from cadviet.com
- Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Chuong trinh danh so va lap bang toa do ho so thua dat dia chinh
;;;Bang toa do tao thanh block, duoc dat ten theo so thu tu 1, 2, 3...
;;;Chap nhan cac doi tuong la Region, Polyline, Line va Arc khep kin
;;;Written by ssg and elleHCSC - January 2009 -
[www.cadviet.com](//www.cadviet.com)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;PUBLIC FUNCTIONS
;;;-------------------------------------------------------------------------------
(Defun DTR (x) (/ (* x pi) 180))
;;;change degree to radian, return REAL
;;;-------------------------------------------------------------------------------
(defun lineP (p0 a r / p1)
;;;Line polar: point, degree angle, radius
(setq p1 (polar p0 (dtr a) r))
(command "line" p0 p1 "")
)
;;;-------------------------------------------------------------------------------
(defun linePX (p0 x) (lineP p0 0 x))
;;;Horizontal line: length x, from p0
;;;-------------------------------------------------------------------------------
(defun linePY (p0 y) (lineP p0 90 y))
;;;Vertical line: length y, from p0
;;;-------------------------------------------------------------------------------
(defun getVert (e / i L)
;;;Return list of all vertex from pline e
(setq i 0
L nil
)
(vl-load-com)
(repeat (fix (+ (vlax-curve-getEndParam e) 1))
(setq L (append L (list (vlax-curve-getPointAtParam e i))))
(setq i (1+ i))
)
L
)
;;; First point of List rearrangement
(defun relist(pt0 Lst / i rt)
(setq i 0)
(foreach pt Lst
(if (equal pt0 pt 0.001)
(setq rt i))
(setq i (1+ i)))
(append (append (member (nth rt Lst) Lst)
(cdr (reverse (cdr (member (nth rt Lst) (reverse Lst))))))
(list (nth rt Lst)))
)
;;;New Layer
(defun newlayer(a b c d)
(if (not (tblsearch "layer" a))
(command "-layer" "n" a "c" b a "l" c a "lw" d a ""))
)
;;;-------------------------------------------------------------------------------
(defun wtxtMC (txt p h k)
;;;Write text Middle Center, specify text, point, height
(entmake (list (cons 0 "TEXT")
(cons 7 (getvar "textstyle"))
(cons 1 txt)
(cons 10 p)
(cons 11 p)
(cons 40 h)
(cons 72 1)
(cons 73 2)
(if k (cons 51 (DTR 18)) (cons 51 0))
)
)
)
;;;-------------------------------------------------------------------------------
(defun Collect (e / e2 SS)
;;;Selection set from e to entlast
(setq SS (ssadd))
(ssadd e SS)
(while (setq e2 (entnext e)) (ssadd e2 SS) (setq e e2))
SS
)
;;;-------------------------------------------------------------------------------
(defun Collect1 (e / ss)
;;;Selection set after e to entlast. If e nil, select all from fist entity of drawing.
(if (= e nil)
(setq ss (collect (entnext)))
(progn (setq ss (collect e)) (ssdel e ss))
)
)
;;;-------------------------------------------------------------------------------
;;;PRIVATE FUNCTIONS
;;;-------------------------------------------------------------------------------
(defun txt1 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
(defun txt2 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
p4 (polar p4 (* 0.5 pi) h)
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
;;;MAIN PROGRAM
;;;-------------------------------------------------------------------------------
(defun C:td1 (/ h p et p0 p00 p01 p02 pt pvL n j pv num txtL ss bn ntp)
(setvar "cmdecho" 0)
;;;New layer check
(newlayer "kichthuoc" 7 "continuous" "default")
(newlayer "stt" 1 "continuous" "default")
(newlayer "bangtd" 7 "continuous" "default")
;;;GET TEXT HEIGHT
(if (not h0) (setq h0 1))
(setq h (getreal (strcat "\nChon chieu cao text <" (rtos h0) ">:")))
(if (not h) (setq h h0) (setq h0 h))
;;;GET DECIMAL PRECISION
(if (not ntp0) (setq ntp0 2))
(setq ntp (getint (strcat "\nSo chu so thap phan <" (itoa ntp0) ">:")))
(if (not ntp) (setq ntp ntp0) (setq ntp0 ntp))
;;;GET CIRCLE RADIUS
(if (not cr0) (setq cr0 0.3))
(setq cr (getreal (strcat "\nNhap ban kinh vong tron <" (rtos cr0) ">:")))
(if cr (setq cr0 cr))
;;;PICK & BASE POINT
(initget "Y")
(setq save (getkword "\nBan co muon luu file? < Y / Enter for No >:"))
(setq oldos (getvar "osmode")
pdau (getpoint "\nPick diem dau tien (so thu tu = 1) :"))
(while pdau
(setq p (getpoint "\nPick 1 diem giua mien kin:")
pvL nil pvL1 nil)
(command "boundary" p "")
(setq et (entlast)
pvL1 (reverse (getvert et)))
(redraw et 3)
(setq p00 (getpoint "\nDiem dat Bang TDGR:"))
(command "erase" et "")
(setq p0 p00
p01 (polar p00 (* 1.5 pi) (* h 3))
pvL (relist pdau pvL1)
n (length pvL)
p02 (polar p01 (* 1.5 pi) (+ (* h 3) (* (1- n) h 2)))
)
(setvar "osmode" 0)
;;;HEADER
(setvar "CLAYER" "bangtd")
(linepx p0 (* 32 h))
(command "copy" "L" "" "m" p00 p01 p02 "")
(linepy p0 (- (distance p0 p02)))
(command "copy" "L" "" "m" p0
(list (+ (car p0) (* 4 h)) (cadr p0))
(list (+ (car p0) (* 14 h)) (cadr p0))
(list (+ (car p0) (* 24 h)) (cadr p0))
(list (+ (car p0) (* 32 h)) (cadr p0))
"")
(setq Lkqua nil)
(wtxtMC "BAÛNG TOÏA ÑOÄ GOÙC RANH"
(polar (polar p0 0 (* 16 h)) (* 0.5 pi) (* 2 h))
(* 1.2 h) nil)
(txt1 (setq Lkq (list "TT" "X (m)" "Y (m)" "S (m)")))
(setq Lkqua (append Lkqua (list Lkq)))
(setq p0 (polar p0 (* 1.5 pi) (* 3 h)))
;;;MAKE RECORDS
(setq j 0
pt nil)
(repeat n
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(if pt
(setq S (rtos (distance pt pv) 2 ntp))
(setq S "")
)
(setq
txtL (list num (rtos (car pv) 2 ntp) (rtos (cadr pv) 2 ntp) S)
Lkqua (append Lkqua (list txtL))
)
(txt2 txtL)
(setq p0 (polar p0 (* 1.5 pi) (* 2 h)))
(setq pt pv)
(setq j (1+ j))
(if (= j (- n 1)) (setq j 0))
)
;;;MAKE BLOCK
(setq ss (collect1 et))
(setq bn "1")
(while (tblsearch "block" bn)
(setq bn (itoa (1+ (atoi bn))))
)
(command "block" bn p00 ss "")
(command "insert" bn p00 "" "" "")
;;;WRITE POINT NAME
(setvar "CLAYER" "stt")
(setq j 0)
(repeat (1- n)
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(wtxtMC num (polar pv 0 h) h t)
(command "circle" pv cr0)
(command "hatch" "S" (setq vtron (entlast)) "")
(command "erase" vtron "")
(setq j (1+ j))
)
;;;GHI CANH THUA
(setvar "CLAYER" "kichthuoc")
(ghicanh)
;;;FINISH
(savef)
(setvar "osmode" oldos)
(setq pdau (getpoint "\nPick diem dau tien (so thu tu = 1) :"))
)
(setvar "cmdecho" 1)
(princ)
)
;;;-------------------------------------------------------------------------------
(defun savef()
(if save
(progn
(setq file (open (setq tenfile (strcat (getvar "dwgprefix")
(vl-filename-base (vl-string-right-trim "" (getvar "dwgname"))) ".txt")) "a"))
(foreach line Lkqua
(setq line1 "")
(foreach it line
(setq line1 (strcat line1 " " it)))
(write-line line1 file)
)
(close file)
(princ (strcat "\nDa luu thanh file " tenfile))
)
)
)
;;;PHAN BO SUNG CUA elleHCSC
;;;------------------------------------------------------------------------------------
(defun Text_canh_TCA (S p a)
;;;Entmake text S at p with angle A - Top Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 3)
)
)
)
)
;;;------------------------------------------------------------------------------------
(defun Text_canh_BCA (S p a)
;;;Entmake text S at p with angle A - Bottom Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 1)
)
)
)
)
;;;-------------------------------------------------------------------------------
(defun Ghicanh (/ i k p1 p2 dist rad x_mp y_mp mp)
(setq
i 0
k (1- (length pvL))
)
(repeat k
(setq
p1 (nth i pvL)
p2 (nth (+ i 1) pvL)
dist (distance p1 p2)
rad (angle p1 p2)
x_mp (* (+ (car p1) (car p2)) 0.5)
y_mp (* (+ (cadr p1) (cadr p2)) 0.5)
mp (list x_mp y_mp)
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(setq mp (polar mp (+ rad (* 0.5 pi)) (* 0.3 h)))
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(progn
(setq rad (+ rad pi))
(Text_canh_TCA (rtos dist 2 2) mp rad)
)
(Text_canh_BCA (rtos dist 2 2) mp rad)
)
(setq i (1+ i))
)
;; repeat k;
)
;;;--------------------------
Được sửa bởi ro88 ngày Sat Dec 11, 2010 10:01 am; sửa lần 1.
**ro88**
- Binh nhất
- 1 .Aeanoid
Posts : 19
Points : 34
Reputation : 2
Join date : 28/09/2010
Age : 29
Đến từ : nha trang
-
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#583)
Bạn xem thử nhéro88 đã viết:Anh em nào sửa lại giúp em lisp này với .Đây là lisp liệt kê tọa độ góc ranh lệnh là TD1.Khi xuất tọa độ góc ranh ra bảng thì cột STT có thể sửa lại bắt đầu từ M1,M2,.....(lisp xuất ra là 1,2,...)và đổi cột Y thành X và ngược lại,và cho font chữ về ARIAL được ko ,em xin cảm ơn trước .và đây là lisp:
;; free lisp from cadviet.com
- Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Chuong trinh danh so va lap bang toa do ho so thua dat dia chinh
;;;Bang toa do tao thanh block, duoc dat ten theo so thu tu 1, 2, 3...
;;;Chap nhan cac doi tuong la Region, Polyline, Line va Arc khep kin
;;;Written by ssg and elleHCSC - January 2009 -
[www.cadviet.com](//www.cadviet.com)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;PUBLIC FUNCTIONS
;;;-------------------------------------------------------------------------------
(Defun DTR (x) (/ (* x pi) 180))
;;;change degree to radian, return REAL
;;;-------------------------------------------------------------------------------
(defun lineP (p0 a r / p1)
;;;Line polar: point, degree angle, radius
(setq p1 (polar p0 (dtr a) r))
(command "line" p0 p1 "")
)
;;;-------------------------------------------------------------------------------
(defun linePX (p0 x) (lineP p0 0 x))
;;;Horizontal line: length x, from p0
;;;-------------------------------------------------------------------------------
(defun linePY (p0 y) (lineP p0 90 y))
;;;Vertical line: length y, from p0
;;;-------------------------------------------------------------------------------
(defun getVert (e / i L)
;;;Return list of all vertex from pline e
(setq i 0
L nil
)
(vl-load-com)
(repeat (fix (+ (vlax-curve-getEndParam e) 1))
(setq L (append L (list (vlax-curve-getPointAtParam e i))))
(setq i (1+ i))
)
L
)
;;; First point of List rearrangement
(defun relist(pt0 Lst / i rt)
(setq i 0)
(foreach pt Lst
(if (equal pt0 pt 0.001)
(setq rt i))
(setq i (1+ i)))
(append (append (member (nth rt Lst) Lst)
(cdr (reverse (cdr (member (nth rt Lst) (reverse Lst))))))
(list (nth rt Lst)))
)
;;;New Layer
(defun newlayer(a b c d)
(if (not (tblsearch "layer" a))
(command "-layer" "n" a "c" b a "l" c a "lw" d a ""))
)
;;;-------------------------------------------------------------------------------
(defun wtxtMC (txt p h k)
;;;Write text Middle Center, specify text, point, height
(entmake (list (cons 0 "TEXT")
(cons 7 (getvar "textstyle"))
(cons 1 txt)
(cons 10 p)
(cons 11 p)
(cons 40 h)
(cons 72 1)
(cons 73 2)
(if k (cons 51 (DTR 18)) (cons 51 0))
)
)
)
;;;-------------------------------------------------------------------------------
(defun Collect (e / e2 SS)
;;;Selection set from e to entlast
(setq SS (ssadd))
(ssadd e SS)
(while (setq e2 (entnext e)) (ssadd e2 SS) (setq e e2))
SS
)
;;;-------------------------------------------------------------------------------
(defun Collect1 (e / ss)
;;;Selection set after e to entlast. If e nil, select all from fist entity of drawing.
(if (= e nil)
(setq ss (collect (entnext)))
(progn (setq ss (collect e)) (ssdel e ss))
)
)
;;;-------------------------------------------------------------------------------
;;;PRIVATE FUNCTIONS
;;;-------------------------------------------------------------------------------
(defun txt1 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
(defun txt2 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
p4 (polar p4 (* 0.5 pi) h)
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
;;;MAIN PROGRAM
;;;-------------------------------------------------------------------------------
(defun C:td1 (/ h p et p0 p00 p01 p02 pt pvL n j pv num txtL ss bn ntp)
(setvar "cmdecho" 0)
;;;New layer check
(newlayer "kichthuoc" 7 "continuous" "default")
(newlayer "stt" 1 "continuous" "default")
(newlayer "bangtd" 7 "continuous" "default")
;;;GET TEXT HEIGHT
(if (not h0) (setq h0 1))
(setq h (getreal (strcat "\nChon chieu cao text <" (rtos h0) ">:")))
(if (not h) (setq h h0) (setq h0 h))
;;;GET DECIMAL PRECISION
(if (not ntp0) (setq ntp0 2))
(setq ntp (getint (strcat "\nSo chu so thap phan <" (itoa ntp0) ">:")))
(if (not ntp) (setq ntp ntp0) (setq ntp0 ntp))
;;;GET CIRCLE RADIUS
(if (not cr0) (setq cr0 0.3))
(setq cr (getreal (strcat "\nNhap ban kinh vong tron <" (rtos cr0) ">:")))
(if cr (setq cr0 cr))
;;;PICK & BASE POINT
(initget "Y")
(setq save (getkword "\nBan co muon luu file? < Y / Enter for No >:"))
(setq oldos (getvar "osmode")
pdau (getpoint "\nPick diem dau tien (so thu tu = 1) :"))
(while pdau
(setq p (getpoint "\nPick 1 diem giua mien kin:")
pvL nil pvL1 nil)
(command "boundary" p "")
(setq et (entlast)
pvL1 (reverse (getvert et)))
(redraw et 3)
(setq p00 (getpoint "\nDiem dat Bang TDGR:"))
(command "erase" et "")
(setq p0 p00
p01 (polar p00 (* 1.5 pi) (* h 3))
pvL (relist pdau pvL1)
n (length pvL)
p02 (polar p01 (* 1.5 pi) (+ (* h 3) (* (1- n) h 2)))
)
(setvar "osmode" 0)
;;;HEADER
(setvar "CLAYER" "bangtd")
(linepx p0 (* 32 h))
(command "copy" "L" "" "m" p00 p01 p02 "")
(linepy p0 (- (distance p0 p02)))
(command "copy" "L" "" "m" p0
(list (+ (car p0) (* 4 h)) (cadr p0))
(list (+ (car p0) (* 14 h)) (cadr p0))
(list (+ (car p0) (* 24 h)) (cadr p0))
(list (+ (car p0) (* 32 h)) (cadr p0))
"")
(setq Lkqua nil)
(wtxtMC "BAÛNG TOÏA ÑOÄ GOÙC RANH"
(polar (polar p0 0 (* 16 h)) (* 0.5 pi) (* 2 h))
(* 1.2 h) nil)
(txt1 (setq Lkq (list "TT" "X (m)" "Y (m)" "S (m)")))
(setq Lkqua (append Lkqua (list Lkq)))
(setq p0 (polar p0 (* 1.5 pi) (* 3 h)))
;;;MAKE RECORDS
(setq j 0
pt nil)
(repeat n
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(if pt
(setq S (rtos (distance pt pv) 2 ntp))
(setq S "")
)
(setq
txtL (list (stracat "M" num) (rtos (cadr pv) 2 ntp) (rtos (car pv) 2 ntp) S) ;;; Thay doi o vi tri nay
Lkqua (append Lkqua (list txtL))
)
(txt2 txtL)
(setq p0 (polar p0 (* 1.5 pi) (* 2 h)))
(setq pt pv)
(setq j (1+ j))
(if (= j (- n 1)) (setq j 0))
)
;;;MAKE BLOCK
(setq ss (collect1 et))
(setq bn "1")
(while (tblsearch "block" bn)
(setq bn (itoa (1+ (atoi bn))))
)
(command "block" bn p00 ss "")
(command "insert" bn p00 "" "" "")
;;;WRITE POINT NAME
(setvar "CLAYER" "stt")
(setq j 0)
(repeat (1- n)
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(wtxtMC num (polar pv 0 h) h t)
(command "circle" pv cr0)
(command "hatch" "S" (setq vtron (entlast)) "")
(command "erase" vtron "")
(setq j (1+ j))
)
;;;GHI CANH THUA
(setvar "CLAYER" "kichthuoc")
(ghicanh)
;;;FINISH
(savef)
(setvar "osmode" oldos)
(setq pdau (getpoint "\nPick diem dau tien (so thu tu = 1) :"))
)
(setvar "cmdecho" 1)
(princ)
)
;;;-------------------------------------------------------------------------------
(defun savef()
(if save
(progn
(setq file (open (setq tenfile (strcat (getvar "dwgprefix")
(vl-filename-base (vl-string-right-trim "" (getvar "dwgname"))) ".txt")) "a"))
(foreach line Lkqua
(setq line1 "")
(foreach it line
(setq line1 (strcat line1 " " it)))
(write-line line1 file)
)
(close file)
(princ (strcat "\nDa luu thanh file " tenfile))
)
)
)
;;;PHAN BO SUNG CUA elleHCSC
;;;------------------------------------------------------------------------------------
(defun Text_canh_TCA (S p a)
;;;Entmake text S at p with angle A - Top Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 3)
)
)
)
)
;;;------------------------------------------------------------------------------------
(defun Text_canh_BCA (S p a)
;;;Entmake text S at p with angle A - Bottom Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 1)
)
)
)
)
;;;-------------------------------------------------------------------------------
(defun Ghicanh (/ i k p1 p2 dist rad x_mp y_mp mp)
(setq
i 0
k (1- (length pvL))
)
(repeat k
(setq
p1 (nth i pvL)
p2 (nth (+ i 1) pvL)
dist (distance p1 p2)
rad (angle p1 p2)
x_mp (* (+ (car p1) (car p2)) 0.5)
y_mp (* (+ (cadr p1) (cadr p2)) 0.5)
mp (list x_mp y_mp)
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(setq mp (polar mp (+ rad (* 0.5 pi)) (* 0.3 h)))
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(progn
(setq rad (+ rad pi))
(Text_canh_TCA (rtos dist 2 2) mp rad)
)
(Text_canh_BCA (rtos dist 2 2) mp rad)
)
(setq i (1+ i))
)
;; repeat k;
)
;;;--------------------------
![](http://illiweb.com/fa/pbucket.gif)
**Chung tay xây dựng nền tảng vững chắc**- [Cầu đường Online](http://nguyentaudn.findtalk.biz) **Sàn giao dịch bất động sản**- **Cafe xem phim 3D Đà Nẵng**
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#584)
vẫn như cũ anh ơi.Mà khi xuất ra sao ko có tọa độ mà cũng ko phải là block cũng ko có cạnh luôn.anh xem lại dùm nha.
**ro88**
- Binh nhất
- 1 .Aeanoid
Posts : 19
Points : 34
Reputation : 2
Join date : 28/09/2010
Age : 29
Đến từ : nha trang
-
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#588)
Mình chỉ sửa nội dung theo ý bạn thôi, còn xuất hiện lỗi khi thực hiện thì do file gốc bạn đưa lên đã bị lỗi rồi màro88 đã viết:
vẫn như cũ anh ơi.Mà khi xuất ra sao ko có tọa độ mà cũng ko phải là block cũng ko có cạnh luôn.anh xem lại dùm nha.
Bạn post lại file gốc (nhớ test kỹ trước khi upload lên nha) mình sẽ xem lại cho đỡ tốn thời gian.
Thân
![](http://illiweb.com/fa/pbucket.gif)
**Chung tay xây dựng nền tảng vững chắc**- [Cầu đường Online](http://nguyentaudn.findtalk.biz) **Sàn giao dịch bất động sản**- **Cafe xem phim 3D Đà Nẵng**
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#589)
thanks anh nha.để em gửi lại lisp.lisp này em đang dùng vẫn chạy tốt.anh text thử đi rồi sử dùm em nhé
;; free lisp from cadviet.com
;; free lisp from cadviet.com
- Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Chuong trinh danh so va lap bang toa do ho so thua dat dia chinh
;;;Bang toa do tao thanh block, duoc dat ten theo so thu tu 1, 2, 3...
;;;Chap nhan cac doi tuong la Region, Polyline, Line va Arc khep kin
;;;Written by ssg and elleHCSC - January 2009 -
[www.cadviet.com](//www.cadviet.com)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;PUBLIC FUNCTIONS
;;;-------------------------------------------------------------------------------
(Defun DTR (x) (/ (* x pi) 180))
;;;change degree to radian, return REAL
;;;-------------------------------------------------------------------------------
(defun lineP (p0 a r / p1)
;;;Line polar: point, degree angle, radius
(setq p1 (polar p0 (dtr a) r))
(command "line" p0 p1 "")
)
;;;-------------------------------------------------------------------------------
(defun linePX (p0 x) (lineP p0 0 x))
;;;Horizontal line: length x, from p0
;;;-------------------------------------------------------------------------------
(defun linePY (p0 y) (lineP p0 90 y))
;;;Vertical line: length y, from p0
;;;-------------------------------------------------------------------------------
(defun getVert (e / i L)
;;;Return list of all vertex from pline e
(setq i 0
L nil
)
(vl-load-com)
(repeat (fix (+ (vlax-curve-getEndParam e) 1))
(setq L (append L (list (vlax-curve-getPointAtParam e i))))
(setq i (1+ i))
)
L
)
;;; First point of List rearrangement
(defun relist(pt0 Lst / i rt)
(setq i 0)
(foreach pt Lst
(if (equal pt0 pt 0.001)
(setq rt i))
(setq i (1+ i)))
(append (append (member (nth rt Lst) Lst)
(cdr (reverse (cdr (member (nth rt Lst) (reverse Lst))))))
(list (nth rt Lst)))
)
;;;New Layer
(defun newlayer(a b c d)
(if (not (tblsearch "layer" a))
(command "-layer" "n" a "c" b a "l" c a "lw" d a ""))
)
;;;-------------------------------------------------------------------------------
(defun wtxtMC (txt p h k)
;;;Write text Middle Center, specify text, point, height
(entmake (list (cons 0 "TEXT")
(cons 7 (getvar "textstyle"))
(cons 1 txt)
(cons 10 p)
(cons 11 p)
(cons 40 h)
(cons 72 1)
(cons 73 2)
(if k (cons 51 (DTR 18)) (cons 51 0))
)
)
)
;;;-------------------------------------------------------------------------------
(defun Collect (e / e2 SS)
;;;Selection set from e to entlast
(setq SS (ssadd))
(ssadd e SS)
(while (setq e2 (entnext e)) (ssadd e2 SS) (setq e e2))
SS
)
;;;-------------------------------------------------------------------------------
(defun Collect1 (e / ss)
;;;Selection set after e to entlast. If e nil, select all from fist entity of drawing.
(if (= e nil)
(setq ss (collect (entnext)))
(progn (setq ss (collect e)) (ssdel e ss))
)
)
;;;-------------------------------------------------------------------------------
;;;PRIVATE FUNCTIONS
;;;-------------------------------------------------------------------------------
(defun txt1 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
(defun txt2 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
p4 (polar p4 (* 0.5 pi) h)
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
;;;MAIN PROGRAM
;;;-------------------------------------------------------------------------------
(defun C:td1 (/ h p et p0 p00 p01 p02 pt pvL n j pv num txtL ss bn ntp)
(setvar "cmdecho" 0)
;;;New layer check
(newlayer "kichthuoc" 7 "continuous" "default")
(newlayer "stt" 1 "continuous" "default")
(newlayer "bangtd" 7 "continuous" "default")
;;;GET TEXT HEIGHT
(if (not h0) (setq h0 1))
(setq h (getreal (strcat "\nChon chieu cao text <" (rtos h0) ">:")))
(if (not h) (setq h h0) (setq h0 h))
;;;GET DECIMAL PRECISION
(if (not ntp0) (setq ntp0 2))
(setq ntp (getint (strcat "\nSo chu so thap phan <" (itoa ntp0) ">:")))
(if (not ntp) (setq ntp ntp0) (setq ntp0 ntp))
;;;GET CIRCLE RADIUS
(if (not cr0) (setq cr0 0.3))
(setq cr (getreal (strcat "\nNhap ban kinh vong tron <" (rtos cr0) ">:")))
(if cr (setq cr0 cr))
;;;PICK & BASE POINT
(initget "Y")
(setq save (getkword "\nBan co muon luu file? < Y / Enter for No >:"))
(setq oldos (getvar "osmode")
pdau (getpoint "\nPick diem dau tien (so thu tu = M1) :"))
(while pdau
(setq p (getpoint "\nPick 1 diem giua mien kin:")
pvL nil pvL1 nil)
(command "boundary" p "")
(setq et (entlast)
pvL1 (reverse (getvert et)))
(redraw et 3)
(setq p00 (getpoint "\nDiem dat Bang TDGR:"))
(command "erase" et "")
(setq p0 p00
p01 (polar p00 (* 1.5 pi) (* h 3))
pvL (relist pdau pvL1)
n (length pvL)
p02 (polar p01 (* 1.5 pi) (+ (* h 3) (* (1- n) h 2)))
)
(setvar "osmode" 0)
;;;HEADER
(setvar "CLAYER" "bangtd")
(linepx p0 (* 32 h))
(command "copy" "L" "" "m" p00 p01 p02 "")
(linepy p0 (- (distance p0 p02)))
(command "copy" "L" "" "m" p0
(list (+ (car p0) (* 4 h)) (cadr p0))
(list (+ (car p0) (* 14 h)) (cadr p0))
(list (+ (car p0) (* 24 h)) (cadr p0))
(list (+ (car p0) (* 32 h)) (cadr p0))
"")
(setq Lkqua nil)
(wtxtMC "BAÛNG TOÏA ÑOÄ GOÙC RANH"
(polar (polar p0 0 (* 16 h)) (* 0.5 pi) (* 2 h))
(* 1.2 h) nil)
(txt1 (setq Lkq (list "TT" "X (m)" "Y (m)" "S (m)")))
(setq Lkqua (append Lkqua (list Lkq)))
(setq p0 (polar p0 (* 1.5 pi) (* 3 h)))
;;;MAKE RECORDS
(setq j 0
pt nil)
(repeat n
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(if pt
(setq S (rtos (distance pt pv) 2 ntp))
(setq S "")
)
(setq
txtL (list num (rtos (car pv) 2 ntp) (rtos (cadr pv) 2 ntp) S)
Lkqua (append Lkqua (list txtL))
)
(txt2 txtL)
(setq p0 (polar p0 (* 1.5 pi) (* 2 h)))
(setq pt pv)
(setq j (1+ j))
(if (= j (- n 1)) (setq j 0))
)
;;;MAKE BLOCK
(setq ss (collect1 et))
(setq bn "1")
(while (tblsearch "block" bn)
(setq bn (itoa (1+ (atoi bn))))
)
(command "block" bn p00 ss "")
(command "insert" bn p00 "" "" "")
;;;WRITE POINT NAME
(setvar "CLAYER" "stt")
(setq j 0)
(repeat (1- n)
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(wtxtMC num (polar pv 0 h) h t)
(command "circle" pv cr0)
(command "hatch" "S" (setq vtron (entlast)) "")
(command "erase" vtron "")
(setq j (1+ j))
)
;;;GHI CANH THUA
(setvar "CLAYER" "kichthuoc")
(ghicanh)
;;;FINISH
(savef)
(setvar "osmode" oldos)
(setq pdau (getpoint "\nPick diem dau tien (so thu tu =M 1) :"))
)
(setvar "cmdecho" 1)
(princ)
)
;;;-------------------------------------------------------------------------------
(defun savef()
(if save
(progn
(setq file (open (setq tenfile (strcat (getvar "dwgprefix")
(vl-filename-base (vl-string-right-trim "" (getvar "dwgname"))) ".txt")) "a"))
(foreach line Lkqua
(setq line1 "")
(foreach it line
(setq line1 (strcat line1 " " it)))
(write-line line1 file)
)
(close file)
(princ (strcat "\nDa luu thanh file " tenfile))
)
)
)
;;;PHAN BO SUNG CUA elleHCSC
;;;------------------------------------------------------------------------------------
(defun Text_canh_TCA (S p a)
;;;Entmake text S at p with angle A - Top Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 3)
)
)
)
)
;;;------------------------------------------------------------------------------------
(defun Text_canh_BCA (S p a)
;;;Entmake text S at p with angle A - Bottom Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 1)
)
)
)
)
;;;-------------------------------------------------------------------------------
(defun Ghicanh (/ i k p1 p2 dist rad x_mp y_mp mp)
(setq
i 0
k (1- (length pvL))
)
(repeat k
(setq
p1 (nth i pvL)
p2 (nth (+ i 1) pvL)
dist (distance p1 p2)
rad (angle p1 p2)
x_mp (* (+ (car p1) (car p2)) 0.5)
y_mp (* (+ (cadr p1) (cadr p2)) 0.5)
mp (list x_mp y_mp)
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(setq mp (polar mp (+ rad (* 0.5 pi)) (* 0.3 h)))
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(progn
(setq rad (+ rad pi))
(Text_canh_TCA (rtos dist 2 2) mp rad)
)
(Text_canh_BCA (rtos dist 2 2) mp rad)
)
(setq i (1+ i))
)
;; repeat k;
)
;;;--------------------------
**ro88**
- Binh nhất
- 1 .Aeanoid
Posts : 19
Points : 34
Reputation : 2
Join date : 28/09/2010
Age : 29
Đến từ : nha trang
-
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#590)
Admin đã viết:Cái này thì đơn giản thôi qkhs.live , bạn có thể tuỳ chỉnh đoạn code sau theo ý thích nhé.
Tác dụng: Xác lập chế độ Osnaps (bắt điểm tự động)
- Code:
(defun c:f3 ()
(setvar "osmode" 131)
(princ)
)
0= 0
1= điểm cuối
2= điểm giữa
4= tâm
8= nút
16= cung 1/4
32= giao điểm
64= điểm chèn
128= vuông góc
256= gần nhất
512= nhanh
Như vậy bạn thấy cách quản lý biến theo các bit hệ thống, nếu bạn muốn hoạt động đồng thời nhiều hơn 1 biến thì lấy tổng của nó nhé, ví dụ: bạn muốn chọn điểm cuối, điểm giữa, vuông góc thì bằng 131 hoặc (+ 1 2 128)
Cảm ơn Admin nhiều nhé, mình không biết lập trình nên vẫn chẳng hiểu gì cả.
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#591)
Đoạn code bạn up mình vẫn dùng bị lỗi, bạn có thể gửi email file lisp cho mình xem nhé. Minh không có nhiều thời gian để nghiên cứu lại từ đầu, thông cảm.ro88 đã viết:thanks anh nha.để em gửi lại lisp.lisp này em đang dùng vẫn chạy tốt.anh text thử đi rồi sử dùm em nhé
;; free lisp from cadviet.com
@ro88: lần sau bạn up code thì để trong thẻ [code] nhé
- Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Chuong trinh danh so va lap bang toa do ho so thua dat dia chinh
;;;Bang toa do tao thanh block, duoc dat ten theo so thu tu 1, 2, 3...
;;;Chap nhan cac doi tuong la Region, Polyline, Line va Arc khep kin
;;;Written by ssg and elleHCSC - January 2009 -
[www.cadviet.com]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;PUBLIC FUNCTIONS
;;;-------------------------------------------------------------------------------
(Defun DTR (x) (/ (* x pi) 180))
;;;change degree to radian, return REAL
;;;-------------------------------------------------------------------------------
(defun lineP (p0 a r / p1)
;;;Line polar: point, degree angle, radius
(setq p1 (polar p0 (dtr a) r))
(command "line" p0 p1 "")
)
;;;-------------------------------------------------------------------------------
(defun linePX (p0 x) (lineP p0 0 x))
;;;Horizontal line: length x, from p0
;;;-------------------------------------------------------------------------------
(defun linePY (p0 y) (lineP p0 90 y))
;;;Vertical line: length y, from p0
;;;-------------------------------------------------------------------------------
(defun getVert (e / i L)
;;;Return list of all vertex from pline e
(setq i 0
L nil
)
(vl-load-com)
(repeat (fix (+ (vlax-curve-getEndParam e) 1))
(setq L (append L (list (vlax-curve-getPointAtParam e i))))
(setq i (1+ i))
)
L
)
;;; First point of List rearrangement
(defun relist(pt0 Lst / i rt)
(setq i 0)
(foreach pt Lst
(if (equal pt0 pt 0.001)
(setq rt i))
(setq i (1+ i)))
(append (append (member (nth rt Lst) Lst)
(cdr (reverse (cdr (member (nth rt Lst) (reverse Lst))))))
(list (nth rt Lst)))
)
;;;New Layer
(defun newlayer(a b c d)
(if (not (tblsearch "layer" a))
(command "-layer" "n" a "c" b a "l" c a "lw" d a ""))
)
;;;-------------------------------------------------------------------------------
(defun wtxtMC (txt p h k)
;;;Write text Middle Center, specify text, point, height
(entmake (list (cons 0 "TEXT")
(cons 7 (getvar "textstyle"))
(cons 1 txt)
(cons 10 p)
(cons 11 p)
(cons 40 h)
(cons 72 1)
(cons 73 2)
(if k (cons 51 (DTR 18)) (cons 51 0))
)
)
)
;;;-------------------------------------------------------------------------------
(defun Collect (e / e2 SS)
;;;Selection set from e to entlast
(setq SS (ssadd))
(ssadd e SS)
(while (setq e2 (entnext e)) (ssadd e2 SS) (setq e e2))
SS
)
;;;-------------------------------------------------------------------------------
(defun Collect1 (e / ss)
;;;Selection set after e to entlast. If e nil, select all from fist entity of drawing.
(if (= e nil)
(setq ss (collect (entnext)))
(progn (setq ss (collect e)) (ssdel e ss))
)
)
;;;-------------------------------------------------------------------------------
;;;PRIVATE FUNCTIONS
;;;-------------------------------------------------------------------------------
(defun txt1 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
(defun txt2 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
(setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
p4 (polar p4 (* 0.5 pi) h)
pL (list p1 p2 p3 p4)
i 0
)
(repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
)
)
;;;-------------------------------------------------------------------------------
;;;MAIN PROGRAM
;;;-------------------------------------------------------------------------------
(defun C:td1 (/ h p et p0 p00 p01 p02 pt pvL n j pv num txtL ss bn ntp)
(setvar "cmdecho" 0)
;;;New layer check
(newlayer "kichthuoc" 7 "continuous" "default")
(newlayer "stt" 1 "continuous" "default")
(newlayer "bangtd" 7 "continuous" "default")
;;;GET TEXT HEIGHT
(if (not h0) (setq h0 1))
(setq h (getreal (strcat "\nChon chieu cao text <" (rtos h0) ">:")))
(if (not h) (setq h h0) (setq h0 h))
;;;GET DECIMAL PRECISION
(if (not ntp0) (setq ntp0 2))
(setq ntp (getint (strcat "\nSo chu so thap phan <" (itoa ntp0) ">:")))
(if (not ntp) (setq ntp ntp0) (setq ntp0 ntp))
;;;GET CIRCLE RADIUS
(if (not cr0) (setq cr0 0.3))
(setq cr (getreal (strcat "\nNhap ban kinh vong tron <" (rtos cr0) ">:")))
(if cr (setq cr0 cr))
;;;PICK & BASE POINT
(initget "Y")
(setq save (getkword "\nBan co muon luu file? < Y / Enter for No >:"))
(setq oldos (getvar "osmode")
pdau (getpoint "\nPick diem dau tien (so thu tu = M1) :"))
(while pdau
(setq p (getpoint "\nPick 1 diem giua mien kin:")
pvL nil pvL1 nil)
(command "boundary" p "")
(setq et (entlast)
pvL1 (reverse (getvert et)))
(redraw et 3)
(setq p00 (getpoint "\nDiem dat Bang TDGR:"))
(command "erase" et "")
(setq p0 p00
p01 (polar p00 (* 1.5 pi) (* h 3))
pvL (relist pdau pvL1)
n (length pvL)
p02 (polar p01 (* 1.5 pi) (+ (* h 3) (* (1- n) h 2)))
)
(setvar "osmode" 0)
;;;HEADER
(setvar "CLAYER" "bangtd")
(linepx p0 (* 32 h))
(command "copy" "L" "" "m" p00 p01 p02 "")
(linepy p0 (- (distance p0 p02)))
(command "copy" "L" "" "m" p0
(list (+ (car p0) (* 4 h)) (cadr p0))
(list (+ (car p0) (* 14 h)) (cadr p0))
(list (+ (car p0) (* 24 h)) (cadr p0))
(list (+ (car p0) (* 32 h)) (cadr p0))
"")
(setq Lkqua nil)
(wtxtMC "BAÛNG TOÏA ÑOÄ GOÙC RANH"
(polar (polar p0 0 (* 16 h)) (* 0.5 pi) (* 2 h))
(* 1.2 h) nil)
(txt1 (setq Lkq (list "TT" "X (m)" "Y (m)" "S (m)")))
(setq Lkqua (append Lkqua (list Lkq)))
(setq p0 (polar p0 (* 1.5 pi) (* 3 h)))
;;;MAKE RECORDS
(setq j 0
pt nil)
(repeat n
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(if pt
(setq S (rtos (distance pt pv) 2 ntp))
(setq S "")
)
(setq
txtL (list num (rtos (car pv) 2 ntp) (rtos (cadr pv) 2 ntp) S)
Lkqua (append Lkqua (list txtL))
)
(txt2 txtL)
(setq p0 (polar p0 (* 1.5 pi) (* 2 h)))
(setq pt pv)
(setq j (1+ j))
(if (= j (- n 1)) (setq j 0))
)
;;;MAKE BLOCK
(setq ss (collect1 et))
(setq bn "1")
(while (tblsearch "block" bn)
(setq bn (itoa (1+ (atoi bn))))
)
(command "block" bn p00 ss "")
(command "insert" bn p00 "" "" "")
;;;WRITE POINT NAME
(setvar "CLAYER" "stt")
(setq j 0)
(repeat (1- n)
(setq
pv (nth j pvL)
num (itoa (1+ j))
)
(wtxtMC num (polar pv 0 h) h t)
(command "circle" pv cr0)
(command "hatch" "S" (setq vtron (entlast)) "")
(command "erase" vtron "")
(setq j (1+ j))
)
;;;GHI CANH THUA
(setvar "CLAYER" "kichthuoc")
(ghicanh)
;;;FINISH
(savef)
(setvar "osmode" oldos)
(setq pdau (getpoint "\nPick diem dau tien (so thu tu =M 1) :"))
)
(setvar "cmdecho" 1)
(princ)
)
;;;-------------------------------------------------------------------------------
(defun savef()
(if save
(progn
(setq file (open (setq tenfile (strcat (getvar "dwgprefix")
(vl-filename-base (vl-string-right-trim "" (getvar "dwgname"))) ".txt")) "a"))
(foreach line Lkqua
(setq line1 "")
(foreach it line
(setq line1 (strcat line1 " " it)))
(write-line line1 file)
)
(close file)
(princ (strcat "\nDa luu thanh file " tenfile))
)
)
)
;;;PHAN BO SUNG CUA elleHCSC
;;;------------------------------------------------------------------------------------
(defun Text_canh_TCA (S p a)
;;;Entmake text S at p with angle A - Top Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 3)
)
)
)
)
;;;------------------------------------------------------------------------------------
(defun Text_canh_BCA (S p a)
;;;Entmake text S at p with angle A - Bottom Center
(if (/= p nil)
(entmake (list
(cons 0 "TEXT")
(cons 62 5)
(cons 10 p)
(cons 40 h)
(cons 1 S)
(cons 50 a)
(cons 41 0.7)
(cons 7 (getvar "textstyle"))
(cons 72 1)
(cons 11 p)
(cons 73 1)
)
)
)
)
;;;-------------------------------------------------------------------------------
(defun Ghicanh (/ i k p1 p2 dist rad x_mp y_mp mp)
(setq
i 0
k (1- (length pvL))
)
(repeat k
(setq
p1 (nth i pvL)
p2 (nth (+ i 1) pvL)
dist (distance p1 p2)
rad (angle p1 p2)
x_mp (* (+ (car p1) (car p2)) 0.5)
y_mp (* (+ (cadr p1) (cadr p2)) 0.5)
mp (list x_mp y_mp)
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(setq mp (polar mp (+ rad (* 0.5 pi)) (* 0.3 h)))
)
(if (and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
(progn
(setq rad (+ rad pi))
(Text_canh_TCA (rtos dist 2 2) mp rad)
)
(Text_canh_BCA (rtos dist 2 2) mp rad)
)
(setq i (1+ i))
)
;; repeat k;
)
;;;--------------------------
![](http://illiweb.com/fa/pbucket.gif)
**Chung tay xây dựng nền tảng vững chắc**- [Cầu đường Online](http://nguyentaudn.findtalk.biz) **Sàn giao dịch bất động sản**- **Cafe xem phim 3D Đà Nẵng**
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#592)
email của anh là gì vậy .ah mà anh nói nó bị lỗi gì vậy ?
**ro88**
- Binh nhất
- 1 .Aeanoid
Posts : 19
Points : 34
Reputation : 2
Join date : 28/09/2010
Age : 29
Đến từ : nha trang
-
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#593)
ro88 đã viết:email của anh là gì vậy .ah mà anh nói nó bị lỗi gì vậy ?
[nguyentaudn@gmail.com](mailto:nguyentaudn@gmail.com)- lỗi không xuất được kết quả, mình chưa check lại hết được ![](http://illiweb.com/fa/pbucket.gif)
**Chung tay xây dựng nền tảng vững chắc**- [Cầu đường Online](http://nguyentaudn.findtalk.biz) **Sàn giao dịch bất động sản**- **Cafe xem phim 3D Đà Nẵng**
[Re: CÀI LISP TRONG CAD 2007](/t217-topic#1145)
Ăn nói tục tĩu không có văn hóa trên diễn đàn. Đề nghị Admin xóa nick
**cauduongqng01**
- Binh nhì
- Posts : 10
Points : 14
Reputation : 0
Join date : 07/03/2011
-
**Sponsored content**
-
[Similar topics](javascript:ShowHideLayer('ptrafic_open','ptrafic_close');) ![ -](https://illiweb.com/fa/empty.gif)
![ -](https://illiweb.com/fa/empty.gif)
Trang
**1**trong tổng số **1**trang
Bạn
**Permissions in this forum:** **không có quyền**trả lời bài viết
» Khai giảng lớp bảo quản, tu bổ phục hồi di tích tại Hà Nội
» Học chứng chỉ quản lý, vận hành nhà chung cư ở đâu tốt nhất
» Đối tượng thi sát hạch chứng chỉ hành nghề giám sát, thiết kế hạng 1
» Địa điểm làm chứng chỉ năng lực xây dựng nhanh nhất
» Học nhanh chứng chỉ quản trị sản xuất tại Đà Nẵng ngày 14-7
» Địa điểm học nhanh chứng chỉ an toàn hóa chất theo TT 36
» Đăng tải thông tin năng lực nhà thầu giá rẻ
» Tại sao cần làm chứng chỉ năng lực xây dựng?
» Lịch thi sát hạch chứng chỉ hành nghề giám sát, khảo sát, thiết kế tháng 6
» Đăng tải hồ sơ năng lực xây dựng
» Thói quen thay dầu máy xe ô tô không đúng cách là nguyên nhân khiến động cơ ôtô nhanh xuống cấp
» Chăm sóc bảo dưỡng bảo trì ôtô đúng cách
» Khi nào cần thay nhớt động cơ xe hơi - ôtô
» Tại sao phải chăm sóc thay dầu hộp số ô tô định kỳ

P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"

Cache-Control: no-cache

Vary: User-Agent


markdown:
Nội thất Khánh An chuyên cung cấp các loại bếp điện từ, bếp hồng ngoại, bếp ga âm, máy hút mùi, máy sấy bát chính hãng giá rẻ nhất tại hà nội.
0973.898.774
Giao hàng
tận nhà
Miễn phí
vận chuyển 30km
Bảo hành
tận nơi
Hướng Dẫn Sử Dụng Bếp Từ Đúng Cách :
Nội Thất Khánh An
6,500,000 ₫ 5,000,000 ₫
Giá: Liên hệ
5,000,000 ₫ 4,200,000 ₫
3,500,000 ₫ 2,500,000 ₫
3,500,000 ₫ 2,600,000 ₫
3,700,000 ₫ 2,600,000 ₫
5,500,000 ₫ 4,700,000 ₫
5,400,000 ₫ 4,300,000 ₫

WARC-Type: response

Content-Type: application/http; msgtype=response

WARC-Truncated: length

WARC-Identified-Payload-Type: text/html

Server: LiteSpeed

Connection: close

Accept-Ranges: bytes

Vary: Accept-Encoding

Content-Type: text/html; charset=UTF-8


markdown:
[Trang chủ](/)> [Chân cầu thang kính - Phụ kiện cầu thang kính](http://noithatphuthai.vn/Chan-cau-thang-kinh.html)> Chân CT kính PT10 ![ Chân CT kính PT10](http://noithatphuthai.vn/wp-content/uploads/2014/07/CHAN CTK PT10.jpg)
# Chân CT kính PT10
### Thông tin sản phẩm
**Khi quý khách có nhu cầu về** [sàn gỗ](/San-go.html), [cầu thang](/cau-thang.html), [tủ bếp](/tu-bep.html)hay đơn giản chỉ cần tìm hiểu thông tiên, gọi cho chúng tôi 0983.312416 –0943.452907. Chúng tôi tư vấn miễn phí và có thể mang mẫu đến tận nhà cho quý khách. Hãy gọi ngay cho chúng tôi để có giá tốt nhất hoặc tham khảo tại [http://noithatphuthai.vn/](/) **“Bạn trao cho chúng tôi niềm tin để chúng tôi có cơ hội phục vụ bạn”**

WARC-Identified-Payload-Type: application/xhtml+xml

Server: Apache

Connection: Upgrade, close


markdown:
Hotline: 091.352.8198
Giữa cái lạnh buốt của chiều tối mùa đông, hôm 11/12, đại diện người dân của 16 xóm của xã Tân Cương, TP Thái Nguyên vẫn cắt cử nhau thúc trực, canh giữ những xe rác thải công nghiệp, quyết tâm không cho bất cứ xe nào rời sân trụ sở UBND xã.
Họ đang chờ cam kết của chính quyền và HTX Phúc Lợi về việc không đưa rác thải công nghiệp vào xã Tân Cương theo nguyện vọng của người dân địa phương.
Ông Phạm Tiến Sỹ, Phó Chủ tịch UBND xã Tân Cương cho biết, nơi xử lý chất thải của HTX Thương Mại & Dịch vụ Phúc Lợi (HTX) đã hoạt động tại Tân Cương từ năm 2007, nhưng ít tác động đến môi trường. Sự việc dân ngăn chặn mới diễn ra từ đầu tháng 10/2014, khi khu xử lý này thực hiện đốt rác thải công nghiệp, tạo ra khói bụi ô nhiễm, ảnh hưởng đến môi trường xung quanh, dẫn đến việc người dân phản ứng, chặn đường và dẫn cả 3 chiếc xe chở dầu, rác thải đến trụ sở của UBND xã đề nghị được giải quyết.
Người dân Tân Cương đã dựng lều bạt này đối diện cổng trụ sở xã Tân Cương, rồi thay phiên nhau túc trực không cho xe chở rác di chuyển đi nơi khác.
Trong lúc chờ đợi giải quyết, các xóm đã góp tiền dựng lều bạt, in biểu ngữ, rồi tự phân công các người ra canh xe rác.
Ông Trần Văn Cử, 75 tuổi ở xóm Tân Thái, xã Tân Cương đang co ro chống rét, bày tỏ bức xúc: “Trời rét như này, đáng lẽ tôi và mọi người đều ở nhà trú ấm, nay phải canh trực xe rác hôi thối như thế này là rất vất vả, nhưng chúng tôi quyết bảo vệ hiện trường, cho đến khi nào chính quyền xã Tân Cương và HTX Phúc Lợi trả lời là không đốt rác và xử rác thải tại Tân Cương nữa, chúng tôi mới chịu về nhà ở”.
Cùng tâm trạng phẫn nộ trước việc làm ô nhiễm của HTX Phúc Lợi, bà Đỗ Thị Bông, 65 tuổi, ở xóm Hồng Thái 1 chia sẻ: Mỗi khi HTX Phúc Lợi đốt rác, khói đen bao trùm khắp xóm, tức ngực và khó thở, tôi và mọi người trong nhà không thể ngủ được, tôi sẽ quyết bám trụ tại chiếc lán này cho đến khi nào HTX tuyên bố không còn đốt rác nữa, tôi mới về nhà...
HTX Phúc Lợi dùng cả xe téc để chở chất thải lỏng vào khu xử lý rác đã bị người dân bắt giữ.
Anh Trần Tiến Anh ở xóm Tân Thái 1, kể: “Vịt thả xuống sông bị bại liệt, khoẻ như trâu nhưng hễ uống phải nước từ khu xử lý chất thải chảy ra cũng ngã quay và sùi bọt mép. Còn người già, trẻ em thì mắc các loại chứng bệnh về phổi, đường hô hấp… đến lúc không chịu được nữa rồi, chúng tôi chấp nhận tự đứng lên bảo vệ môi trường sống cho con em chúng tôi”.
Chị Trần Thị Huyền, xóm Soi Vàng đã có 20 ngày ăn ngủ vạ vờ tại lều bạt ngay trước cổng UBND xã Tân Cương, cho biết thêm: Xóm Soi Vàng có khoảng 150 ha chè, giá bán chè búp loại ngon khoảng 400 đến 500 nghìn đồng, nhưng từ khi HTX Phúc Lợi đốt rác thải công nghiệp, chị đưa chè ra chợ chỉ bán được hơn 100 nghìn đồng/kg, mà còn bị chê là có mùi nhựa khét. Do quá bức xúc, chị cùng mọi người quyết tâm dựng lán ngăn cản không cho xe chở rác vào khu xử lý.
Cũng theo chị Huyền, kể từ khi các xóm ra ngăn cản không cho HTX đốt rác nữa, chè của xóm Soi Vàng lại xanh ngon, được giá cao vì không bị mùi khói nhựa ám khét...
Người dân đang tỏ ra rất kiên định với yêu cầu của mình, dứt khoát không chấp nhận cho doanh nghiệp xử lý rác thải công nghiệp tại đây, nhằm bảo vệ thương hiệu chè nổi tiếng Tân Cương.

Cache-Control: private

Content-Type: text/html; charset=utf-8


markdown:
Đăng Nhập
Đăng ký
Tùy Chọn
Đăng Nhập
Đăng ký
Tài Khoản
Thanh Toán
VND
VND
USD
Miễn phí vận chuyển toàn quốc
Giỏ hàng
( 0 )
Danh Sách Ưa Thích

Server: nginx

Set-Cookie: shop_ref=; expires=Sun, 15 Apr 2018 12:30:15 GMT; path=/; samesite=lax

X-Cache: miss

P3P: CP="NOI DSP COR NID ADMa OPTa OUR NOR"

X-Content-Type-Options: nosniff

X-XSS-Protection: 1; mode=block


markdown:
Đang truy cập : 25
Hôm nay : 586
Tổng lượt truy cập :
**4667482**
**Dự kiến ngày thi tuyển sinh: 19/08/2017, 20/08/2017**
**Download hồ sơ tuyển sinh cao học 2017 (tại đây)** **1. Chuyên ngành đào tạo:**
| || |
| |
Hình thức đào tạo không tập trung, thời gian đào tạo 2 năm
Thời gian học:
- Học vào các buổi tối trong tuần các lớp chuyên ngành: Quản trị kinh doanh, Tài chính – Ngân hàng.
**3. Đối tượng tuyển sinh:** *3.1 Điều kiện dự tuyển:*
3.1.1 Về văn bằng:
a) Đã tốt nghiệp đại học ngành đúng, ngành phù hợp với chuyên ngành đăng ký dự thi đào tạo trình độ thạc sĩ theo quy định;
b) Đã tốt nghiệp đại học ngành gần với chuyên ngành đăng ký dự thi, đã học bổ sung kiến thức theo quy định;
c) Người tốt nghiệp đại học một số ngành khác có thể đăng ký dự thi vào chuyên ngành Quản trị kinh doanh sau khi đã học bổ sung kiến thức theo quy định;
d) Văn bằng đại học do cơ sở giáo dục nước ngoài cấp phải thực hiện thủ tục công nhận theo quy định hiện hành;
3.1.2 Về thâm niên công tác:
Trường hợp người có bằng tốt nghiệp ngành khác đăng ký dự thi vào chuyên ngành Quản trị kinh doanh thì phải có tối thiểu 2 (hai) năm kinh nghiệm làm việc trong lĩnh vực đăng ký dự thi.
3.1.3 Lý lịch bản thân rõ ràng, không trong thời gian thi hành kỷ luật từ mức cảnh cáo trở lên và không trong thời gian thi hành án hình sự;
3.1.4 Có đủ sức khoẻ để học tập;
3.1.5 Nộp hồ sơ đầy đủ, đúng thời hạn theo quy định của nhà trường.
*3.2 Đối tượng và Chính sách ưu tiên:*
3.2.1 Đối tượng:
a) Người có thời gian công tác liên tục từ 2 năm trở lên (tính đến ngày hết hạn nộp hồ sơ đăng ký dự thi) tại các địa phương được quy định là Khu vực 1 trong Quy chế tuyển sinh Đại học, Cao đẳng hệ chính quy hiện hành. Trong trường hợp này, thí sinh phải có quyết định tiếp nhận công tác hoặc điều động, biệt phái công tác của cơ quan, tổ chức có thẩm quyền;
b) Thương binh, người hưởng chính sách như thương binh;
c) Con liệt sĩ;
d) Anh hùng lực lượng vũ trang, anh hùng lao động;
đ) Người dân tộc thiểu số có hộ khẩu thường trú từ 2 năm trở lên ở địa phương được quy định tại Điểm a, Khoản này;
e) Con đẻ của người hoạt động kháng chiến bị nhiễm chất độc hoá học, được Uỷ ban nhân dân cấp tỉnh công nhận bị dị dạng, dị tật, suy giảm khả năng tự lực trong sinh hoạt, học tập do hậu quả của chất độc hoá học;
3.2.2 Chính sách ưu tiên:
a) Người dự thi thuộc đối tượng ưu tiên quy định tại Khoản 3.2.1 (bao gồm cả người thuộc nhiều đối tượng ưu tiên) được cộng vào kết quả thi mười điểm cho môn ngoại ngữ (thang điểm 100) nếu không thuộc diện được miễn thi ngoại ngữ theo quy định và cộng một điểm (thang điểm 10) cho một trong hai môn thi hoặc kiểm tra;
b) Người thuộc nhiều đối tượng ưu tiên chỉ được hưởng chế độ ưu tiên của một đối tượng.
*3.3* __Điều kiện miễn ngoại ngữ__ *:*
Thí sinh có năng lực ngoại ngữ đúng với yêu cầu môn thi ngoại ngữ của nhà trường thuộc một trong các trường hợp sau được miễn thi môn ngoại ngữ;
a) Có bằng tốt nghiệp đại học, thạc sĩ, tiến sĩ được đào tạo toàn thời gian ở nước ngoài, được cơ quan có thẩm quyền công nhận văn bằng theo quy định hiện hành;
b) Có bằng tốt nghiệp đại học chương trình tiên tiến theo Đề án của Bộ Giáo dục và Đào tạo về đào tạo chương trình tiên tiến ở một số trường đại học của Việt Nam hoặc bằng kỹ sư chất lượng cao (PFIEV) được ủy ban bằng cấp kỹ sư (CTI, Pháp) công nhận, có đối tác nước ngoài cùng cấp bằng;
c) Có bằng tốt nghiệp đại học ngành ngôn ngữ nước ngoài;
d) Có chứng chỉ trình độ ngoại ngữ được quy định theo quy chế của Bộ giáo dục và Đào tạo trong thời hạn 2 năm từ ngày cấp chứng chỉ đến ngày đăng ký dự thi, được cấp bởi một cơ sở được Bộ Giáo dục và Đào tạo cho phép hoặc công nhận như sau:
**Tiếng Anh**
| || |
IELTS
| |
TOEFL
| |
TOEIC
| |
Cambridge Exam
| |
BEC
| |
BULATS
| |
Khung Châu Âu
| || |
4.5
| |
450 PBT 133 CBT 45 iBT
| |
450
| |
Preliminary PET
| |
Business Preliminary
| |
40
| |
B1
**Một số tiếng khác**
| || || || || || |
| || |
TRKI 1
| |
DELF B1
TCF niveau 3
| |
B1
ZD
| |
HSK cấp độ 3
| |
JLPT N4
**4. Thời gian:** *** **Phát nhận hồ sơ đăng ký dự thi từ ngày ra thông báo đến hết ngày 21/07/2017
* Thời hạn nộp hồ sơ xét chính sách ưu tiên trước ngày 18/07/2017
* Lệ phí thi: 420.000 đồng
* Ngày thi: dự kiến
** 19 và 20/08/2017** __Ghi chú__ *:* * Thí sinh nhận giấy báo thi tại Khoa Đào tạo Sau đại học (phòng 209), Trường Đại học Mở Thành phố Hồ Chí Minh, từ ngày 03/08/2017 đến hết ngày 05/08/2017. Sau ngày 05/08/2017 nhà trường sẽ gửi giấy báo dự thi đến thí sinh qua đường bưu điện.* **5. Môn thi tuyển sinh:**
| || || || || || |
| |
Luật dân sự
| |
Kinh tế học
| |
Xã hội học
đại cương
| |
Sức bền vật liệu
| |
Cấu trúc dữ liệu và giải thuật
| |
Ngôn ngữ (Syntax, Semantics)
| |
Luật thương mại
| |
Toán kinh tế
| |
Phương pháp nghiên cứu trong khoa học xã hội
| |
Toán xây dựng
| |
Cơ sở dữ liệu
| |
Phương pháp giảng dạy
| |
Chọn 1 trong 3 ngoại ngữ (Anh, Pháp, Trung)
| |
Chọn 1 trong 2 ngoại ngữ (Pháp, Trung)
**6. Kết quả tuyển sinh:**
Nhà trường thông báo điểm chuẩn và danh sách kết quả tuyển sinh tại Website của nhà trường và dán tại văn phòng Khoa Đào tạo Sau đại học, Trường Đại học Mở Tp. Hồ Chí Minh;
Những học viên có kết quả trúng tuyển nhận giấy báo
__trực tiếp__ tại văn phòng Khoa Đào tạo Sau đại học, Trường Đại học Mở Thành phố Hồ Chí Minh. **7. Địa chỉ liên hệ:**
Trường Đại học Mở Thành Phố Hồ Chí Minh
**Khoa Đào tạo Sau Đại học (Phòng 209)**
97 Võ Văn Tần, Q.3, TP.HCM
Điện thoại: (08) 39300947 hoặc (08) 39300210 – 209
Website:
[http://sdh.ou.edu.vn](http://sdh.ou.edu.vn/)
[www.facebook.com/khoasaudaihocdhmo](http://www.facebook.com/khoasaudaihocdhmo) **Nguồn tin: **OU
**Những tin mới hơn**
**Những tin cũ hơn**

Pragma: no-cache

Cache-Control: private, pre-check=0, post-check=0, max-age=0

Set-Cookie: nv3c_Tzgq3_nvvithemever=lA%2C%2C; expires=Tue, 19-Mar-2019 20:15:12 GMT; Max-Age=31535999; path=/; domain=.onthicaohoc.com; httponly

Content-Language: vi


markdown:
Mr Định
0932.189.918
Mr Tuấn
0932.100.277
Hotline: 0932.189.918 - 0932.100.277
Tìm kiếm nâng cao
Chọn loại xe...
XE TẢI
XE CHUYÊN DỤNG
ĐÓNG THÙNG XE TẢI
PHỤ TÙNG XE TẢI
GIÁ BÁN XE TẢI
Chọn trọng tải...
500kg - 1 tấn
1 tấn 25 - 2 tấn 5
2 tấn 25 - 3 tấn 1
3 tấn - 4 tấn 9
5 tấn >>>
Chọn kích thước thùng...
2m - 2m5
2m6 - 3m5
3m6 -4m1
4m2 - 5m4
trên 6m
Chọn khoảng giá...
[ 0 - 100 Triệu ]
[ 100 - 300 Triệu ]
[ 300 - 500 Triệu ]
[ > 500 Triệu ]
Tìm kiếm
Fri 15/09/2017 | 09:02 GMT+7
Hotline: 0932.189.918 - 0932.189.968 - 0932.100.277
Điện thoại: 08 6256 4627 - Fax: 08 6256 4625
Youtube: Click vào đây
Email: tuanotodonganh@gmail.com
Giá bán chưa bao gồm thuế Giá trị gia tăng (VAT) 10%
Liên kết VIP: tranh cát | gốm sứ bát tràng | đô Thành iz49 | xe tải veam
Facebook
Đang Online : 5
Hôm nay : 58
Hôm qua : 461
Tổng truy cập : 320190

Vary: Accept-Encoding,User-Agent

Content-Type: text/html


markdown:
Thời gian đăng: 09-02-2017 17:03 | 69 lượt xem
[In bản tin](javascript:;)
Béo lên sau khi sinh đặc biệt là lớp mỡ dày vùng bụng luôn là nỗi lo lắng của chị em phụ nữ và cũng vì thế mà lượng tra cứu từ khóa
**giảm béo sau sinh nhanh nhất** luôn tăng mạnh và đạt mức cao nhất. Hiện nay có 2 phương pháp phổ biến là ăn kiêng và tập thể dục, tuy nhiên có nên ăn kiêng và ăn kiêng như thế nào cho hợp lý nhất thì chị em hãy tham khảo bài viết dưới đây của **Palmspa.com.vn** để tìm ra câu trả lời xác đáng nhất.
**Khi nào thì nên bắt đầu giảm cân sau sinh**
Theo các chuyên gia về giảm cân, thông thường là sau khi sinh từ 6 tới 8 tuần với điều kiện sức khỏe tốt là các mẹ đã có thể bắt đầu thực hiện công cuộc giảm cân. Khi đó, cơ thể bạn sẽ có khả năng tự tiêu hao chất béo, vừa là để “chữa lành cơ thể”, vừa là để phù hợp với yêu cầu năng lượng và thói quen mới của bạn. Tuy nhiên, bạn không nhất thiết phải đẩy mạnh quá trình giảm cân ngay từ khi mới bắt đầu bằng một chế độ ăn kiêng nghiêm ngặt mà nên giảm từ từ hàm lượng tinh bột, đường và chất béo. Điều quan trọng nhất vẫn là bạn phải ăn uống lành mạnh và hợp lý, đảm bảo đủ chất để duy trì nguồn sữa cho con.
**Những lưu ý khi ăn kiêng giảm cân sau sinh**
Ăn kiêng để giảm cân sau khi sinh là một điều hoàn toàn có thể nhưng các mẹ phải lựa chọn cho mình thực đơn ăn kiêng cho đúng vừa giúp
**giảm cân hiệu quả an toàn**, sớm lấy lại được vóc dáng ngày nào mà vẫn đảm bảo khỏe mạnh để chăm con khôn lớn.
1. Hạn chế sử dụng thịt và các chế phẩm từ thịt: Nếu muốn giảm cân nhanh chóng, các chị em hãy bỏ qua các loại giò, xúc xích, giăm bông, thịt hun khói thơm ngon, béo ngậy đầy hấp dẫn… Những loại thực phẩm này tuy chứa ít lipit nhưng lại có nhiều xì dầu, chất tạo màu và chất bảo quản, vừa không có giá trị về mặt sinh học lại còn không tốt cho sữa mẹ nữa. Mặc dù ăn rất ngon nhưng các mẹ nên dùng không quá một lần mỗi tháng, và tốt nhất là loại bỏ chúng hoàn toàn ra khỏi khẩu phần ăn của mình để đảm bảo cho quá trình giảm cân và an toàn cho cả mình lẫn bé.
2. Hạn chế dùng đồ ngọt và các loại bánh nhiều tinh bột: Những món này rất ngon và bắt mắt, dễ dàng sử dụng, có thể ăn liền khi nhưng chị em đâu biết rằng nó chính là thủ phạm kích thích ăn nhiều hơn và hậu quả là cân lại tăng vèo vèo bởi nó khiến tỉ lệ insulin trong máu hay còn gọi là “hoóc môn gây đói” tăng cao như thế chị em sẽ khó có thể rút ngắn thời gian
**giảm béo sau sinh nhanh nhất**.
3. Giảm muối trong khẩu phần ăn. Ở phụ nữ trong thời kỳ cho con bú, hàm lượng prolactin trong máu thường tăng cao, gây ra hiện tượng giữ nước trong cơ thể. Ăn đồ chứa nhiều muối, sẽ khiến bạn sẽ bị phù nề và tăng cân, vì thế bạn nên ăn nhạt hơn chứ không được bỏ hẳn muối khi nấu để cơ thể vẫn đủ lượng muối khoáng cần thiết phòng tránh bệnh tật.
4. Thay đổi thói quen ăn uống: Thay vì ăn nhiều trong một bữa, bạn hãy chia ra làm nhiều bữa ăn nhỏ trong ngày bởi như thế sẽ giúp cơ thể chuyển hóa các calo tốt thành năng lượng và ít có khả năng được lưu trữ dưới dạng mỡ tích trữ dư thừa trong cơ thể. Chú ý ăn nhiều rau xanh và hoa quả, tránh ăn đồ chiên xào nhiều dầu mỡ, bạn nên ăn đồ luộc vừa tốt cho mẹ lại có dòng sữa mát lành cho con. Ngoài ra chị em có thể ăn khoai sọ hay khoai lang luộc khi đói thay cơm bởi chúng vừa lành lại không chứa calo.
Hy vọng với những thông tin trên, chị em sẽ có thêm bí quyết xây dựng thực đơn
**giảm béo sau sinh nhanh nhất** để nhanh chóng lấy lại vóc dáng thon gọn ngày nào. Bên cạnh đó, chị em cũng có thể tham khảo thêm các công nghệ giảm béo an toàn, hiệu quả đến từ Nhật Bản, Hàn Quốc hiện đang rất được ưa chuộng tại Palm spa. Mọi thông tin chi tiết bạn hãy vui lòng tham khảo trên website **Palmspa.com.vn** hoặc đến trực tiếp trung tâm để được tư vấn.
**Thông tin liên hệ Palm spa:**
Bạn có thể chọn thêm 4 sp

Server: bncserver

X-Frame-Options: DENY

Cache-Control: private, no-cache, no-store, proxy-revalidate, no-transform


markdown:
TỔNG KẾT PHẬT SỰ NĂM 2017
CHÙA GIÁC NGỘ VÀ QUỸ ĐẠO PHẬT NGÀY NAY
Chiều tối ngày 07/02/2018 (nhằm ngày 22/12 Đinh Dậu) tại Chánh điện, Chùa Giác Ngộ - Quỹ Đạo Phật Ngày Nay long trọng tổ chức lễ Tổng kết Phật sự năm 2017 nhằm đánh dấu một năm hoạt động và phát triển của Chùa và Quỹ, đồng thời đề ra phương hướng nhiệm vụ Phật sự, thiện sự năm 2018.
Về phía chùa Giác Ngộ, quang lâm chứng minh buổi lễ có TT. Thích Nhật Từ - Trụ trì chùa Giác Ngộ, Chủ tịch Quỹ Đạo Phật Ngày Nay, TT. Thích Nhật Thiện - Phó trụ trì chùa Giác Ngộ, TT. Thích Nhật Bình và Tăng đoàn chùa Giác Ngộ.
Về phía Quỹ Đạo Phật Ngày Nay có sự tham dự của ông Ngộ Mi Hồng, bà Giác Thanh Nhã – đồng Phó chủ tịch Quỹ Đạo Phật Ngày Nay, bà Giác Từ Bi, bà Giác Thanh Sa, bà Giác Diệu Thanh, bà Giác Hạnh Phúc, gia đình Phật tử Hồ Minh Trí, gia đình Phật tử Giác Minh Lạc cùng các thành viên sáng lập, thành viên trọn đời Quỹ, thành viên Ban Ấn tống Quỹ và đặc biệt đó là sự góp mặt của hơn 800 Phật tử gần xa.
TT. Thích Nhật Thiện trình bày báo cáo hoạt động của chùa Giác Ngộ trong năm 2017 với những hoạt động nổi bật như sau:
Hoạt động tu học của Tăng đoàn chùa Giác Ngộ: Thời khóa tu học và sinh hoạt của Tăng đoàn ngày càng ổn định và hiệu quả.
Khóa tu: tổ chức 48 khóa tu một ngày gồm 24 khóa tu Ngày An Lạc, 12 khóa Tu Thiền, 12 khóa tu Tuổi Trẻ Hướng Phật. Ngoài ra, còn có 6 khóa tu Búp sen Từ bi cho trẻ em, 1 khóa Xuất gia gieo duyên với 204 giới tử đến tham dự. Bình quân mỗi kỳ có khoảng 400-500 Phật tử tham dự các buổi thuyết giảng, bài pháp thoại và pháp đàm. Các talk show được thực hiện rất công phu gồm 15 talk show “Góc nhìn Phật giáo”, 6 talkshow “Phương trời thong dong”, 13 talkshow “Vì sao tôi theo Đạo Phật?”.
Giáo dục: 2 lớp Bát Chánh Đạo (cơ bản và nâng cao); 3 lớp giáo lý Phật pháp (2 lớp cơ bản và 1 lớp nâng cao); lớp tiếng Hoa miễn phí, câu lạc bộ nghiên cứu Phật pháp bằng tiếng Hoa...
Hoạt động khác: tổ chức 18 lễ Hằng Thuận, 5 lễ Quy y Tam bảo với 2.500 người chính thức trở thành Phật tử.
Xuất bản Kinh sách và băng đĩa: 19 đầu sách “Đạo Phật Ngày Nay” do TT. Thích Nhật Từ biên tập và xuất bản, 5 đầu sách do TT. Thích Nhật Từ trước tác và phiên dịch, 5 đầu sách nói “Đạo Phật Ngày Nay” (thu tại chùa) và hàng chục đầu sách thu đã được thực hiện bởi Phật tử Hướng Dương.
Truyền thông: đẩy mạnh phát triển 13 trang facebook, nâng cấp trang Chùa Giác Ngộ (chuagiacngo.com), ứng dụng livestream cho các bài pháp thoại, các sự kiện, khóa tu… thu âm sách nói, phổ biến 79 album nhạc Phật tương đương 862 bài hát và ngâm do chùa Giác Ngộ thực hiện và ủy quyền.
Tiếp theo báo cáo tổng kết năm 2017 là phần phương hướng hoạt động Phật sự năm 2018 của chùa Giác Ngộ. Chùa sẽ rút ngắn thời gian của một số khóa tu; tăng cường tổ chức các khóa tu, lễ quy y và các lớp học giáo lý, lớp học ngoại ngữ; tổ chức lễ Hằng Thuận cho các cặp đôi khuyết tật/khó khăn; bắt đầu triển khai xây dựng các chùa chi nhánh, thành lập các Đạo tràng theo mô hình Đạo Phật Ngày Nay ở các tỉnh thành khác trong cả nước...
Đại diện Quỹ Đạo Phật Ngày Nay, Phó Chủ tịch Ngộ Mi Hồng tuyên đọc Báo cáo tổng kết hoạt động Phật sự, thiện sự trong năm 2017 của Quỹ.
Tính tới thời điểm cuối năm 2017, Quỹ Đạo Phật Ngày Nay đã thực hiện được 60 chương trình với tổng kinh phí lên đến gần 42 tỷ đồng thông qua 10.802 lượt đóng góp tịnh tài và hàng nghìn lượt đóng góp tịnh lực, 515.000 người đã được giúp đỡ trực và gián tiếp.
Phục vụ cộng đồng: Cứu trợ khẩn cấp 2.605 hộ gia đình; trao tặng quà cho 11.119 hộ gia đình có hoàn cảnh khó khăn và người khiếm thị; hỗ trợ xây dựng 01 hạng mục cầu nông thôn, 10 ngôi chùa trong và ngoài nước như: Thừa Thiên Huế, Quảng Nam, Đắk Lắk, TP.HCM, Tây Ninh, Tiền Giang và Đài Loan và đặc biệt là xây dựng 183 căn nhà tình thương thuộc chương trình “Tổ Ấm Từ Bi” (C99). Đây là chương trình trọng điểm của Quỹ trong năm 2017 với kinh phí đầu tư hơn 11 tỷ đổng. Vận động được 1.991 lượt đăng ký hiến máu, 527 lượt đăng ký hiến tặng mô, tạng và hiến xác cho khoa học, khám chữa bệnh miễn phí cho hơn 18.873 lượt bệnh nhân là quý Tăng Ni và các bệnh nhân có hoàn cảnh khó khăn trên địa bàn TP.HCM.
Phát triển giáo dục: ấn tống và phát hành trên 477.000 ấn phẩm Phật giáo, trao tặng 731 suất học bổng toàn phần và bán phần cho quý Tăng Ni sinh đang học tập nghiên cứu ở các cấp Tiến sĩ, Thạc sĩ, Đại học, Trung cấp trong và ngoài nước, cũng như cho các học sinh, sinh viên thuộc các bậc học, hỗ trợ tổ chức 48 khóa tu, thiết kế, in may đồng phục Tu sinh của Khóa tu Tuổi Trẻ Hướng Phật và Búp Sen Từ Bi.
Truyền bá Văn hóa: Quỹ vinh dự được hỗ trợ ba sự kiện văn hóa Phật giáo lớn của Giáo Hội Phật Giáo Việt Nam - TP.HCM; trong đó Hội Thảo Quốc Tế SSEASR “Vùng ASEAN và Nam Á” lần thứ 7 diễn ra vào tháng 7/2017 mang tầm vóc quốc tế.
Trong năm 2018 của Quỹ Đạo Phật Ngày Nay sẽ triển khai một số hoạt động sau: hoàn thiện hệ thống quản lý Quỹ để nâng cao hiệu quả hoạt động và trở thành một tổ chức chuyên nghiệp , tiếp tục tổ chức các chương trình tiếp nối từ năm 2017 và các hoạt động thường kỳ, thường niên, cũng như triển khai nhiều hoạt động mới như: xây 10 kiểng chùa, hỗ trợ 2.500 suất BHYT, lễ Hằng Thuận tập thể cho các cặp đôi, hỗ trợ xây dựng cầu nông thôn, đưa thông điệp môi trường vào hoạt động ấn tống Kinh sách, phát triển mạnh chương trình trao tặng máy nghe pháp, mở rộng ấn tống các đầu sách về những vấn đề xã hội dưới góc nhìn Phật giáo.
Tiếp đến là phần Cúng dường Trai Tăng cho chư vị Tăng Ni trong Tăng Đoàn chùa Giác Ngộ.
Trong dịp này, Thượng Tọa cũng đã chia sẻ bài pháp thoại với ba chủ đề Khai thác tiềm năng thành hiện thực, Ba hương vị và ba giai đoạn cuộc đời, Tông chỉ Đạo Phật Ngày Nay. Thông qua đó, nhắc nhớ về nhân duyên, quá trình hình thành và phát triển của Quỹ cũng như giới thiệu rộng rãi đến quý vị Phật tử Cẩm nang tu học Đạo Phật Ngày Nay. Thượng Tọa cũng gửi gắm mong muốn phát triển, nhân rộng mô hình Quỹ Đạo Phật Ngày Nay, đồng thời thiết tha kêu gọi quý mạnh thường quân, quý Phật tử tiếp tục đồng hành cũng Chùa và Quỹ “Mỗi người đều trở thành con chim đầu đàn”, trở thành cánh tay nối dài phụng sự nhân sinh.
Xen kẽ chương trình là các tiết mục văn nghệ đặc sắc do Ban Đạo ca chùa Giác Ngộ thể hiện dâng lên cúng dường cho chư Tôn đức và quý vị quan khách. Mọi lao xao trong lòng người những ngày cuối năm dường như ngừng lại khi những khúc Thiền ca được cất lên. Quả thật những giây phút lắng đọng, thảnh thơi hiếm có!
Sau cùng, Ban Tổ Chức tổng kết, trao bằng công đức, kỷ niệm chương cho những tập thể, cá nhân đóng góp tịnh tài và tịnh lực, đồng hành hỗ trợ cùng Chùa Giác Ngộ, Quỹ Đạo Phật Ngày Nay trong suốt chặng đường năm 2017.
Kỉ yếu 2017 của Quỹ Đạo Phật Ngày Nay


markdown:
![](http://phongkhamnamkhoa.net.vn//public/frontend/images/page/pic_category.jpg)
[ là trường hợp một cặp trai gái có quan hệ thường xuyên trung bình 3 lần/tuần trong vòng 1 năm, không dùng biện pháp bảo vệ mà không thể có thai hoặc thụ thai nhưng không thành công. Hiện nay tình trạng vô sinh đang ngày càng phổ biến và có chiều hướng gia tăng. Vô sinh](http://phongkhamnamkhoa.net.vn/vo-sinh-la-gi-nguyen-nhan-gay-vo-sinh-10257.html)
Hiện nay, không ít cặp vợ chồng phải đối mặt với tình trạng vô sinh - hiếm muộn, nhiều gia đình tỏ ra áp đặt khi cho rằng tình trạng này là do nữ giới không có khả năng sinh con. Tuy nhiên,...
Có rất nhiều trường hợp nam giới bị vô sinh mà không hề hay biết điều này khiến cho mọi nỗ lực có con trở nên vô ích. Rất nhiều thắc mắc và tranh cãi sảy ra ở các gia đình hiện nay vì...
Vô sinh hiến muộn là một trong những bệnh được quan tâm nhiều nhất hiện nay khi môi trường sống ngày càng biến đổi theo chiều hướng xấu dẫn đến tỉ lệ các cặp vợ chồng bị vô sinh ngày...
Tinh trùng yếu có gây vô sinh không? Là một trong những câu hỏi của rất nhiều các bạn nam gửi về cho phòng khám chúng tôi trong tuần vừa qua. Qua bài viết hôm nay các bác sĩ phòng khám đa khoa Thái...
Quan hệ tình dục là con đường ngắn nhất, nhanh nhất dẫn đến lây lan các bệnh tình dục, trong đó có bệnh Chlamydia. Bệnh này là một trong những bệnh tình dục, khá nguy hiểm, có khả năng lấy lan...
Vô sinh là căn bệnh mà không bất kỳ ai muốn mình mắc phải, nó là nỗi lo và ám ảnh rất lớn đối với không chỉ riêng ai. Vô sinh có thể gặp ở bất kỳ ai, tuy nhiên một số đối tượng lại...
Khi nam giới bước vào tuổi dậy thì, do nhu cầu bản năng của bản thân mà nam giới sẽ có những hành động tự kích thích để đạt cực khoái. Hành động thỏa mãn tình dục của nam và nữ hay còn...
Bệnh vô sinh có rất nhiều nguyên nhân vì vậy cách chữa trị bệnh vô sinh cũng đa dạng. Để chữa bệnh vô sinh hiệu quả các bác sĩ phải dựa vào nguyên nhân gây bệnh để điều trị mới có hiệu...


markdown:
Đèn chiếu sáng khẩn cấp paragon PEMA21SW sử dụng 2 bóng Led, mỗi bóng công suất 1W, chiếu sáng khi có sự cố mất điện xảy ra, có thể hoạt động hơn 2 giờ sau khi mất điện.
Thông tin kĩ thuật:
- Chế độ hoạt động: không liên tục.
- Đèn khẩn cấp PEMA21SW sử dụng bóng:Led
- Nguồn cung cấp: 220~240V/50-60Hz.
- Nhiệt độ hoạt động: -10 ~ 40C.
- Công suất tiêu thụ: 2x1W
- Loại Pin: Ni-Cd (3.6V 1.5Ah)
- Sạc: tự động.
- Bộ hiển thị sạc: đèn báo màu đỏ.
- Thời gian sạc: ~24giờ.
- Thời gian hoạt động của ắc quy: 2giờ.
- Chức năng an toàn: tự ngắt mạch khi nạp đủ
Có nhiều mẫu đèn chiếu sáng khẩn cấp paragon loại mắt ếch mà quý khách có thể tham khảo như đèn chiếu sáng khẩn cấp PEMA25SW, đèn chiếu sáng khẩn cấp PEMC219SW, đèn khẩn cấp PEMC22SW.
CAM KẾT
- Bán hàng chính hãng Paragon. Bán đúng giá niêm yết.
- Chính sách giá riêng cho cửa hàng điện dân dụng và khách hàng mua số lượng lớn.
- Hỗ trợ giao hàng tận nơi. Luôn kiểm tra hàng trước khi giao. Đổi hàng nếu bị lỗi kĩ thuật của nhà sản xuất.
- Hỗ trợ tư vấn chia sẻ kinh nghiệm mở cửa hàng điện dân dụng MIỄN PHÍ
- Vui lòng gọi (08) 3506 5759 - 08 3559 1545 - 0907.087.017 để được hỗ trợ báo giá tốt nhất.
Xem thêm các mẫu đèn khẩn cấp paragon tại www.phudanh.vn
HỌ TÊN KHÁCH HÀNG (*):
EMAIL (*):
SĐT (*):
Địa chỉ
THÔNG TIN CẦN TƯ VẤN
CÔNG TY TNHH SX - TM - DV PHÚ DANH
Đ/c : Số 8A Tân Quý, phường Tân Quý, quận Tân Phú, TP. HCM
Website : www.phudanh.vn - www.phudanh.com.vn - www.phudanh.com
Email : phudanh09@gmail.com
Hotline: 0907.087.017
Tel: 02835 591 545


markdown:
Đèn downlight âm trần Paragon PRDCC32
Mã đèn: PRDCC150L32
Sử dụng bóng đèn: LED
Công suất: 1x 32W
Lumen: 2000lm
Kích thước: 190mm
Chất liệu: Hợp kim Nhôm
Chóa đèn làm bằng nhôm phản quang.
Màu ánh sáng: 2700K/4200K/ 6400K.
Phudanh.vn có đầy đủ thông tin chi tiết hình ảnh giá cả mẫu đèn downlight âm trần paragon.
HỌ TÊN KHÁCH HÀNG (*):
EMAIL (*):
SĐT (*):
Địa chỉ
THÔNG TIN CẦN TƯ VẤN
CÔNG TY TNHH SX - TM - DV PHÚ DANH
Đ/c : Số 8A Tân Quý, phường Tân Quý, quận Tân Phú, TP. HCM
Website : www.phudanh.vn - www.phudanh.com.vn - www.phudanh.com
Email : phudanh09@gmail.com
Hotline: 0907.087.017
Tel: 02835 591 545


markdown:
![](http://wscdn.bbc.co.uk/worldservice/assets/images/2012/05/02/120502060137_nguyen_quoc_quan_304x171_internet_nocredit.jpg)
Ông Nguyễn Quốc Quân bị bắt hồi tháng Tư vì tội 'khủng bố', nhưng sau đó đổi sang tội danh 'lật đổ chính quyền'
Vợ nhà hoạt động người Mỹ gốc Việt nói chồng bà 'không nhận tội', trái với tuyên bố của Việt Nam sau khi trục xuất ông Nguyễn Quốc Quân.
[Bà Ngô Mai Hương, vợ ông Quân, nói chuyện với BBC ngay sau khi trò chuyện với chồng qua điện thoại ngày 30/1.]
Đến cuối ngày 30/1, máy bay đã đưa ông Quân từ Việt Nam sang Đài Bắc và dự kiến ông sẽ sớm về đến Mỹ.
Thông cáo từ Bộ Ngoại giao Việt Nam nói ông Quân đã "nhận tội" và muốn được khoan hồng để về đoàn tụ với gia đình.
Nhưng bà Hương nói: "Nếu anh nhận tội, anh đã về từ chín tháng trước."
"Việc anh Quân nhận tội chỉ có trên báo Việt Cộng, chứ không đúng. Tôi đã nói chuyện với anh Quân, không có chuyện đó."
**Sức ép**
Trong khi đó, ông Đỗ Hoàng Điềm, chủ tịch Đảng Việt Tân, cho rằng lý do chủ yếu khiến Việt Nam bất ngờ thả ông Nguyễn Quốc Quân là do sức ép quốc tế, đặc biệt sau vụ xử 14 người Thiên Chúa giáo ở Nghệ An.
Việt Nam trục xuất ông Quân, bị bắt từ tháng Tư năm ngoái, hôm 30/1 và ông được đưa lên máy bay rời Việt Nam cùng ngày.
"Nhà cầm quyền cộng sản Việt Nam phần nào bị bất ngờ trước phản ứng mạnh mẽ, nên khá lúng túng. Họ phải hoãn phiên xử anh Quân ngày 22/1 và một tuần sau, thả anh Quân."
Hồi tháng Tư, Bộ Công an Việt Nam loan báo đã bắt tạm giam ông Quân, thành viên Đảng Việt Tân bốn tháng vì họ phát hiện "âm mưu" của ông Quân định kích động biểu tình chống chính quyền nhân dịp kỷ niệm ngày 30/4.
Báo Công an Nhân dân lúc đó đã đăng bài với tiêu đề ‘Thất bại mới của tổ chức phản động Việt Tân’, lên án "bản chất cố hữu’ của Việt Tân và ông Quân là khủng bố.
Bài báo nhắc lại ông Quân đã từng bị kết tội "khủng bố" một lần vào năm 2006 khi ông từ Campuchia xâm nhập vào Việt Nam phát tán truyền đơn và bị Tòa án nhân dân thành phố Hồ Chí Minh kết án 6 tháng tù.
Vào tháng Tám, chính quyền Việt Nam gỡ cáo buộc khủng bố theo điều 84 Bộ Luật hình sự đối với ông mà thay vào đó là tội ‘Hoạt động nhằm lật đổ chính quyền nhân dân’ theo điều 79.
Thời gian qua, Hoa Kỳ đã liên tục kêu gọi trả tự do cho ông Quân với lý do ông chỉ là một nhà đấu tranh cho cải cách dân chủ bất bạo động ở Việt Nam.
[1.HOT Links vềThủ Tướng Nguyễn Tấn Dũng](http://quanlambao.blogspot.co.at/2012/07/hot-links-ve-thu-tuong-nguyen-tan-dung.html) [2.HOT Links vềTướng Nguyễn Văn Hưởng](http://quanlambao.blogspot.co.at/2012/07/hot-links-ve-tuong-nguyen-van-huong_25.html) **3.HOT Links vềThống đốc Nguyễn Văn Bình** [](http://quanlambao.blogspot.nl/2012/07/hot-links-ve-nhom-toi-pham.html) [4. HOT Links Nhómtội phạm Việt Nam](http://quanlambao.blogspot.nl/2012/07/hot-links-ve-nhom-toi-pham.html) [5. HOT Links vềChủ tịch Quốc Hội Nguyễn Sinh Hùng](http://quanlambao.blogspot.com/2012/07/hot-links-ve-chu-tich-quoc-hoi-nguyen.html) [6.Hot Links vềTổng cục 2](http://quanlambao.blogspot.com/2012/07/hot-links-ve-tong-cuc-2.html) [7.Hot Links vềNội các Chính Phủ](http://quanlambao.blogspot.com/2012/07/hot-links-noi-cac-chinh-phu-dung.html) [8.Hot Links vềchủ quyền](http://quanlambao.blogspot.com/2012/07/hot-links-ve-chu-quyen.html) **9.Hot Links vềPhạm Chí Dũng** [](http://quanlambao.blogspot.com/2012/07/hot-links-ve-vinaline.html) [10.HOT Links vềVinaline](http://quanlambao.blogspot.com/2012/07/hot-links-ve-vinaline.html) **** [11.Hot LinksVikileaks](http://quanlambao.blogspot.com/2012/07/hot-links-vikileaks.html) [12.Hồ sơ Beo HồThị Thu Hồng](http://quanlambao.blogspot.com/2012/07/ho-so-beo-ho-thi-thu-hong.html) [13.Hồ sơ MafiaTàu tại VN](http://quanlambao.blogspot.com/2012/08/ho-so-ve-mafia-tau-tram-be.html) [14.Dân chủ& Đảng phái](http://quanlambao.blogspot.com/2012/08/dan-chu-ang-phai.html) [15.Giớpchóp bu Hà Nội chống tham nhũng?](http://quanlambao.blogspot.se/2012/08/gioi-chop-bu-chong-tham-nhung.html) [16. Các vụ án Ngân hàng khác](http://quanlambao.blogspot.de/2012/09/cac-vu-ngan-hang-lien-quan.html) ** [17. Đấu tranh cho nền dân chủ](http://quanlambao.blogspot.de/2012/09/au-tranh-vi-nen-dan-chu.html) **** [18. Thơ văn](http://quanlambao.blogspot.com/2012/09/a-tho-van.html) [19. Hồ sơ các nạn nhân đại gia](http://quanlambao.blogspot.se/2012/11/a-cac-nan-nhan-ai-gia.html) [20. Giáo dục](http://quanlambao.blogspot.com/2012/11/a-20-giao-duc.html)
## 1 comment:
Cong San muon bo dit John Kerry
Khong nhan toi ????????
Chi duoc cai mieng, ai vao nha tu Cong San ma khong bi be gay
Truc xuat la may,
Viet kieu co gia
NG Quoc Quan, Pham minh Hoang,
Le quoc Quan, con dan vNam re nhu beo
Chac
Post a Comment

Server: GSE

X-Robots-Tag: all

Cache-Control: private, max-age=0


markdown:
Liên hệ với chúng tôi
0949.086.136
Một số mẫu boot xuất khẩu xịn, mỗi mẫu chỉ có vài đôi, tuyệt đẹp, đúng mốt năm nay, còn ít hàng size 37
* Boot dài G-268e giá 900k
Shop Quý Cô
Nơi chia sẻ đam mê thời trang, kinh nghiệm thiết kế thời trang, thông tin sự kiện thời trang, mua sắm, làm đẹp...

X-Logged-In: False

P3P: CP="NOI ADM DEV PSAi COM NAV OUR OTRo STP IND DEM"


markdown:
Click to view larger photo
Giầy kín mũi NineWest cao 4cm, màu đen và xanh. Giầy rất êm và mềm, kết hợp nơ ngang xinh yêu, gót to mũi tròn, đi bộ đứng lâu không đau chân. Kiểu dáng công sở, dễ phối hợp trang phục, được mọi lứa tuổi yêu thích, size 35 -> 39 (có size to nhất 40)


markdown:
# Gay #1 / 68
Quảng cáo
Thể loại
331
222
805
120
36
180
109
186
6083
108
632
4
5185
2405
497
7098
654
711
1967
937
849
5136
1055
158
1719
942
1356
475
136
1759
2063
253
2009
1099
549
2498
75
1407
3849
351
829
88
2895
1540
2251
255
425
356
299
775
644
68
2418
237
2358
249
39
55
2318
185
1349
819
1604
1
1085
90
36
170
644
92
139
116
112
2064
245
153
811
178
1398
83
168
57
1492
154
2057
1474
840
1298
956
2010
163
4281
6045
351
531
63
879
791
2563
1637
513
812
339
246
1360
86
1110
105
449
86
1043
117
307
348
1532
291
230
465
999
27
1001
36
686
490
1303
329
1094
4690
70
16943
1464
355
439
21
195
1266
248
1304
119
340
2137
111
1047
15
559
173
1393
376
1473
196
1467
1676
356
4079
137
609
116
1014
593
43
22
89
141
571
142
866
154
1202
763
1463
410
7575
181
695
452
317
743
PHỔ BIẾN KHIÊU DÂM:


markdown:
Hợp tác với AGC, SAIGON TECH đả tham gia thiết kế và thi công hệ thống điện cho dự án LUCKY PALACE quận 6. Là dự án phức hợp khu thương mại và căn hộ cao cấp tại địa bàn quân 6 HCM. Số lượng căn hộ 356 căn, 33 tầng cao.
200/300
BaskinRobbins Buôn Ma Thuột nằm trong TTTM Vincom Plaza Buôn Ma Thuộc với 2 mặt tiền và diện tích rộng rải, thích hợp với việc..
BaskinRobbin Hàng Vôi Hà Nội là nhà hàng BaskinRobbins đầu tiên Saigon Tech khởi công vào năm 2015, với diện tích sử dụng tương..
Thiết kế của BaskinRobbins Cách Mạng Tháng 8, với diện tích lớn hơn các nhà hàng BaskinRobbins khác và việc sử dụng đa dạng..
Thiết kế và thi công BaskinRobbin Aeon Mall Bình Tân với diện tích nhỏ, không gian chủ yếu sử dụng cho việc bán hàng, nhưng vẩn..
Được thành lập từ tháng 02 năm 2008, đến nay công ty Cổ phần Đầu tư Thương mại Quốc tế Mặt Trời Đỏ (Redsun-ITI..
Được khởi công vào cuối năm 2017 cụm nhà hàng Kichi - Gogi Vạn Hạnh Mall là cụm nhà hàng lẩu băng chuyền và đồ nướng theo..
PizzaHut là một trong những chuỗi nhà hàng đâu tiên Saigon Tech tham gia thiết kế và thi công, với các nhà hàng Pizza trải dài trên..
SAIGON TECH đã tham gia thiết kế và thi công cho MARKS & SPENCER VINCOM Đồng Khởi các hạng mục như: bố trí lắp đặt kệ tủ, trang..
Là nhà thầu MEP của tập đoàn LOTTE, SAIGONTECH đã tham gia thiết kế và thi công hệ thống MEP cho các siêu thị LOTTE QUẬN 7 và..
BaskinRobbin Đà Nẵng được Saigon Tech thiết kế và thi công trong năm 2015, với sự chú trọng đầu tư trong thiết kế và thi công,..
BaskinRobbin Pearl Plaza được Saigon Tech thiết kế và thi công trong năm 2014 với diện tích lớn, không gian phục vụ đa dạng hơn..
BaskinBobbin Vincom Bà Triệu được thiết kế và thi công bởi Saigon Tech trong năm 2015 với diện tích nhỏ nhưng vẩn đáp ứng..
Nhà Hàng Kichi Vincom Xuân Khánh Cần Thơ là nhà hàng Saigon Tech thi công vào giửa năm 2016 với tổng diện tích xây dựng là 180m2,..
Nhà hàng Kichi Nha Trang được Saigon Tech khởi công vào đầu năm 2016, với tổng diện tích xây dựng là 180m2, đáp ứng được cho..
Nhà hàng Kichi Aeon Mall Bình Tân với tổng diện tích xây dựng 240m2, đáp ứng được nhu cầu cho hơn 90 thực khách. Được chia làm..
Tự hoàn thiện mình trước khi đem sản phẩm tốt nhất cho khách hàng... Phải lung...
TEAMBUILDING SÀI GÒN TECH 2017 Để tạo động lực và sự gắn kết giữa các thành...
Sau những ngày lao động mệt mỏi. Như mọi năm, Sài Gòn Tech tổ chức những chuyến...
Sau những khó khăn của một năm trôi qua, là lúc chúng ta tự thưởng cho mình những...
THỰC HIỆN THI ĐUA BÌNH - BẦU NHÂN VIÊN THÁNG 11/2017
Với công nghệ in tranh canvas trên chất liệu canvas vải (chất liệu vải bố) và canvas dầu ( canvas mực dầu hay sử dụng trong quảng cáo) ngoài ra còn có in tranh trên chất liệu vải...
Sản phẩm sẽ thay thế giấy vệ sinh truyền thống, đây là phương thức đi vệ sinh văn minh mà các nước tiên tiến đang sử dụng, mọi thói quen sẽ bị thay đổi… Cải tiến để...

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0


markdown:
![ Slideshow Image 1](/Banner-portlet/11431/1304678/4532822_banner4.jpg)
![ Slideshow Image 1](/Banner-portlet/11431/1304678/4532819_banner1.jpg)
![ Slideshow Image 1](/Banner-portlet/11431/1304678/4532820_banner2.jpg)
![ Slideshow Image 1](/Banner-portlet/11431/1304678/4532821_banner3.jpg)
![ Slideshow Image 1](/Banner-portlet/11431/1304678/4532826_banner8.jpg)
![ Slideshow Image 1](/Banner-portlet/11431/1304678/4532825_banner7.jpg)
![ Slideshow Image 1](/Banner-portlet/11431/1304678/4532824_banner6.jpg)
| |
# Chi tiết tin
#
Văn bản mới Văn bản mới
VĂN BẢN MỚI
 Họp Sơ kết công tác quý I năm 2018 và triển khai nhiệm vụ trọng tâm công tác quý II năm 2018
![](/Quan_Ly_Van_Ban_2.1-portlet/Images/newicon.gif)
 Tài liệu sinh hoạt ngày pháp luật. Số 03/2018
 262/SGDĐT-GDTrH: V/v tổ chức Hội nghị chuẩn bị cho kỳ thi và cấp giấy chứng nhận nghề phổ thông năm học 2017-2018.
 248 /SGDĐT-VP: V/v tham gia cuộc thi “Tuổi trẻ học tập và làm theo tư tưởng, đạo đức, phong cách Hồ Chí Minh” năm 2018.
 Thông tư Sửa đổi, bổ sung một số điều của Quy chế thi trung học phổ thông quốc gia và xét công nhận tốt nghiệp trung học phổ thông ban hành kèm theo Thông tư số 04/2017/TT-BGDĐT ngày 25 tháng 01 năm 2017 của Bộ trưởng Bộ Giáo dục và Đào tạo.
#
Tin Ảnh Tin Ảnh
#
Videos Videos
*Tất cả videos* [Hướng dẫn thay đổi nguyện vọng ĐKXT thi THPT Quốc gia 2017] [Đoàn Giám sát HĐND tỉnh giám sát Sở GDĐT việc thực hiện chính sách, pháp luật đối với đội ngũ nhà giáo và cán bộ QLGD (Nguồn: Đài PT-TH Tiền Giang)] [Hội thi Nữ cán bộ giáo viên tài năng, duyên dáng tỉnh Tiền Giang lần thứ VIII năm 2017 (Nguồn: Đài PT-TH Tiền Giang)] [Thường trực Tỉnh ủy, HĐND, UBND tỉnh Tiền Giang đến thăm, chúc mừng và tặng hoa cho Sở Giáo dục và Đào tạo (Nguồn: Đài PT-TH Tiền Giang)]
#
Liên kết Liên kết
#
Thống kê Thống kê
**  Đang truy cập : 2   Hôm nay: 1913   Tổng lượt truy cập: 5169558**

Set-Cookie: COOKIE_SUPPORT=true; Expires=Fri, 31-Oct-2064 23:09:29 GMT; Path=/; HttpOnly

Liferay-Portal: Liferay Portal Community Edition 6.2 CE GA2 (Newton / Build 6201 / March 20, 2014)


markdown:
LẮP ĐẶT SỬA CHỮA ĐIỆN NƯỚC - ĐIỀU HÒA
UY TÍN - CHẤT LƯỢNG - GIÁ TỐT NHẤT
VẬT TƯ SỬA CHỮA ĐIỆN NƯỚC
Hà Nội - Ninh Bình - TP Hồ Chí Minh
TRANG CHỦ
KINH NGHIỆM SỬ DỤNG ĐỒ ĐIỆN
BÁO GIÁ DỊCH VỤ
TIN TỨC
GÓC THƯ GIÃN
tài liêu
LIÊN HỆ
GIỚI THIỆU
Lắp đặt điện nước
Sửa máy bơm nước
Sửa chữa điều hòa
Sửa chữa tủ lạnh
Sửa chữa máy giặt
Sửa chữa lò vi sóng
Sửa bình nóng lạnh
Sửa bếp từ
Sửa máy lọc nước ro
Biển quảng cáo LED
Trần thạch cao
Hỗ trợ trực tuyến
274 Trần Khát Trân-Hai Bà-Trưng-HN
0963 292 687
303 Trần Đại Nghĩa - Hai Bà Trưng-HN
0963 292 687
182 Lê Trọng Tấn -Thanh Xuân - HN
0963 292 687
435 Nguyễn V Cừ-GIA LÂM
0963 292 687
N 62-Trần Bình Trọng-P5-Hồ Chí Minh
0964 743 683
Nguyễn Công Trứ-Ninh-Bình
01696 982 074
Khánh cường-Yên Khánh-Ninh Bình
01696 982 074
LIÊN HỆ
Các tin khác
LIÊN HỆ
Các chi nhánh của trung tâm
Hà Nội - Ninh Bình - TP Hồ Chí Minh
0963 292 687 - 0973 403 336 - 0964 743 683

X-Powered-By-Plesk: PleskWin


markdown:
# bán bình nóng lạnh cũ
Bình nóng lạnh cũ giá tốt nhất phục vụ nhanh
Chuyên cung cấp
[bình nóng lạnh cũ](http://suatainha.com/tin-tuc/do-cu/ban-binh-nong-lanh-cu-tai-ha-noi.html)tại Cầu Giấy
Chuyên bán bình nóng lạnh cũ tại Hà Nội
Chuyên cung cấp bình nóng lạnh cũ tại Hà Nội
Chuyên cung cấp bình nóng lạnh cũ tại Hà Nội
Bán bình nóng lạnh cũ
Bình nóng lạnh cũ 50L
Bán Bình Nóng Lạnh Cũ giá rẻ nhất 2014
Chuyên bán bình nóng lạnh cũ

Set-Cookie: NVS=i01sfl04o9npm0jjkua5br0no5; path=/


markdown:
-
Hiện tại diễn đàn đang trong thời gian khắc phục lỗi nên thành viên chưa đăng bài được. Mình sẽ cố cập nhật trong thời gian sớm nhất. Mong các bạn thông cảm. Mọi bài viết vi phạm chính sách, Spam/Không đúng chuyên mục BQT sẽ xóa bài và nick vĩnh viễn.
Để báo lỗi hoặc
**đặt quảng cáo**tại website vui lòng liên hệ:
Email: vipkhongtin@gmail.com - FB:
[Vipkhongtin](http://fb.com/vipkhongtin). Xin cảm ơn! [Dismiss Notice](account/dismiss-notice?notice_id=1)
# Chợ xe Cần Bán Hướng dẫn cài gcafe x2 IP lol, pc fifa online3 mới nhất 1/1/2016
Thảo luận trong '
[Xe Máy - Xe Đạp - Ô Tô](forums/xe-may-xe-dap-o-to.23/)' bắt đầu bởi [trolygame225963], [1/1/16](threads/can-ban-huong-dan-cai-gcafe-x2-ip-lol-pc-fifa-online3-moi-nhat-1-1-2016.24514/).

Server: Nginx

X-Frame-Options: SAMEORIGIN

X-Powered-By: VPSSIM