我想自动旋转黄色多边形垂直于红线，请问怎么实现？

tender138 · 发表于 2015-6-15 20:39

自贡黄明儒 · 发表于 2015-6-15 21:54

align

cable2004 · 发表于 2015-6-15 22:40

本帖最后由 cable2004 于 2015-6-15 22:50 编辑

直线垂直于平面，还要考虑黄色平面的角度问题。

你可以获取直线端点的nor，然后黄线转换nor，试试至于对齐角度我也不明白！

(defun c:tt ( / acdoc e1 e2 en end nor space sta)
(vl-load-com)
(setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
Space (if (= 1 (getvar "CVPORT"))(vla-get-PaperSpace AcDoc)(vla-get-ModelSpace AcDoc)))
(vla-StartUndoMark AcDoc)
(setq e1 (car (entsel "请选择一个对象: ")))
(setq e2 (car (entsel "请选择旋转对象: ")))
(setq en (vlax-ename->vla-object e1))
(setq sta (vlax-curve-getStartPoint  en))
(setq end (vlax-curve-getEndPoint en))
(setq nor (vlax-curve-getFirstDeriv en (vlax-curve-getStartParam en)))
(vla-put-Normal (vlax-ename->vla-object e2) (vlax-3d-Point nor))
  (vla-EndUndoMark AcDoc)
  (princ))

tender138 · 发表于 2015-6-16 08:29

非常感谢自贡黄明儒、cable2004

账号		自动登录	找回密码
密码			注册

[提问] 我想自动旋转黄色多边形垂直于红线，请问怎么实现？

本帖子中包含更多资源

相关帖子

点评

浏览过的版块