sharetow 发表于 2019-12-17 10:38:15

分享 图形旋转

本帖最后由 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)
)

1028695446 发表于 2019-12-19 21:07:51

;图形旋转
(DEFUN C:Rt (/ ss pt1 pt2 ang_h1 ang_h2)
      (princ"实体操作--图形旋转")
(if (setq ss(ssget))
                (progn
                        (setvar "Autosnap" 63)
                        (setvar "POLARMODE" 2)
                        (command "POLARANG" "45")
                        (if (and
                                                (setq pt1 (getpoint "\n点取旋转基点"))
                                                (setq ang_h1 (getangle pt1 "\n点取原始角度"))               
                                        )                                                      
                              (if(setq pt2 (getpoint "\n点取目标角度第一点"))                                                
                                        (if(setq ang_h2 (getangle pt2 "\n点取目标角度第二点"))
                                                (command "rotate" ss "" pt1(* (/ (- ang_h2 ang_h1) pi) 180))
                                                (command "rotate" ss "" pt1(* (/ (- 0 ang_h1) pi) 180))
                                        )
                                        (command "rotate" ss "" pt1(* (/ (- 0 ang_h1) pi) 180))                                                
                              )                                       
                        )
                )
      )
      (princ)
)

sharetow 发表于 2019-12-20 11:13:21

1028695446 发表于 2019-12-19 21:07
;图形旋转
(DEFUN C:Rt (/ ss pt1 pt2 ang_h1 ang_h2)
      (princ"实体操作--图形旋转")


Good，加了逻辑防止未选点位而出错

小小的人 发表于 2020-5-4 20:55:49

太好了   非常感谢楼主的分享   每次旋转的时候   系统自带的旋转要拉到一起才行   这样的话方便很多   非常感谢

再见熊猫衣服 发表于 2019-12-17 10:50:06

太好用了。。。超级简单，但是超级方便的小程序。

enn09 发表于 2019-12-17 13:43:00

不错不错 顶一顶，感谢分享~

纵横八方 发表于 2019-12-18 12:53:16

操作有点复杂

纵横八方 发表于 2019-12-18 13:19:23

后面那一步 改成 nentsel

sharetow 发表于 2019-12-18 13:34:55

纵横八方 发表于 2019-12-18 13:19
后面那一步 改成 nentsel

参照对象不一定是线段，有可能是块中某两个线段的顶点，感觉nentsel不是很适合，不过需要多点选几次

liuxiooang 发表于 2019-12-19 11:26:38

真的强，很棒，很实用。

ketxu 发表于 2019-12-21 11:25:04

Thanks for sharing ^^
页: [1] 2 3 4
查看完整版本: 分享 图形旋转