大家一起来玩优化，用最短的时间画一个bmp图片

baitang36

;改成一张大表，节省了读文件时间，总的反而慢了
;改成这样后是8.386秒，改前是10.3秒

(defun c:tt (/ pt r x lst x1 x2 r g b c lc strc )
(setq f (open "c:/00/tt.txt" "R"))
(setq f1 (open "c:/00/tt6.txt" "w"))
(setq list1 nil)
(while (setq s (read-line f))
  (setq k (read s))
     (setq
            r (caddr k)
            g (cadddr k)
            b (car (cddddr k))
            c (lm:rgb->true r g b)
      )

(setq list1 (cons c list1 ))
)
(setq list1 (reverse list1))
(setq strc (vl-prin1-to-string list1))
(write-line strc f1)
(close f1)
(close f)

(setq f (open "c:/00/tt6.txt" "R"))
(setq t0 (getvar "TDUSRTIMER"))
(setq s (read-line f))
(setq lc (read s))
(setq x 0 y 0)
(while  (< x 512 ) ;宽512像素   ;while比repeat快0.1秒
  (while (< y 654) ;高654像素
  (setq c (car lc))
    (entmake
      (list
        (cons 0 "LWPOLYLINE")
        (cons 100 "AcDbEntity")
        (cons 100 "AcDbPolyline")
        (cons 8 "Image2PL")
        (cons 90 2)
        (cons 43 1.0)
        (cons 420 c)
        (cons 10 (list x y))
        (cons 10 (list (+ 1 x) y))
      )
    )
    (setq y (+ 1 y))
  )
  (setq y 0)
  (setq x (+ 1 x))
)
(close f)
(princ "\n程序共用时" )
(princ  (*  (-  (getvar "TDUSRTIMER" )  t0 )  86400 )  )
(princ "秒" )
(princ)
)

