entmake制作wipeout实体不同cad版本【已解决】

被承包的东子

在2008版本cad，(arxload "acwipeout.arx")，之后可以entmake生成wipeout遮罩实体；可是2017版本的cad，(arxload "acwipeout.arx")根本加载不成功，所以也没办法用entmake生成wipeout遮罩实体；请问这个版本不同的情况下，我该怎么处理呢？

被承包的东子

/db_自贡黄明儒_ 发表于 2021-3-11 09:20
您的完整代码呢，贴出来让大家学习一下吧。

我这个就是拿的论坛里的代码改的，就测试了08版本和17版本的cad，就加了红字部分的判断

(defun MyWipeout (lst / A B P X Y)
   (setq vlu nil)
   (if (not (member "acwipeout.arx" (arx)))
   (setq vlu  (arxload "acwipeout.arx" t))
   )
   (if (and vlu (not (member "acismui.arx" (arx))))
   (arxload "acismui.arx")
   )
  (setq lst (cons (last lst) lst))
  (setq p (apply 'mapcar (cons 'min lst)))
  (setq b (apply 'mapcar (cons 'max lst)))
  (setq b (apply 'max (mapcar '- b p)))
  (setq c (mapcar '+ p (list (* b 0.5) (* b 0.5))))
  (setq en_wip
  (entmakex
    (append
      (list '(0 . "WIPEOUT")
            '(100 . "AcDbEntity")
            '(100 . "AcDbWipeout")
            (cons 10 (trans p 1 0)) ;插入点（在 WCS 中）DXF：X 值；APP：三维点

            (cons 11 (trans (list b 0.0) 1 0));单像素的 U 矢量（沿图像可见底部的点，从插入点开始）（在 WCS 中）DXF：X 值；APP：三维点
            (cons 12 (trans (list 0.0 b) 1 0));单像素的 V 矢量（沿图像可见左侧的点，从插入点开始）（在 WCS 中）DXF：X 值；APP：三维点

            '(280 . 1);剪裁状态：0 = 关闭；1 = 打开
            '(71 . 2);剪裁边界类型。1 = 矩形；2 = 多边形
;            '(70 . 0);“显示图像边框”标志：0 = 无边框；1 = 显示边框
      )
      (mapcar
        '(lambda (a)
          (cons 14 (mapcar '(lambda (x y z) (/ (- x y) z)) a c (list b (- b))))
         )
        lst
      )
      ;裁剪边界顶点（在 OCS 中）
      ;DXF：X 值；APP：二维点（多个条目）
      ;注意 1) 对于矩形剪裁边界类型，必须指定两个对角点。默认值为 (-0.5,-0.5)，(size.x-0.5,size.y-0.5)。2) 对于多边形剪裁边界类型，必须指定三个或更多顶点。多边形顶点必须按顺序列出
    )
  )
  )
;(entlast)
en_wip
)

被承包的东子

已解决，找到办法了，2008版本的用(arxload "acwipeout.arx")没有问题，2017版本的可以用(arxload "acismui.arx")，各位大神可以再帮我看看我这解决办法对不对，不对的话，帮我再完善完善

/db_自贡黄明儒_

被承包的东子 发表于 2021-3-10 10:28
已解决，找到办法了，2008版本的用(arxload "acwipeout.arx")没有问题，2017版本的可以用(arxload "acismui ...

您的完整代码呢，贴出来让大家学习一下吧。

被承包的东子

在论坛里，学到了黄大师的很多代码，给了很大的帮助，趁此机会，给大师说声谢谢哈

xk15c

学习了，谢谢

qq1254582201

好东西，要留名！！

janshyl

好的程式 感謝分享