求助：优化程序-让程序运行起来更快输出

seamopan

下面程序为面积合并计算并输出结果的程序，程序可以正常运行并计算结果，但计算数量多的图形面积时运算比较慢，哪位大师能帮忙优化下就更好了；

;;; 功能: 计算多个选择对象的总面积
(defun c:ZMJ (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
(defun errexit (s)
(restore)
)
(defun undox ()
(command "._undo" "_E")
(setvar "cmdecho" oldcmdecho)
(setq *error* olderr)
(princ)
)
(setq olderr *error*
restore undox
*error* errexit
)
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "._UNDO" "_BE")
(if (setq ss1 (ssget '((-4 . "<OR")
(0 . "POLYLINE")
(0 . "LWPOLYLINE")
(0 . "CIRCLE")
(0 . "ELLIPSE")
(0 . "SPLINE")
(0 . "REGION")
(-4 . "OR>")
)
)
)
(progn
(setq nr 0)
(setq tot_area 0.0)
(setq en (ssname ss1 nr))
(while en
(command "._area" "_O" en)
(setq tot_area (+ tot_area (getvar "area")))
(setq nr (1+ nr))
(setq en (ssname ss1 nr))
)
(princ "\n总面积 = ")
(princ tot_area)
)
)
(restore)
)

yshf

;;; 功能: 计算多个选择对象的总面积
(defun c:ZMJ (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
    (vl-load-com)
    (defun errexit (s)
       (restore)
    )
    (defun undox ()
        (command "._undo" "_E")
        (setvar "cmdecho" oldcmdecho)
        (setq *error* olderr)
       (princ)
    )
    (setq olderr *error*
          restore undox
          *error* errexit
    )
    (setq oldcmdecho (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (command "._UNDO" "_BE")
    (if (setq ss1 (ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE,SPLINE,REGION"))))
        (progn
            (setq tot_area 0.0)
            (repeat (setq nr (sslength ss1))
                (setq nr (1- nr))
                (setq en (ssname ss1 nr))
                (setq tot_area (+ tot_area (vlax-curve-getArea ent)))
            )
            (princ "\n总面积 = ")
            (princ tot_area)
        )
    )                 
    (restore)
)

seamopan

yshf 发表于 2022-6-26 13:11
;;; 功能: 计算多个选择对象的总面积
(defun c:ZMJ (/ olderr oldcmdecho errexit undox restore ss1 nr e ...

感谢大佬，程序优化后比原来运行快多了

qazxswk

使用command函数计算，慢是正常的。但用command写代码，稍微容易一点。vlax函数运行是快一些，但有些命令转为用vla或vlax稍微比较麻烦。

seamopan

qazxswk 发表于 2022-7-4 17:44
使用command函数计算，慢是正常的。但用command写代码，稍微容易一点。vlax函数运行是快一些，但有些命令转 ...