[原创]DCL中实现：块动态预览

不死猫

看样子萝卜没做过image动态处理的程序

image图像的点必须加一个fix改成整数才可

根据当前image大小和实际Block大小做等比例坐标点换算

一条线绘制正确 所有的线就都正确了

飞诗(fsxm)

先用vla-Import导入wmf．再调用这个函数（遍历图块取（颜色+点）的列表）！

  (defun readwmf (wmf / blk color cpts lst pts x y z)
    (setq blk (vla-item (vla-get-Blocks *doc*) (vla-get-name wmf)))
    (vlax-for a blk
      (setq lst (vlax-get a 'coordinates))
      (setq pts nil)
      (while (setq x (car lst))
 (setq y   (cadr lst)
       lst (cdddr lst)
       pts (cons (list x y) pts)
 )
      )
      (setq Color (vla-get-ColorIndex (vla-get-truecolor a)))
      (setq cpts (cons (cons Color pts) cpts))
    )
    (vla-Delete wmf)
    (vla-Delete blk)
    cpts
  )

jxlsp

是读取wmf文件用vector_image画出来的??

正解.

azjmjsj

fsxm高人，你好。请帮忙，万分感谢！
取得（颜色+点）的列表后，如何换算坐标,用于vector_image？
另外，缩放比如何设置，才能让图片内容在DCL的image中居中显示?

我的（颜色+点）的列表如下：
(
(2 (192.779 -254.648) (260.057 -138.048))
(2 (260.057 -138.048) (394.581 -138.048) (461.859 -254.648)
   (394.581 -371.28) (260.057 -371.28) (192.779 -254.648))
(2 (337.718 -298.377) (337.718 -210.919) (325.233 -223.404)
(316.92 -227.576))
)

革天明

飞诗，这个程序现在能公布源码吗？