函数：动态转角（源码）

尘缘一生 · 发表于 2023-11-8 20:00:16

本帖最后由尘缘一生于 2023-11-8 20:48 编辑

;;测试-----------------
(defun c:tt ()
(sl:ryrot (ssget ":s"))
)
;;选择集--随鼠标旋转+移动+文字归正------(一级)-----
;;三领设计 V3.0 By 尘缘一生 QQ:15290049
(defun sl:ryrot (s / pt bb f3 plis p p0)
(princ "\n 拉动鼠标,取得参照就角度:[扑捉(F3)]")
(setq plis (ss9pt s nil))
(setq p (car plis)) ;选择集左下角点，9点函数自理
(setq pt (cadr (grread 5)))
(setq pt (polar pt (angle pt p) (distance pt p)) p0 (polar pt (angle pt (caddr plis)) 500))
(setq f3 (getvar "OSMODE"))
(command ".rotate" s "" pt "r" pt
(cond
((and (setq bb (grread t 15 2)) (= (car bb) 5)) ; _移动
(if (equal bb '(2 6));F3切换捕捉开关
(progn
(cond
((and (< f3 16384) (/= f3 0))
(setq f3 (+ f3 16384))
(prompt "\n <对象捕捉关>")
)
((or (= f3 0) (>= f3 16384))
(setq f3 16383)
(prompt "\n <对象捕捉开>")
)
)
(setvar "OSMODE" f3)
(setq p (slosnappt nil (cadr bb))) ;->扑捉函数可以本坛搜素
(polar p (angle p p0) (distance p p0))
)
)
(setq p (cadr bb))
(polar p (angle p p0) (distance p p0))
)
)
pause
)
;(command "MOVE" (sl-wzgz s) "" pt) 三领文字归正-->
)

ghgh0130 · 发表于 2023-11-9 06:09:26

cghdy · 发表于 2023-11-9 09:03:06

你这颜色也太花了，打印起来很不方便

lxl217114 · 发表于 2023-11-9 09:44:46

cghdy 发表于 2023-11-9 09:03
你这颜色也太花了，打印起来很不方便

文字花打印不是很难控制，主要是对眼睛不好。

wangsr · 发表于 2023-11-9 18:02:14

什么版本能用此插件？

ghgh0130 · 发表于 2023-11-10 16:48:54

用command 配合旋转移动拷贝好像也行。。。

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