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

pengjian215

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

yshf

3. ;判断圆弧是优弧还是劣弧
4. (defun c:test()
5.    (while (setq ent (car (entsel "\n选取圆弧:")))
6.       (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")
7.    (progn
8.               (setq ta (- (cdr (assoc 51 db)) (cdr (assoc 50 db))))
9.        (if (< ta 0) (setq ta (+ ta (* 2.0 pi))))
10.        (alert (strcat "所选取的圆弧是" (if (>= ta pi) "优弧" "劣弧")))
11.    )
12.    (alert "所选取的不是圆弧!")
13.       )
14.    )
15. )

;判断圆弧是优弧还是劣弧 (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

非常感激!!!!谢谢啊