[求助]：CIRCLE转为PLINE

lihb · 发表于 2006-3-27 23:05:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求助，有什么方法能把CIRCLR转换成PLINE。

xyp1964 · 发表于 2006-3-27 23:27:41

签名栏下“线转多段线”(2pl)程序

marcoyuwen · 发表于 2006-3-29 18:50:11

编程解决，思路如下：
1。根据CIRCLE的圆心和半径计算出CIRCLE的两个非相邻的四分圆点，根据此二点用BREAK，断开后成为一圆弧（半圆）；
2。用PEDIT命令将圆弧编辑为LWPOLYLINE，别忘了用CLOSE选项。
3。不知道说明白了没有？有其它问题再探讨。

Underway · 发表于 2006-3-29 20:54:21

Command: b BREAK Select object:
Specify second break point or [First point]: f
Specify first break point:
Specify second break point:
Arc cannot be full 360 degrees

AutoCAD不接受 360 degrees的ARC 哩！

lewyee · 发表于 2006-3-31 09:46:03

你可以使用这个程序，不会让你失望的

(defun c:PW()
(setvar "cmdecho" 0)
(setq ww (getdist "\宽度<1>: "))
(if (= ww nil) (setq ww 1.0))
(setq ss (ssget))
(setq s 0)
(repeat (sslength ss)
 (setq ssn (ssname ss s))
 (setq entyp (cdr (assoc 0 (entget ssn))))
 (cond ((= entyp "CIRCLE") (progn
 (setq rr (cdr (assoc 40 (entget ssn))))
 (setq cen (cdr (assoc 10 (entget ssn))))
 (command "donut" (* 2 (- rr (/ ww 2))) (* 2 (+ rr (/ ww 2))) cen "")
 (command "erase" ssn "")
 ))
 ((= entyp "ARC") (command "pedit" ssn "y" "w" ww ""))
 )
 (setq s (1+ s))
)
)

lihb · 发表于 2006-4-4 13:59:04

另类圆转PLine线
(defun c:2pl ()
(setvar "cmdecho" 0)
(setq obj (car(entsel "\nSelect Circle:")))
(setq olt (entget obj))
(setq cpt (cdr(assoc 10 olt)))
(setq crd (cdr(assoc 40 olt)))
(setq edg (fix (* crd (atof "4"))))
(if (> 26 edg) (setq edg "26"))
(command "polygon" edg cpt "" crd)
(command "ERASE" obj "")
)

Free-Lancer · 发表于 2006-4-4 15:18:16

(defun c:tt (/ ss ssl i e el p1 p2)
(if (setq ss (ssget '((0 . "circle"))))
(progn
(setvar "cmdecho" 0)
(setq ssl (sslength ss)
i -1
)
(repeat ssl
(setq e (ssname ss (setq i (1+ i)))
el (entget e)
p1 (vlax-curve-getstartpoint e)
p2 (vlax-curve-getpointatparam e pi)
)
(entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(410 . "Model")
(assoc 8 el)
'(100 . "AcDbPolyline")
'(90 . 2)
'(70 . 1)
(cons 10 p1)
(cons 10 p2)
'(210 0.0 0.0 1.0)
)
)
(vla-setbulge (vlax-ename->vla-object (entlast)) 0 1.)
(vla-setbulge (vlax-ename->vla-object (entlast)) 1 1.)
)
(command ".erase" ss "")
)
)
(princ)
)

(defun c:tt (/ ss ssl i e el p1 p2) 
  (if (setq ss (ssget '((0 . "circle")))) 
    (progn 
      (setvar "cmdecho" 0) 
      (setq ssl        (sslength ss) 
            i        -1 
      ) 
      (repeat ssl 
        (setq e         (ssname ss (setq i (1+ i))) 
              el (entget e) 
              p1 (vlax-curve-getstartpoint e) 
              p2 (vlax-curve-getpointatparam e pi) 
        ) 
        (entmake (list '(0 . "LWPOLYLINE") 
                       '(100 . "AcDbEntity") 
                       '(410 . "Model") 
                       (assoc 8 el) 
                       '(100 . "AcDbPolyline") 
                       '(90 . 2) 
                       '(70 . 1) 
                       (cons 10 p1) 
                       (cons 10 p2) 
                       '(210 0.0 0.0 1.0) 
                 ) 
        ) 
        (vla-setbulge (vlax-ename->vla-object (entlast)) 0 1.) 
        (vla-setbulge (vlax-ename->vla-object (entlast)) 1 1.) 
      ) 
      (command ".erase" ss "") 
    ) 
  ) 
  (princ) 
)

lihb · 发表于 2006-4-4 16:48:17

更正一下主题。
我的本意是把CIRCLR转换成2DPLINE线。
另外再加两个：ARC和ELLIPSE转换2DPline。

yyh1981 · 发表于 2006-4-4 18:55:53

CAD的BO命令可以解决这个问题啊

lihb · 发表于 2006-4-5 10:33:48

最初由 yyh1981 发布
[B]CAD的BO命令可以解决这个问题啊 [/B]

试了一下不行，能具体说明天用法吗？

ljpnb · 发表于 2006-4-5 10:52:32

BO命令对圆转为PLINE线可以，但对于ELLIPSE不行。

xyp1964 · 发表于 2006-4-5 10:58:09

ci2pl

ljpnb · 发表于 2006-4-5 11:10:16

最初由 xyp1964 发布
[B]ci2pl [/B]

程序还有个小问题，有一个半圆没有删除。

lihb · 发表于 2006-4-5 19:48:49

最初由 xyp1964 发布
[B]ci2pl [/B]

程序好像不能运行出现以下错误：
Command: ci2pl

Font not available.Unknown command "0".  Press F1 for help.
Unknown command "1".  Press F1 for help.
Unknown command "0".  Press F1 for help.
Unknown command "CI2PL".  Press F1 for help.
Unknown command "CI2PL".  Press F1 for help.

xyp1964 · 发表于 2006-4-6 10:39:30

关键：
打断圆然后用pedit使其闭合。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：CIRCLE转为PLINE

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子