如何加速这段代码？

peraperson

想实现 ‘点表生成圆并填充’ 代码如下 发现运行很卡 如果不实现填充的话则无此问题
请问大家都是用什么方法实现填充的呢？或者说我的代码有什么可以改进的呢？
(mapcar '(lambda (p) (entmake (list (cons 0 "circle") (cons 10 p) (cons 40 10)))
             (setq e1 (entlast))
             (command "hatch" "s" e1 "" "p" "solid" "")
             )           
lst
)
谢谢

ZZXXQQ

2. (setvar "CMDECHO" 0)
   
3. (command "_.DONUT" 0 20)
   
4. (foreach p lst (command p))
   
5. (command "")

(setvar "CMDECHO" 0)<br /> (command "_.DONUT" 0 20)<br /> (foreach p lst (command p))<br /> (command "")

llsheng_73

1. (command"bhatch""p""SOLID")
   
2. (foreach p lst
   
3.   (entmake(list (cons 0 "circle")(cons 10 p)(cons 40 10)))
   
4.   (command p))
   
5. (command "")

(command"bhatch""p""SOLID")<br /> (foreach p lst<br />   (entmake(list (cons 0 "circle")(cons 10 p)(cons 40 10)))<br />   (command p))<br /> (command "")

peraperson

ZZXXQQ 发表于 2014-6-11 21:20

谢谢Z版 用之前也有想用donut的想法 但是有个问题就是解决不了填充的图案不是solid的情况

peraperson

llsheng_73 发表于 2014-6-11 21:36

谢谢 用了bhatch 快了不少

llsheng_73

peraperson 发表于 2014-6-12 09:07
谢谢 用了bhatch 快了不少

如果用ENTMAKE应该更快，但对于填充不知道怎么做，因为行业的原因一般不会涉及到它
只知道它的数据分为边界数据和图案数据，感觉比较麻烦就没去深究它

xyp1964

2. (mapcar '(lambda (p)
   
3.            (entmake (list (cons 0 "circle") (cons 10 p) (cons 40 10)))
   
4.            (command "hatch" "solid" (entlast) "")
   
5.          )
   
6.         lst
   
7. )

(mapcar '(lambda (p)<br />            (entmake (list (cons 0 "circle") (cons 10 p) (cons 40 10)))<br />            (command "hatch" "solid" (entlast) "")<br />          )<br />         lst<br /> )

鱼与熊掌

COOL 大神交流地

llsheng_73

xyp1964 发表于 2014-6-12 10:32

2. (command "hatch" "solid"）
   
3. (mapcar '(lambda (p)(entmake (list (cons 0 "circle") (cons 10 p) (cons 40 10))) (command p))lst)
   
4. (command "")

(command "hatch" "solid"）<br /> (mapcar '(lambda (p)(entmake (list (cons 0 "circle") (cons 10 p) (cons 40 10))) (command p))lst)<br /> (command "")

感觉这样会快些？

langjs

看我entmake大法，哈哈哈
速度是够快了，行不行楼主看着办，

(defun c:aa ( / lst na p ss)
  (setq lst '())
  (while (setq p (getpoint "\n点："))
    (setq lst (cons p lst))
  )
  (if (not na)
    (progn
      (entmake (list (cons 0 "circle") (cons 10 (car lst)) (cons 40 10)))
      (command "hatch" "solid" (entlast) "")
      (setq na (entlast))
      (entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 (car lst))))
      (entmake (cdr (entget na)))
      (setq na (entmake '((0 . "ENDBLK"))))
    )
  )
  (setq ss (ssadd))
  (foreach p lst
    (entmake (list '(0 . "INSERT") (cons 2 na) (cons 10 p)))
    (setq ss (ssadd (entlast) ss))
  )
  (command "explode" ss )
  (princ)
)