我们有三维等轴测图,我想把流动箭头。下面是我的代码,但它没有做“旋转,参考”正确的一半时间。为什么会这样?我要介绍的块最初设置为面向右侧,然后我只需要旋转它以引用用户刚刚单击的两个点:
- (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)
- )
感谢您的帮助。
谢谢 |