cad旋转功能

xdzcp · 发表于 2021-11-12 11:43:10

哪位大神帮忙一下 CAD默认旋转图形是角度，怎么把它改成默认是参照[R]选项。谢谢 QQ图片20211112113459.png

王鹏_pBZlo · 发表于 2021-11-12 11:43:11

本帖最后由王鹏_pBZlo 于 2021-11-26 07:07 编辑

(defun c:tt( / ss pt)
(setq ss (ssget))
(setq pt (getpoint "\n指定参照角："))
(setvar "cmdecho" 1)
(command "rotate" ss "" pt "r" pt)
)

tzfcn · 发表于 2021-11-12 16:12:58

可以设置为自己的体系不？

xdzcp · 发表于 2021-11-12 16:44:15

tzfcn 发表于 2021-11-12 16:12
可以设置为自己的体系不？

小白一个，能否说的具体一点。谢谢

王鹏_pBZlo · 发表于 2021-11-12 22:05:56

(defun c:tt( / ss)
(setq ss (ssget))
(command "rotate" ss "" "r")
)

王鹏_pBZlo · 发表于 2021-11-12 22:06:21

(defun c:tt( / ss)
(setq ss (ssget))
(command "rotate" ss "" "r")
)

hh_lj007 · 发表于 2021-11-13 18:24:40

好像有一个成品的源码，需要加载dll的，我要找一找

xdzcp · 发表于 2021-11-13 18:36:00

本帖最后由 xdzcp 于 2021-11-13 18:38 编辑

王鹏_pBZlo 发表于 2021-11-12 22:06
(defun c:tt( / ss)
(setq ss (ssget))
(command "rotate" ss "" "r")

试过不行老大还是默认角度。是不是还要别的参数。

王鹏_pBZlo · 发表于 2021-11-13 20:11:15

(defun c:tt( / ss pt)
(setq ss (ssget))
(setq pt (getpoint "\n指定基点："))
(setvar "cmdecho" 1)
(command "rotate" ss "" pt "r")
)

xdzcp · 发表于 2021-11-14 11:52:43

王鹏_pBZlo 发表于 2021-11-13 20:11
(defun c:tt( / ss pt)
(setq ss (ssget))
(setq pt (getpoint "\n指定基点："))

谢谢老大，可能是我没有表达清楚。能否可以在帮我改一下 “指定基”这一步能否取消掉直接到“指定参照角”非常感谢。 QQ图片20211114114416.png

xdzcp · 发表于 2021-11-14 11:55:42

王鹏_pBZlo 发表于 2021-11-13 20:11
(defun c:tt( / ss pt)
(setq ss (ssget))
(setq pt (getpoint "\n指定基点："))

谢谢老大，可能是我没有表达清楚。能否可以在帮我改一下 “指定基”这一步能否取消掉直接到“指定参照角”非常感谢。 QQ图片20211114114114.png

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

[求助] cad旋转功能

最佳答案

点评

点评

点评