旋转Lisp
我们有三维等轴测图，我想把流动箭头。下面是我的代码，但它没有做“旋转，参考”正确的一半时间。为什么会这样？我要介绍的块最初设置为面向右侧，然后我只需要旋转它以引用用户刚刚单击的两个点：(defun c:flow (/)
(command "pspace")
(setq pt1 (getpoint "\nPick First Point:"))
(setq pt2 (getpoint "\nPick End Point (direction of flow):"))
(command "-insert" "Flow Arrow" pt1 "" "" "")
(command "rotate" "last" "" pt1 "R" pt1 "@.75,0" pt2)
(command "move" "last" "" pt1 "@0,-.5")
(command "chspace" "last" "" "pspace")
(princ)
)
感谢您的帮助。
谢谢 通过搜索其他网站，我找到了答案。下面是修改后的代码，如果其他人有相同的问题。
(command "rotate" "last" "" pt1 "R" "@" pt1 pt2)
页:
[1]