change (defun c:test (str )
(foreach x ent
(if ( = (car x) 310)
(test (cdr x)) ; save result somehow
)
)
能够在DWG中注入任意栅格实体的可能性听起来很大。90组似乎是图像的像素大小,310组流是图像RR-GG-BB-oo(不透明度)的像素描述。
-
诉Michl,www.cadforum.cz 请上传一个演示.绘图.dwg
我需要真正的dwg与图像.代码310用于测试colorScanner.lsp
使用geographic location+geo pimage命令可以很容易地创建一个。下面是一个DWG的样本,带小图:
https://www . CAD forum . cz/catalog _ en/block . ASP?blk=21995
页:
1
[2]