pengjian215 发表于 2009-4-6 12:44:00

急急急急....求助!!!如何用autolisp确定优弧和劣弧???

求助!!!如何用autolisp确定优弧和劣弧???

yshf 发表于 2009-4-18 16:12:00

本帖最后由 作者 于 2009-4-18 16:12:26 编辑


;判断圆弧是优弧还是劣弧
(defun c:test()
   (while (setq ent (car (entsel "\n选取圆弧:")))
      (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")
   (progn
            (setq ta (- (cdr (assoc 51 db)) (cdr (assoc 50 db))))
       (if (< ta 0) (setq ta (+ ta (* 2.0 pi))))
       (alert (strcat "所选取的圆弧是" (if (>= ta pi) "优弧" "劣弧")))
   )
   (alert "所选取的不是圆弧!")
      )
   )
)

pengjian215 发表于 2009-4-19 11:15:00

<p>非常感激!!!!谢谢啊</p><p></p>
页: [1]
查看完整版本: 急急急急....求助!!!如何用autolisp确定优弧和劣弧???