tender138 发表于 2013-12-4 10:43:14

[已解决]如何取多边形外一点（不是判断）？非常感谢自贡黄明儒老师请帮忙，谢谢！

本帖最后由 tender138 于 2013-12-4 14:11 编辑

请问如何取得多边形外一点坐标（不是判断）？请帮忙，谢谢！

风树 发表于 2013-12-4 11:03:05

是随机生成多边形外一点，还是其它方面的？

自贡黄明儒 发表于 2013-12-4 11:23:59

;;取得对象外一点
(defun getoutPoint (ent)
(defun MJ:GetBoundingBox (ent / ll ur)
    (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
    (mapcar 'vlax-safearray->list (list ll ur))
)
(mapcar '+ '(1 1 0) (cadr (MJ:GetBoundingBox ent)))
)

tender138 发表于 2013-12-4 14:10:28

又是自贡黄明儒老师帮忙，非常感谢老师！

zyhandw 发表于 2013-12-4 15:12:55

黄大侠有不少好东西啊
页: [1]
查看完整版本: [已解决]如何取多边形外一点（不是判断）？非常感谢自贡黄明儒老师请帮忙，谢谢！