Tweet
Lisp tính diện tích một hình khép kín
;tinh dien tich 1 hinh khep kin
(defun c:Q13()
(command "-layer" "n" "tdientich" "l" "CONTINUOUS" "tdientich" "c" 1 "tdientich" "")
(command "-layer" "s" "tdientich" "")
(Command "-style" "TDTICH" ".vnarial" "0.4" "" "" "" "" "" "" )
(setvar "cmdecho" 0)
(setq p (getpoint "Chon mot diem trong vung can tinh dien tich:"))
(command "boundary" p "")
(command "area" "e" "l")
(command "erase" "l" "" )
(command "color" "bylayer")
(setq dt (strcat (rtos (getvar "area" ) 2 2)))
(setq P1 (getpoint "\nChon diem ghi gia tri vua tinh duoc:"))
(Command "Text" "M" P1 "0" dt)
(Command "textsize" Oldsize "")
(princ)
(princ "dien tich = ") (princ dt)
(prompt "\nChon doi tuong TEXT can sua: ")
(command "DDEDIT")
(setvar "cmdecho" 1)
(princ)
)
Em mù tịt về lisp nên nhờ các anh sửa dùm. Em muốn khi chọn đối tượng text cần sửa thì nó sửa luôn ( mà vẫn giữ nguyên style của text cũ ). Ai biết xin giúp đõ 
(defun c:Q13()
(command "-layer" "n" "tdientich" "l" "CONTINUOUS" "tdientich" "c" 1 "tdientich" "")
(command "-layer" "s" "tdientich" "")
(Command "-style" "TDTICH" ".vnarial" "0.4" "" "" "" "" "" "" )
(setvar "cmdecho" 0)
(setq p (getpoint "Chon mot diem trong vung can tinh dien tich:"))
(command "boundary" p "")
(command "area" "e" "l")
(command "erase" "l" "" )
(command "color" "bylayer")
(setq dt (strcat (rtos (getvar "area" ) 2 2)))
(setq P1 (getpoint "\nChon diem ghi gia tri vua tinh duoc:"))
(Command "Text" "M" P1 "0" dt)
(Command "textsize" Oldsize "")
(princ)
(princ "dien tich = ") (princ dt)
(prompt "\nChon doi tuong TEXT can sua: ")
(command "DDEDIT")
(setvar "cmdecho" 1)
(princ)
)
Em mù tịt về lisp nên nhờ các anh sửa dùm. Em muốn khi chọn đối tượng text cần sửa thì nó sửa luôn ( mà vẫn giữ nguyên style của text cũ ). Ai biết xin giúp đõ
Ghi chú