批量选择图元（多段线、直线、样条曲线、圆弧）转换成多段线

wjl1014

(defun C:tt (/ PP PTLIST SEL T0 n)

  (princ "\n请选择<多段线><直线段><样条曲线><圆弧>:")
  (setq sea (ssget (list '(0 . "LWPOLYLINE,LINE,SPLINE,arc"))))  
  (initget 7)
  (setq n 1000
      (princ (strcat "\n共选择" (itoa (sslength sea)) "条线。"))
  (getpt sea)
)

wjl1014

忙乎了一天，收点辛苦费。

qq1254582201

wjl1014 发表于 2013-4-4 21:59
看看这个行不行。

亲测可行。。。。

smartstar

辛苦费当然可以收！俺们自当交学费了。

lingduwx

不知道为什么，我的感觉好慢啊

flytoday

选择对象:
共选择6条线。<图元名: 7ef9a268><图元名: 7ef9a260><图元名: 7ef9a258>; 错误: no function
definition: VLAX-ENAME->VLA-OBJECT
老大你的不行。。。。。

连直线都不行。。。。

wjl1014

(vl-load-com)

wjl1014

2. (defun c:pp (/ pet ss)
   
3.       (setq pet (getvar "PEDITACCEPT"))
   
4.       (setvar "peditaccept" 1)
   
5.       (setq entlist nil
   
6.             ss1        (ssadd)
   
7.             ss2        (ssadd)
   
8.                       )
   
9.       (setq ss (ssget (list '(0 . "LWPOLYLINE,LINE,SPLINE,ARC"))))
   
10.       (setq ssl        (sslength ss)
    
11.             i        0)
    
12.       (princ "\n开始循环")
    
13.       (repeat ssl
    
14.             (setq a (ssname ss i))
    
15.           
    
16.             (setq b (entget a))
    
17.             (setq e (cdr (assoc 0 b)))
    
18.              (princ e)
    
19.             (princ "\n开始分类……")
    
20.             (if        (= e "SPLINE")
    
21.                   (ssadd a ss1)
    
22.                   (ssadd a ss2)
    
23.                   )
    
24.             (princ "\n分类完成")
    
25.             (princ (strcat "ss1对象数=" (itoa (sslength ss1)) "ss2对象数=" (itoa (sslength ss2))))
    
26.             
    
27.              (setq i (1+ i))
    
28.            )
    
29.       (if (=  (sslength ss1) 0)
    
30.             (command "_pedit" (ssname ss 0) "j" ss "" "")
    
31.             (command "_pedit" "m"  ss "" 99  "j" "" "")
    
32.                  
    
33.           )
    
34. 
    
35. 
    
36.       (setvar "PEDITACCEPT" pet)
    
37.       (princ)
    
38.       )
    
39. 
    
40. ;*** 请不要在注释下添加文字! ***|;
    

(defun c:pp (/ pet ss)<br />       (setq pet (getvar "PEDITACCEPT"))<br />       (setvar "peditaccept" 1)<br />       (setq entlist nil<br />             ss1        (ssadd)<br />             ss2        (ssadd)<br />                       )<br />       (setq ss (ssget (list '(0 . "LWPOLYLINE,LINE,SPLINE,ARC"))))<br />       (setq ssl        (sslength ss)<br />             i        0)<br />       (princ "\n开始循环")<br />       (repeat ssl<br />             (setq a (ssname ss i))<br />            <br />             (setq b (entget a))<br />             (setq e (cdr (assoc 0 b)))<br />              (princ e)<br />             (princ "\n开始分类……")<br />             (if        (= e "SPLINE")<br />                   (ssadd a ss1)<br />                   (ssadd a ss2)<br />                   )<br />             (princ "\n分类完成")<br />             (princ (strcat "ss1对象数=" (itoa (sslength ss1)) "ss2对象数=" (itoa (sslength ss2))))<br />             <br />              (setq i (1+ i))<br />            )<br />       (if (=  (sslength ss1) 0)<br />             (command "_pedit" (ssname ss 0) "j" ss "" "")<br />             (command "_pedit" "m"  ss "" 99  "j" "" "")<br />                  <br />           )<br /> <br /> <br />       (setvar "PEDITACCEPT" pet)<br />       (princ)<br />       )<br /> <br /> ;*** 请不要在注释下添加文字! ***|;<br />

wjl1014

看看这个行不行。

wjl1014

flytoday 发表于 2013-4-4 21:50
选择对象:
共选择6条线。; 错误: no function
definition: VLAX-ENAME->VLA-OBJECT

(vl-load-com)

328302216

wjl1014 发表于 2013-4-4 21:58

楼主  这个木得反应嘛！附件不知道是不是 就是这个源码呢