(defun LM:RGB->True ( r g b )
  (+
    (lsh r 16)
    (lsh g  8)
    b
  )
)
;(vlisp-compile 'st "c:/00/tt.lsp")

baitang36

;用上一个保留函数 syz-read-list
;改成这样后是7.784秒，改前是10.3秒

(defun c:tt (/ pt r x lst x1 x2 r g b c lc strc )
(setq f (open "c:/00/tt.txt" "R"))
(setq f1 (open "c:/00/tt6.txt" "w"))
(setq list1 nil)
(while (setq s (read-line f))
  (setq k (read s))
     (setq
            r (caddr k)
            g (cadddr k)
            b (car (cddddr k))
            c (lm:rgb->true r g b)
      )

(setq list1 (cons c list1 ))
)
(setq list1 (reverse list1))
(setq strc (vl-prin1-to-string list1))
(write-line strc f1)
(close f1)
(close f)

(setq f (open "c:/00/tt6.txt" "R"))
(setq t0 (getvar "TDUSRTIMER"))
(load "c:/00/syz-read-list.fas")
(setq lc (syz-read-list f))
(setq x 0 y 0)
(while  (< x 512 ) ;宽512像素   ;while比repeat快0.1秒
  (while (< y 654) ;高654像素
  (setq c (car lc))
  (setq lc(cdr lc))
    (entmake
      (list
        (cons 0 "LWPOLYLINE")
        (cons 100 "AcDbEntity")
        (cons 100 "AcDbPolyline")
        (cons 8 "Image2PL")
        (cons 90 2)
        (cons 43 1.0)
        (cons 420 c)
        (cons 10 (list x y))
        (cons 10 (list (+ 1 x) y))
      )
    )
    (setq y (+ 1 y))
  )
  (setq y 0)
  (setq x (+ 1 x))
)
(close f)
(princ "\n程序共用时" )
(princ  (*  (-  (getvar "TDUSRTIMER" )  t0 )  86400 )  )
(princ "秒" )
(princ)
)

(defun LM:RGB->True ( r g b )
  (+
    (lsh r 16)
    (lsh g  8)
    b
  )
)
;(vlisp-compile 'st "c:/00/tt.lsp")

菜卷鱼

测起来效率太低了，跑一次1分钟，省去caddddr那里，我这里测这两个都比你的慢
你的代码测起来，52-53秒多


;;;程序共用时57.522秒

(defun c:tt1 (/ pt r x lst x1 x2)
  (setq f (open "E:\\Users\\2858\\Desktop\\tt.txt" "R"))
  (setq t0 (getvar "TDUSRTIMER"))
  (while (setq s (read-line f))
    (setq k (read s))
    (apply 'emake k)
  )
  (close f)
  (princ "\n程序共用时")
  (princ (* (- (getvar "TDUSRTIMER") t0) 86400))
  (princ "秒")
  (princ)
)
;;;程序共用时56.548秒
(defun c:tt2 (/ pt r x lst x1 x2)
  (setq f (open "E:\\Users\\2858\\Desktop\\tt.txt" "R"))
  (setq t0 (getvar "TDUSRTIMER"))
  (while (setq s (read-line f))
    (setq k (read s))
    (eval (cons 'emake k))
  )
  (close f)
  (princ "\n程序共用时")
  (princ (* (- (getvar "TDUSRTIMER") t0) 86400))
  (princ "秒")
  (princ)
)
(defun emake (x y r g b l)
  (setq c (lm:rgb->true r g b))
  (entmake
    (list
      (cons 0 "LWPOLYLINE")
      (cons 100 "AcDbEntity")
      (cons 100 "AcDbPolyline")
      (cons 8 "Image2PL")
      (cons 90 2)
      (cons 43 1.0)
      (cons 420 c)
      (cons 10 (list x y))
      (cons 10 (list (1+ x) y))
    )
  )
)
(defun LM:RGB->True ( r g b )
  (+
    (lsh (fix r) 16)
    (lsh (fix g)  8)
    (fix b)
  )
)

vectra

读文件循环3s 加上判断6~7s 包含赋值14s 包含entmake(完整代码)25-40s
按耗时子句排序
entmake 11~26s，赋值7~8s ，判断3~4s ，读文件循环3s
各段优化空间均不大，对于33万次循环，已是比较理想的结果。

i5 4590 RAM:20G CAD2021




PS:直接以光栅图像插入得了

baitang36

vectra 发表于 2022-6-15 10:15
读文件循环3s 加上判断6~7s 包含赋值14s 包含entmake(完整代码)25-40s
按耗时子句排序
entmake 11~26s， ...

很详细的实验。看来entmake是最大的问题

baitang36

;改成画line后是3.586秒，改前是10.3秒

(defun c:tt (/ pt r x lst x1 x2 r g b c lc strc )
(setq f (open "c:/00/tt.txt" "R"))
(setq f1 (open "c:/00/tt6.txt" "w"))
(setq list1 nil)
(while (setq s (read-line f))
  (setq k (read s))
     (setq
            r (caddr k)
            g (cadddr k)
            b (car (cddddr k))
            c (lm:rgb->true r g b)
      )

(setq list1 (cons c list1 ))
)
(setq list1 (reverse list1))
(setq strc (vl-prin1-to-string list1))
(write-line strc f1)
(close f1)
(close f)

(setq f (open "c:/00/tt6.txt" "R"))
(setq t0 (getvar "TDUSRTIMER"))
(load "c:/00/syz-read-list.fas")
(setq lc (syz-read-list f))
(setq x 0 y 0)
(while  (< x 512 ) ;宽512像素   ;while比repeat快0.1秒
  (while (< y 654) ;高654像素
  (setq c (car lc))
  (setq lc(cdr lc))
    (entmake
      (list
        (cons 0 "LINE")
        (cons 420 c)
        (cons 10 (list x y))
        (cons 11 (list (+ 1 x) y))
      )
    )
    (setq y (+ 1 y))
  )
  (setq y 0)
  (setq x (+ 1 x))
)
(close f)
(princ "\n程序共用时" )
(princ  (*  (-  (getvar "TDUSRTIMER" )  t0 )  86400 )  )
(princ "秒" )
(princ)
)

(defun LM:RGB->True ( r g b )
  (+
    (lsh r 16)
    (lsh g  8)
    b
  )
)
;(vlisp-compile 'st "c:/00/tt.lsp")

smile0421

大佬666  牛批

baitang36

;改成画point后是3.436秒，改前是10.3秒

(defun c:tt (/ pt r x lst x1 x2 r g b c lc strc )
(setq f (open "c:/00/tt.txt" "R"))
(setq f1 (open "c:/00/tt6.txt" "w"))
(setq list1 nil)
(while (setq s (read-line f))
  (setq k (read s))
     (setq
            r (caddr k)
            g (cadddr k)
            b (car (cddddr k))
            c (lm:rgb->true r g b)
      )

(setq list1 (cons c list1 ))
)
(setq list1 (reverse list1))
(setq strc (vl-prin1-to-string list1))
(write-line strc f1)
(close f1)
(close f)

(setq f (open "c:/00/tt6.txt" "R"))
(setq t0 (getvar "TDUSRTIMER"))
(load "c:/00/syz-read-list.fas")
(setq lc (syz-read-list f))
(setq x 0 y 0)
(while  (< x 512 ) ;宽512像素   ;while比repeat快0.1秒
  (while (< y 654) ;高654像素
  (setq c (car lc))
  (setq lc(cdr lc))
    (entmake
      (list
        (cons 0 "point")
        (cons 420 c)
        (cons 10 (list x y))
       ; (cons 11 (list (+ 1 x) y))
      )
    )
    (setq y (+ 1 y))
  )
  (setq y 0)
  (setq x (+ 1 x))
)
(close f)
(princ "\n程序共用时" )
(princ  (*  (-  (getvar "TDUSRTIMER" )  t0 )  86400 )  )
(princ "秒" )
(princ)
)

(defun LM:RGB->True ( r g b )
  (+
    (lsh r 16)
    (lsh g  8)
    b
  )
)
;(vlisp-compile 'st "c:/00/tt.lsp")

smile0421

楼主雄才!
期待楼主做一个在DCL窗口中预览dwg的插件

baitang36

;再引入两个保留函数entlist->lresb和ads-entmake
;用时是3.222秒，改前是10.3秒

(defun c:tt (/ pt r x lst x1 x2 r g b c lc strc )
(setq f (open "c:/00/tt.txt" "R"))
(setq f1 (open "c:/00/tt6.txt" "w"))
(setq list1 nil)
(while (setq s (read-line f))
  (setq k (read s))
     (setq
            r (caddr k)
            g (cadddr k)
            b (car (cddddr k))
            c (lm:rgb->true r g b)
      )

(setq list1 (cons c list1 ))
)
(setq list1 (reverse list1))
(setq strc (vl-prin1-to-string list1))
(write-line strc f1)
(close f1)
(close f)

(setq f (open "c:/00/tt6.txt" "R"))
(setq t0 (getvar "TDUSRTIMER"))
(load "c:/00/syz-read-list.fas")
(load "c:/00/syz-ads-entmake.fas")
(load "c:/00/syz-entlist-lresb.fas")
(setq lc (syz-read-list f))
(setq x 0 y 0)
(while  (< x 512 ) ;宽512像素   ;while比repeat快0.1秒
  (while (< y 654) ;高654像素
  (setq c (car lc))
  (setq lc(cdr lc))
    (syz-ads-entmake
     (syz-entlist->lresb (list
        (cons 0 "point")
        (cons 420 c)
        (cons 10 (list x y))
       ; (cons 11 (list (+ 1 x) y))
      ))
    )
    (setq y (+ 1 y))
  )
  (setq y 0)
  (setq x (+ 1 x))
)
(close f)
(princ "\n程序共用时" )
(princ  (*  (-  (getvar "TDUSRTIMER" )  t0 )  86400 )  )
(princ "秒" )
(princ)
)

(defun LM:RGB->True ( r g b )
  (+
    (lsh r 16)
    (lsh g  8)
    b
  )
)
;(vlisp-compile 'st "c:/00/tt.lsp")