本帖最后由 sharetow 于 2019-12-17 10:45 编辑
- (defun C:RR(/ dx a1 a2 a3 a4 a5)
- (setq
- dx (ssget)
- a1 (getpoint "\n对象旋转基点 :")
- a2 (getpoint a1 "\n对象另一点 :")
- a3 (getpoint "\n参照对象第一点 :")
- a4 (getpoint a3 "\n参照对象另一点 :")
- a5 (- 360 (* (- (angle a1 a2) (angle a3 a4)) (/ 180 pi)))
- )
- (command "_.rotate" dx "" a1 a5 )
- (princ)
- )
|