日志
;矩形立正/.
热度 3 |
;矩形立正/
(defun c:tt()
(setq ss(ssget))
(setq ss(cx-ss2en ss))
(foreach x ss
(setq pts (get-rec-x2pt (cx-db x)t))
(setq ang(angle(car pts)(cadr pts)))
(command "rotate" x "" (car pts) "r" (car pts) (cadr pts) "0")
)
)
;Q 775452144
全部作者的其他最新日志
- • .Net 实现Zoom
- • 无聊发个四舍五入的函数
- • 黑板
- • sleep
- • C#代码笔记.
- • 一个路径转换的代码.