请看一下程序问题出在哪里

runkeji

你好：


     谢谢！

runkeji

(defun c:gx(/ ent1 ent2 ent_tm)
    (setq a (ssget "x"))
    (command "_.explode" a)
    (setq  a (ssget "x"))
    (setq  b (ssget "x"))
    (command "_.pedit" "" a "j" ""
                   "_.region"  b ""
            )
    (setq  ent1 (car(entsel)))
    (setq  ent2 (car(entsel)))
    (while (or (not ent1) (not ent2))
       (progn
          (prompt"请重新选择计算差集)
          (setq  ent1 (car(entsel)))
          (setq  ent2 (car(entsel)))
        )
     )
(if (< (vla-get-area(vlax-ename->vla-object  ent1)) (vla-get-area(vlax-ename->vla-object  
                       ent2 )))
(progn
     (setq ent_tmp  ent1)
     (setq ent1 ent2)
     (setq  ent2  ent_tmp)
)
)
(commnad "_.subtract"  ent1 ""ent2 "")
(setq  ent1 (entlast))
(princ "\n")
(setq    ent2 (vla-get-momentofinertia(vlax-ename->vla-object ent1)))
(setq lst (vlax-safearry->list(vlax-variant ent2)))
(princ (strcat   "惯性矩:    x值："(rtos (car lst 1)) "\n"))
(princ (strcat   "              y值："(rtos (cadr lst 1)) "\n"))
(princ)
)


    请问程序还有什么问题？还有没有别的方法完成这个程序呢？请多多指教。

小施

好用了，非常感谢大家啊