[求助]斑竹多多帮忙呀，请教了

runkeji · 发表于 2003-9-19 17:30:00

(= (ascii(cdr(assoc 0 (entget llast))))(ascii "LWPOLYLINE"))
问该判别式只能对矩形符合条件。能够计算惯性矩，怎么多义线不能够正确计算返回 0呢
请查看以下程序是否有误
(defun c:uxing()
  (setq s (ssget))
  (setq num (sslength s))
  (setq n 0)
  (setq ilistx nil)
  (setq ilisty nil)
  (repeat num
(setq llast (ssname s n))
(if (= (ascii(cdr(assoc 0 (entget llast))))(ascii "LWPOLYLINE"))
   (progn
   (jx llast)
   (setq ilistx (cons  ix ilistx))
   (setq ilisty (cons  iy ilisty))
   )
)
)
  )
(defun jx(as /)
(princ "請選取一個矩形吧:")
  ;(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)
  ;(setq h  sidian)
  (repeat (- (length sidian) 1)
(setq num (nth n sidian))
(if (= (caar sidian) (car num))
   (setq h (abs(- (cadar sidian)(cadr num))))
   )
   ;(setq h1 (distance (car sidian) num))
   ;;(setq h1 (abs(- (rtos(cdr one))(rtos (cdr num)))))
   (if (= (car(cdr(car sidian))) (cadr num))
   (setq b (abs(- (caar sidian)(car num))))
)
(setq n (1+ n))
)
  ;/*(setq f  sidian)
;  (setq n 1)
; (repeat (- (length sidian) 1)
; (setq num (nth n f))
; (if (= (cadar sidian) (cadr num))
  ; (setq b (abs(- (caar sidian)(car num))))
   ;(setq b1 (distance (car sidian) num))
; )
; (setq n (1+ n))
  ;  )
  ;(SETQ b (distance one tow)) ;; ; 這是矩形的長度
  ;(setq h (distance one fou)) ;; ; 這是矩形的寬度
  (princ(strcat "\n""矩形的X跨度:"(rtos b)"\n"))
  (princ(strcat "矩形的Y跨度:"(rtos h)"\n"))
  (princ "\n")
  ;(princ h1)
  ;(princ (strcat"
;;;;(princ "矩形的長度="  (rtos b)))
; (princ (strcat"
;;;(princ "矩形的宽度="  (rtos h)))
  (setq ix (/(* (* h h h) b)12))
  (setq iy (/(* (* b b b) h)12))
  (princ(strcat"惯性矩的值: X:" (rtos ix)"\n"))
  (princ(strcat"惯性矩的值: Y:" (rtos iy)"\n"))
)