Thật độc đáo. Thanks bác
Code đã sửa:

(defun C:dtc()
(setq blockmau (entsel "\nChon Block mau:"))
(setq nhomtenblockmau (assoc 2 (entget (car blockmau))))
(setq Blkname (cdr nhomtenblockmau))
(setq doituong (cdr (last (tblsearch "Block" Blkname))))
(setq doituongcon (entnext doituong))
(setq DXFdoituongcon (entget doituongcon))
(princ "\n")
(setq DXFdoituong (entget doituong))

>>

Thật độc đáo. Thanks bác
Code đã sửa:

(defun C:dtc()
(setq blockmau (entsel "\nChon Block mau:"))
(setq nhomtenblockmau (assoc 2 (entget (car blockmau))))
(setq Blkname (cdr nhomtenblockmau))
(setq doituong (cdr (last (tblsearch "Block" Blkname))))
(setq doituongcon (entnext doituong))
(setq DXFdoituongcon (entget doituongcon))
(princ "\n")
(setq DXFdoituong (entget doituong))
(princ "\n†††††††††††††††††††††††Bang ma DXF cua doi tuong nhu sau:")
(foreach tungphantu DXFdoituong
(princ "\n")
(princ tungphantu)
)
(while (/= doituongcon nil)
(setq DXFdoituongcon (entget doituongcon))
(setq doituongcon (entnext doituongcon))
(princ "\n")
(princ "\n†††††††††††††††††††††††Bang ma DXF cua doi tuong nhu sau:")
(foreach tungphantu DXFdoituongcon
(princ "\n")
(princ tungphantu)
)
)
(princ)
)

Hề hề hề,
Không biết thời không có tội tình chi cả. Song nếu không muốn biết mà cái sự biết ấy lại rất cần cho công việc của mình thì nó là tội to đấy. Tội LƯỜI, tội Ỷ LẠI, tội THIẾU TRÁCH NHIỆM, ..... trăm thứ tội cơ đấy.
Mình muốn giúp mà bạn không muốn thì chỉ có trời giúp được bạn thôi.
Đây là cái mình chỉ cần mươi phút để làm nhưng rất không...

Hề hề hề,
Không biết thời không có tội tình chi cả. Song nếu không muốn biết mà cái sự biết ấy lại rất cần cho công việc của mình thì nó là tội to đấy. Tội LƯỜI, tội Ỷ LẠI, tội THIẾU TRÁCH NHIỆM, ..... trăm thứ tội cơ đấy.
Mình muốn giúp mà bạn không muốn thì chỉ có trời giúp được bạn thôi.
Đây là cái mình chỉ cần mươi phút để làm nhưng rất không muốn làm vì nó không có ý nghĩa gì với mình cả. Vì bạn quá cần nên mình nhín chút giận mà làm nhưng hy vọng bạn sẽ có thay đổi trong cách làm việc của bạn để có thể tiến bộ hơn. Chúc bạn chóng thành tài.
Mình sẽ không giải thích gì thêm và cũng sẽ không sửa gì nữa đâu, nếu bạn thấy không dùng được thì cứ cho vào sọt rác cho rảnh nợ nhé.

Ứng dụng của AutoCAD .NET API thực hiện việc Chuyển từ text số thành text chữ tiếng Việt.

Sử dụng thư viện Chuyển số thành chữ bên caulacbovb.net : LInk

Cách sử dụng :
1. giải nén và copy file "Number2String.dll" vào hệ thống(đĩa cứng, USB, ...).
2. Khởi động AutoCAD, open file Cad cần chuyển .
3. Tại dấu nhắc (Command ) của CAD gõ lệnh NETLOAD và chỉ đến...

Ứng dụng của AutoCAD .NET API thực hiện việc Chuyển từ text số thành text chữ tiếng Việt.

Sử dụng thư viện Chuyển số thành chữ bên caulacbovb.net : LInk

Cách sử dụng :
1. giải nén và copy file "Number2String.dll" vào hệ thống(đĩa cứng, USB, ...).
2. Khởi động AutoCAD, open file Cad cần chuyển .
3. Tại dấu nhắc (Command ) của CAD gõ lệnh NETLOAD và chỉ đến vị trí file "Number2String.dll" vừa copy ở buớc 1, chọn OPEN để hoàn thành lệnh NETLOAD .
4. gõ lệnh n2s để bắt đầu ...
(Nếu bạn đã quen với AutoLisp, các buớc 1-2-4 tuơng tự như cách load 1 ứng dụng AutoLisp, chỉ thay lệnh APPLOAD bằng lệnh NETLOAD ở buớc 3.)

Ngoài ra "Number2String.dll" còn cùng cấp hàm LISP Number2String để ứng dụng trong Lập trình LISP.
Cách sử dụng :
1. Cú pháp : (Number2String str)
- trong đó str là kiểu chuỗi (string)
Chú ý : kí hiệu thập phân chỉ chấp nhận hoăc là dấu phấy "," hoặc dấu chấm "." (không chấp nhận vừa dấu phẩy vừa dấu chấm, VD: 123.456,8 )
- giá trị trả về là lisp chứa kết quả tiếng Việt (bảng mã Unicode) hoặc NIL

2.VD :
- (car(Number2String "13964.8")) -> Mười ba nghìn chín trăm sáu mươi bốn phảy tám
- (car(Number2String "237,5")) -> Hai trăm ba mươi bảy phảy năm
- (Number2String "4.237,5") -> nil

Hàm Lisp tham khảo :
Nhớ chép file "Number2String.dll" vào đuờng dẫn Autocad Support file search Path.

(defun C:test1(/ ds e fil i res ss str);
(if (and (setq fil (findfile "Number2String.dll"))
(vl-cmdf "_.netLoad" fil)
(setq ss (ssget "_:L" (list (cons 0 "Text")))) )
(progn
(setq i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(setq ds (entget e)
str (cdr (assoc 1 ds)))
(if (setq res (Number2String str) )
(entmod (subst (cons 1 (strcat str " (" (car res ) ")") )(assoc 1 ds) ds)) ) ))
(princ "\nError found."))
(princ))
(defun C:test(/ ss res fil)
(if (and (setq fil (findfile "Number2String.dll"))
(vl-cmdf "_.netLoad" fil) )
(while (setq ss (ssget "_+.:S:E" (list (cons 0 "Text"))))
(if (setq res (Number2String (cdr (assoc 1 (entget (ssname ss 0))))) )
(princ (car res ))
(princ "\nKhong phai so!")))
(princ "\nFile not found.") )
(princ))



Link bao gồm SourceCode : click here

http://nh3.upanh.com/b1.s13.d5/328143e7da98310731f1e10d3aabd9c9_39735373.measurement.jpg

Các bác có ai biết viết đoạn lisp để hỏi nhập giá trị này không ạ.( phần đánh dấu đỏ )
Em đang muốn nhập đoạn này vào thêm trong lisp VD.lsp


;;; DAT BIEN CHO DIM
(DEFUN C:VD ()
(setq OVSC (getreal "\nty le dim la bao nhieu %? ... "))
(setq namedim (getstring "\nDat ten dim nhe "))

>>

http://nh3.upanh.com/b1.s13.d5/328143e7da98310731f1e10d3aabd9c9_39735373.measurement.jpg

Các bác có ai biết viết đoạn lisp để hỏi nhập giá trị này không ạ.( phần đánh dấu đỏ )
Em đang muốn nhập đoạn này vào thêm trong lisp VD.lsp


;;; DAT BIEN CHO DIM
(DEFUN C:VD ()
(setq OVSC (getreal "\nty le dim la bao nhieu %? ... "))
(setq namedim (getstring "\nDat ten dim nhe "))
(COMMAND "INSERT" "DIM=dim" ^c)
(COMMAND "-LAYER" "SET" "K.DIM(5)" "")
(command "-style" "K.VNtime" "VNTime.shx,VNS.SHX" "0" "0.75" "0" "N" "N" "N")
(COMMAND "MIRRTEXT" "0") ;;;KHONG MIRROR TEXT
(COMMAND "DIMUNIT" "2") ;;;TEXT DANG DECIMAL
(COMMAND "DIMADEC" "0") ;;;DAT SO CHU THAP PHAN TEXTDIM
(COMMAND "DIMASZ" "1") ;;;KTHUOC ARROWHEADER
(COMMAND "DIMCLRT" "2") ;;;DAT MAU CHO TEXTDIM
(COMMAND "DIMDEC" "0") ;;;DAT KIEU THAP PHAN CHO DIMTEXT
(COMMAND "DIMALTU" "2") ;;;KIEUDONVI TEXTDIM
(COMMAND "DIMDLE" "1") ;;DATPHAN DIMLINE NHO KHOI DG EXTEND
(COMMAND "DIMDLI" "8") ;;;DAT KHOANG CACH GIUA CAC DUONG DIM
(COMMAND "DIMEXE" "2") ;;;DATPHAN DG EXTEND NHO KHOI DG DIMLINE
(COMMAND "DIMEXO" "0") ;;;DAT KHCACH CHAN DG GIONG VA VAT THE
(COMMAND "DIMFIT" "5") ;;;DATFIT
;;0 Text and Arrows
;;1 Text Only
;;2 Arrows Only
;;3 Best Fit
;;4 Leader
;;5 No Leader
(COMMAND "DIMTIH" "OFF") ;;;GIONG TEXT trong dg dim THEO DG DIMLINE
(COMMAND "DIMTOH" "OFF") ;;;GIONG TEXT trong dg dim THEO DG DIMLINE
(COMMAND "DIMTAD" "1") ;;;TEXTDIM PHIA TREN DIMLINE
(COMMAND "DIMTOFL" "ON") ;;;CO DIMLINE NGAY CA KHI TEXT OUTSIDE
(COMMAND "DIMTXSTY" "K.VNtime") ;;;style dimtext
(COMMAND "DIMTXT" "2.5") ;;;chieucao textdim
(COMMAND "DIMASZ" "1") ;;;scale for arrowhead
(COMMAND "DIMTVP" "1") ;;;khcach textdim phia tren hoac duoi dimline
(COMMAND "DIMGAP" "1") ;;;khcach dim phia tren hoac duoi dimline
(COMMAND "DIMSAH" "ON") ;;;dung blockarrow default hoac defined
(COMMAND "DIMBLK" "DIM") ;;;kieu arrow
(COMMAND "DIMBLK1" "DIM") ;;;kieu arrow dau
(COMMAND "DIMBLK2" "DIM") ;;;kieu arrow cuoi
(COMMAND "DIMSD1" "OFF") ;;;CO DIMLINEDAU
(COMMAND "DIMSE1" "OFF") ;;;CO EXTENDED LINE DAU
(COMMAND "DIMCLRD" "5") ;;;DATMAUDIMLINE
(COMMAND "DIMCLRE" "5") ;;;DATMAUEXTENDLINE
(COMMAND "DIMRND" "0") ;;;LAM TRON DIMTEXT
(COMMAND "DIMcen" "-3") ;;;ve center line for dimcen
(COMMAND "DIMSCALE" OVSC) ;;;OVERSCALE FOR DIM
(COMMAND "DIMSTYLE" "s" namedim) ;;SAVE TEN KIEU DIM
(PRINC)
)

ở dưới là lisp của bác Tuệ... tôi muốn chỉnh lisp có thể chọn nhiều đối tượng Hatch cùng 1 lúc (lisp hiện giờ chỉ thực hiện đối với từng đối tượng, muốn tiếp tục phải làm lại lệnh)

nếu có thể thì các bác có thể thêm chức năng chọn tất cả các đối tượng, nhưng lisp chỉ tác động đến các đối tượng hatch (tương tự như lệnh DDA bỏ thuộc tính assoc của dim ý)

>>

ở dưới là lisp của bác Tuệ... tôi muốn chỉnh lisp có thể chọn nhiều đối tượng Hatch cùng 1 lúc (lisp hiện giờ chỉ thực hiện đối với từng đối tượng, muốn tiếp tục phải làm lại lệnh)

nếu có thể thì các bác có thể thêm chức năng chọn tất cả các đối tượng, nhưng lisp chỉ tác động đến các đối tượng hatch (tương tự như lệnh DDA bỏ thuộc tính assoc của dim ý)

cám ơn các bác nhiều


;; free lisp from cadviet.com
(defun c:hma ()
(setvar "hpassoc" 1)
(setvar "osmode" 512)
(setq ddd (entsel "\nChuyen Hatch : Non-associative -> associative"))
(while
(null ddd)
(princ "\nDoi tuong khong phai la Hatch! Chon lai")
(setq ddd (entsel "\nChon Hatch mau :"))
)
(setq ename ddd
elist (entget (car ename))
etyp (cdr (assoc 0 elist))
old (getvar "clayer")
);setq
(if (/= etyp "HATCH")
(prompt "\nKHONG PHAI DOI TUONG HATCH! HAY THU LAI!")
(progn
(setq layn (cdr (assoc 8 elist)))
(setvar "HPNAME" (cdr (assoc 2 elist)))
))
(if (= (setvar "HPNAME" (cdr (assoc 2 elist))) "SOLID")
(Progn
(setq pt1 (cadr ddd))
(setvar "clayer" layn)
(entdel (car ename))
(command "bhatch" pt1 "")
(setvar "clayer" old)
))
(if (/= (setvar "HPNAME" (cdr (assoc 2 elist))) "SOLID")
(Progn
;(setq pt1 (getpoint "\nCHON MOT DIEM TRONG VUNG SE HATCH: "))
(setq pt1 (cadr ddd))
(setvar "clayer" layn)
(entdel (car ename))
(command "bhatch" pt1 "")
(setvar "clayer" old)
);progn
);if
(princ)
);defun
;;;;;;;;;;;;;
(defun c:hmna ()
(setvar "hpassoc" 0)
(setvar "osmode" 512)
(setq ddd (entsel "\nChuyen Hatch : associative -> Non-associative"))
(while
(null ddd)
(princ "\nDoi tuong khong phai la Hatch! Chon lai")
(setq ddd (entsel "\nChon Hatch mau :"))
)
(setq ename ddd
elist (entget (car ename))
etyp (cdr (assoc 0 elist))
old (getvar "clayer")
);setq
(if (/= etyp "HATCH")
(prompt "\nKHONG PHAI DOI TUONG HATCH! HAY THU LAI!")
(progn
(setq layn (cdr (assoc 8 elist)))
(setvar "HPNAME" (cdr (assoc 2 elist)))
))
(if (= (setvar "HPNAME" (cdr (assoc 2 elist))) "SOLID")
(Progn
(setq pt1 (cadr ddd))
(setvar "clayer" layn)
(entdel (car ename))
(command "bhatch" pt1 "")
(setvar "clayer" old)
))
(if (/= (setvar "HPNAME" (cdr (assoc 2 elist))) "SOLID")
(Progn
;(setq pt1 (getpoint "\nCHON MOT DIEM TRONG VUNG SE HATCH: "))
(setq pt1 (cadr ddd))
(setvar "clayer" layn)
(entdel (car ename))
(command "bhatch" pt1 "")
(setvar "clayer" old)
);progn
);if
(princ)
);defun

Đối với AutoCAD phiên bản trước 2004, trước khi sử dụng các hàm vlax- cần phải khởi động ActiveX bằng dòng lệnh (vl-load-com) , tuy nhiên CAD 2004 do ActiveX được mặc định nạp khi khởi động AutoCad nên dòng lệnh (vl-load-com) là không cần thiết nhưng cứ thêm vào cho chắc (dư thì không sao, nếu thiếu thì Cad báo lỗi).


Hàm vlax-get-property hay đơn giản hơn là vlax-get để...

Đối với AutoCAD phiên bản trước 2004, trước khi sử dụng các hàm vlax- cần phải khởi động ActiveX bằng dòng lệnh (vl-load-com) , tuy nhiên CAD 2004 do ActiveX được mặc định nạp khi khởi động AutoCad nên dòng lệnh (vl-load-com) là không cần thiết nhưng cứ thêm vào cho chắc (dư thì không sao, nếu thiếu thì Cad báo lỗi).


Hàm vlax-get-property hay đơn giản hơn là vlax-get để truy xuất CSDL của đối tượng(VLA-object), tương tự như cách chúng ta truy xuất qua các code DXF với Lisp.

Kết quả của lệnh HaveaDump với đốii tượng là TEXT :
Command: HaveaDump
Select object:
; IAcadText: AutoCAD Text Interface
; Property values:
; Alignment = 0
; Application (RO) = #<VLA-OBJECT IAcadApplication 00b5e51c>
; Backward = 0
; Document (RO) = #<VLA-OBJECT IAcadDocument 01268360>
; Handle (RO) = "9B"
; HasExtensionDictionary (RO) = 0
; Height = 175
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 06461014>
; InsertionPoint = (5.96983 16.4748 0.0)
; Layer = "D-STR"
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Normal = (0.0 0.0 1.0)
; ObjectID (RO) = 2130005784
; ObjectName (RO) = "AcDbText"
; ObliqueAngle = 0.0
; OwnerID (RO) = 2130005240
; PlotStyleName = "ByLayer"
; Rotation = 0.0
; ScaleFactor = 1.0
; StyleName = "Standard"
; TextAlignmentPoint = (0.0 0.0 0.0)
; TextGenerationFlag = 0
; TextString = "CadViet.com"
; Thickness = 0.0
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 06462a30>
; UpsideDown = 0
; Visible = -1

các dòng màu đỏ cho ta biết :
Height : chiều cao = 175
Layer : lớp = D-STR
TextString : nội dung = CadViet.com

để truy xuất các giá trị này, ta chỉ việc thêm chúng vào sau hàm vlax-get- :
(setq chcao (vla-get-Height eObj) ) ; chiều cao text
(setq lop (vla-get-Layer eObj) ) ; lớp
(setq str (vla-get-TextString eObj) ); noi dung

Ví dụ truy xuất đối tượng TETX


Hy vọng vài dòng trên giúp bạn cách truy xuất CSDL qua ActiveX.

Chào 'study_forever'
Đây là Lisp MSOT -> Move các đối tượng còn sót lại (chưa MOVE cùng với đối tượng trước đó)
Tue_NV bổ sung vào Lisp nhé :
1. Lệnh M : move các đối tượng của bản vẽ : giống lệnh M (Move) của CAD như 2 giọt nước
2. Lệnh UM (Unmove) : đưa các đối tượng Move nhầm về vị trí cũ
3 . Lệnh MSOT : Move các đối tượng còn sót lại (chưa MOVE cùng với...

Chào 'study_forever'
Đây là Lisp MSOT -> Move các đối tượng còn sót lại (chưa MOVE cùng với đối tượng trước đó)
Tue_NV bổ sung vào Lisp nhé :
1. Lệnh M : move các đối tượng của bản vẽ : giống lệnh M (Move) của CAD như 2 giọt nước
2. Lệnh UM (Unmove) : đưa các đối tượng Move nhầm về vị trí cũ
3 . Lệnh MSOT : Move các đối tượng còn sót lại (chưa MOVE cùng với đối tượng trước đó)
Các bạn hãy sử dụng thử và cho mình biết ý kiến nhé :

@study : Với yêu cầu 2 thì Tue_NV yêu cầu bạn post bài đúng chổ. Đây là bài viết về Move chứ không phải bài viết về copy. Mong bạn hiểu. Bạn post đoạn code trên ở chổ nào thì trả về đúng chổ cũ của nó. Mình sẽ trả lời bạn nếu bạn post bài đúng chổ. Bạn đồng ý chứ?
Hãy edit lại bài viết trên của bạn và trả về vị trí của nó

Ssg có chiêu này, bạn dùng thử xem có hợp ý không?

- Lệnh MM: hoạt động không khác gì lệnh move (M) của Acad
- Lệnh MN: chọn những chú nào bị nhầm, trả về nguyên quán! Lưu ý rằng, nó chỉ có tác dụng đúng với các đối tượng được move bởi MM, và phải thực hiện liền ngay sau đó. Để lâu ssg không dám chắc chúng nó có chịu quay về chỗ cũ không, hay là lang thang đâu đó...

Ssg có chiêu này, bạn dùng thử xem có hợp ý không?

- Lệnh MM: hoạt động không khác gì lệnh move (M) của Acad
- Lệnh MN: chọn những chú nào bị nhầm, trả về nguyên quán! Lưu ý rằng, nó chỉ có tác dụng đúng với các đối tượng được move bởi MM, và phải thực hiện liền ngay sau đó. Để lâu ssg không dám chắc chúng nó có chịu quay về chỗ cũ không, hay là lang thang đâu đó không biết!
- Nếu bạn thường xuyên bị... nhầm thì đổi luôn Move của Acad thành MM

Mình thử viết cái lisp theo như đầu bài là file bạn gửi lên, xem thế nào nhé.
Tuy nhiên vì lười nên mình chỉ viết cho lisp đọc đế hàng triệu thôi, còn hàng tỉ thì có thể thêm sau nếu thật cần thiết

(defun c:doc(/ docsotrieu docsonghin docsodonvi nd stt nguyen thapphan)
(setq text...

Mình thử viết cái lisp theo như đầu bài là file bạn gửi lên, xem thế nào nhé.
Tuy nhiên vì lười nên mình chỉ viết cho lisp đọc đế hàng triệu thôi, còn hàng tỉ thì có thể thêm sau nếu thật cần thiết

(defun c:doc(/ docsotrieu docsonghin docsodonvi nd stt nguyen thapphan)
(setq text (entget(car(entsel)))
nd (cdr(assoc 1 text))
stt (vl-string-search "," nd)
nguyen (vl-string-subst "" "."(substr nd 1 stt))
thapphan(dichso (substr nd (+ stt 2)))
)
(cond ((>(strlen nguyen)6)
(setq sotrieu (substr nguyen 1 (- (strlen nguyen) 6))
docsotrieu (strcat (doc3so sotrieu) " tri\U+1EC7u ")
songhin (substr nguyen (- (strlen nguyen) 5) 3)
docsonghin (strcat (doc3so songhin) " ngh\U+00ECn ")
sodonvi (substr nguyen (- (strlen nguyen) 2) 3)
docsodonvi (doc3so sodonvi)
)
(strcat docsotrieu docsonghin docsodonvi " ph\U+1EA9y " thapphan)
);tri\U+1EC7u
((and(<=(strlen nguyen)6) (>(strlen nguyen)3))
(setq songhin (substr nguyen 1 (- (strlen nguyen) 3))
docsonghin (strcat (doc3so songhin) " ngh\U+00ECn ")
sodonvi (substr nguyen (- (strlen nguyen) 2) 3)
docsodonvi (doc3so sodonvi)
)
(strcat docsonghin docsodonvi " ph\U+1EA9y " thapphan)
);ngh\U+00ECn
((<=(strlen nguyen)3)
(setq
sodonvi nguyen
docsodonvi (doc3so sodonvi)
)
(strcat docsodonvi " ph\U+1EA9y " thapphan)
);ngh\U+00ECn
)

)
;;;=======================================
(defun dichso(so / so docso)

(cond ((= so "0")
(setq docso "kh&#244;ng")
)
((= so "1")
(setq docso "m\U+1ED9t")
)
((= so "2")
(setq docso "hai")
)
((= so "3")
(setq docso "ba")
)
((= so "4")
(setq docso "b\U+1ED1n")
)
((= so "5")
(setq docso "n\U+0103m")
)
((= so "6")
(setq docso "s\U+00E1u")
)
((= so "7")
(setq docso "b\U+1EA3y")
)
((= so "8")
(setq docso "t\U+00E1m")
)
((= so "9")
(setq docso "ch\U+00EDn")
)
)
)
;;;;
(defun doc3so(sodonvi)
(cond
((=(strlen sodonvi)3);;co 3 so
(setq tram (strcat(dichso (substr sodonvi 1 1)) " tr\U+0103m "));hang tr\U+0103m
(cond ((and(/=(substr sodonvi 2 1) "0") (/=(substr sodonvi 2 1) "1"))
(setq chuc (strcat(dichso (substr sodonvi 2 1)) " m\U+01B0\U+01A1i "))
)
((=(substr sodonvi 2 1) "0")
(setq chuc "linh ")
)
((=(substr sodonvi 2 1) "1")
(setq chuc "m\U+01B0\U+1EDDi ")
)
);hang chuc
(cond ((and(/=(substr sodonvi 3 1) "0") (/=(substr sodonvi 3 1) "1") (/=(substr sodonvi 3 1) "5"))
(setq donvi (dichso (substr sodonvi 3 1)))
)
((=(substr sodonvi 3 1) "0")
(setq donvi "")
)
((and(/= chuc "m\U+01B0\U+1EDDi ") (/= chuc "linh ") (=(substr sodonvi 3 1) "1"))
(setq donvi "m\U+1ED1t")
)
((and(= chuc "m\U+01B0\U+1EDDi ") (=(substr sodonvi 3 1) "1"))
(setq donvi "m\U+1ED9t")
)
((and(= chuc "linh ") (=(substr sodonvi 3 1) "1"))
(setq donvi "m\U+1ED9t")
)
((=(substr sodonvi 3 1) "5")
(setq donvi "l\U+0103m")
)
);hang don vi
(strcat tram chuc donvi)
);; co 3 so

((=(strlen sodonvi)2);;co 2 so
(cond ((/=(substr sodonvi 1 1) "1")
(setq chuc (strcat(dichso (substr sodonvi 1 1)) " m\U+01B0\U+01A1i "))
);hang chu
((=(substr sodonvi 1 1) "1")
(setq chuc "m\U+01B0\U+1EDDi ")
)
);hang chuc
(cond ((and(/=(substr sodonvi 2 1) "0") (/=(substr sodonvi 2 1) "1") (/=(substr sodonvi 2 1) "5"))
(setq donvi (dichso (substr sodonvi 2 1)))
)
((=(substr sodonvi 2 1) "0")
(setq donvi "")
)
((and(/= chuc "m\U+01B0\U+1EDDi ") (=(substr sodonvi 2 1) "1"))
(setq donvi "m\U+1ED1t")
)
((and(= chuc "m\U+01B0\U+1EDDi ") (=(substr sodonvi 2 1) "1"))
(setq donvi "m\U+1ED9t")
)
((=(substr sodonvi 2 1) "5")
(setq donvi "l\U+0103m")
)
);hang don vi

(strcat chuc donvi)
);; co 2 so
((=(strlen sodonvi)1)
(setq donvi (dichso (substr sodonvi 1 1)))
);; co 1 so
)
)