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

runkeji

(= (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"))
)

meflying

你好象对我跟你提的多次意见和建议以及发的短信电子邮件视而不见

runkeji

上楼的我的收件箱没有邮件呀？说明白点好吗？我很模糊呀。

runkeji

喂，你给我的意见放哪里了，能不能先解决问题呀。