text:
-Nguyên văn câu hỏi:
Trích dẫn(Lampv)
chao anh. em nhờ anh viết cho em cái lisp. như trong bản vẽ nhé cảm ơn anh
http://www.mediafire.com/?6j9kk3g3xsv2zlb
-Tạm thời mình chưa set layer, color, Ltype và vẽ cụ thể. Chỉ vẽ hình chữ nhật, 2 đường trục, hình tròn ở giữa, cặp 4 vòng tròn chính 4 góc.
-Chờ bạn LAMPV có yêu cầu xem đã hòm hòm chưa thì mình viết tiếp, về cơ bản là vẽ được nguyên cái hình đấy.
Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!
(defun c:VCN ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setq a (getpoint "\nChon tam hinh chu nhat: "))
(setvar "osmode" 0)
(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))
(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))
(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))
(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))
(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))
(command ".RECTANG" gocduoitrai goctrenphai)
(command ".LINE" bphai btrai "")
(command ".LINE" btren bduoi "")
(or rgiua (setq rgiua 17))
(command ".CIRCLE" a rgiua)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rgiua 2 2) " >:")))(rgiua)))
(command "UNDO" "1")
(command ".CIRCLE" a rgiua)
(or kcngang (setq kcngang 67))
(setq kcngang (cond ((getreal (strcat "\nKhoang cach vong tron goc voi tim ngang < " (rtos kcngang 2 2) " >:")))(kcngang)))
(command ".LINE" atren aduoi "")
(setq linengang (entlast))
(command ".MOVE" linengang "" a (polar a pi kcngang))
(command ".MIRROR" linengang "" atren aduoi "N")
(setq linengangphai (entlast))
(or kcdoc (setq kcdoc 77))
(setq kcdoc (cond ((getreal (strcat "\nKhoang cach vong tron goc voi tim doc < " (rtos kcdoc 2 2) " >:")))(kcdoc)))
(command ".LINE" aphai atrai "")
(setq linedoc (entlast))
(command ".MOVE" linedoc "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" linedoc "" atrai aphai "N")
(setq linedocphai (entlast))
(or rtrong (setq rtrong 10))
(command ".CIRCLE" a rtrong)
(setq trontrentrai (entlast))
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq trontrenphai (entlast))
(command ".MIRROR" "last" "" atrai aphai "N")
(setq tronduoitrai (entlast))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronduoiphai (entlast))
(setq rtrong (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rtrong 2 2) " >:")))(rtrong)))
(command "erase" trontrenphai trontrentrai tronduoiphai tronduoitrai "")
(command ".CIRCLE" a rtrong)
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(or rngoai (setq rngoai 12))
(command ".CIRCLE" a rngoai)
(setq tronngoaitrentrai (entlast))
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronngoaitrenphai (entlast))
(command ".MIRROR" "last" "" atrai aphai "N")
(setq tronngoaiduoitrai (entlast))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronngoaiduoiphai (entlast))
(setq rngoai (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rngoai 2 2) " >:")))(rngoai)))
(command "erase" tronngoaitrenphai tronngoaitrentrai tronngoaiduoiphai tronngoaiduoitrai "")
(command ".CIRCLE" a rngoai)
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(setq aphaitam (polar a pi (+ rngoai 3)))
(setq atraitam (polar a (* pi 2) (+ rngoai 3)))
(setq atrentam (polar a (/ pi 2) (+ rngoai 3)))
(setq aduoitam (polar a (* (/ pi 2) 3) (+ rngoai 3)))
(command ".LINE" aphaitam atraitam "")
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(command ".LINE" atrentam aduoitam "")
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(command "erase" linedocphai linedoc linengangphai linengang "")
(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))
-Bạn LAMPV có yêu cầu gì thì nêu ở đây, hôm qua bạn yêu cầu sai bài viết mình đã dời về mục yêu cầu lisp mong bạn lần sau nêu yêu cầu đúng chổ nếu không mình sẽ xoá nhé.
*Cập nhật ngày 02/12/2011 theo yêu cầu của bạn Lampv.
-Đã đã vẽ nguyên cái hình đấy trên 1 layer hiện hành.
-Chưa đánh kích thước và set layer + Ltype.
Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!
(defun c:VCN ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setq a (getpoint "\nChon tam hinh chu nhat: "))
(setvar "osmode" 0)
(command ".XLINE" a (polar a pi 3) (polar a (/ pi 2) 3) "")
(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))
(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))
(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))
(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))
(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))
(command ".undo" "1")
(command ".RECTANG" gocduoitrai goctrenphai)
(command ".LINE" bphai btrai "")
(command ".LINE" btren bduoi "")
;;;;;;;;
(or rgiua (setq rgiua 17))
(setq bankinhve1 rgiua)
(duy:hien1tron)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgiua 2 2) " >:")))(rgiua)))
(setq bankinhve1 rgiua)
(duy:ve1tron)
;;;;;;;;
;;;;;;;;
(or dngangl (setq dngangl 90))
(setq kcdoingang (/ dngangl 2))
(duy:hien2line)
(setq dngangl (cond ((getreal (strcat "\nKich thuoc bang giua < " (rtos dngangl 2 2) " >:")))(dngangl)))
(setq kcdoingang (/ dngangl 2))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dngangln (setq dngangln 25))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:hien2line)
(setq dngangln (cond ((getreal (strcat "\nKhoang cach bang ben voi mep ngoai < " (rtos dngangln 2 2) " >:")))(dngangln)))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dnganglt (setq dnganglt 43))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:hien2line)
(setq dnganglt (cond ((getreal (strcat "\nKich thuoc bang ben < " (rtos dnganglt 2 2) " >:")))(dnganglt)))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or rgcoc (setq rgoc 10))
(or dngang (setq dngang 67))
(or ddoc (setq ddoc 77))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:hien4tron)
(setq rgoc (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgoc 2 2) " >:")))(rgoc)))
(setq dngang (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngang 2 2) " >:")))(dngang)))
(setq ddoc (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddoc 2 2) " >:")))(ddoc)))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocn (setq rgocn (+ rgoc 3)))
(setq bankinhve4 rgocn)
(duy:hien4tron)
(setq rgocn (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocn 2 2) " >:")))(rgocn)))
(setq bankinhve4 rgocn)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocm (setq rgocm 5))
(or dngangm (setq dngangm 72))
(or ddocm (setq ddocm 42))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:hien4lucgiac)
(setq rgocm (cond ((getreal (strcat "\nBan kinh hinh luc giac < " (rtos rgocm 2 2) " >:")))(rgocm)))
(setq dngangm (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangm 2 2) " >:")))(dngangm)))
(setq ddocm (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocm 2 2) " >:")))(ddocm)))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:ve4lucgiac)
;;;;;;;;
;;;;;;;;
(or rgcocnm (setq rgocnm (+ rgocm 3)))
(setq bankinhve4 rgocnm)
(duy:hien4tron)
(setq rgocnm (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocnm 2 2) " >:")))(rgocnm)))
(setq bankinhve4 rgocnm)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocg (setq rgocg 2.5))
(or dngangg (setq dngangg 36))
(or ddocg (setq ddocg 91))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:hien4tron)
(setq rgocg (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgocg 2 2) " >:")))(rgocg)))
(setq dngangg (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangg 2 2) " >:")))(dngangg)))
(setq ddocg (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocg 2 2) " >:")))(ddocg)))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocng (setq rgocng (+ rgocg 0.5)))
(setq bankinhve4 rgocng)
(duy:hien4tron)
(setq rgocng (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocng 2 2) " >:")))(rgocng)))
(setq bankinhve4 rgocng)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocgd (setq rgocgd 6))
(or dnganggd (setq dnganggd 24))
(or ddocgd (setq ddocgd 82))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:hien4tron)
(setq rgocgd (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgocgd 2 2) " >:")))(rgocgd)))
(setq dnganggd (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dnganggd 2 2) " >:")))(dnganggd)))
(setq ddocgd (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocgd 2 2) " >:")))(ddocgd)))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien1tron ( )
(command ".CIRCLE" a bankinhve1)
(setq doituongxoa (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve1tron ( )
(command ".erase" doituongxoa "")
(command ".CIRCLE" a bankinhve1)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4tron ( )
(command ".CIRCLE" a bankinhve4)
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4tron ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".CIRCLE" a bankinhve4)
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4lucgiac ( )
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4lucgiac ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4cong ( )
(command ".line" (polar a pi (+ bankinhve4 3)) (polar a (* pi 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".line" (polar a (/ pi 2) (+ bankinhve4 3)) (polar a (/ (* pi 3) 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien2line ( )
(command ".line" atren aduoi "")
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve2line ( )
(command ".erase" doituongxoa doituongxoa1 "")
(command ".line" atren aduoi "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
*Cập nhật ngày 05/12/2011 theo yêu cầu copy thêm chi tiết vừa vẽ ra 1 vị trí mới của bạn Lampv.
-Tạm thời mình copy ra mà không tạo thành block.
-Nếu ko có nhu cầu thống kê thì theo mình để đối tượng rời thế cho tiện.
Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!
(defun c:vcn (/ tbl)
(setq a (getpoint "\nChon tam hinh chu nhat: "))
(duy:vechitietcokhi)
(setq b (getpoint "\nChon tam hinh chu nhat tiep theo: "))
(command ".copy" tbl "" a b "")
(Princ))
;;;;;;;;;;;;;;;;;;
(defun duy:vechitietcokhi ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".XLINE" a (polar a pi 3) (polar a (/ pi 2) 3) "")
(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))
(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))
(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))
(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))
(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))
(command ".undo" "1")
(command ".RECTANG" gocduoitrai goctrenphai)
(setq tbl (ssget "l"))
(command ".LINE" bphai btrai "")
(duy:themvaotbl)
(command ".LINE" btren bduoi "")
(duy:themvaotbl)
;;;;;;;;
(or rgiua (setq rgiua 17))
(setq bankinhve1 rgiua)
(duy:hien1tron)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgiua 2 2) " >:")))(rgiua)))
(setq bankinhve1 rgiua)
(duy:ve1tron)
;;;;;;;;
;;;;;;;;
(or dngangl (setq dngangl 90))
(setq kcdoingang (/ dngangl 2))
(duy:hien2line)
(setq dngangl (cond ((getreal (strcat "\nKich thuoc bang giua < " (rtos dngangl 2 2) " >:")))(dngangl)))
(setq kcdoingang (/ dngangl 2))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dngangln (setq dngangln 25))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:hien2line)
(setq dngangln (cond ((getreal (strcat "\nKhoang cach bang ben voi mep ngoai < " (rtos dngangln 2 2) " >:")))(dngangln)))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dnganglt (setq dnganglt 43))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:hien2line)
(setq dnganglt (cond ((getreal (strcat "\nKich thuoc bang ben < " (rtos dnganglt 2 2) " >:")))(dnganglt)))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or rgcoc (setq rgoc 10))
(or dngang (setq dngang 67))
(or ddoc (setq ddoc 77))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:hien4tron)
(setq rgoc (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgoc 2 2) " >:")))(rgoc)))
(setq dngang (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngang 2 2) " >:")))(dngang)))
(setq ddoc (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddoc 2 2) " >:")))(ddoc)))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocn (setq rgocn (+ rgoc 3)))
(setq bankinhve4 rgocn)
(duy:hien4tron)
(setq rgocn (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocn 2 2) " >:")))(rgocn)))
(setq bankinhve4 rgocn)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocm (setq rgocm 5))
(or dngangm (setq dngangm 72))
(or ddocm (setq ddocm 42))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:hien4lucgiac)
(setq rgocm (cond ((getreal (strcat "\nBan kinh hinh luc giac < " (rtos rgocm 2 2) " >:")))(rgocm)))
(setq dngangm (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangm 2 2) " >:")))(dngangm)))
(setq ddocm (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocm 2 2) " >:")))(ddocm)))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:ve4lucgiac)
;;;;;;;;
;;;;;;;;
(or rgcocnm (setq rgocnm (+ rgocm 3)))
(setq bankinhve4 rgocnm)
(duy:hien4tron)
(setq rgocnm (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocnm 2 2) " >:")))(rgocnm)))
(setq bankinhve4 rgocnm)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocg (setq rgocg 2.5))
(or dngangg (setq dngangg 36))
(or ddocg (setq ddocg 91))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:hien4tron)
(setq rgocg (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgocg 2 2) " >:")))(rgocg)))
(setq dngangg (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangg 2 2) " >:")))(dngangg)))
(setq ddocg (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocg 2 2) " >:")))(ddocg)))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocng (setq rgocng (+ rgocg 0.5)))
(setq bankinhve4 rgocng)
(duy:hien4tron)
(setq rgocng (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocng 2 2) " >:")))(rgocng)))
(setq bankinhve4 rgocng)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocgd (setq rgocgd 6))
(or dnganggd (setq dnganggd 24))
(or ddocgd (setq ddocgd 82))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:hien4tron)
(setq rgocgd (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgocgd 2 2) " >:")))(rgocgd)))
(setq dnganggd (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dnganggd 2 2) " >:")))(dnganggd)))
(setq ddocgd (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocgd 2 2) " >:")))(ddocgd)))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien1tron ( )
(command ".CIRCLE" a bankinhve1)
(setq doituongxoa (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve1tron ( )
(command ".erase" doituongxoa "")
(command ".CIRCLE" a bankinhve1)
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4tron ( )
(command ".CIRCLE" a bankinhve4)
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4tron ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".CIRCLE" a bankinhve4)
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4lucgiac ( )
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4lucgiac ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4cong ( )
(command ".line" (polar a pi (+ bankinhve4 3)) (polar a (* pi 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".line" (polar a (/ pi 2) (+ bankinhve4 3)) (polar a (/ (* pi 3) 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien2line ( )
(command ".line" atren aduoi "")
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve2line ( )
(command ".erase" doituongxoa doituongxoa1 "")
(command ".line" atren aduoi "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:themvaotbl ( )
(command "Select" tbl "last" "")
(setq tbl (ssget "P"))
(Princ))
CHÀO ANH DUY.Trả lờiXóa
RẤT CẢM ƠN ANH VỀ CÁI LISP NÀY.
NHƯ VẬY LÀ ĐÚNG YÊU CẦU CỦA EM RỒI.
CẢM ƠN ANH.
ANH DUY.
EM MUỐN VẼ THÊM 6 CÁI NÉT KHUẤT DỌC LUÔN DƯỢC KHÔNG ANH.
EM DANG NGHIÊN CỨU BÀI GIẢNG VIẾT LISP CỦA ANH,
HAY QUÁ TRỜI NHƯNG EM VẪN CHƯA LÀM DDUOCJ GÌ NHIỀU CẢ.
MONG ANH CHỈ GIÁO THÊM.
Ý là vẽ được nguyên cái hình đấy vẩn 0k nưng mình dừng lại chờ vì nghi là hình tròn góc có phải nằm chính giửa hai nét khuất 43 đó không, và khoàng cách giửa 2 nét khuất sát nahu í là cố định bao nhiêu hay nhập vào.Trả lờiXóa
Đến đây mình cần bạn yêu vầu rỏ sẽ hỏi kích thước gì, tính ra sao để vẽ thì mới viết tiếp.
chào anh.Trả lờiXóa
4 đường tròn kích thước và khoản cách là mình nhập vào.
nó không nằm giửa đâu.
6 cái nét khuất đó mình cũng nhập vào tùy từng chủng loại.
em load lên nguyên cái file khai triển để anh dễ hình dung.
http://www.mediafire.com/?7szv7wjni9wskih
http://www.mediafire.com/?xmd2pebeggr23jr
những cái này là giống nhau chỉ khác kích thước thôi.
tại vì ngày nào cung làm di làm lại cái này hoài nên em muốn viết cái lisp cho nó chạy luôn.
đở sai sót
Được rồi thong thả mình làm cho quả hộp thoại nhập 1 phát vẽ luôn ko phải ỏi han chi nửa.Trả lờiXóa
Chỉ là vấn đề load nét cho layer có vướng nên mình viết lisp chạy trên bản vẽ mẫu đã tạo sẳn layer nhé.
anh duy.Trả lờiXóa
2 cái nét khuất gần nhau đó là khe hở giửa gối 43 và tấm 90.
tấm 90 đó mình cũng nhập vào.
gối 43 thì đối xứng qua tâm.
khoản cách 43 mình cũng nhập vào.
4 lổ bulon mình cung nhập khoan cách vào.
nhưng có bộ tới 6 con lận.
anh cố gắn giúp em với.
cảm ơn anh rất là nhiều.
hay anh viết cho em từng lisp riêng cũng được.
-vidụ:
-vẽ hình vuông ngoài.
-vẽ 4 lổ ở góc.
-vẽ tấm 90+4 lổ 4 góc tấm 90.
-vẽ 4 hoặc 6 bulon.
-vẽ 2 gối 43.
như vậy là ok rồi.
em cảm ơn anh trước nhé.
-Gối 43 đối xứng qua tâm nhưng khoảng cách tim gối 43 có trùng với tim 4 lổ góc không hay khoảng cách này cũng nhập vào?Trả lờiXóa
-Bộ 6 bulon thì có 2 con ở giữa trục đối xứng ngang phải không?
chào anh DuyTrả lờiXóa
khoảng cách gối 43 không trùng với tim 4 lổ, mình phải nhập vào khoảng cách gối 43 đó, có loại không gối không phải 43 mà 48 chẳng hạn, khoảng cách từ tâm đến gối mình cũng nhập vào. thường thì gối cách mép ngoài của hình chử nhật là 25mm cho tất cả các loại, chỉ 1 số trường hợp đặc biệt thì khoảng cách từ mép ngoài của hình chử nhật mới khác thôi.
anh cứ cho khoảng cách từ mép ngoài của hình chữ nhật vào đến mép của gối là 25mm, rồi cho nhập vào gối là 43 hay ?? tùy mình anh nhé.
6 bulon là 2 con giữa đối xứng ngang qua X.
rất cảm ơn anh.
Cập nhật lisp vào bài viết trên rồi nha bạn!Trả lờiXóa
chao Anh duy.Trả lờiXóa
nhu vậy là ok rồi.
rất cảm ơn anh nhé.
bây giờ em muốn cái hình vừa vẽ thành 1 block và copy thành 1 hình nữa được không anh.
Nhiều đối tượng quá mình đóng thành block không nổi. Còn muốn 1 cái giống y thì bạn thực hiện lệnh lại lần nửa và chọn điểm xong enter 21 lần là ok vì lisp nhớ các giá trị trước.Trả lờiXóa
Đã tìm ra cách gom nhóm đối tượng. Làm theo yêu cầu bạn thì được nhưng nếu đóng thành block thì có sinh nhiều block quá không, bạn chọn phương án xem:Trả lờiXóa
+Tạo thành block rồi copy ra vị trí thứ 2.
+Copy ra vị trí thứ 2 mà không tạo block.
+Số lần copy ra cố định là 2 lần hay có thay đổi.
chào anh Duy.Trả lờiXóa
em muốn copy ra vị trí thứ 2 mà không cần tạo block.
số lần copy chỉ cần 2 là đủ.
anh cố gắn giúp em với nhé.
cho em hỏi riêng tí là: anh Duy đang làm ở quảng ngãi hay ở đâu.
-Yêu cầu trên thì mình cập nhật sẳn trên bài viết rồi đấy bạn.Trả lờiXóa
-Mình làm ở Cty CP tư vấn XD&ĐT Quảng Ngãi.
chao anh.Trả lờiXóa
lúc trước em làm cho PTSC quảng ngãi.
nhưng giờ thì chạy vào sài gòn rồi.
tưởng anh ở sài gòn thì mời anh đi nhậu.
còn ở quảng ngãi thì chịu rồi.
hồi anh Duy học lisp ở đâu vậy.
em nghiên cứ hoài mà không ngộ ra dc tí nào.
chỉ làm ba cái vớ vẩn thôi.
có diệp nào nhờ anh Duy chỉ cho vài chiêu.
cảm ơn anh về cái lisp.

markdown:
-Nguyên văn câu hỏi:
**Trích dẫn(Lampv)**
chao anh. em nhờ anh viết cho em cái lisp. như trong bản vẽ nhé cảm ơn anh
http://www.mediafire.com/?6j9kk3g3xsv2zlb
![ ](http://i219.photobucket.com/albums/cc49/duy782006/cn4tr.gif)
![ ](http://i219.photobucket.com/albums/cc49/duy782006/cn4tr.gif)
-Tạm thời mình chưa set layer, color, Ltype và vẽ cụ thể. Chỉ vẽ hình chữ nhật, 2 đường trục, hình tròn ở giữa, cặp 4 vòng tròn chính 4 góc.
-Chờ bạn LAMPV có yêu cầu xem đã hòm hòm chưa thì mình viết tiếp, về cơ bản là vẽ được nguyên cái hình đấy.
**Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!**
(defun c:VCN ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setq a (getpoint "\nChon tam hinh chu nhat: "))
(setvar "osmode" 0)
(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))
(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))
(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))
(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))
(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))
(command ".RECTANG" gocduoitrai goctrenphai)
(command ".LINE" bphai btrai "")
(command ".LINE" btren bduoi "")
(or rgiua (setq rgiua 17))
(command ".CIRCLE" a rgiua)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rgiua 2 2) " >:")))(rgiua)))
(command "UNDO" "1")
(command ".CIRCLE" a rgiua)
(or kcngang (setq kcngang 67))
(setq kcngang (cond ((getreal (strcat "\nKhoang cach vong tron goc voi tim ngang < " (rtos kcngang 2 2) " >:")))(kcngang)))
(command ".LINE" atren aduoi "")
(setq linengang (entlast))
(command ".MOVE" linengang "" a (polar a pi kcngang))
(command ".MIRROR" linengang "" atren aduoi "N")
(setq linengangphai (entlast))
(or kcdoc (setq kcdoc 77))
(setq kcdoc (cond ((getreal (strcat "\nKhoang cach vong tron goc voi tim doc < " (rtos kcdoc 2 2) " >:")))(kcdoc)))
(command ".LINE" aphai atrai "")
(setq linedoc (entlast))
(command ".MOVE" linedoc "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" linedoc "" atrai aphai "N")
(setq linedocphai (entlast))
(or rtrong (setq rtrong 10))
(command ".CIRCLE" a rtrong)
(setq trontrentrai (entlast))
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq trontrenphai (entlast))
(command ".MIRROR" "last" "" atrai aphai "N")
(setq tronduoitrai (entlast))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronduoiphai (entlast))
(setq rtrong (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rtrong 2 2) " >:")))(rtrong)))
(command "erase" trontrenphai trontrentrai tronduoiphai tronduoitrai "")
(command ".CIRCLE" a rtrong)
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(or rngoai (setq rngoai 12))
(command ".CIRCLE" a rngoai)
(setq tronngoaitrentrai (entlast))
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronngoaitrenphai (entlast))
(command ".MIRROR" "last" "" atrai aphai "N")
(setq tronngoaiduoitrai (entlast))
(command ".MIRROR" "last" "" atren aduoi "N")
(setq tronngoaiduoiphai (entlast))
(setq rngoai (cond ((getreal (strcat "\nBan kinh hinh tron nay < " (rtos rngoai 2 2) " >:")))(rngoai)))
(command "erase" tronngoaitrenphai tronngoaitrentrai tronngoaiduoiphai tronngoaiduoitrai "")
(command ".CIRCLE" a rngoai)
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(setq aphaitam (polar a pi (+ rngoai 3)))
(setq atraitam (polar a (* pi 2) (+ rngoai 3)))
(setq atrentam (polar a (/ pi 2) (+ rngoai 3)))
(setq aduoitam (polar a (* (/ pi 2) 3) (+ rngoai 3)))
(command ".LINE" aphaitam atraitam "")
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(command ".LINE" atrentam aduoitam "")
(command ".MOVE" "last" "" a (polar a pi kcngang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoc))
(command ".MIRROR" "last" "" bphai btrai "N")
(command ".MIRROR" "last" "Previous" "" btren bduoi "N")
(command "erase" linedocphai linedoc linengangphai linengang "")
(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))
-Bạn LAMPV có yêu cầu gì thì nêu ở đây, hôm qua bạn yêu cầu sai bài viết mình đã dời về mục yêu cầu lisp mong bạn lần sau nêu yêu cầu đúng chổ nếu không mình sẽ xoá nhé.
***Cập nhật ngày 02/12/2011 theo yêu cầu của bạn Lampv.**
-Đã đã vẽ nguyên cái hình đấy trên 1 layer hiện hành.
-Chưa đánh kích thước và set layer + Ltype.
**Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!**
(defun c:VCN ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setq a (getpoint "\nChon tam hinh chu nhat: "))
(setvar "osmode" 0)
(command ".XLINE" a (polar a pi 3) (polar a (/ pi 2) 3) "")
(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))
(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))
(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))
(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))
(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))
(command ".undo" "1")
(command ".RECTANG" gocduoitrai goctrenphai)
(command ".LINE" bphai btrai "")
(command ".LINE" btren bduoi "")
;;;;;;;;
(or rgiua (setq rgiua 17))
(setq bankinhve1 rgiua)
(duy:hien1tron)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgiua 2 2) " >:")))(rgiua)))
(setq bankinhve1 rgiua)
(duy:ve1tron)
;;;;;;;;
;;;;;;;;
(or dngangl (setq dngangl 90))
(setq kcdoingang (/ dngangl 2))
(duy:hien2line)
(setq dngangl (cond ((getreal (strcat "\nKich thuoc bang giua < " (rtos dngangl 2 2) " >:")))(dngangl)))
(setq kcdoingang (/ dngangl 2))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dngangln (setq dngangln 25))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:hien2line)
(setq dngangln (cond ((getreal (strcat "\nKhoang cach bang ben voi mep ngoai < " (rtos dngangln 2 2) " >:")))(dngangln)))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dnganglt (setq dnganglt 43))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:hien2line)
(setq dnganglt (cond ((getreal (strcat "\nKich thuoc bang ben < " (rtos dnganglt 2 2) " >:")))(dnganglt)))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or rgcoc (setq rgoc 10))
(or dngang (setq dngang 67))
(or ddoc (setq ddoc 77))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:hien4tron)
(setq rgoc (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgoc 2 2) " >:")))(rgoc)))
(setq dngang (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngang 2 2) " >:")))(dngang)))
(setq ddoc (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddoc 2 2) " >:")))(ddoc)))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocn (setq rgocn (+ rgoc 3)))
(setq bankinhve4 rgocn)
(duy:hien4tron)
(setq rgocn (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocn 2 2) " >:")))(rgocn)))
(setq bankinhve4 rgocn)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocm (setq rgocm 5))
(or dngangm (setq dngangm 72))
(or ddocm (setq ddocm 42))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:hien4lucgiac)
(setq rgocm (cond ((getreal (strcat "\nBan kinh hinh luc giac < " (rtos rgocm 2 2) " >:")))(rgocm)))
(setq dngangm (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangm 2 2) " >:")))(dngangm)))
(setq ddocm (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocm 2 2) " >:")))(ddocm)))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:ve4lucgiac)
;;;;;;;;
;;;;;;;;
(or rgcocnm (setq rgocnm (+ rgocm 3)))
(setq bankinhve4 rgocnm)
(duy:hien4tron)
(setq rgocnm (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocnm 2 2) " >:")))(rgocnm)))
(setq bankinhve4 rgocnm)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocg (setq rgocg 2.5))
(or dngangg (setq dngangg 36))
(or ddocg (setq ddocg 91))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:hien4tron)
(setq rgocg (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgocg 2 2) " >:")))(rgocg)))
(setq dngangg (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangg 2 2) " >:")))(dngangg)))
(setq ddocg (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocg 2 2) " >:")))(ddocg)))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocng (setq rgocng (+ rgocg 0.5)))
(setq bankinhve4 rgocng)
(duy:hien4tron)
(setq rgocng (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocng 2 2) " >:")))(rgocng)))
(setq bankinhve4 rgocng)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocgd (setq rgocgd 6))
(or dnganggd (setq dnganggd 24))
(or ddocgd (setq ddocgd 82))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:hien4tron)
(setq rgocgd (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgocgd 2 2) " >:")))(rgocgd)))
(setq dnganggd (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dnganggd 2 2) " >:")))(dnganggd)))
(setq ddocgd (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocgd 2 2) " >:")))(ddocgd)))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien1tron ( )
(command ".CIRCLE" a bankinhve1)
(setq doituongxoa (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve1tron ( )
(command ".erase" doituongxoa "")
(command ".CIRCLE" a bankinhve1)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4tron ( )
(command ".CIRCLE" a bankinhve4)
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4tron ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".CIRCLE" a bankinhve4)
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4lucgiac ( )
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4lucgiac ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4cong ( )
(command ".line" (polar a pi (+ bankinhve4 3)) (polar a (* pi 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".line" (polar a (/ pi 2) (+ bankinhve4 3)) (polar a (/ (* pi 3) 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" "last" "" atren aduoi "N")
(command ".MIRROR" "last" "" atrai aphai "N")
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien2line ( )
(command ".line" atren aduoi "")
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve2line ( )
(command ".erase" doituongxoa doituongxoa1 "")
(command ".line" atren aduoi "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" "last" "" atren aduoi "N")
(Princ))
***Cập nhật ngày 05/12/2011 theo yêu cầu copy thêm chi tiết vừa vẽ ra 1 vị trí mới của bạn Lampv.**
-Tạm thời mình copy ra mà không tạo thành block.
-Nếu ko có nhu cầu thống kê thì theo mình để đối tượng rời thế cho tiện.
**Bạn copy nội dung và tạo file lisp hoặc tải về phía dưới nhé!**
(defun c:vcn (/ tbl)
(setq a (getpoint "\nChon tam hinh chu nhat: "))
(duy:vechitietcokhi)
(setq b (getpoint "\nChon tam hinh chu nhat tiep theo: "))
(command ".copy" tbl "" a b "")
(Princ))
;;;;;;;;;;;;;;;;;;
(defun duy:vechitietcokhi ( )
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command ".XLINE" a (polar a pi 3) (polar a (/ pi 2) 3) "")
(or canhngang (setq canhngang 230))
(setq canhngang (cond ((getreal (strcat "\nCanh ngang hinh chu nhat < " (rtos canhngang 2 2) " >:")))(canhngang)))
(or canhdung (setq canhdung 200))
(setq canhdung (cond ((getreal (strcat "\nCanh dung hinh chu nhat < " (rtos canhdung 2 2) " >:")))(canhdung)))
(setq aphai (polar a pi (/ canhngang 2)))
(setq atrai (polar a (* pi 2) (/ canhngang 2)))
(setq atren (polar a (/ pi 2) (/ canhdung 2)))
(setq aduoi (polar a (* (/ pi 2) 3) (/ canhdung 2)))
(setq bphai (polar aphai pi 3))
(setq btrai (polar atrai (* pi 2) 3))
(setq btren (polar atren (/ pi 2) 3))
(setq bduoi (polar aduoi (* (/ pi 2) 3) 3))
(setq gocduoitrai (polar atrai (* (/ pi 2) 3) (/ canhdung 2)))
(setq goctrenphai (polar aphai (/ pi 2) (/ canhdung 2)))
(command ".undo" "1")
(command ".RECTANG" gocduoitrai goctrenphai)
(setq tbl (ssget "l"))
(command ".LINE" bphai btrai "")
(duy:themvaotbl)
(command ".LINE" btren bduoi "")
(duy:themvaotbl)
;;;;;;;;
(or rgiua (setq rgiua 17))
(setq bankinhve1 rgiua)
(duy:hien1tron)
(setq rgiua (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgiua 2 2) " >:")))(rgiua)))
(setq bankinhve1 rgiua)
(duy:ve1tron)
;;;;;;;;
;;;;;;;;
(or dngangl (setq dngangl 90))
(setq kcdoingang (/ dngangl 2))
(duy:hien2line)
(setq dngangl (cond ((getreal (strcat "\nKich thuoc bang giua < " (rtos dngangl 2 2) " >:")))(dngangl)))
(setq kcdoingang (/ dngangl 2))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dngangln (setq dngangln 25))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:hien2line)
(setq dngangln (cond ((getreal (strcat "\nKhoang cach bang ben voi mep ngoai < " (rtos dngangln 2 2) " >:")))(dngangln)))
(setq kcdoingang (- (/ canhngang 2) dngangln))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or dnganglt (setq dnganglt 43))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:hien2line)
(setq dnganglt (cond ((getreal (strcat "\nKich thuoc bang ben < " (rtos dnganglt 2 2) " >:")))(dnganglt)))
(setq kcdoingang (- (/ canhngang 2) (+ dngangln dnganglt)))
(duy:ve2line)
;;;;;;;;
;;;;;;;;
(or rgcoc (setq rgoc 10))
(or dngang (setq dngang 67))
(or ddoc (setq ddoc 77))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:hien4tron)
(setq rgoc (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgoc 2 2) " >:")))(rgoc)))
(setq dngang (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngang 2 2) " >:")))(dngang)))
(setq ddoc (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddoc 2 2) " >:")))(ddoc)))
(setq bankinhve4 rgoc)
(setq kcdoingang dngang)
(setq kcdoidoc ddoc)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocn (setq rgocn (+ rgoc 3)))
(setq bankinhve4 rgocn)
(duy:hien4tron)
(setq rgocn (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocn 2 2) " >:")))(rgocn)))
(setq bankinhve4 rgocn)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocm (setq rgocm 5))
(or dngangm (setq dngangm 72))
(or ddocm (setq ddocm 42))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:hien4lucgiac)
(setq rgocm (cond ((getreal (strcat "\nBan kinh hinh luc giac < " (rtos rgocm 2 2) " >:")))(rgocm)))
(setq dngangm (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangm 2 2) " >:")))(dngangm)))
(setq ddocm (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocm 2 2) " >:")))(ddocm)))
(setq bankinhve5 rgocm)
(setq kcdoingang dngangm)
(setq kcdoidoc ddocm)
(duy:ve4lucgiac)
;;;;;;;;
;;;;;;;;
(or rgcocnm (setq rgocnm (+ rgocm 3)))
(setq bankinhve4 rgocnm)
(duy:hien4tron)
(setq rgocnm (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocnm 2 2) " >:")))(rgocnm)))
(setq bankinhve4 rgocnm)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocg (setq rgocg 2.5))
(or dngangg (setq dngangg 36))
(or ddocg (setq ddocg 91))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:hien4tron)
(setq rgocg (cond ((getreal (strcat "\nBan kinh hinh tron goc trong < " (rtos rgocg 2 2) " >:")))(rgocg)))
(setq dngangg (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dngangg 2 2) " >:")))(dngangg)))
(setq ddocg (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocg 2 2) " >:")))(ddocg)))
(setq bankinhve4 rgocg)
(setq kcdoingang dngangg)
(setq kcdoidoc ddocg)
(duy:ve4tron)
;;;;;;;;
;;;;;;;;
(or rgcocng (setq rgocng (+ rgocg 0.5)))
(setq bankinhve4 rgocng)
(duy:hien4tron)
(setq rgocng (cond ((getreal (strcat "\nBan kinh hinh tron goc ngoai < " (rtos rgocng 2 2) " >:")))(rgocng)))
(setq bankinhve4 rgocng)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
;;;;;;;;
(or rgcocgd (setq rgocgd 6))
(or dnganggd (setq dnganggd 24))
(or ddocgd (setq ddocgd 82))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:hien4tron)
(setq rgocgd (cond ((getreal (strcat "\nBan kinh hinh tron < " (rtos rgocgd 2 2) " >:")))(rgocgd)))
(setq dnganggd (cond ((getreal (strcat "\nKhoang cach voi truc dung < " (rtos dnganggd 2 2) " >:")))(dnganggd)))
(setq ddocgd (cond ((getreal (strcat "\nkhoang cach voi truc ngang < " (rtos ddocgd 2 2) " >:")))(ddocgd)))
(setq bankinhve4 rgocgd)
(setq kcdoingang dnganggd)
(setq kcdoidoc ddocgd)
(duy:ve4tron)
(duy:ve4cong)
;;;;;;;;
(setvar "osmode" luubatdiem)
(command "undo" "end")
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien1tron ( )
(command ".CIRCLE" a bankinhve1)
(setq doituongxoa (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve1tron ( )
(command ".erase" doituongxoa "")
(command ".CIRCLE" a bankinhve1)
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4tron ( )
(command ".CIRCLE" a bankinhve4)
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4tron ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".CIRCLE" a bankinhve4)
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien4lucgiac ( )
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(command ".MIRROR" doituongxoa "" atrai aphai "N")
(setq doituongxoa2 (entlast))
(command ".MIRROR" doituongxoa2 "" atren aduoi "N")
(setq doituongxoa3 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4lucgiac ( )
(command ".erase" doituongxoa doituongxoa1 doituongxoa2 doituongxoa3 "")
(command ".POLYGON" "6" a "c" (polar a (/ pi 2) bankinhve5))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve4cong ( )
(command ".line" (polar a pi (+ bankinhve4 3)) (polar a (* pi 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".line" (polar a (/ pi 2) (+ bankinhve4 3)) (polar a (/ (* pi 3) 2) (+ bankinhve4 3)) "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MOVE" "last" "" a (polar a (/ pi 2) kcdoidoc))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atrai aphai "N")
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:hien2line ( )
(command ".line" atren aduoi "")
(setq doituongxoa (entlast))
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(command ".MIRROR" doituongxoa "" atren aduoi "N")
(setq doituongxoa1 (entlast))
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:ve2line ( )
(command ".erase" doituongxoa doituongxoa1 "")
(command ".line" atren aduoi "")
(command ".MOVE" "last" "" a (polar a pi kcdoingang))
(duy:themvaotbl)
(command ".MIRROR" "last" "" atren aduoi "N")
(duy:themvaotbl)
(Princ))
;;;;;;;;;;;;;;;;;;;;;;;
(defun duy:themvaotbl ( )
(command "Select" tbl "last" "")
(setq tbl (ssget "P"))
(Princ))
CHÀO ANH DUY.Trả lờiXóa
RẤT CẢM ƠN ANH VỀ CÁI LISP NÀY.
NHƯ VẬY LÀ ĐÚNG YÊU CẦU CỦA EM RỒI.
CẢM ƠN ANH.
ANH DUY.
EM MUỐN VẼ THÊM 6 CÁI NÉT KHUẤT DỌC LUÔN DƯỢC KHÔNG ANH.
EM DANG NGHIÊN CỨU BÀI GIẢNG VIẾT LISP CỦA ANH,
HAY QUÁ TRỜI NHƯNG EM VẪN CHƯA LÀM DDUOCJ GÌ NHIỀU CẢ.
MONG ANH CHỈ GIÁO THÊM.
Ý là vẽ được nguyên cái hình đấy vẩn 0k nưng mình dừng lại chờ vì nghi là hình tròn góc có phải nằm chính giửa hai nét khuất 43 đó không, và khoàng cách giửa 2 nét khuất sát nahu í là cố định bao nhiêu hay nhập vào.Trả lờiXóa
Đến đây mình cần bạn yêu vầu rỏ sẽ hỏi kích thước gì, tính ra sao để vẽ thì mới viết tiếp.
chào anh.Trả lờiXóa
4 đường tròn kích thước và khoản cách là mình nhập vào.
nó không nằm giửa đâu.
6 cái nét khuất đó mình cũng nhập vào tùy từng chủng loại.
em load lên nguyên cái file khai triển để anh dễ hình dung.
http://www.mediafire.com/?7szv7wjni9wskih
http://www.mediafire.com/?xmd2pebeggr23jr
những cái này là giống nhau chỉ khác kích thước thôi.
tại vì ngày nào cung làm di làm lại cái này hoài nên em muốn viết cái lisp cho nó chạy luôn.
đở sai sót
Được rồi thong thả mình làm cho quả hộp thoại nhập 1 phát vẽ luôn ko phải ỏi han chi nửa.Trả lờiXóa
Chỉ là vấn đề load nét cho layer có vướng nên mình viết lisp chạy trên bản vẽ mẫu đã tạo sẳn layer nhé.
anh duy.Trả lờiXóa
2 cái nét khuất gần nhau đó là khe hở giửa gối 43 và tấm 90.
tấm 90 đó mình cũng nhập vào.
gối 43 thì đối xứng qua tâm.
khoản cách 43 mình cũng nhập vào.
4 lổ bulon mình cung nhập khoan cách vào.
nhưng có bộ tới 6 con lận.
anh cố gắn giúp em với.
cảm ơn anh rất là nhiều.
hay anh viết cho em từng lisp riêng cũng được.
-vidụ:
-vẽ hình vuông ngoài.
-vẽ 4 lổ ở góc.
-vẽ tấm 90+4 lổ 4 góc tấm 90.
-vẽ 4 hoặc 6 bulon.
-vẽ 2 gối 43.
như vậy là ok rồi.
em cảm ơn anh trước nhé.
-Gối 43 đối xứng qua tâm nhưng khoảng cách tim gối 43 có trùng với tim 4 lổ góc không hay khoảng cách này cũng nhập vào?Trả lờiXóa
-Bộ 6 bulon thì có 2 con ở giữa trục đối xứng ngang phải không?
chào anh DuyTrả lờiXóa
khoảng cách gối 43 không trùng với tim 4 lổ, mình phải nhập vào khoảng cách gối 43 đó, có loại không gối không phải 43 mà 48 chẳng hạn, khoảng cách từ tâm đến gối mình cũng nhập vào. thường thì gối cách mép ngoài của hình chử nhật là 25mm cho tất cả các loại, chỉ 1 số trường hợp đặc biệt thì khoảng cách từ mép ngoài của hình chử nhật mới khác thôi.
anh cứ cho khoảng cách từ mép ngoài của hình chữ nhật vào đến mép của gối là 25mm, rồi cho nhập vào gối là 43 hay ?? tùy mình anh nhé.
6 bulon là 2 con giữa đối xứng ngang qua X.
rất cảm ơn anh.
Cập nhật lisp vào bài viết trên rồi nha bạn!Trả lờiXóa
chao Anh duy.Trả lờiXóa
nhu vậy là ok rồi.
rất cảm ơn anh nhé.
bây giờ em muốn cái hình vừa vẽ thành 1 block và copy thành 1 hình nữa được không anh.
Nhiều đối tượng quá mình đóng thành block không nổi. Còn muốn 1 cái giống y thì bạn thực hiện lệnh lại lần nửa và chọn điểm xong enter 21 lần là ok vì lisp nhớ các giá trị trước.Trả lờiXóa
Đã tìm ra cách gom nhóm đối tượng. Làm theo yêu cầu bạn thì được nhưng nếu đóng thành block thì có sinh nhiều block quá không, bạn chọn phương án xem:Trả lờiXóa
+Tạo thành block rồi copy ra vị trí thứ 2.
+Copy ra vị trí thứ 2 mà không tạo block.
+Số lần copy ra cố định là 2 lần hay có thay đổi.
chào anh Duy.Trả lờiXóa
em muốn copy ra vị trí thứ 2 mà không cần tạo block.
số lần copy chỉ cần 2 là đủ.
anh cố gắn giúp em với nhé.
cho em hỏi riêng tí là: anh Duy đang làm ở quảng ngãi hay ở đâu.
-Yêu cầu trên thì mình cập nhật sẳn trên bài viết rồi đấy bạn.Trả lờiXóa
-Mình làm ở Cty CP tư vấn XD&ĐT Quảng Ngãi.
chao anh.Trả lờiXóa
lúc trước em làm cho PTSC quảng ngãi.
nhưng giờ thì chạy vào sài gòn rồi.
tưởng anh ở sài gòn thì mời anh đi nhậu.
còn ở quảng ngãi thì chịu rồi.
hồi anh Duy học lisp ở đâu vậy.
em nghiên cứ hoài mà không ngộ ra dc tí nào.
chỉ làm ba cái vớ vẩn thôi.
có diệp nào nhờ anh Duy chỉ cho vài chiêu.
cảm ơn anh về cái lisp.

Server: GSE


text:
NGOẠI TRUYỆN 5 +6
HẬU QUẢ CỦA CHUYỆN XEM MẮT
Cô đang dắt con cùng xếp hàng ở trước khu vui chơi, tuy hôm nay không đông nghịt như trong các dịp lễ nhưng nơi đây cũng có rất nhiều người. Bỗng nhiên anh ghé sát lại, chua giọng: “Cái gã đứng đằng trước kia sao cứ nhìn em chằm chằm vậy?” Cô đang cúi đầu giúp con lau tay, không thèm nhìn anh. Người này bây giờ mắc chứng vọng tưởng rồi, ra ngoài bao giờ cũng cảm thấy có người đang nhìn cô. Tử Mặc không dám tự nhận mình là người đẹp tuyệt sắc gì đến nỗi có thể làm cho nhiều người quay đầu nhìn mình. Anh thì luôn muốn cô ở nhà, tốt nhất là cứ như Tiểu Long Nữ ở rịt nơi cổ mộ, chẳng rời đi nửa bước, như thế mới khiến anh an lòng, vừa ý. Được một lát sau, anh lại nói: “Gã đó còn đang nhìn em kìa.” Hình như sợ cô không tin, anh nhấn mạnh lần nữa: “Thật là đang nhìn em đó.” Vợ mình đẹp đến vậy sao? Anh vừa gỡ cặp kính mát xuống, bắn hai tia nhìn lạnh lùng thẳng về phía người đàn ông kia, vừa đưa tay ôm lấy cô, công khai quyền sở hữu. Lúc này cô mới ngước lên, nhìn lướt qua người đó. Trông khá quen mặt, nhưng không có ấn tượng gì đặc biệt cả, chắc là không quen. Anh ta cũng đưa người nhà tới, một bé gái và một phụ nữ xinh đẹp đang đứng bên cạnh. Quả là một gia đình đẹp đẽ, nhưng đúng thật là người kia đang nhìn cô.
“Em là Triệu Tử Mặc phải không?” người kia ngập ngừng hỏi. Không ngờ anh ta biết tên mình, cô hơi sửng sốt, ngại ngùng hỏi: “Anh là?” Người đàn ông bật cười, giọng trong trẻo: “Tôi là Trần Thiếu Côn, còn nhớ chứ?” Cô nhanh chóng lục lọi trong trí nhớ cái tên này. Quen biết trong công tác? Hình như không phải. Là bạn trong đời thường? Cô gần như không có bạn là nam giới. Lẽ nào là bạn học? Không, chắc chắn là không. Chết người nhất là ánh mắt như muốn ăn tươi nuốt sống của ai đó đang ở ngay cạnh, bàn tay đặt trên hông cô cũng xiết chặt hơn như có ý trừng phạt. Rồi bất chợt cô nhớ ra, đây là một đồng hương trước đây mẹ cô đã từng giới thiệu. Vì anh ta làm việc tại Bắc Kinh, nhờ mẹ cô cùng cha mẹ anh ta ra sức mai mối nên hai người có đi ăn với nhau một vài lần, nhưng sau đó có lẽ vì sự lãnh đạm của cô nên đường ai nấy bước. Bao nhiêu năm ở Bắc Kinh chưa từng gặp lại, không ngờ hôm nay lại đụng nhau ở Disneyland. Trần Thiếu Côn trước đó đã chú ý đến cô nhưng chưa mở miệng. Nhìn từ trên xuống dưới, từ trong ra ngoài, trông cô vô cùng khác với người mà anh từng biết. Rạng rỡ hơn rất nhiều, lúc cười mắt môi dịu dàng đằm thắm, phong thái mê người. Còn nhớ năm đó lúc mời cô đi ăn qua sự giới thiệu của cha mẹ, anh không thích kiểu xem mắt đầy gượng ép này. Dù sao điều kiện của anh cũng rất tốt, tìm bạn gái ở Bắc Kinh là chuyện dễ như trở bàn tay, cần gì phải đi ăn xem mắt. Nhưng do cha mẹ thúc giục nhiều lần, cuối cùng anh mới miễn cưỡng gọi điện hẹn gặp. Vóc người thanh tú, dung nhan trên trung bình, không trang điểm, trông rất mộc. Chưa hết bữa ăn, anh khám phá ra cô rất trầm lặng, ít nói, đa phần là anh hỏi gì thì đáp nấy, không nói gì thêm. Lúc ấy anh có ý định thử tiến tới, hẹn cô đi ăn thêm hai lần nữa, nhưng lần nào cô cũng khá lạnh nhạt, trong khi đó anh luôn có không ít phái nữ vây quanh nên cũng nguội lạnh dần. Cuối cùng hẹn cô thêm vài lần nữa, cô đều nói bận làm thêm giờ, anh cũng đoán cô không thích mình nên từ đó trở đi thôi không liên lạc. Mấy năm qua, những lúc rỗi thi thoảng nhớ đến cô, anh lại tự hỏi tại sao cô gái ấy lại dửng dưng với mình như thế, vì thời đó có nhà có xe như anh cũng được coi là cực kỳ sáng giá.
Cô nhanh chóng gật đầu cười: “Chào anh, mọi người cũng đến đây à?” Trần Thiếu Côn bật cười, khuôn mặt tuấn tú rạng rỡ như ánh mặt trời: “Ừ, đã lâu không gặp. Hồi nãy suýt nữa còn không nhận ra em.” nói đoạn cầm tay bé gái lên giới thiệu: “Đây là con gái tôi, còn đây là vợ tôi.” Cô chào họ, cũng giới thiệu sơ qua, sau đó hai bên tách ra với những hoạt động riêng của mình.
Chỉ là một khúc nhạc dạo chẳng đáng kể, nhưng anh lại như nắm được thóp cô, suốt cả buổi chiều, hở ra một tí là anh lại hỏi: “Gã đó là ai?” Mới đầu cô chỉ trả lời cho qua chuyện: “Đồng hương.” Sau đó anh càng ngẫm nghĩ càng thấy không đúng, nếu là đồng hương nhất định cô phải quen chứ, đằng này lại đứng ngẩn ra một hồi mới nhớ, rồi còn khá lúng túng nữa. Nhất định, và chắc chắn là không phải! Vả lại, Hình Lợi Phong cũng mang danh “đồng hương”, không nhắc đến thì thôi, nhắc đến anh lại như bị mắc xương trong họng, khó chịu muốn chết. Lúc ấy nếu không phải anh giở thủ đoạn thì giờ này có lẽ cô đã là vợ người khác, Đa Đa cũng là con người khác rồi! Đúng là càng nghĩ càng bực, càng nghĩ càng phát hỏa!
Vì vậy trước khi ngủ anh lại dai dẳng tiếp tục chủ đề này: “Thế sao hai người biết nhau?” Cô trở mình, lờ đi, nhưng càng như vậy anh càng dai như đỉa đói, mãi cho tới khi cô phát cáu: “Xem mắt! Biết nhau nhờ xem mắt! Vậy được chưa?” Chứng thực được một phần suy đoán của mình, anh thở phào, cũng may chỉ là một vụ xem mắt. Nhưng rồi lại thấy khó chịu, lạnh nhạt nói: “Biết nhau nhờ xem mắt, hay thật! Anh còn chưa đi xem mắt bao giờ nữa!” Cô vốn đang nổi nóng, thấy anh cứ kèo nhèo mãi lại càng điên tiết, đạp cho anh một cái thật mạnh vào đùi, nghe “Á” một tiếng vẫn chưa thấy nguôi. Anh ném phăng cái điều khiển từ xa vào một góc tường, dường như muốn chứng tỏ mình đang rất tức giận. Thấy vậy, cô quay đầu nhìn anh, cười hiền hòa: “Sao, giận à? Anh muốn đi xem mắt thử một lần cho biết, có phải không?” Giọng cô cao dần: “Đi đi, em cho anh một cơ hội đấy! Ngày mai cứ đi đi!” Hình như có gì đó không ổn, anh vội vã lắc đầu. Cô vẫn cười, mắt nhìn thẳng vào anh, gằn giọng: “Sàn nhà hay sô pha, tự anh chọn lấy mà ngủ!”
Xong rồi, xong rồi, anh lỡ vuốt râu hùm rồi! Nghĩ đến buổi tối không được ôm cô nhất định sẽ bị mất ngủ, thế là anh vội năn nỉ: “Đừng mà vợ, anh tuyệt đối không hề có ý muốn đi xem mắt. Anh ngủ trên giường cơ!” Cô cau mày, miệng vẫn cười: “Lại còn dám đem chuyện cũ ra nói với em à? Sao ông anh không tự coi lại bản lý lịch của mình đi? Có muốn em kể ra từng cô một không, hay chọn điển hình? Muốn nói về Tống Linh Linh trước hay mấy cô Na Niếc gì đó trước?”
Đến cả Tống Linh Linh cũng bị lôi ra, xem ra cô bị động chạm đến thật rồi! Lần trước suốt hơn một tháng liền phải ngủ ngoài phòng khách, ký ức vẫn còn mới nguyên, không thể dẫm lên vết xe đổ lần nữa. Anh vội vàng nói: “Vợ ơi, là lỗi của anh, anh sai rồi. Sau này anh không dám nữa đâu!”
Cô cười lạnh: “Vậy anh ngủ dưới sàn hay trên sô pha?” Anh quay đi nghiên cứu một hồi lâu mới khổ sở trả lời: “Sô pha vậy.” Căn cứ theo kết quả quan sát thì sô pha có vẻ êm hơn. Cô hài lòng gật đầu, xoay sang hôn trán Đa Đa một cái rồi nằm xuống. Đứa trẻ nằm kề bên vẫn đang say sưa trong giấc mộng, chẳng hề hay biết ba mẹ vừa mới đấu khẩu.
Anh vẫn nằm ì trên giường không chịu nhúc nhích, cô lấy chân đá đá, ý bảo anh đi xuống được rồi. Anh năn nỉ ỉ ôi: “Vợ ơi, đừng mà, cùng lắm sau này anh không bao giờ nhắc đến nữa.” Cô hừ một tiếng: “Còn có lần sau à! Xuống giường cho em!” Và thế là đồng chí Giang Tu Nhân cực kỳ miễn cưỡng ôm gối, lưu luyến rời giường, vừa đi đến sô pha vừa cầu nguyện: “Thần ơi cứu con đi mà, con xin thu hồi thắc mắc hồi nãy.” Có trời mới biết sau đó thần có giúp anh hay không, nhưng sáng ngày hôm sau khi Giang Đa Đa tỉnh lại đã thấy ba đang ôm mẹ ngủ. Ánh mặt trời xuyên qua lớp rèm cửa sổ chiếu xiên vào, bàng bạc mà ấm áp.

WARC-Type: response

Content-Type: application/http; msgtype=response

WARC-Truncated: length

WARC-Identified-Payload-Type: text/html

Server: nginx

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

Connection: close

Vary: Accept-Encoding

Cache: HIT


text:
TRANG CHỦ
GIỚI THIỆU
SẢN PHẨM
TIN TỨC
Tin tức Công Ty
Tin tức Y Dược
HỆ THỐNG PHÂN PHỐI
CHUYÊN MỤC SỨC KHỎE
Thông tin bệnh
Thông tin dược liệu
TƯ VẤN
TUYỂN DỤNG
LIÊN HỆ
Giỏ hàng
0
sản phẩm.
Su Tong
Tai Nấm Vàng
Thanh Đường An
Tọa An
Trà Vạn Lý Hành
Vị An
Thông tin bệnh
Bệnh xơ vữa động mạch
Danh mục bệnh
Tìm
Bệnh Alzheimer
Bệnh cảm lạnh
Bệnh cúm
Bệnh Gout
Bệnh Ho
Bệnh mỡ máu cao
Bệnh tai biến mạch máu não
Bệnh tăng huyết áp
Bệnh táo bón
Bệnh thoái hóa khớp
Bệnh tiêu chảy
Bệnh tiểu đường
Bệnh tim mạch
Bệnh viêm khớp dạng thấp
Bệnh viêm loét dạ dày
Bệnh Viêm xoan
Bệnh xơ gan
Bệnh xơ vữa động mạch
Bệnh yếu sinh lý ở nam giới
Video
Xem các video khác >>
Tư vấn trực tuyến
Hotline:
0919 289 019 - 08 39238488
Facebook
Thống kê truy cập
Trang chủ
Giới thiệu
Sản phẩm
Tin tức
Hệ thống phân phối
Thông tin dược liệu
Tư vấn
Tuyển dụng
Liên hệ
CÔNG TY TNHH GIAI CẢNH
Địa chỉ: 295 Nguyễn Trãi, Phường 7, Quận 5, TPHCM.
Điện thoại: 08 39238488 - 08.39240755
Fax: 08 62614087
Website: www.giaicanh.com
Đạt danh hiệu tiêu dùng 2012
Website được thiết kế bởi TP Online Co.,Ltd
Phát triển xanh bền vững
Website được thiết kế bởi TP Online Co.,Ltd
Giai Cảnh nhận giải thưởng Tin & Dùng 2013
Website được thiết kế bởi TP Online Co.,Ltd
CHỨNG NHẬN SẢN PHẨM TIN CẬY
Website được thiết kế bởi TP Online Co.,Ltd
Sản phẩm uy tín, chất lượng vì sức khỏe cộng đồng
Website được thiết kế bởi TP Online Co.,Ltd
Công Ty TNHH Giai Cảnh
Website được thiết kế bởi TP Online Co.,Ltd
Công Ty TNHH Giai Cảnh
Website được thiết kế bởi TP Online Co.,Ltd
Công Ty TNHH Giai Cảnh
Website được thiết kế bởi TP Online Co.,Ltd
Công Ty TNHH Giai Cảnh
Website được thiết kế bởi TP Online Co.,Ltd
Copyright 2014 by Giai Canh Co.,Ltd. All rights reserved. Designed by
TP Online Co.,Ltd

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

Pragma: no-cache

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

Vary: Accept-Encoding,User-Agent

Content-Type: text/html


text:
Hồng Vân, Minh Nhí hoảng loạn khi Tiếu lâm thôn có… ma
Hồng Vân, Minh Nhí hoảng sợ khi Tiếu lâm thôn có ma. Bắt gặp nhóm Chuồn Chuồn Giấy trong hậu trường Tiếu Lâm Tứ Trụ.
Bộ ba “ông táo bà táo” gây náo loạn Thách Thức Danh Hài mùa 4
Tập 7 của Thách Thức Danh Hài sẽ xuất hiện một chàng trai dẫn cả người yêu cũ và tình địch đi thi. Tiết mục dự sẽ khiến Trấn Thành, Trường Giang cười “quên lối về”.
Gia Đình Là Số 1: Việt Anh trốn biệt trong phòng khám khi bệnh nhân đến làm loạn
Ở Gia Đình Già Là Số 1 tuần này, Việt Anh bị bệnh nhân đến phòng khám làm loạn. Bên cạnh đó, Diệu Nhi làm thất lạc cậu con trai cưng của Sam và Quang Tuấn.
Thần Tượng Tuổi 300: Bị lấy mất laptop, Toki Uni5 nổi giận đuổi Han Sara ra khỏi nhà
Thần Tượng Tuổi 300 đã hấp dẫn nay còn gây cấn hơn với màn “tái xuất” của anh chàng shipper đẹp trai Bảo Phát.
Khán Giả Việt Nam Cảm Nhận Gì Sau Khi Xem Phim “Thử Thách Thần Chết”?
Thử Thách Thần Chết: Giữa Hai Thế Giới (Along with the Gods: The Two Worlds) đã chính thức ra mắt khán giả Việt Nam vào ngày hôm nay, tức 29/12/2017. Phim đã liên tiếp ghi những dấu ấn về doanh thu phòng vé vô cùng ấn tượng không chỉ tại Hàn Quốc, mà còn tại các quốc gia […]
Sau 7 ngày ra mắt phim ngắn “Real Love” của nam thần Thuận Nguyễn bất ngờ đạt gần 2 triệu lượt xem
Chỉ sau 7 ngày ra mắt trên kênh Youtube, phim ngắn “Real Love” do Thuận Nguyễn thủ vai nam chính đã chính thức cán mốc gần 2 triệu lượt xem.
Make-up “ruột” của Cẩm Ly khẳng định nam giới làm nghề này đa số là gay
Chuyên gia trang điểm Thế Vinh tiết lộ từng là bạn học với Việt Hương, Thế Vinh khẳng định nam giới làm nghề trang điểm đa số là gay, anh cũng cho rằng nhiều người trong nghề tự cho mình là vũ trụ nên rất chảnh.
Trịnh Kim Chi đa chiều trong “Châu về hợp phố”
Vừa qua, NSƯT Trịnh Kim Chi cùng nhiều nghệ sĩ của thành phố cùng góp mặt trong vở diễn mới với đề tài cách mạng – Châu về hợp phố. Theo đó, chị hóa thân vào vai một người phụ nữ nhiều nỗi niềm từ hình ảnh của một sinh viên, người vợ, người mẹ […]
Lê Khánh “hành” Dũng Nhí “chết đi sống lại” ở Biệt Đội Siêu Hài
Ở tập 61 Biệt Đội Siêu Hài, khán giả cười bò khi “bác sĩ thực tập” Lê Khánh hành hạ Dũng Nhí “chết đi sống lại”. Nữ diễn viên nổi tiếng còn “hoảng loạn” khi có bão lớn sắp ập đến.
“Phát sốt” trước anh chàng shipper đẹp trai trong Thần Tượng Tuổi 300
Tập 5 của Thần Tượng Tuổi 300 với sự “tái xuất” của Toof.P Uni5 trong vai anh chàng shipper đẹp trai Bảo Phát, chắc chắn sẽ là một trong những tập phim được khán giả mong đợi nhất.

markdown:
[](http://giaitriexpress.com/hong-van-minh-nhi-hoang-loan-khi-tieu-lam-thon-co-ma/)
![ ](http://giaitriexpress.com/wp-content/uploads/2018/01/CHAO-DAU-MINH-NHI-2.jpg)
# Hồng Vân, Minh Nhí hoảng loạn khi Tiếu lâm thôn có… ma
Hồng Vân, Minh Nhí hoảng sợ khi Tiếu lâm thôn có ma. Bắt gặp nhóm Chuồn Chuồn Giấy trong hậu trường Tiếu Lâm Tứ Trụ.
[](http://giaitriexpress.com/bo-ba-ong-tao-ba-tao-gay-nao-loan-thach-thuc-danh-hai-mua-4/)
![ ](http://giaitriexpress.com/wp-content/uploads/2018/01/TRAN-THANH-TRUONG-GIANG-4.jpg)
# Bộ ba “ông táo bà táo” gây náo loạn Thách Thức Danh Hài mùa 4
Tập 7 của Thách Thức Danh Hài sẽ xuất hiện một chàng trai dẫn cả người yêu cũ và tình địch đi thi. Tiết mục dự sẽ khiến Trấn Thành, Trường Giang cười “quên lối về”.
[](http://giaitriexpress.com/gia-dinh-la-so-1-viet-anh-tron-biet-trong-phong-kham-khi-benh-nhan-den-lam-loan/)
![ ](http://giaitriexpress.com/wp-content/uploads/2018/01/VIET-ANH-3.jpg)
# Gia Đình Là Số 1: Việt Anh trốn biệt trong phòng khám khi bệnh nhân đến làm loạn
Ở Gia Đình Già Là Số 1 tuần này, Việt Anh bị bệnh nhân đến phòng khám làm loạn. Bên cạnh đó, Diệu Nhi làm thất lạc cậu con trai cưng của Sam và Quang Tuấn.
[](http://giaitriexpress.com/than-tuong-tuoi-300-bi-lay-mat-laptop-toki-uni5-noi-gian-duoi-han-sara-ra-khoi-nha/)
![ ](http://giaitriexpress.com/wp-content/uploads/2017/12/THAN-TUONG-TUOI-300-T5-17.jpg)
# Thần Tượng Tuổi 300: Bị lấy mất laptop, Toki Uni5 nổi giận đuổi Han Sara ra khỏi nhà
Thần Tượng Tuổi 300 đã hấp dẫn nay còn gây cấn hơn với màn “tái xuất” của anh chàng shipper đẹp trai Bảo Phát.
[](http://giaitriexpress.com/khan-gia-viet-nam-cam-nhan-gi-sau-khi-xem-phim-thu-thach-than-chet/)
![ ](http://giaitriexpress.com/wp-content/uploads/2017/12/48_still01-e1514695015224.jpg)
# Khán Giả Việt Nam Cảm Nhận Gì Sau Khi Xem Phim “Thử Thách Thần Chết”?
Thử Thách Thần Chết: Giữa Hai Thế Giới (Along with the Gods: The Two Worlds) đã chính thức ra mắt khán giả Việt Nam vào ngày hôm nay, tức 29/12/2017. Phim đã liên tiếp ghi những dấu ấn về doanh thu phòng vé vô cùng ấn tượng không chỉ tại Hàn Quốc, mà còn tại các quốc gia […]
[](http://giaitriexpress.com/sau-7-ngay-ra-mat-phim-ngan-real-love-cua-nam-than-thuan-nguyen-bat-ngo-dat-gan-2-trieu-luot-xem/)
![ ](http://giaitriexpress.com/wp-content/uploads/2017/12/unnamed-2-3.jpg)
# Sau 7 ngày ra mắt phim ngắn “Real Love” của nam thần Thuận Nguyễn bất ngờ đạt gần 2 triệu lượt xem
Chỉ sau 7 ngày ra mắt trên kênh Youtube, phim ngắn “Real Love” do Thuận Nguyễn thủ vai nam chính đã chính thức cán mốc gần 2 triệu lượt xem.
[](http://giaitriexpress.com/make-up-ruot-cua-cam-ly-khang-dinh-nam-gioi-lam-nghe-nay-da-so-la-gay/)
![ ](http://giaitriexpress.com/wp-content/uploads/2017/12/The-Vinh-4.jpg)
# Make-up “ruột” của Cẩm Ly khẳng định nam giới làm nghề này đa số là gay
Chuyên gia trang điểm Thế Vinh tiết lộ từng là bạn học với Việt Hương, Thế Vinh khẳng định nam giới làm nghề trang điểm đa số là gay, anh cũng cho rằng nhiều người trong nghề tự cho mình là vũ trụ nên rất chảnh.
[](http://giaitriexpress.com/trinh-kim-chi-da-chieu-trong-chau-ve-hop-pho/)
![ ](http://giaitriexpress.com/wp-content/uploads/2017/12/IMG_2931-2.jpg)
# Trịnh Kim Chi đa chiều trong “Châu về hợp phố”
Vừa qua, NSƯT Trịnh Kim Chi cùng nhiều nghệ sĩ của thành phố cùng góp mặt trong vở diễn mới với đề tài cách mạng – Châu về hợp phố. Theo đó, chị hóa thân vào vai một người phụ nữ nhiều nỗi niềm từ hình ảnh của một sinh viên, người vợ, người mẹ […]
[](http://giaitriexpress.com/le-khanh-hanh-dung-nhi-chet-di-song-lai-o-biet-doi-sieu-hai/)
![ ](http://giaitriexpress.com/wp-content/uploads/2017/12/TIEU-PHAM-1_LE-KHANH-DUNG-NHI-3.jpg)
# Lê Khánh “hành” Dũng Nhí “chết đi sống lại” ở Biệt Đội Siêu Hài
Ở tập 61 Biệt Đội Siêu Hài, khán giả cười bò khi “bác sĩ thực tập” Lê Khánh hành hạ Dũng Nhí “chết đi sống lại”. Nữ diễn viên nổi tiếng còn “hoảng loạn” khi có bão lớn sắp ập đến.
[](http://giaitriexpress.com/phat-sot-truoc-anh-chang-shipper-dep-trai-trong-than-tuong-tuoi-300/)
![ ](http://giaitriexpress.com/wp-content/uploads/2017/12/THAN-TUONG-TUOI-300-T5-1.jpg)
# “Phát sốt” trước anh chàng shipper đẹp trai trong Thần Tượng Tuổi 300
Tập 5 của Thần Tượng Tuổi 300 với sự “tái xuất” của Toof.P Uni5 trong vai anh chàng shipper đẹp trai Bảo Phát, chắc chắn sẽ là một trong những tập phim được khán giả mong đợi nhất.

X-Frame-Options: SAMEORIGIN

X-XSS-Protection: 1; mode=block

X-Content-Type-Options: nosniff


text:
Hiện tại, series phim sitcom “Gia đình là số 1” phiên bản Việt hóa đang “truy tìm” những gương mặt nam diễn viên phù hợp với hình tượng nhân vật Kim Bum để tham gia phim trong thời gian tới.
Vừa qua, công ty Truyền thông và Giải trí Điền Quân đã công bố thông tin về “High Kick” – series phim sitcom đình đám của Hàn Quốc sẽ được mua bản quyền Việt hoá với tên gọi “Gia Đình Là Số 1”. Điều này đã khiến nhiều khán giả của bộ phim cảm thấy vô cùng phấn khích bởi ý tưởng độc đáo mà vẫn giữ được tinh thần của tác phẩm cũ. Chỉ khác là giờ đây, nó sẽ có một diện mạo hoàn toàn mới và phù hợp hơn với khán giả Việt.
Kim Bum phiên bản Hàn Quốc
Dĩ nhiên, để làm nên một series chuyển thể thành công, thì khâu casting chính là yếu tố quan trọng nhất. Thế mạnh của những bộ phim Hàn Quốc chủ yếu nhờ vào dàn diễn viên trẻ trung, bắt mắt, tạo hình hiện đại nhưng vẫn có nét đặc trưng riêng. “High Kick” phiên bản gốc cũng không ngoại lệ.
Nếu ai đã từng xem qua “High Kick” cũng đều nhớ đến cậu bé Kim Bum với sự thể hiện của nam diễn viên cùng tên. Trước khi nổi tiếng đình đám toàn châu Á qua “Vườn Sao Băng”, Kim Bum đã là gương mặt quen thuộc, góp phần tạo nên những tiếng cười cho khán giả bởi vẻ ngoài đáng yêu, ngây thơ và tính cách thú vị.
Với phiên bản Việt hóa, thì nhân vật Kim Bum của Việt Nam sẽ có tên là Kim Long, 17 tuổi, có thói quen đến nhà cậu bạn thân Đức Long để chơi bời, ăn uống, học hành đến nỗi tự nhiên xem đó là nhà mình. Một Kim Bum mà khán giả đã xem và mê mẩn trong “High Kick” cũng chính là một Kim Long ngoan ngoãn trong “Gia Đình Là Số 1” phiên bản Việt hóa. Hãy cùng điểm lại danh sách những gương mặt tiềm năng xứng đáng trở thành một Kim Bum thứ hai và hội tụ đủ các yếu tố của Kim Long.
Huỳnh Anh
Từ lâu, Huỳnh Anh đã là một hotboy kiêm diễn viên dẫn đầu làn sóng những “baby face” có vẻ đẹp lai Hàn. Công tâm mà nói, khi đặt cạnh Huỳnh Anh với Kim Bum, công chúng sẽ khó mà tìm ra được điểm thua kém giữa hai người và có thể ví von bằng câu nói: “Một chín một mười”.
Điểm yếu duy nhất của Huỳnh Anh có lẽ là tuổi tác, khi Kim Bum đóng vai…Kim Bum hồi năm 17 tuổi. Còn Huỳnh Anh đã bước sang tuổi 24 để là một người đàn ông chững chạc. Nhưng dù sao, đó chỉ là những con số, nhà sản xuất có thể hoá trang cho Kim Long thông qua kiểu tóc, trang phục để làm trẻ hoá gương mặt vốn trông đã sáng sủa của Huỳnh Anh.
Anh Tú
Hotboy làng kịch đang có những bước tiến đáng kể trên con đường phim ảnh, vậy nên sitcom cũng là cơ hội mà Anh Tú cần cân nhắc để phát triển sự nghiệp lâu dài. Khán giả ắt hẳn sẽ cảm thấy lạ lẫm với một Kim Long hơi thuần Việt vì là con trai Hà Nội mà không có chút lai Hàn nào. Nhưng về ngoại hình, rõ ràng Anh Tú đang sở hữu thế mạnh rất lớn nhờ nét mặt trẻ con, nũng nịu và cụ cười làm gợi nhớ đến Kim Bum.
Liệu vẻ đẹp thuần Việt của Anh Tú có thể thay thế hình ảnh chuẩn Hàn của Kim Bum hay không? Câu trả lời chắc chắn là có đối với một bộ phim Việt hoá như “Gia Đình Là Số 1”.
Harry Lu
Harry Lu gây chú ý từ vai diễn là một tài năng âm nhạc trong bộ phim “Thần Tượng” và gã giang hồ trẻ tuổi trong bộ phim “Hương Ga” của Trương Ngọc Ánh sản xuất. Trước đó, anh cũng đã nổi tiếng với giới trẻ nhờ ngoại hình mỹ nam không có điểm gì phải phàn nàn: cao ráo, sáng sủa ngời ngời.
Điểm yếu của Harry Lu trước giờ nằm ở sự hạn chế về ngôn ngữ, khiến anh chàng khó học thuộc lời thoại để diễn xuất chân thật và được lòng người xem. Nhưng trong khoảng vài năm trở lại đây, nhờ việc trau dồi mỗi ngày, Harry Lu đã bắt đầu giao tiếp lưu loát và dần thoát khỏi mác trai đẹp ngoại quốc của mình.
Vai diễn Kim Long sẽ là cơ hội để anh chàng chứng tỏ khả năng nhập vai đa dạng và chinh phục khán giả bằng ngọai hình dễ thương, trìu mến và hồn nhiên thay vì một Harry Lu lạnh lùng, ít nói như trước kia.
Thanh Duy
Thanh Duy luôn duy trì được nét tươi tắn của mình, đặc biệt là qua đôi mắt và nụ cười toả sáng lấn át người bên cạnh. Về ấn tượng đầu tiên, nam ca sĩ cũng dễ dàng tạo được thiện cảm với công chúng bởi cá tính “bất chấp” tuổi tác và thích sự năng động.
Về ngoại hình và tính cách của Kim Bum, Thanh Duy chắc hẳn là người phù hợp nhất trong danh sách, ấy là chưa kể kinh nghiệm hoá thân và diễn xuất của anh đã được khẳng định qua nhiều chương trình truyền hình và phim điện ảnh “Đập Cánh Giữa Không Trung”.
Ngô Kiến Huy
Thêm một ứng cử viên quá mạnh cho vai diễn Kim Bum hay Kim Long sắp tới. Không cần bàn cãi đến tố chất, vì ai ai cũng thấy một “cậu bé chưa lớn bên trong” Ngô Kiến Huy. Lối diễn của “chàng Bắp” thì luôn được duy trì ở những nhân vật hồn nhiên, vui tính và tràn đầy nhiệt huyết như những đầu bước chân vào showbiz.
Chắc chắn, độ tuổi 30 của Ngô Kiến Huy vẫn không thể nào cản trở được cơ hội được làm Kim Bum của Việt Nam, nếu nam ca sĩ chịu gật đầu để trở lại mình của mười mấy năm về trước.
Hiện tại, nhà sản xuất vẫn đang ráo riết tìm kiếm gương mặt phù hợp cho vai diễn Kim Long hay còn được gọi là Kim Bum phiên bản Việt. Còn danh sách trên chỉ là những phỏng đoán rằng mỹ nam nào phù hợp nhất với vai diễn Kim Bum – Kim Long?.
Vốn dĩ, diễn xuất là một lĩnh vực không quá chú trọng vào mức độ nổi tiếng cũng như vị trí trong showbiz. Sẽ luôn có những gương mặt mới chưa được biết đến và chờ khai phá mỗi ngày. Do đó, Kim Bum sắp tới của “Gia Đình Là Số 1” có thể là bất cứ chàng trai nào trong số những khán giả, những tài năng trẻ ngoài kia đang mong muốn được thử sức mình. Hiện tại, bộ phim có diễn ra cuộc thi online “Truy tìm Kim Bum phiên bản Việt”cho đến hết ngày 25.9. Những thí sinh dự thi online ngoài cơ hội sẽ chạm tay được vai diễn Kim Long – phiên bản Việt của nhân vật Kim Bum thì còn có dịp nhận được những giải thưởng vô cùng hấp dẫn.
Vào ngày 27.9 tới đây, tại Trường Điện Ảnh Quốc Tế Sài Gòn (SIFS) sẽ diễn ra buổi tuyển chọn chính thức dưới sự thẩm định của Đạo diễn Văn Công Viễn và một vị giám khảo khách mời đặc biệt. Các thí sinh mong muốn tham gia có thể gửi hình ảnh vào Email: giadinhlaso1@sifs.edu.vn.
Phương Thảo

markdown:
**Hiện tại, series phim sitcom “Gia đình là số 1” phiên bản Việt hóa đang “truy tìm” những gương mặt nam diễn viên phù hợp với hình tượng nhân vật Kim Bum để tham gia phim trong thời gian tới.**
Vừa qua, công ty Truyền thông và Giải trí Điền Quân đã công bố thông tin về “High Kick” – series phim sitcom đình đám của Hàn Quốc sẽ được mua bản quyền Việt hoá với tên gọi “Gia Đình Là Số 1”. Điều này đã khiến nhiều khán giả của bộ phim cảm thấy vô cùng phấn khích bởi ý tưởng độc đáo mà vẫn giữ được tinh thần của tác phẩm cũ. Chỉ khác là giờ đây, nó sẽ có một diện mạo hoàn toàn mới và phù hợp hơn với khán giả Việt.
*Kim Bum phiên bản Hàn Quốc*
Dĩ nhiên, để làm nên một series chuyển thể thành công, thì khâu casting chính là yếu tố quan trọng nhất. Thế mạnh của những bộ phim Hàn Quốc chủ yếu nhờ vào dàn diễn viên trẻ trung, bắt mắt, tạo hình hiện đại nhưng vẫn có nét đặc trưng riêng. “High Kick” phiên bản gốc cũng không ngoại lệ.
Nếu ai đã từng xem qua “High Kick” cũng đều nhớ đến cậu bé Kim Bum với sự thể hiện của nam diễn viên cùng tên. Trước khi nổi tiếng đình đám toàn châu Á qua “Vườn Sao Băng”, Kim Bum đã là gương mặt quen thuộc, góp phần tạo nên những tiếng cười cho khán giả bởi vẻ ngoài đáng yêu, ngây thơ và tính cách thú vị.
Với phiên bản Việt hóa, thì nhân vật Kim Bum của Việt Nam sẽ có tên là Kim Long, 17 tuổi, có thói quen đến nhà cậu bạn thân Đức Long để chơi bời, ăn uống, học hành đến nỗi tự nhiên xem đó là nhà mình. Một Kim Bum mà khán giả đã xem và mê mẩn trong “High Kick” cũng chính là một Kim Long ngoan ngoãn trong “Gia Đình Là Số 1” phiên bản Việt hóa. Hãy cùng điểm lại danh sách những gương mặt tiềm năng xứng đáng trở thành một Kim Bum thứ hai và hội tụ đủ các yếu tố của Kim Long.
**Huỳnh Anh**
Từ lâu, Huỳnh Anh đã là một hotboy kiêm diễn viên dẫn đầu làn sóng những “baby face” có vẻ đẹp lai Hàn. Công tâm mà nói, khi đặt cạnh Huỳnh Anh với Kim Bum, công chúng sẽ khó mà tìm ra được điểm thua kém giữa hai người và có thể ví von bằng câu nói: “Một chín một mười”.
Điểm yếu duy nhất của Huỳnh Anh có lẽ là tuổi tác, khi Kim Bum đóng vai…Kim Bum hồi năm 17 tuổi. Còn Huỳnh Anh đã bước sang tuổi 24 để là một người đàn ông chững chạc. Nhưng dù sao, đó chỉ là những con số, nhà sản xuất có thể hoá trang cho Kim Long thông qua kiểu tóc, trang phục để làm trẻ hoá gương mặt vốn trông đã sáng sủa của Huỳnh Anh.
**Anh Tú**
Hotboy làng kịch đang có những bước tiến đáng kể trên con đường phim ảnh, vậy nên sitcom cũng là cơ hội mà Anh Tú cần cân nhắc để phát triển sự nghiệp lâu dài. Khán giả ắt hẳn sẽ cảm thấy lạ lẫm với một Kim Long hơi thuần Việt vì là con trai Hà Nội mà không có chút lai Hàn nào. Nhưng về ngoại hình, rõ ràng Anh Tú đang sở hữu thế mạnh rất lớn nhờ nét mặt trẻ con, nũng nịu và cụ cười làm gợi nhớ đến Kim Bum.
Liệu vẻ đẹp thuần Việt của Anh Tú có thể thay thế hình ảnh chuẩn Hàn của Kim Bum hay không? Câu trả lời chắc chắn là có đối với một bộ phim Việt hoá như “Gia Đình Là Số 1”.
**Harry Lu**
Harry Lu gây chú ý từ vai diễn là một tài năng âm nhạc trong bộ phim “Thần Tượng” và gã giang hồ trẻ tuổi trong bộ phim “Hương Ga” của Trương Ngọc Ánh sản xuất. Trước đó, anh cũng đã nổi tiếng với giới trẻ nhờ ngoại hình mỹ nam không có điểm gì phải phàn nàn: cao ráo, sáng sủa ngời ngời.
Điểm yếu của Harry Lu trước giờ nằm ở sự hạn chế về ngôn ngữ, khiến anh chàng khó học thuộc lời thoại để diễn xuất chân thật và được lòng người xem. Nhưng trong khoảng vài năm trở lại đây, nhờ việc trau dồi mỗi ngày, Harry Lu đã bắt đầu giao tiếp lưu loát và dần thoát khỏi mác trai đẹp ngoại quốc của mình.
Vai diễn Kim Long sẽ là cơ hội để anh chàng chứng tỏ khả năng nhập vai đa dạng và chinh phục khán giả bằng ngọai hình dễ thương, trìu mến và hồn nhiên thay vì một Harry Lu lạnh lùng, ít nói như trước kia.
**Thanh Duy**
Thanh Duy luôn duy trì được nét tươi tắn của mình, đặc biệt là qua đôi mắt và nụ cười toả sáng lấn át người bên cạnh. Về ấn tượng đầu tiên, nam ca sĩ cũng dễ dàng tạo được thiện cảm với công chúng bởi cá tính “bất chấp” tuổi tác và thích sự năng động.
Về ngoại hình và tính cách của Kim Bum, Thanh Duy chắc hẳn là người phù hợp nhất trong danh sách, ấy là chưa kể kinh nghiệm hoá thân và diễn xuất của anh đã được khẳng định qua nhiều chương trình truyền hình và phim điện ảnh “Đập Cánh Giữa Không Trung”.
**Ngô Kiến Huy**
Thêm một ứng cử viên quá mạnh cho vai diễn Kim Bum hay Kim Long sắp tới. Không cần bàn cãi đến tố chất, vì ai ai cũng thấy một “cậu bé chưa lớn bên trong” Ngô Kiến Huy. Lối diễn của “chàng Bắp” thì luôn được duy trì ở những nhân vật hồn nhiên, vui tính và tràn đầy nhiệt huyết như những đầu bước chân vào showbiz.
Chắc chắn, độ tuổi 30 của Ngô Kiến Huy vẫn không thể nào cản trở được cơ hội được làm Kim Bum của Việt Nam, nếu nam ca sĩ chịu gật đầu để trở lại mình của mười mấy năm về trước.
Hiện tại, nhà sản xuất vẫn đang ráo riết tìm kiếm gương mặt phù hợp cho vai diễn Kim Long hay còn được gọi là Kim Bum phiên bản Việt. Còn danh sách trên chỉ là những phỏng đoán rằng mỹ nam nào phù hợp nhất với vai diễn Kim Bum – Kim Long?.
Vốn dĩ, diễn xuất là một lĩnh vực không quá chú trọng vào mức độ nổi tiếng cũng như vị trí trong showbiz. Sẽ luôn có những gương mặt mới chưa được biết đến và chờ khai phá mỗi ngày. Do đó, Kim Bum sắp tới của “Gia Đình Là Số 1” có thể là bất cứ chàng trai nào trong số những khán giả, những tài năng trẻ ngoài kia đang mong muốn được thử sức mình. Hiện tại, bộ phim có diễn ra cuộc thi online “Truy tìm Kim Bum phiên bản Việt”cho đến hết ngày 25.9. Những thí sinh dự thi online ngoài cơ hội sẽ chạm tay được vai diễn Kim Long – phiên bản Việt của nhân vật Kim Bum thì còn có dịp nhận được những giải thưởng vô cùng hấp dẫn.
Vào ngày 27.9 tới đây, tại Trường Điện Ảnh Quốc Tế Sài Gòn (SIFS) sẽ diễn ra buổi tuyển chọn chính thức dưới sự thẩm định của Đạo diễn Văn Công Viễn và một vị giám khảo khách mời đặc biệt. Các thí sinh mong muốn tham gia có thể gửi hình ảnh vào Email:
[giadinhlaso1@sifs.edu.vn](mailto:giadinhlaso1@sifs.edu.vn). **Phương Thảo**


text:
TRANG CHỦ
ĐĂNG KÝ HỌC
HỌC PHÍ
LIÊN HỆ
VIỆC LÀM
GIA SƯ
Gia sư theo môn dạy
CHIÊU SINH
Tuyển sinh theo lớp
LIÊN KẾT
Rao vặt
Diễn đàn
Địa điểm trường học
Trao đổi Logo
TIN TỨC GIA SƯ
Gia sư Alpha
Tin giáo dục
Bảng học phí
Dịch vụ
Trợ giúp thành viên
Chia sẽ kinh nghiệm
ĐĂNG NHẬP
Đăng ký làm gia sư
GIA SƯ HÀ GIANG

Giáo viên dạy kèm Tiếng Anh cấp 2 tại Hà Giang
Kính thưa các quý bậc phụ huynh có con em chuẩn bị vào cấp 2, vì không có điều kiện quản lý, theo dõi, kèm cặp việc học tập của con em mình, bạn rất lo lắng và muốn tìm trung tâm giới thiệu gia sư giỏi để dạy kèm tiến anh cấp 2 cho con.
Bạn sẽ thực sự yên tâm và hài lòng khi đến với
giáo viên dạy tiếng Anh cấp 2
chúng tôi tự hào là đơn vị chuyên giới thiệu
gia sư dạy kèm
, dạy kèm tại nhà rất có uy tín và đáng tin cậy tại địa bàn
Hà Giang
, hiện nay chúng tôi cộng tác khá nhiều với giáo viên, sinh viên đến từ các trường đại học, cao đẳng, phổ thông lớn trên thành phố .
Với đội ngũ
giáo viên dạy tiếng Anh cấp 2
, SINH VIÊN là những gia sư có kinh nghiệm và chuyên môn, nghiêp vụ sư phạm, nắm bắt được tâm lý học sinh; Gia sư
Hà Giang
nhận dạy kèm tại nhà các môn : Toán - Lý- Hoá- Sinh- Anh- Văn.... từ lớp 1 đến lớp 12 ở mọi trình độ, từ cơ bản đến nâng cao, luyện thi ĐH theo chương trình trắc nghiệm khối A, B, C, D...ở khu vực
Hà Giang
.
- Giáo viên dạy toán cấp 2 có kinh nghiệm chuyên dạy học sinh hổng kiến thức Toán- Lý- Hoá – Sinh- Văn
– Ngoại ngữ…để luyện thi học kỳ, cao đẳng, đại học, luyện thi học sinh giỏi, thi vào trường điểm .
- Giáo viên giỏi chuyên luyện thi vào lớp 6, 10 môn Toán , Văn, Anh và các môn chuyên...
- Gia sư có kinh nghiệm dạy học sinh thông minh nhưng lười học.
Đặc biệt : Có các gia sư (giáo viên,sinh viên) nghiêm khắc chuyên dạy kèm những học sinh lười, bướng bỉnh, mải chơi, không chịu làm bài tập…
GIA SƯ ALPHA
- Email: giasualpha@gmail.com
Gia sư Alpha sẽ liên hệ tư vấn và giới thiệu gia sư miễn phí cho bạn! Trân trọng cám ơn!
HOT LINE -
0969529026 (Zalo)
Sáng: 8h->11h - Chiều: 2h->5h
ĐĂNG KÝ HỌC TẠI ĐÂY

TIẾNG ANH - LỚP 6 TẠI HÀ GIANG
Họ tên:
(
*
)
Điện thoại:
(
*
)
Chọn Quận / Huyện:
Bắc Mê
Bắc Quang
Đồng Văn
Hoàng Su Phì
Mèo Vạc
Quản Bạ
Quang Bình
TP. Hà Giang
Vị Xuyên
Xín Mần
Yên Minh
Điạ chỉ:
(
*
)
Số buổi học / 1 tuần:
1
2
3
4
5
6
7
(
*
)
Số người học:
1
2
3
4
5
(
*
)
Yêu cầu khác:

DANH SÁCH GIA SƯ

Gia sư Lê Thị Thuý Phương
Mã gia sư:
24600
Quê quán:
TP. Hà Giang - Hà Giang
Ngày sinh:
07/09/1994
Địa chỉ:
180, Đường Nguyễn Thái Học, Thành Phố Hà Giang, Tỉnh Hà Giang
Giới tính:
Nữ
Cập nhật:
09/11/2016
Chi tiết
Gia sư Bùi Thục Yên Thư
Mã gia sư:
14336
Quê quán:
Thanh Trì - Hà Nội
Ngày sinh:
11/05/1992
Địa chỉ:
Số 45, tập thể G1, Tam Hiêp, Thanh Trì, HN
Giới tính:
Nữ
Cập nhật:
30/11/2015
Chi tiết
Xem thêm
Bạn quan tâm

Hưỡng dẫn lấy số điện thoại gia sư
Bảng học phí tại Trung tâm Gia sư Alpha
Bảng học phí dạy kèm tại TP Hồ Chí Minh
Bảng học phí dạy kèm tại Cần Thơ
Phương thức dạy thử và thanh toán
Liên Hệ Gia sư Alpha
Giới thiệu về Gia sư Alpha
Dạy kèm cho học sinh cấp 1, 2, 3 tại Cần Thơ
Dịch vụ hiển thị số điện thoại để người học liên hệ trực tiếp với gia sư
Cam kết của Gia sư Alpha
Chiêu sinh liên quan

Giáo viên dạy kèm Tiếng Anh cấp 2 tại Hà Giang
Dạy kèm Tiếng Anh lớp 6 tại Hà Giang
Nhận dạy kèm Tiếng Anh lớp 6 tại Hà Giang
Bạn cần gia sư dạy kèm môn Tiếng Anh lớp 6 tại Hà Giang?
Giáo viên dạy kèm Tiếng Anh cấp 2 - Gia sư Hà Giang
Gia sư dạy kèm môn Tiếng Anh lớp 6 tại Hà Giang
TRUNG TÂM GIA SƯ ALPHA
Hỗ trợ Facebook
https://www.facebook.com/GiaSuAlpha
Trụ sở chính: 8B Đường 26, KDC Thới Nhựt, An Khánh, Ninh Kiều, Cần Thơ
Email:
giasualpha@gmail.com -
Website:
http://giasualpha.com
Chiêu sinh An Giang (
439
)
Chiêu sinh Bắc Cạn (
423
)
Chiêu sinh Bắc Giang (
428
)
Chiêu sinh Bạc Liêu (
417
)
Chiêu sinh Bắc Ninh (
418
)
Chiêu sinh Bến Tre (
427
)
Chiêu sinh Bình Định (
433
)
Chiêu sinh Bình Dương (
419
)
Chiêu sinh Bình Phước (
428
)
Chiêu sinh Bình Thuận (
433
)
Chiêu sinh Cà Mau (
427
)
Chiêu sinh Cần Thơ (
595
)
Chiêu sinh Cao Bằng (
443
)
Chiêu sinh Đà Nẵng (
426
)
Chiêu sinh Đăk Lăk (
453
)
Chiêu sinh Đăk Nông (
418
)
Chiêu sinh Điện Biên (
423
)
Chiêu sinh Đồng Nai (
436
)
Chiêu sinh Đồng Tháp (
442
)
Chiêu sinh Gia Lai (
458
)
Chiêu sinh Hà Giang (
433
)
Chiêu sinh Hà Nam (
408
)
Chiêu sinh Hà Nội (
534
)
Chiêu sinh Hà Tĩnh (
438
)
Chiêu sinh Hải Dương (
436
)
Chiêu sinh Hải Phòng (
451
)
Chiêu sinh Hậu Giang (
417
)
Chiêu sinh Hoà Bình (
438
)
Chiêu sinh Huế (
421
)
Chiêu sinh Hưng Yên (
428
)
Chiêu sinh Khánh Hoà (
421
)
Chiêu sinh Kiên Giang (
457
)
Chiêu sinh Kon Tum (
423
)
Chiêu sinh Lai Châu (
413
)
Chiêu sinh Lâm Đồng (
438
)
Chiêu sinh Lạng Sơn (
433
)
Chiêu sinh Lào Cai (
423
)
Chiêu sinh Long An (
453
)
Chiêu sinh Nam Định (
428
)
Chiêu sinh Nghệ An (
477
)
Chiêu sinh Ninh Bình (
417
)
Chiêu sinh Ninh Thuận (
412
)
Chiêu sinh Phú Thọ (
442
)
Chiêu sinh Phú Yên (
422
)
Chiêu sinh Quảng Bình (
417
)
Chiêu sinh Quảng Nam (
472
)
Chiêu sinh Quãng Ngãi (
446
)
Chiêu sinh Quảng Ninh (
451
)
Chiêu sinh Quảng Trị (
426
)
Chiêu sinh Sài Gòn (
556
)
Chiêu sinh Sóc Trăng (
436
)
Chiêu sinh Sơn La (
431
)
Chiêu sinh Tây Ninh (
421
)
Chiêu sinh Thái Bình (
421
)
Chiêu sinh Thái Nguyên (
421
)
Chiêu sinh Thanh Hoá (
511
)
Chiêu sinh Tiền Giang (
436
)
Chiêu sinh Trà Vinh (
425
)
Chiêu sinh Tuyên Quang (
411
)
Chiêu sinh Vĩnh Long (
427
)
Chiêu sinh Vĩnh Phúc (
421
)
Chiêu sinh Vũng Tàu (
424
)
Chiêu sinh Yên Bái (
421
)

markdown:
|
|
|
|
|ĐĂNG KÝ HỌC TẠI ĐÂY|| |
| |
|DANH SÁCH GIA SƯ|| |
|
|
![]()
![]()
![]()
![]()
![]()
![]()
|
|Mã gia sư: 24600 Quê quán:
TP. Hà Giang - Hà Giang Ngày sinh:
07/09/1994 Địa chỉ:
180, Đường Nguyễn Thái Học, Thành Phố Hà Giang, Tỉnh Hà Giang
|
|Giới tính:
Nữ
Cập nhật:
09/11/2016
|
|
![]()
![]()
![]()
![]()
![]()
![]()
|
|Mã gia sư: 14336 Quê quán:
Thanh Trì - Hà Nội Ngày sinh:
11/05/1992 Địa chỉ:
Số 45, tập thể G1, Tam Hiêp, Thanh Trì, HN
|
|Giới tính:
Nữ
Cập nhật:
30/11/2015
|Bạn quan tâm|| |
|
|![]()
|Chiêu sinh liên quan|| |
|
|![]()

Cache-Control: private

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

X-Powered-By-Plesk: PleskWin


text:
Cửa hàng chúng tôi tọa lạc tại : 153 Bùi Đình Túy - P24 - Quận Bình Thạnh - TP. HCM - với rất nhiều sản phẩm làm từ các loại gỗ quý và sừng nai
Thông tin của bạn sẽ được giữ kín tuyệt đối, và bạn có thể hủy đăng ký bất cứ lúc nào.
1,800,000 ₫
1,850,000 ₫
1,950,000 ₫
2,000,000 ₫
9,500,000 ₫
17,000,000 ₫
23,000,000 ₫
25,000,000 ₫
7,500,000 ₫
17,500,000 ₫
18,500,000 ₫
11,500,000 ₫
Văn: 0949 633 479
Hot Line : Mr. Mai 0908 352 068 - Mr. Văn 0949 633 479
Tổng Đài : 08 - 66 584 790
Email: godocsaigon@gmail.com

Server: Apache