;*********************************************************************
;;Chuc Nang : Chuyen Duong Kick Thuoc vao 1 lop- Lenh LD
;;
(Defun C:LD ( ) (princ "\nChuyÓn kÝch th­íc vµo 1 líp:")
  (Setq lis (Ssget '((0 . "Dimension"))))
(command  ".Chprop" "p" "" "La" "KICH-THUOC" "c" "Bylayer" "")
(princ))

;;***************************************************
;;Chuc Nang : Chuyen hatch vao 1 lop- Lenh LKT
;;
(Defun C:Lh ( ) ;
(princ "\nChuyÓn ®èi t­îng hatch vµo 1 líp:")
  (Setq lis (Ssget '((0 . "hatch"))))
(command  ".Chprop" "p" "" "La" "VAT-LIEU" "c" "Bylayer" "")
(princ))

;;***************************************************
;;Chuc Nang : Chuyen chu va so vao 1 lop- Lenh Lte
;;
(Defun C:Lte ( ) (princ "\nChuyÓn ch÷ vµ sè vµo 1 líp:")
  (Setq lis (Ssget '((0 . "text"))))
(command  ".Chprop" "p" "" "La" "text" "c" "Bylayer" "")
(princ))

;;Chuc Nang : Ve Bac Thang Mat Cat
;;Cap Nhat Ngay : 01-01-2007

(Defun Tha (/ Pt1 Pt2 Pt3 Pt4 Lis P)
  (Setq Pt1 (Polar Pt0 0 (* 25 (/ M (Abs M))))
    Pt2 (Polar Pt1 (/ Pi 2) H1)
    Pt3 (Polar Pt2 0 M1)
    Pt4 (Polar Pt3 (/ Pi 2) (- H H1))
    Lis (List Pt1 Pt2 Pt3 Pt4)
    )
  (Repeat (1- N)
    (Setq Pt1 (Polar Pt4 0 (- M M1))
      Pt2 (Polar Pt1 (/ Pi 2) H1)
      Pt3 (Polar Pt2 0 M1)
      Pt4 (Polar Pt3 (/ Pi 2) (- H H1))
      Lis (Append Lis (List Pt1 Pt2 Pt3 Pt4))
      )
    )
  (Setvar "Osmode" 0)(Setvar "Plinewid" 0)
  (Command "Pline" Pt0)(Foreach P Lis (Command P))(Command)
  )
;;--------------------------------------------------------------
(Defun C:Tha (/ P Pt Pt0 M M1 N H H1 Batdinh )
  (Defun *Tha* (Msg)
    (Setvar "Osmode" Batdinh)(Setvar "Cmdecho" 1)
    (Princ "\nerror: ")(Princ Msg)(Princ "  ")
    (Setq *Error* Olderr)
    (Princ)
    )
  (Setq Olderr *Error* *Error* *Tha*)
  (Setvar "Cmdecho" 0)
  (Setq Pt0 (Getpoint "\nDiem Thu Nhat : ")
        Pt (Getpoint Pt0 "\nDiem Thu Hai : ")
    )
  (If (<(Cadr Pt0)(Cadr Pt))(Setq A Pt0 Pt0 Pt Pt A A Nil))
  (If (=(Cadr Pt0)(Cadr Pt))(Princ "\nHai Diem Cung Cao Do - Khong Tinh Truong Hop Nay ")
    (Progn
      (Setq N (Getint "\nSo Bac : ")
        M (/ (- (Car Pt)(Car Pt0)) (1- N))
        M1 (* -1 25 (/ M (Abs M)))
        H (/ (- (Cadr Pt)(Cadr Pt0)) N)
        H1 (* 35 (/ H (Abs H)))
        Batdinh (Getvar "Osmode")
        )
      (Cond
    ((Or (< (Abs M) 200)(< (Abs H) 100))
         (Princ "\nKich Thuoc Bac Qua Be B<200 H<100- Khong Tinh Truong Hop Nay "))
    ((Tha))
    )
      )
    )
  (Setq *Error* Olderr)
  (Setvar "Osmode" Batdinh)
  (Princ)
  )
;;; =========================== Layer hien hanh =============================
(defun layset (/ LAY) (setvar "cmdecho" 0)
 (setq LAY (entsel "\nPick vao doi tuong muon Layer hien hanh la Layer cua doi tuong do : "))
 (if LAY     (progn    
  (setq LAY (cdr (assoc 8 (entget (car LAY)))))
  (command "_.layer" "set" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh."))  )
             (progn
      (if (not ddlop) (load "ddlop"))  (if (setq LAY (ddlop))
             (progn
            (command "_.LAYER" "ON" LAY "THAW" LAY "SET" LAY "")  (princ (strcat "\nLayer : " LAY " da la hien hanh.")) ) ) ) )(princ) )
(defun c:1     () (layset))(defun c:LAYSET () (layset))
;;; ================== Cap nhat doi tuong vao layer hien hanh ==================
(Defun LAYCUR (/ SS CNT LAY)  (setvar "cmdecho" 0)
  (if (not (setq SS (ssget "i")))
    (progn (prompt "\nChon doi tuong cap nhat vao layer hien hanh: ")
      (setq SS (ssget))    )  )
  (if SS    (progn
   (setq CNT (sslength SS)) (princ (strcat "\n" (itoa CNT) " doi tuong tim thay."))                  (command "_.move" SS "")                     
      (if (> (getvar "cmdactive") 0)               
        (progn
          (command "0,0" "0,0") (setq SS  (ssget "p") CNT (- CNT (sslength SS))    )   )
          (setq SS nil)     )  (if (> CNT 0)                                
          (princ (strcat "\n" (itoa CNT) " doi tuong tren layer LOCK.")) ) ) )
  (if SS    (progn
      (setq LAY (getvar "CLAYER")) (command "_.chprop" SS "" "_la" LAY "")
      (if (= (sslength SS) 1)
        (prompt (strcat "\n1 doi tuong da cap nhat vao layer : " LAY " (layer hien hanh)."))
        (prompt (strcat "\n" (itoa (sslength SS)) " doi tuong da cap nhat vao layer : " LAY " (layer hien hanh).")) ) ))  (princ) );end
(defun c:LAYCUR () (laycur)) (defun c:2    () (laycur))