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

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

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

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

align               

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

本帖最后由 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-getStartPointen))
    (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:46

非常感谢自贡黄明儒、cable2004

tender138 发表于 7 天前

cable2004 发表于 2015-6-15 22:40
直线垂直于平面，还要考虑黄色平面的角度问题。

你可以获取直线端点的nor，然后黄线转换nor，试试至于对 ...

大师，麻烦你帮忙解决这个问题，非常感谢！

如何旋转空间多边形使之垂直于空间曲线的各顶点切线并移到曲线各顶点
http://bbs.mjtd.com/thread-191572-1-1.html

cable2004 发表于 7 天前

tender138 发表于 2024-11-18 14:00
大师，麻烦你帮忙解决这个问题，非常感谢！

如何旋转空间多边形使之垂直于空间曲线的各顶点切线 ...

lisp我好久不用了。
页: [1]
查看完整版本: 我想自动旋转黄色多边形垂直于红线，请问怎么实现？