尘缘一生 发表于 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

{:1_1:}{:1_1:}{:1_1:}

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 配合 旋转 移动 拷贝 好像也行。。。
页: [1]
查看完整版本: 函数：动态转角（源码）