在二维中以实体的中心自动旋转180度
<p>哪位朋友能编一个在二维中以实体的正中心自动旋转180度的lisp程序？谢谢了。</p> <p>实体的正中心是否指实体外包围方框的中心?</p> <p>一般我主要是用于旋转文字的。谢谢</p> 本帖最后由 作者 于 2008-10-15 8:28:55 编辑 <br /><br /> <p>我自已编的,哪个地方不对，请版主指点下。谢谢了。</p><p>(defun C:zz()<br/> (setq oldosmode (getvar "osmode"))<br/> (setvar "osmode" 0)<br/> (princ "\n请选择要旋转的单行文字！！！")<br/> (setq en (car (entsel)))<br/> (setvar "cmdecho" 0)<br/> (setq en1 (entget en))<br/> (setq tym (cdr (assoc 0 en1)))<br/> (if ( = tym "TEXT")<br/> (progn<br/> (setq dd (cdr (assoc 10 en1)))<br/> (setq jd (cdr (assoc 50 en1)))<br/> (setq ysjd1 (cdr (textbox en1)))<br/> (setq ysjd (car ysjd1))<br/> (setq x (car ysjd))<br/> (setq y (cadr ysjd))<br/> (setq a (atan (/ y x)))<br/> (setq jd1 (+ jd a))<br/> (setq jl (/ (sqrt (+ (* x x) (* y y))) 2))<br/> (setq xy (polar dd jd1 jl))<br/> (command "rotate" en "" xy "180" ); 180 即需要旋转的角度，可以进行修改。<br/> )<br/> )<br/> (if (/= tym "TEXT")<br/> (progn<br/> (princ "\n选择的不是单行文字！！！")<br/> (setvar "osmode" oldosmode)<br/> (setvar "cmdecho" 1)<br/> (princ)<br/> (exit)<br/> ) <br/> ) <br/> (setvar "osmode" oldosmode)<br/> (setvar "cmdecho" 1) <br/> (princ)<br/>)<br/> </p><p><br/></p> 帮助别人，提高自己！
页:
[1]