如何将图形对象旋转复制水平

726613 · 发表于 2022-4-26 15:24:58

如何将上面的图一快速的旋转复制水平（如图二）

;复制旋转对象
(defun c:KJ_CR ( / ent1 ent pnt )
(PRINC "\n【開心工具箱】---复制旋转功能")(PRINC)
(setq ent (ssget))
(setq pnt (getpoint "\n-->请选择基点:"))
(setq ent1 (entlast))
(setvar "cmdecho" 0)
(command "copy" ent "" pnt "@" )
(setq ss (ssadd ))
(while (setq ent1 (entnext ent1)) (ssadd ent1 ss) )
(command "rotate" ss "" pnt)
(setvar "cmdecho" 1)
(princ "\n-->请指定旋转角度：")
(command pause)
(princ "\n★★★欢迎使用--《開金工具箱》--★★★ 所选地方-->复制旋转完成！")(princ))

这是【開心工具箱】里的，请问要怎么修改才能实现图二的，请大家指点，谢谢

世井 · 发表于 2022-4-26 16:19:42

;复制旋转对象
(defun c:TT (/ ENT PNT PNT1 a pt1 pt2 pt3);
(setvar "CMDECHO" 0)
  (setq ent (ssget))
(setq pnt (getpoint "\n第一点"))
  (setq pnt1 (getpoint "\n第二点:"))
  (command "copy" ent "" "NON" pnt "NON" PNT1 )
(setq a (ENTLAST))
  (setq pt1 (getpoint "\n 第一点："))
  (setq pt2 (getpoint pt1 "\n 第二点："))
  (setq pt3 (polar pt1 0 300))
  (command "_rotate" a "" "non" pt1  "r" "non" pt1 "non" pt2  "non" pt3)
  (setvar "CMDECHO" 1)
(princ)
)

htlaser · 发表于 2022-4-27 08:52:27

(defun c:BZ (/ ang en pt pt1 roang s1 ss)
(setvar "CMDECHO" 0)
(prompt "\n框选文件")
(setq ss (ssget":s"))
(setq s1 (entsel "\n选择一条边: "))
  (setq en (car s1) pt (cadr s1))
  (setq ang (angle pt (setq pt1 (osnap pt "nea"))))
  (if (> ang pi) (setq ang (- ang pi)))
  (setq roang (rtos (- 90 (/ (* ang 180) pi)) 2 3))
  (command "_.ROTATE" ss "" pt1 roang)
(princ)
)

世井 · 发表于 2022-4-26 16:07:21

(defun c:RH (/ a pt1 pt2 pt3);
(setvar "CMDECHO" 0)
(prompt "\n★★★ RH 回转水平 ★★★")
(setq a (ssget))
  (setq pt1 (getpoint "\n 第一点："))
  (setq pt2 (getpoint pt1 "\n 第二点："))
  (setq pt3 (polar pt1 0 300))
  (command "_rotate" a "" "non" pt1  "r" "non" pt1 "non" pt2  "non" pt3)
  (setvar "CMDECHO" 1)
(princ)
)
;旋转垂直
(defun c:RS (/ a pt1 pt2 pt3)
(setvar "CMDECHO" 0)
(prompt "\n★★★ RS 回转垂直 ★★★")
(setq a (ssget))
  (setq pt1 (getpoint "\n 第一点："))
  (setq pt2 (getpoint pt1 "\n 第二点："))
  (setq pt3 (polar pt1 (* pi 0.5) 300))
  (command "_rotate" a "" "non"  pt1  "r"  "non" pt1 "non" pt2 "non" pt3)
  (setvar "CMDECHO" 1)
(princ)
)

726613 · 发表于 2022-4-28 08:28:01

谢谢大家……

zmzk · 发表于 2022-11-18 20:41:29

群英荟萃，方法真多

20060510412 · 发表于 2022-11-18 23:51:41

感觉结合高飞鸟的求极值函数，可以实现自动归平。
判断条件就是令选择集的竖向投影长度最小。

清水白粥 · 发表于 2023-10-28 09:24:55

htlaser 发表于 2022-4-27 08:52
(defun c:BZ (/ ang en pt pt1 roang s1 ss)
(setvar "CMDECHO" 0)
(prompt "\n框选文件")

命令: AP
APPLOAD 已成功加载 BZ.lsp。
命令: ; 错误: 输入的字符串有缺陷

htlaser · 发表于 2023-10-29 09:00:59

清水白粥发表于 2023-10-28 09:24
命令: AP
APPLOAD 已成功加载 BZ.lsp。
命令: ; 错误: 输入的字符串有缺陷

上传了

清水白粥 · 发表于 2023-10-29 09:25:16

htlaser 发表于 2023-10-29 09:00
上传了

谢谢大哥。可以了……

账号		自动登录	找回密码
密码			注册

[提问] 如何将图形对象旋转复制水平

本帖子中包含更多资源

本帖子中包含更多资源