[求助]：请高手优化以下程序

taner

请高手优化该程序，让其运行快些。
功能：将所选的实体转化成多义线，并判断其是否闭合.
(defun C:vvv (/ s1 n1 n e1 e2 z k a)
  (vl-load-com)
  (command "undo" "be")
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq s1 (ssget))
  (setq n1 (sslength s1))
  (setq n 0)
  (while (< n n1)
    (setq e1 (ssname s1 n))
    (setq e2 (entget e1))
    (if        (/= nil e2)
      (progn
        (setq a (cdr (assoc 0 e2)))
        (if (= a "LINE")
          (progn (command "pedit" e1 "y" "j" "all" "" "")
                 (setq k (entlast))

                 (if (/= (vlax-curve-isClosed k) t)

                   (command "change" k "" "p" "c" 232 "")
                   (command "change" k "" "p" "c" 30 "")
                 )
          )
          (if (= a "arc")
            (progn (command "pedit" e1 "y" "j" "all" "" "")
                   (setq k (entlast))

                   (if (/= (vlax-curve-isClosed k) t)

                     (command "change" k "" "p" "c" 232 "")
                     (command "change" k "" "p" "c" 30 "")
                   )
            )
          )
        )
      )
    )

    (setq n (1+ n))
  )
  (setvar "cmdecho" z)
  (command "undo" "e")
  (prin1)
)

懒虫

和读实体类型”前面的a“用同样的办法可以判断是否闭合，就不必用vl了。

taner

为何回贴的人这么少!