大家一起来玩优化，用最短的时间画一个bmp图片
下面函数c:tt的作用是画一个图片，把tt.txt中的像素数据画到坐标0,0处。现有程序大约需要十几秒时间，有时间玩的朋友优化一下，看看谁的程序最快。
像素数据是用高飞鸟的提取的。
(defun c:tt(/ pt r x lst x1 x2)
(setq f (open "c:/00/tt.txt" "R")))
(setq t0(getvar "TDUSRTIMER" ) )
(while (setq s (read-line f))
(setq k (read s))
(if (and k (= (type k) (quote LIST)) (= (length k) 6))
(progn
(setq x (car k)
y (cadr k)
r (caddr k)
g (cadddr k)
b (car (cddddr k))
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))
)))
(close f)
(princ "\n程序共用时" )
(princ(*(-(getvar "TDUSRTIMER" )t0 )86400 ))
(princ "秒" )
(princ)
)
(defun LM:RGB->True ( r g b )
(+
(lsh (fix r) 16)
(lsh (fix g)8)
(fix b)
)
)
程序和bmp
像素数据
**** Hidden Message *****
;用上一个保留函数 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(True ( r g b )
(+
(lsh r 16)
(lsh g8)
b
)
)
;(vlisp-compile 'st "c:/00/tt.lsp")
;改成一张大表，节省了读文件时间，总的反而慢了
;改成这样后是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(True ( r g b )
(+
(lsh r 16)
(lsh g8)
b
)
)
;(vlisp-compile 'st "c:/00/tt.lsp")
tt6.lsp
先顶后看 一直以为entmake是最快的，您这个应该就是最快的了。
是不是可以不用判断(if (and k (= (type k) (quote LIST)) (= (length k) 6))，以便于加速？ 你的电脑配置高，我这里：程序共用时60.748秒
试试，这句是考虑数据文件的第一行写点别的，注释什么的.
去掉前6.198秒，去掉后5.991秒
我电脑的cpu主频4.5G的i5，acad2008用时10.3秒。acad2018是17秒，2022是19秒
;改成这样后是5.723秒，改前是6.198秒 这是另一台电脑的测试，6.198面相当于一楼的10.3秒
(defun c:tt (/ pt r x lst x1 x2)
(setq f (open "c:/00/tt.txt" "R"))
(setq t0 (getvar "TDUSRTIMER"))
(while (setq s (read-line f))
(setq k (read s))
(setq x (car k)
y (cadr k)
r (caddr k)
g (cadddr k)
b (car (cddddr k))
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))
)
)
)
(close f)
(princ "\n程序共用时" )
(princ(*(-(getvar "TDUSRTIMER" )t0 )86400 ))
(princ "秒" )
(princ)
)
(defun LM:RGB->True ( r g b )
(+
(lsh r 16)
(lsh g8)
b
)
)
;(vlisp-compile 'st "c:/00/tt.lsp")
;先处理一下像素数据文件，省去计算过程
;改成这样后是8.157秒，改前是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/tt4.txt" "w"))
(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 strc (vl-prin1-to-string c))
(write-line strc f1)
)
(close f1)
(close f)
(setq f (open "c:/00/tt4.txt" "R"))
(setq t0 (getvar "TDUSRTIMER"))
(setq x 0 y 0)
(while(True ( r g b )
(+
(lsh r 16)
(lsh g8)
b
)
)
;(vlisp-compile 'st "c:/00/tt.lsp")
页:
[1]
2