[求助]帮忙修改一下程序

runkeji

;;;;;首先更改程序************
;;;;;计算单个矩形的惯性矩的计算
(defun jx()
   (princ "請選取一個矩形吧:")
  (setq as (car (entsel)))
  ;(SETQ AS (car A))
(setq ac (ENTGET AS))
;(setq AF (CDR (ASSOC 10 Ac)))
  (setq n 0)
  (setq sidian nil)
  (while (setq pand (assoc 10 ac))
    (progn
      (setq jieduan (member pand ac))
      (setq one (cdr pand))
      (setq ac (cdr jieduan))
      (setq sidian (cons one sidian))
      )
    )
  ;;;;;;  get the resault   H  AND  B
  ;(if(eq (caar sidian)
  ;
  (setq n 1)
  (repeat (- (length sidian) 1)
   (setq num (nth n sidian))
    (if (= (caar sidian) (car num))
      (setq h (abs(- (caddr sidian)(cdr num))))
      ;;(setq h1 (abs(- (rtos(cdr one))(rtos (cdr num)))))
      )
    (if (= (cadr sidian) (cdr num))
      (setq b (abs(- (caar sidian)(car num))))
      )
  (setq n (1+ n))
    )
  ;(SETQ b (distance one tow)) ;; ; 這是矩形的長度
  ;(setq h (distance one fou)) ;; ; 這是矩形的寬度
  (princ b )
  (princ h )
  (princ h1)
  ;(princ (strcat"\n矩形的長度="  (rtos b)))
; (princ (strcat"\n矩形的宽度="  (rtos h)))
  (princ)
)

BDYCAD

上面的兄臺, 所謂矩形的惯性矩,所指的是什麼. 你說說, 我不明白矩形的惯性矩是什麼東東.不然我就可以寫啦.