CAD开发设计-旋转对象至任意角度

sjfwhcy · 发表于 2011-11-10 21:26

不知大家在设计时是否经常遇到需要将一对象旋转到一个不确定的角度的情况,比如说画疏排水系统时,管子尺寸和箭头想沿着管线倾斜的管线画,但又不确定度数,很难对齐.本人设计了一个程序,可以将处于任何角度的对象旋转至与倾斜的管线保持一致.

程序使用方法:
在CAD菜单栏:  工具->Autolisp->visual lisp编辑器，新建一个lisp文件，将本帖程序内容复制到lisp文件，保存。关闭编辑器。再继续在CAD菜单栏：工具->Autolisp->加载应用程序，加载刚刚保存的lisp文件后关闭。在CAD命令行输入rre命令，然后按提示执行即可。以后的每次使用只需加载就可使用。

使用时,按照提示执行,需要说明的是指定旋转角度的起点和终点时,只需要在倾斜的管线上随意点两点即可,相当方便.

******************************************

;旋转对象至指定角度
;命令：rat
;设计:sjfwhcy

(defun c:rat()
  (princ "\n请选择块或文字对象:")
  (setq ssnet(ssget '((-4 . "<or")
      (0 . "text")
      (0 . "attdef")
      (0 . "insert")
      (-4 . "or>")
      )
   )
)
  (setq number(entget(ssname ssnet 0)))
  (setq data(cdr(assoc 50 number)))
  (setq data1(atof(angtos data 0)))
  (setq pt0(cdr(assoc 10 number)))
  (princ "指定对象的放置点:")
  (setq pt1 (getpoint))
  (princ "\n指定旋转角度的起点")
  (setq pt2 (getpoint))
  (princ "\n指定旋转角度的终点")
  (setq pt3 (getpoint))
  (setq ssangle (angle pt2 pt3))
  (setq ss-angle (angtos ssangle 0))
  (setq ssangle1 (atof ss-angle))
  (setq ssangle2 (- ssangle1 data1))
  (command "copy" ssnet "" pt0 pt0)
  (command "move" ssnet "" pt0 pt1)
  (command "rotate" ssnet "" pt1 ssangle2)
  (princ)
  )

sjfwhcy · 发表于 2011-11-10 21:27

先抢个沙发

vweis · 发表于 2011-11-11 07:54

这么麻烦？CAD本来就自带旋转任意角度功能！RO-R-基点-第二点-目标点

ganzili · 发表于 2011-11-11 08:22

本帖最后由 ganzili 于 2011-11-11 12:57 编辑

好吧年轻人你赢了
大家知道答案就行了

sjfwhcy · 发表于 2011-11-11 09:27

回复 4# ganzili

一看你的回复就知道你没搞过设计,也没搞过船,CAD的那个旋转我要是不会用还用费那么多周章?真是弱智.
很明显是因为那个旋转命令无法达到想要的效果.正如我在帖子开头所说的一样,这才是目的,CAD没你想象的那么强大,想要怎么样就怎么样.

sjfwhcy · 发表于 2011-11-11 09:28

回复 3# vweis

CAD的命令是可以旋转,可是你并不理解所编写的这个程序的奥妙.也许是你根本没碰到过这种情况.所以估计你理解不了.

xiahwan · 发表于 2011-11-20 22:17

楼主在设计过程中能运用LISP优化CAD功能值得鼓励。
楼主的LISP程式可以再进一步优化一下。

[Auto CAD] CAD开发设计-旋转对象至任意角度