圆可以转成多段线吗？

hanyu_gis

圆可以转成多段线吗？想知道怎么写这样的程序，觉得无从下手。

鬼魔

BO

firstinti

donut

或者利用多段线的凸度

fawn_lgc

理论上不可以

oyxx1023

用两个半弧连起来就是个圆了，半弧当然可以转成多线。

carrot1983

oyxx1023发表于2007-8-11 17:11:00用两个半弧连起来就是个圆了，半弧当然可以转成多线。

以前就是这么搞的．呵

Andyhon

2. ;Written By: Jason Piercey 07.31.01
3. ;Revised: 01.16.02 To handle multiple selection[code] (defun C:Circle2Pline (/ CirEnt   CirElst  CirCen   CirRad   CirLay
4.                          CirLin   CirClr   CirLts   PlineEnt ss
5.                          i        );ss1)
6.   
7.   (setq ss (ssget '((0 . "CIRCLE"))))
8.   (if ss
9.     (progn
10.       (setq i 0 );ss1 (ssadd))
11.       (repeat (sslength ss)
12.         (setq CirEnt (ssname ss i)              
13.               CirElst (entget CirEnt)
14.               CirCen  (cdr (assoc 10 CirElst))
15.               CirRad  (cdr (assoc 40 CirElst))
16.               CirLay  (cdr (assoc  8 CirElst))
17.               CirLin  (cdr (assoc  6 CirElst))
18.               CirClr  (cdr (assoc 62 CirElst))
19.               CirLts  (cdr (assoc 48 CirElst))
20.               )
21.         
22.         (setq PlineEnt (list '(0 . "LWPOLYLINE")
23.                              '(100 . "AcDbEntity")
24.                              (cons 8 CirLay)
25.                              '(100 . "AcDbPolyline")
26.                              '(90 . 2)
27.                              '(70 . 1)
28.                              '(43 . 0.0)
29.                              '(38 . 0.0)
30.                              '(39 . 0.0)
31.                              (cons 10 (polar CirCen (* pi) CirRad))
32.                              '(40 . 0.0)
33.                              '(41 . 0.0)
34.                              '(42 . 1.0)
35.                              (cons 10 (polar CirCen (* pi 2.0) CirRad))
36.                              '(40 . 0.0)
37.                              '(41 . 0.0)
38.                              '(42 . 1.0)
39.                              '(210 0.0 0.0 1.0)
40.                              )
41.               )
42.         
43.         (if CirLin (setq PlineEnt (append PlineEnt (list (cons 6  CirLin)))))
44.         (if CirClr (setq PlineEnt (append PlineEnt (list (cons 62 CirClr)))))
45.         (if CirLts (setq PlineEnt (append PlineEnt (list (cons 48 CirLts)))))
46.         (entmake PlineEnt)
47.         (entdel CirEnt)
48.         (setq i (1+ i))
49.         )
50.       )
51.     )
52.   ;(ssget "p")
53.   (princ (strcat "\n"(itoa i) " Circles converted to LwPolylines"))
54.   (princ)
55. )

;Written By: Jason Piercey 07.31.01 ;Revised: 01.16.02 To handle multiple selection[code] (defun C:Circle2Pline (/ CirEnt   CirElst  CirCen   CirRad   CirLay                          CirLin   CirClr   CirLts   PlineEnt ss                          i        );ss1)      (setq ss (ssget '((0 . "CIRCLE"))))   (if ss     (progn       (setq i 0 );ss1 (ssadd))       (repeat (sslength ss)         (setq CirEnt (ssname ss i)                             CirElst (entget CirEnt)               CirCen  (cdr (assoc 10 CirElst))               CirRad  (cdr (assoc 40 CirElst))               CirLay  (cdr (assoc  8 CirElst))               CirLin  (cdr (assoc  6 CirElst))               CirClr  (cdr (assoc 62 CirElst))               CirLts  (cdr (assoc 48 CirElst))               )                  (setq PlineEnt (list '(0 . "LWPOLYLINE")                              '(100 . "AcDbEntity")                              (cons 8 CirLay)                              '(100 . "AcDbPolyline")                              '(90 . 2)                              '(70 . 1)                              '(43 . 0.0)                              '(38 . 0.0)                              '(39 . 0.0)                              (cons 10 (polar CirCen (* pi) CirRad))                              '(40 . 0.0)                              '(41 . 0.0)                              '(42 . 1.0)                              (cons 10 (polar CirCen (* pi 2.0) CirRad))                              '(40 . 0.0)                              '(41 . 0.0)                              '(42 . 1.0)                              '(210 0.0 0.0 1.0)                              )               )                  (if CirLin (setq PlineEnt (append PlineEnt (list (cons 6  CirLin)))))         (if CirClr (setq PlineEnt (append PlineEnt (list (cons 62 CirClr)))))         (if CirLts (setq PlineEnt (append PlineEnt (list (cons 48 CirLts)))))         (entmake PlineEnt)         (entdel CirEnt)         (setq i (1+ i))         )       )     )   ;(ssget "p")   (princ (strcat "\n"(itoa i) " Circles converted to LwPolylines"))   (princ) )

