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

cad旋转功能

哪位大神帮忙一下 CAD默认旋转图形是角度，怎么把它改成默认是参照选项。谢谢

王鹏_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指定基点："))


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

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指定基点："))


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

页: [1]
查看完整版本: cad旋转功能