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

runkeji · 发表于 2003-9-18 16:26:00

;;;;;首先更改程序************
;;;;;计算单个矩形的惯性矩的计算
(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 · 发表于 2003-9-19 08:42:00

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

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

发表回复

精选推荐