求EL椭圆线自动转PL多义线,万分感激不尽

King557852

求EL椭圆线自动转PL多义线,万分感激不尽,              还有批量旋转物体到水平线。

ZZXXQQ

2. (defun C:TELLIPSE ()
   
3. (setq OLDZIN (getvar "DIMZIN") OLDOS (getvar "OSMODE"))
   
4. (setvar "CMDECHO" 0) (setvar "OSMODE" 0) (setvar "DIMZIN" 8)
   
5. (princ "\nSelect Ellipse(s) 选择椭圆(弧) :")
   
6. (setq SS (ssget '((0 . "ELLIPSE"))))
   
7. (setvar "PELLIPSE" 1)
   
8. (repeat (setq i (sslength SS))
   
9.   (setq SN (ssname SS (setq i (1- i))) LC (entget SN))
   
10.   (setq LPRO (cdr (assoc 41 LC))
    
11.         X1 (cadr (assoc 10 LC))  X2 (+ X1 (cadr (assoc 11 LC)))
    
12.         Y1 (caddr (assoc 10 LC)) Y2 (+ Y1 (caddr (assoc 11 LC)))
    
13.         PT1 (list X1 Y1) PT2 (list X2 Y2)  DISX (distance PT1 PT2)
    
14.         XYDIS (* (cdr (assoc 40 LC)) DISX) ANN (cdr (assoc 42 LC)))
    
15.   (if (= LPRO 0)
    
16.    (command "ERASE" SN "" "ELLIPSE" "C" PT1 PT2 XYDIS)
    
17.    (princ "\n椭圆弧")
    
18.   )
    
19. )
    
20. (setvar "PELLIPSE" 0) (setvar "OSMODE" OLDOS) (setvar "DIMZIN" OLDZIN)
    
21. (setvar "CMDECHO" 1)
    
22. (princ)
    
23. )
    

(defun C:TELLIPSE ()<br /> (setq OLDZIN (getvar "DIMZIN") OLDOS (getvar "OSMODE"))<br /> (setvar "CMDECHO" 0) (setvar "OSMODE" 0) (setvar "DIMZIN" 8)<br /> (princ "\nSelect Ellipse(s) 选择椭圆(弧) :")<br /> (setq SS (ssget '((0 . "ELLIPSE"))))<br /> (setvar "PELLIPSE" 1)<br /> (repeat (setq i (sslength SS))<br />   (setq SN (ssname SS (setq i (1- i))) LC (entget SN))<br />   (setq LPRO (cdr (assoc 41 LC))<br />         X1 (cadr (assoc 10 LC))  X2 (+ X1 (cadr (assoc 11 LC)))<br />         Y1 (caddr (assoc 10 LC)) Y2 (+ Y1 (caddr (assoc 11 LC)))<br />         PT1 (list X1 Y1) PT2 (list X2 Y2)  DISX (distance PT1 PT2)<br />         XYDIS (* (cdr (assoc 40 LC)) DISX) ANN (cdr (assoc 42 LC)))<br />   (if (= LPRO 0)<br />    (command "ERASE" SN "" "ELLIPSE" "C" PT1 PT2 XYDIS)<br />    (princ "\n椭圆弧")<br />   )<br /> )<br /> (setvar "PELLIPSE" 0) (setvar "OSMODE" OLDOS) (setvar "DIMZIN" OLDZIN)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

lucas_3333

ZZXXQQ 发表于 2015-3-29 12:07

Z版，不支持UCS模式呀

King557852

感谢大师的无私奉献,明经论坛很好！高手如云

sicky111

ZZXXQQ 发表于 2015-3-29 12:07

请问Z版，能转成LWPOLYLINE吗？

sicky111

ZZXXQQ 发表于 2015-3-29 12:07

我已经试过了，无论PLINETYPE为0，还是1，转出来都是POLYLINE，所以才有此一问。

ZZXXQQ

sicky111 发表于 2015-3-30 09:34
我已经试过了，无论PLINETYPE为0，还是1，转出来都是POLYLINE，所以才有此一问。

那就炸开再用PEDIT生成LWPOLYLINE

vbnewer

试过了，椭圆可以转换，但椭圆弧不能转，什么原因啊？

ucuc2003

(defun C:tt()
(setvar "cmdecho" 0)
(princ "画椭圆")
(defun *Error* (msg)
   (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))
     (setvar "pellipse" 0))
);defun *Error*
(initget "t y")
(setq tyty (getkword"\n[创建默认椭圆(T)/创建多段线椭圆(Y)]<T>"))
(if (= tyty "y")(y_ss)(t_ss))
(princ)
);defun

(defun y_ss()
(setvar "pellipse" 1)
(command "ellipse")
(princ)
);end y_ss

(defun t_ss()
(setvar "pellipse" 0)
(command "ellipse")
(princ)
);end t_ss

vbnewer

ucuc2003 发表于 2015-4-1 15:38
(defun C:tt()
(setvar "cmdecho" 0)
(princ "画椭圆")

这个是用来画椭圆或椭圆弧，能不能把一段现有的椭圆弧直接转换成圆弧多义线？