[求助]：求能将圆,圆弧,椭圆转成多段线的LISP

sunyaer

因须先将圆,圆弧,椭圆转成多段线用于导入别的软件,
求能将圆,圆弧,椭圆转成多段线的LISP.
谢谢.

xyp1964

试试签名栏下的“线转多段线”程序。

北斗七星

简单呀，如楼主觉得还没好的程序，我可帮你一下

yuer0103

在下帮你解园弧转多义线的问题吧，试试下面签名栏下的“园弧转折线”程序

Dallas_whu

椭圆怎么样变成多端线啊！

Underway

;;; If you want the ellipse command to create polylines instead of the true mathematical ellipses, set the PELLIPSE variable to 1.

;;; To convert ellipse to a polyline, save drawing to R12dxf

;;; by pmcwilliams
(defun c:e2p (/        old new                        ;existent and new polyline
              sav                        ;store system variables
              cen                        ;center of ellipse
              dep                        ;axis end point deplacement (relative to cen)
              p1 p2                        ;first axis enpoints
              p3                        ;sec. axis endpoint
)
  (setq old (car (entsel "\n select ellipse to change ")))
  (while old
    (if        (= (cdr (assoc 0 (entget old))) "ELLIPSE")
      (progn
        (setq sav (mapcar 'getvar '("PELLIPSE" "OSMODE" "UCSICON"))
              cen (cdr (assoc 10 (entget old)))
              dep (cdr (assoc 11 (entget old)))
        )
        (mapcar 'setvar '("PELLIPSE" "OSMODE" "UCSICON") '(1 0 0))
        (command "UCS" "e" old)
        (setq p1 (trans        (list (+ (car cen) (car dep))
                              (+ (cadr cen) (cadr dep))
                              (+ (caddr cen) (caddr dep))
                        )
                        0
                        1
                 )
              p2 (trans        (list (- (car cen) (car dep))
                              (- (cadr cen) (cadr dep))
                              (- (caddr cen) (caddr dep))
                        )
                        0
                        1
                 )
              p3 (trans
                   (polar
                     cen
                     (+ (/ PI 2.0) (angle p1 p2))
                     (* 0.5 (cdr (assoc 40 (entget old))) (distance p1 p2))
                   )
                   0
                   1
                 )
        )
        (command "ellipse" p1 p2 p3)
        (setq new (entget (entlast))
              new (subst (cons 8 (cdr (assoc 8 (entget old))))
                         (assoc 8 new)
                         new
                  )
        )
        (entmod new)
        (entdel old)
        (command "ucs" "p")
        (mapcar 'setvar '("PELLIPSE" "OSMODE" "UCSICON") sav)
      )
      (alert "This is not a spline ellipse!")
    )
    (setq old (car (entsel "\n next ellipse -or none for exit ")))
  )
  (princ)
)

yshf

请参考：
http://www.xdcad.net/forum/showthread.php?s=&threadid=488553

犀利哗啦

最近也正为这个问题发愁～
下来看看～

wisdomxu

观望很久了，终于找到了

Alan8088

4楼的对椭圆弧没用