不死猫
发表于 2009-4-25 17:18:00
<p>看样子萝卜没做过image动态处理的程序</p><p>image图像的点必须加一个fix改成整数才可</p><p>根据当前image大小和实际Block大小做等比例坐标点换算</p><p>一条线绘制正确 所有的线就都正确了</p>
liminnet
发表于 2009-5-4 13:54:00
飞诗(fsxm)
发表于 2009-6-17 19:52:00
<p>先用vla-Import导入wmf．再调用这个函数（遍历图块取（颜色+点）的列表）！</p><p> (defun readwmf (wmf / blk color cpts lst pts x y z)<br/> (setq blk (vla-item (vla-get-Blocks *doc*) (vla-get-name wmf)))<br/> (vlax-for a blk<br/> (setq lst (vlax-get a 'coordinates))<br/> (setq pts nil)<br/> (while (setq x (car lst))<br/> (setq y (cadr lst)<br/> lst (cdddr lst)<br/> pts (cons (list x y) pts)<br/> )<br/> )<br/> (setq Color (vla-get-ColorIndex (vla-get-truecolor a)))<br/> (setq cpts (cons (cons Color pts) cpts))<br/> )<br/> (vla-Delete wmf)<br/> (vla-Delete blk)<br/> cpts<br/> )</p>
jxlsp
发表于 2009-6-17 20:03:00
<p>是读取wmf文件用<font color="#ae33cc" size="4">vector_image画出来的??</font></p><p><font color="#ae33cc" size="4">正解.</font></p>
azjmjsj
发表于 2009-6-18 19:32:00
<strong><font face="Verdana" color="#61b713">fsxm高人，你好。请帮忙，万分感谢！</font></strong><br/>取得（颜色+点）的列表后，如何<font size="4">换算坐标,用于vector_image？<br/>另外，</font><font size="3">缩放比如何设置，才能让图片内容在DCL的image中居中显示?<br/><br/>我的（颜色+点）的列表如下：<br/>(<br/>(2 (192.779 -254.648) (260.057 -138.048)) <br/>(2 (260.057 -138.048) (394.581 -138.048) (461.859 -254.648) <br/> (394.581 -371.28) (260.057 -371.28) (192.779 -254.648))<br/>(2 (337.718 -298.377) (337.718 -210.919) (325.233 -223.404) <br/>(316.92 -227.576))<br/>)<br/></font>
革天明
发表于 2013-10-11 14:33:44
飞诗，这个程序现在能公布源码吗？