[/code]
Ref link:
http://discussion.autodesk.com/thread.jspa?threadID=292586

hanyu_gis

谢谢大侠，回去好好研究下。

无痕

2. ;; ;;  (cc2pl) 圆转多义线. 支持保留扩展数据，实体特性．实例:  (cc2pl  (car(entsel)))
3. (defun cc2pl  (e / ent cen r p1 p2 lst)
4.   (setq ent (entget e '("*"))) ;; 支持扩展数据.
5.   (setq cen (cdr (assoc 10 ent))
6. r   (cdr (assoc 40 ent))
7. p1  (polar cen 0 r)
8. p2  (polar cen PI r)
9. p1  (list (car p1) (cadr p1))
10. p2  (list (car p2) (cadr p2))
11. lst (list '(0 . "LWPOLYLINE")
12.     '(100 . "AcDbEntity")
13.     '(100 . "AcDbPolyline")
14.     '(90 . 2)
15.     '(70 . 1)
16.     (cons 10 p1)
17.     '(42 . -1.0)
18.     (cons 10 p2)
19.     '(42 . -1.0)))
20.   (setq ent (vl-remove-if '(lambda (x) (member (car x) '(0 5 -1 40 10 100 330)))ent))
21.   (entdel e)
22.   (if (entmake (append lst ent))
23.     (entlast)
24.   )
25. )
26. ;| (ssc2pl ss) = 选集圆转多义线.---by lxx.2007.8
27. 参数: ss = 选集(可包含其它实体,程序内自动过滤)
28. 返回: 选集．亮显.新多义线存入预选集.可用"p"响应选择.
29. 测试: 1. (ssc2pl (setq ss (ssget)))     2. (ssc2pl nil)
30. |;
31. (defun ssc2pl (ss / n ss2 e e2)
32.   (if ss
33.     (setq ss (ssget "p" '((0 . "CIRCLE"))))
34.     (setq ss (ssget '((0 . "CIRCLE"))))
35.   )
36.   (setq ss2 (ssadd))
37.   (if ss
38.   (repeat (setq  n (sslength ss))
39.     (setq e (ssname ss (setq n (1- n))))
40.     (if (setq e2 (cc2pl e)) (ssadd e2 ss2))
41.   ))
42.   (car(sssetfirst ss2 ss2))
43. )

;; ;;  (cc2pl) 圆转多义线. 支持保留扩展数据，实体特性．实例:  (cc2pl  (car(entsel))) (defun cc2pl  (e / ent cen r p1 p2 lst)   (setq ent (entget e '("*"))) ;; 支持扩展数据.   (setq cen (cdr (assoc 10 ent)) r   (cdr (assoc 40 ent)) p1  (polar cen 0 r) p2  (polar cen PI r) p1  (list (car p1) (cadr p1)) p2  (list (car p2) (cadr p2)) lst (list '(0 . "LWPOLYLINE")     '(100 . "AcDbEntity")     '(100 . "AcDbPolyline")     '(90 . 2)     '(70 . 1)     (cons 10 p1)     '(42 . -1.0)     (cons 10 p2)     '(42 . -1.0)))   (setq ent (vl-remove-if '(lambda (x) (member (car x) '(0 5 -1 40 10 100 330)))ent))   (entdel e)   (if (entmake (append lst ent))     (entlast)   ) ) ;| (ssc2pl ss) = 选集圆转多义线.---by lxx.2007.8 参数: ss = 选集(可包含其它实体,程序内自动过滤) 返回: 选集．亮显.新多义线存入预选集.可用"p"响应选择. 测试: 1. (ssc2pl (setq ss (ssget)))     2. (ssc2pl nil) |; (defun ssc2pl (ss / n ss2 e e2)   (if ss     (setq ss (ssget "p" '((0 . "CIRCLE"))))     (setq ss (ssget '((0 . "CIRCLE"))))   )   (setq ss2 (ssadd))   (if ss   (repeat (setq  n (sslength ss))     (setq e (ssname ss (setq n (1- n))))     (if (setq e2 (cc2pl e)) (ssadd e2 ss2))   ))   (car(sssetfirst ss2 ss2)) )