如何加速这段代码？

edata

我来个entmake版本

1. (defun c:tt()
   
2.   (defun sk_ha_solid (cen rad sk_assoc sk_lay sk_col / sk_col0)
   
3.     (if(and cen rad (= (type cen) 'LIST)(numberp rad)(> rad 0))
   
4.       (progn
   
5.         (if (> (length cen))
   
6.           (setq cen (list (car cen) (cadr cen)))
   
7.         )
   
8.         (cond
   
9.           ((= (getvar 'cecolor) "BYLAYER")(setq sk_col0 256))
   
10.           ((= (getvar 'cecolor) "BYBlock")(setq sk_col0 0))
    
11.           (t(setq sk_col0 (atoi (getvar 'cecolor))))
    
12.           )          
    
13.         (entmakex (list '(0 . "HATCH")
    
14.                        '(100 . "AcDbEntity")
    
15.                        '(100 . "AcDbHatch")
    
16.                        '(10 0.0 0.0 0.0)
    
17.                        '(210 0.0 0.0 1.0)
    
18.                        (cons 8 (if sk_lay sk_lay (getvar 'clayer)))
    
19.                        (cons 62        (if sk_col sk_col sk_col0))
    
20.                        '(2 . "SOLID")
    
21.                        '(70 . 1)
    
22.                        (if sk_assoc (cons 71 1)(cons 71 0))
    
23.                        '(91 . 1)
    
24.                        '(92 . 1)
    
25.                        '(93 . 1)
    
26.                        '(72 . 2)        ;2圆弧
    
27.                        (cons 10 cen) ;中心点 ocs中
    
28.                        (cons 40 rad)        ;半径
    
29.                        (cons 50 0.0)        ;起点弧度
    
30.                        (cons 51 (* pi 2)) ;端点角度                          
    
31.                        '(73 . 0)        ;逆时针标志
    
32.                        '(97 . 0)                       
    
33.                        '(75 . 0)
    
34.                        '(76 . 1)
    
35.                        '(98 . 0)
    
36.                  )
    
37.         )
    
38.       )
    
39.     )
    
40.   )
    
41.   (setq lst (list '(0 0 0) '(50  50  0)))
    
42.   (mapcar '(lambda (p) (entmakex (list (cons 0 "circle")'(102 . "{ACAD_REACTORS")
    
43.                                        (cons 330 (sk_ha_solid p 10 t nil nil))
    
44.                                        '(102 . "}")
    
45.                                        (cons 10 p)
    
46.                                        (cons 40 10)))
    
47.                           
    
48.              )
    
49.           lst
    
50.           )
    
51.   
    
52. (princ )
    
53.   )

(defun c:tt()<br />   (defun sk_ha_solid (cen rad sk_assoc sk_lay sk_col / sk_col0)<br />     (if(and cen rad (= (type cen) 'LIST)(numberp rad)(> rad 0))<br />       (progn<br />         (if (> (length cen))<br />           (setq cen (list (car cen) (cadr cen)))<br />         )<br />         (cond<br />           ((= (getvar 'cecolor) "BYLAYER")(setq sk_col0 256))<br />           ((= (getvar 'cecolor) "BYBlock")(setq sk_col0 0))<br />           (t(setq sk_col0 (atoi (getvar 'cecolor))))<br />           )           <br />         (entmakex (list '(0 . "HATCH")<br />                        '(100 . "AcDbEntity")<br />                        '(100 . "AcDbHatch")<br />                        '(10 0.0 0.0 0.0)<br />                        '(210 0.0 0.0 1.0)<br />                        (cons 8 (if sk_lay sk_lay (getvar 'clayer)))<br />                        (cons 62        (if sk_col sk_col sk_col0))<br />                        '(2 . "SOLID")<br />                        '(70 . 1)<br />                        (if sk_assoc (cons 71 1)(cons 71 0))<br />                        '(91 . 1)<br />                        '(92 . 1)<br />                        '(93 . 1)<br />                        '(72 . 2)        ;2圆弧 <br />                        (cons 10 cen) ;中心点 ocs中<br />                        (cons 40 rad)        ;半径<br />                        (cons 50 0.0)        ;起点弧度<br />                        (cons 51 (* pi 2)) ;端点角度                           <br />                        '(73 . 0)        ;逆时针标志<br />                        '(97 . 0)                       <br />                        '(75 . 0)<br />                        '(76 . 1)<br />                        '(98 . 0)<br />                  )<br />         )<br />       )<br />     )<br />   )<br />   (setq lst (list '(0 0 0) '(50  50  0)))<br />   (mapcar '(lambda (p) (entmakex (list (cons 0 "circle")'(102 . "{ACAD_REACTORS")<br />                                        (cons 330 (sk_ha_solid p 10 t nil nil))<br />                                        '(102 . "}")<br />                                        (cons 10 p)<br />                                        (cons 40 10)))<br />                           <br />              )<br />           lst<br />           )<br />   <br /> (princ )<br />   )

lite

学习下！！！

nic

学习学习！！！

hnfsf

什么东东，还要回复才看。

Q1241274614

学习学习！！！

q3_2006

学习学习...

depgfdepgf

学习下，看看

龙幽小蛮

回复楼主学习下

wzg356

还不太懂，但着迷了