功夫佬 发表于 2012-4-22 20:16:59

指定型快速旋转功能

第一次发贴，希望大家支持并改善以下代码，发贴是对明经这个大论坛的支持。这个代码很适合初学者，因为我是一名初学才，共同进步。(defun c:TT ()
(prompt "旋转 p 90 移动\n")
(setq ss (ssget))
(setq p1 (getpoint "指定基点: "))
(setq p2 (getpoint "指定基点: "))
(command "ortho" "off" )
(command "move"ss "" p1 p2)
(command "rotate" ss "" p2 "90" )
(setq p3(getpoint "指定基点: "))
(command "ortho" "off" "move" ss "" p2 p3)
)

raimo 发表于 2012-4-23 07:29:20

试过，觉得好像不是很好用的样子。 如果能实时显示并可以指定角度或许好一些

冷然冰心 发表于 2012-4-23 12:26:01

这是什么程序

梦醒才知原是梦 发表于 2012-5-4 11:13:15

发帖是好事。。。回帖是美德~~~~

自贡黄明儒 发表于 2012-5-4 15:38:00

用命令:al 更灵活些
页: [1]
查看完整版本: 指定型快速旋转功能