求高手修改将单选改成可以框选

baoyizhu

如题
我在老外那里找到一段椭圆转成样条曲线的代码
但是只能单选。求高手修改一段代码实现框选进行批处理。
代码如下：

1. ;;Ellipses to polylines By cjw 11/9/09
   
2. (defun C:EL2PL (/ E E1 E2 O)
   
3.   (setq E (car (entsel "\nSelect the ellipse: ")))
   
4.   (setq O (vlax-ename->vla-object E))
   
5.   (vla-offset O 0.1)
   
6.   (setq E1 (entlast))
   
7.   (vla-offset (vlax-ename->vla-object E1) -0.1)
   
8.   (setq E2 (entlast))
   
9.   (entdel E)
   
10.   (entdel E1)
    
11.   (princ)
    
12. )
    

;;Ellipses to polylines By cjw 11/9/09<br /> (defun C:EL2PL (/ E E1 E2 O)<br />   (setq E (car (entsel "\nSelect the ellipse: ")))<br />   (setq O (vlax-ename->vla-object E))<br />   (vla-offset O 0.1)<br />   (setq E1 (entlast))<br />   (vla-offset (vlax-ename->vla-object E1) -0.1)<br />   (setq E2 (entlast))<br />   (entdel E)<br />   (entdel E1)<br />   (princ)<br /> )<br />

在此谢谢热心的朋友们！

start4444

;;Ellipses to polylines By cjw 11/9/09
(defun EL2PL (E / E1 E2 O)
  ;(setq E (car (entsel "\nSelect the ellipse: ")))
  (setq O (vlax-ename->vla-object E))
  (vla-offset O 0.1)
  (setq E1 (entlast))
  (vla-offset (vlax-ename->vla-object E1) -0.1)
  (setq E2 (entlast))
  (entdel E)
  (entdel E1)
  (princ)
)
(defun c:tt5 (/ en i ss)
(setq ss (ssget '((0 . "ELLIPSE"))) i -1)
(while (setq en (ssname ss (setq i (1+ i))))(EL2PL en)))

zj20190405

start4444 发表于 2020-11-25 11:24
;;Ellipses to polylines By cjw 11/9/09
(defun EL2PL (E / E1 E2 O)
  ;(setq E (car (entsel "\nSelec ...

楼主是位热心的大神

tigcat

start4444 发表于 2020-11-25 11:24
;;Ellipses to polylines By cjw 11/9/09
(defun EL2PL (E / E1 E2 O)
  ;(setq E (car (entsel "\nSelec ...

哈哈，又学到了

baoyizhu

start4444 发表于 2020-11-25 11:24
;;Ellipses to polylines By cjw 11/9/09
(defun EL2PL (E / E1 E2 O)
  ;(setq E (car (entsel "\nSelec ...

谢谢，改的不错！

tigcat

这个确定是老外的？cjw不会是萝卜头吧

baoyizhu

tigcat 发表于 2020-11-25 13:08
这个确定是老外的？cjw不会是萝卜头吧

反正是个英文网站上搞的

czb203

感谢楼主分享

999999

谢谢分享，，，，

yubfang

谢谢分享，哪个英文网站？