(defun DXF (code elist)
(cdr (assoc code elist))
);dxf
(defun c:Arr(/ dtl dtcon pt1 pt2 ss et oslast vsize)
(if (= tl nil) (progn
(setq tl (getreal "\n VÏ tØ lÖ nhiªu vËy ®¹i ka?(Dïng trong tÝnh diÖn tÝch ®/víi b/vÏ tØ lÖ 1000 [®.vÞ m]): "))
; (setq ntl (/ 1000 tl))
; (setq tl2 (* ntl ntl))
)
)
(setq dtl 0)
(setq ss (ssadd))
(setq oslast (getvar "OSMODE"))
(command "osnap" "")
(setq ntl (/ 1000 tl))
(setq tl2 (* ntl ntl))
(print)
(print)
(setq pt1 (getpoint "\nChän mét ®iÓm bÊt kú trong h×nh hehehe(*__*): "))
(while (/= pt1 nil)
(command "-boundary" pt1 "")
(setq et (entlast))
(ssadd et ss)
(command "area" "e" "last")
(setq vsize ( /(getvar "VIEWSIZE") 5))
(command "hatch" "ANSI31" vsize "0" "last" "")
(setq et (entlast))
(ssadd et ss)
(setq dtcon (/ (getvar "AREA") tl2))
(setq dtl (+ dtcon dtl))
(prompt (strcat "\nTæng diÖn tÝch c¸c h×nh mµ b¹n ®· chän : " (rtos dtcon 2 2)))
(print)
(print)
(setq pt1 (getpoint "\nChän tiÕp h×nh nµo kh«ng ®¹i ca?(^__^): "))
)
(command "setvar" "OSMODE" oslast)
(command "erase" ss "")
(setq ss nil)
(command "redraw")
; (setq dtl (/ (/ dtl tl2) 2))
; (setq dtl (/ dtl 2))
(print)
(prompt (strcat "\nTæng diÖn tÝch c¸c h×nh b¹n ®· chän : " (rtos dtl 2 2)))
(print)
(setq pt2 (getpoint "\n§iÓm ®Æt diÖn tÝch: "))
(if (/= 0 (DXF 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))
(command "text" pt2 "0" (rtos dtl 2 2))
(command "text" pt2 "0.4" "0" (rtos dtl 2 2))
);if
(princ)
);defun Arr
;------------------------------------------------------------------------
(defun c:AR2(/ dtl dtcon pt1 pt2 ss et oslast vsize)
(if (= tl nil) (progn
(setq tl (getreal "\nDrawing scale : "))
; (setq ntl (/ 1000 tl))
; (setq tl2 (* ntl ntl))
)
)
(setq dtl 0)
(setq ss (ssadd))
(setq oslast (getvar "OSMODE"))
(command "osnap" "")
(setq ntl (/ 1000 tl))
(setq tl2 (* ntl ntl))
(print)
(print)
(setq pt1 (getpoint "\nPick internal point : "))
(while (/= pt1 nil)
(command "-boundary" pt1 "")
(setq et (entlast))
(ssadd et ss)
(command "area" "e" "last")
(setq vsize ( /(getvar "VIEWSIZE") 5))
(command "hatch" "ANSI31" vsize "0" "last" "")
(setq et (entlast))
(ssadd et ss)
(setq dtcon (/ (getvar "AREA") tl2))
(setq dtl (+ dtcon dtl))
(prompt (strcat "\nComponent area : " (rtos dtcon 2 4)))
(print)
(print)
(setq pt1 (getpoint "\nPick internal point : "))
)
(command "setvar" "OSMODE" oslast)
(command "erase" ss "")
(setq ss nil)
(command "redraw")
; (setq dtl (/ (/ dtl tl2) 2))
(setq dtl (/ dtl 2))
(print)
(prompt (strcat "\nHaft total area : " (rtos dtl 2 4)))
(print)
(setq pt2 (getpoint "\nPoint to write: "))
(if (/= 0 (DXF 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))
(command "text" pt2 "0" (rtos dtl 2 2))
(command "text" pt2 "2" "0" (rtos dtl 2 2))
);if
(princ)
);defun AR2
;-------------------------------------------------------------------------------
(defun C:vd()
(print)
(print)
(print)
(setq last (getvar "OSMODE"))
(command "setvar" "OSMODE" "33")
(command "setvar" "DIMZIN" 0 )
(if (= tl nil) (setq tl (getreal "TØ lÖ b¶n vÏ lµ nhiªu vËy ®¹i ka?(*____*) : ")))
(setq PT1 (getpoint "Chän ®iÕm 1 (®iÓm ®Çu) : "))
; (setq PT2 (getpoint "Chän ®iÓm 2 : "))
; (setq dist1 (distance pt1 pt2))
; (setq ntl (/ 1000 tl))
; (setq dist (/ dist1 ntl))
(setq sum 0)
(while (/= pt1 nil)
(setq PT2 (getpoint "Chän tiÕp ®iÓm n÷a koi (®iÓm cuèi): "))
(print)
(setq dist1 (distance pt1 pt2))
(setq ntl (/ 1000 tl))
(setq dist (/ dist1 ntl))
(prompt (strcat "\n ChiÒu dµi ®o¹n võa ®o lµ " (rtos dist 2 4)))
(print)
(setq sum (+ sum dist))
(setq PT1 (getpoint "Chän ®iÓm 1 nhanh ®i (®iÓm ®Çu ®o¹n kh¸c): "))
);while
(prompt (strcat "\n Tæng chiÒu dµi lµ " (rtos sum 2 4)))
(print)
(command "setvar" "OSMODE" "64")
(setq pt3 (getpoint "Ghi ra chç nµo ®©y ®¹i ka?! : "))
;(setq x (+ (car pt3) 2))
;(setq pt3 (list x (cadr pt3)))
(setq sum2 (+ (/ sum 2) 1))
(command "text" pt3 "0.4" "0" (rtos sum 2 2))
(command "setvar" "OSMODE" last)
(princ)
)
(prompt "\n §¸nh lÖnh: ARR pick chän ®iÓm trong h×nh bÊt kú")
(prompt "\n Start with AR2 to calculate haft area by pick points method")
(prompt "\n §¸nh lÖnh: VD ®Ó tÝnh tæng chiÒu dµi c¸c ®o¹n cÇn ®o ")
(prompt "\n By Huúnh Thanh Trang")
(prompt "\n All right Reserved ™")
(princ)
(princ "\n
www.cuibap.com.vn")
(princ "\n Danh ,, the hien Bang Welcome!")
(defun C:,,( / dcl_id )
(setq dcl_id (load_dialog "keke.dcl")) ; Load the DCL file.
(if (not (new_dialog "keke" dcl_id)) ; Initialize the dialog.
(exit) ; Exit if this doesn't
; work.
)
(start_dialog) ; Display the dialog
; box.
(princ)
)
;******************************************************************************
;;;
;;; Cong don cac so chon
;
****************************************************************
(prompt "\n §¸nh lÖnh: CV Céng c¸c text (sè) ")
(prompt "\n B¶n quyÒn cuibap.com.vn (C)")
(defun C:cv (/ cnt enam ent pnt s1 tot v1 val)
(setvar "CMDECHO" 0.000)
(prompt "\nChän c¸c sè muèn céng: ")
(setq s1 (ssget))
(prompt "\n§iÓm ®Æt kÕt qu¶: ")
(setq pnt (getpoint))
(setvar "cmdecho" 0.000)
(setq tot 0.000)
(if s1
(progn
(setq cnt (1- (sslength s1)))
(while (>= cnt 0.000)
(setq enam (ssname s1 cnt))
(setq ent (entget enam))
(if (= (cdr (assoc 0.000 ent)) "TEXT")
(progn
(setq v1 (assoc 1 ent))
(setq val (atof (cdr v1)))
(if (and (numberp val) (/= val 0.000))
(progn
(setq tot (+ val tot))
)
)
)
)
(setq cnt (1- cnt))
))
)
(setq tot (rtos tot 2))
(command "text" pnt "" "" tot)
(princ)
(setvar "cmdecho" 1)
)
