[已解決] 計算面積

由 **salad123** 2012-04-28, 01:18

以下是本人近日寫既lisp
我想框選出一堆object, 計算出其總面積~
用area / aa, 去加總, 要一個個點選, 有點費時
程式在框選到text 或沒有面積的物件時, 會出現錯誤, 使其不能計算出總面積, 我要怎樣做才可解決?
我已經用if, 定出某些物件才執行程式, 為何還會出現錯誤?
如只框選polyline, circle, epllise等, 才能計算出答案

;;;-----------------------------------------------------
; Function : Sum Area Boundary
; Command Key : ABC
;

(defun c:abc(/ ss i j sslist sum ssn ssdata sstype st1)
(setvar "cmdecho" 0)

; Set the Value
; ss = Selection of Object
; i = Define the Selection(ss) Starting No.
; j = Define the Number Code of the List(sslist)
; sslist = Set the list to store each area value (st1)
; sum = total area value
(prompt "\nSelect Object:")
(setq ss (ssget))
(setq i 0 j 0)
(setq sslist '())
(setq sum 0)

; ssn = Idenify Each Selection in the Selection Group
; ssdata = Get Selection' Information
; sstype = Get Selection' Type
; st1 = Object Area (Text)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstype (cdr (assoc 0 ssdata)))
(if (or (= sstype "CIRCLE")(= sstype "LWPOLYLINE")(= sstype "REGION")(= sstype "ELLIPSE"))
(progn
(command "area" "o" ssn)
(setq st1 (rtos (getvar "area") 2 4))
(princ)
(princ "\n")
(princ st1)
(princ "\n")
(setq sslist (cons st1 sslist))
(setq i (1+ i))
)))

(repeat (length sslist)
(setq st1 (atof (nth j sslist)))
(setq sum (+ st1 sum))
(setq j (1+ j)))
(setq sum (rtos sum 2 3))
(princ "\nSelected Total Area= ")(princ sum)
(princ))

由 **Atsai** 2012-04-28, 08:46

在選集的時候先篩選物件型式，
再把原本判斷物件型式的程式碼拿掉就好了！
下面是修改後的程式碼！

;;;-----------------------------------------------------
; Function : Sum Area Boundary
; Command Key : ABC
;

(defun c:abc (/ ss i j sslist sum ssn ssdata sstype st1)
(setvar "cmdecho" 0)

; Set the Value
; ss = Selection of Object
; i = Define the Selection(ss) Starting No.
; j = Define the Number Code of the List(sslist)
; sslist = Set the list to store each area value (st1)
; sum = total area value
(prompt "\nSelect Object:")

;;;先在下面這一列篩選圖元型式
(setq ss (ssget '((0 . "CIRCLE,LWPOLYLINE,REGION,ELLIPSE"))))
(setq i 0
j 0
)
(setq sslist '())
(setq sum 0)

; ssn = Idenify Each Selection in the Selection Group
; ssdata = Get Selection' Information
; sstype = Get Selection' Type
; st1 = Object Area (Text)
(repeat (sslength ss)
(setq ssn (ssname ss i))
; (setq ssdata (entget ssn))
; (setq sstype (cdr (assoc 0 ssdata)))
; (if (or (= sstype "CIRCLE")
; (= sstype "LWPOLYLINE")
; (= sstype "REGION")
; (= sstype "ELLIPSE")
; )
; (progn
(command "area" "o" ssn)
(setq st1 (rtos (getvar "area") 2 4))
(princ)
(princ "\n")
(princ st1)
(princ "\n")
(setq sslist (cons st1 sslist))
(setq i (1+ i))
; )
; )
)

(repeat (length sslist)
(setq st1 (atof (nth j sslist)))
(setq sum (+ st1 sum))
(setq j (1+ j))
)
(setq sum (rtos sum 2 3))
(princ "\nSelected Total Area= ")
(princ sum)
(princ)
)