ZZXXQQ大哥，你帮我写的程序怎么有时可以，有时又不行呀？

sailorcwx

3. (defun modifyangle (ang isratate / ENT INDEX LPT MPT NMPT OBJ SLTSET UPT)
4.   ;调用需提供两个参数
5.   ;ang为角度,以度为单位;
6.   ;isratate为修改模式,T为旋转ang度,nil为将角度设置为ang
7.   ;加载vlisp函数
8.   (vl-load-com)
9.   (if
10.     ;选择操作对象
11.     (setq sltset (ssget '((0 . "TEXT"))))
12.     (progn
13.       ;将角度转化成弧度
14.       (setq ang (* ang (/ pi 180))
15.      ;定义索引号
16.      index 0
17.      )
18.       ;遍历选集
19.       (repeat (sslength sltset)
20. ;图元名
21. (setq ent (ssname sltset index)
22.        ;转化成VLA对象
23.        obj (vlax-ename->vla-object ent)
24.        )
25. ;文字对象外框
26. (vla-getboundingbox obj 'lpt 'upt)
27. ;转化为坐标
28. (setq lpt (vlax-safearray->list lpt)
29.        upt (vlax-safearray->list upt)
30.        ;取中点
31.        mpt (mapcar '(lambda(x1 x2) (/ (+ x1 x2) 2)) lpt upt)
32.        )
33. ;判断是旋转还是设置角度
34. (if isratate
35.    ;旋转
36.    (vla-rotate obj (vlax-3d-point mpt) ang)
37.    ;设置角度
38.    (progn
39.      ;修改角度
40.      (vla-put-rotation obj ang)
41.      ;新文字外框
42.      (vla-getboundingbox obj 'lpt 'upt)
43.      ;转化为坐标
44.      (setq lpt (vlax-safearray->list lpt)
45.     upt (vlax-safearray->list upt)
46.     ;新中点
47.     nmpt (mapcar '(lambda(x1 x2) (/ (+ x1 x2) 2)) lpt upt)
48.     )
49.      ;文字归位
50.      (vla-move obj (vlax-3d-point nmpt) (vlax-3d-point mpt))
51.      )
52.    )
53. ;next one
54. (setq index (1+ index))
55. )
56.       )
57.     )
58.   ;静默退出
59.   (princ)
60.   )
61. ;函数引用
62. ;旋转30度
63. (defun c:test1 ()
64.   (modifyangle 30 T)
65.   )
66. ;旋转-30度
67. (defun c:test2 ()
68.   (modifyangle -30 T)
69.   )
71. ;将角度设为30度
72. (defun c:test3 ()
73.   (modifyangle 30 nil)
74.   )
75. ;将角度设为-30度
76. (defun c:test4 ()
77.   (modifyangle -30 nil)
78.   )

(defun modifyangle (ang isratate / ENT INDEX LPT MPT NMPT OBJ SLTSET UPT)   ;调用需提供两个参数   ;ang为角度,以度为单位;   ;isratate为修改模式,T为旋转ang度,nil为将角度设置为ang   ;加载vlisp函数   (vl-load-com)   (if     ;选择操作对象     (setq sltset (ssget '((0 . "TEXT"))))     (progn       ;将角度转化成弧度       (setq ang (* ang (/ pi 180))      ;定义索引号      index 0      )       ;遍历选集       (repeat (sslength sltset) ;图元名 (setq ent (ssname sltset index)        ;转化成VLA对象        obj (vlax-ename->vla-object ent)        ) ;文字对象外框 (vla-getboundingbox obj 'lpt 'upt) ;转化为坐标 (setq lpt (vlax-safearray->list lpt)        upt (vlax-safearray->list upt)        ;取中点        mpt (mapcar '(lambda(x1 x2) (/ (+ x1 x2) 2)) lpt upt)        ) ;判断是旋转还是设置角度 (if isratate    ;旋转    (vla-rotate obj (vlax-3d-point mpt) ang)    ;设置角度    (progn      ;修改角度      (vla-put-rotation obj ang)      ;新文字外框      (vla-getboundingbox obj 'lpt 'upt)      ;转化为坐标      (setq lpt (vlax-safearray->list lpt)     upt (vlax-safearray->list upt)     ;新中点     nmpt (mapcar '(lambda(x1 x2) (/ (+ x1 x2) 2)) lpt upt)     )      ;文字归位      (vla-move obj (vlax-3d-point nmpt) (vlax-3d-point mpt))      )    ) ;next one (setq index (1+ index)) )       )     )   ;静默退出   (princ)   ) ;函数引用 ;旋转30度 (defun c:test1 ()   (modifyangle 30 T)   ) ;旋转-30度 (defun c:test2 ()   (modifyangle -30 T)   ) ;将角度设为30度 (defun c:test3 ()   (modifyangle 30 nil)   ) ;将角度设为-30度 (defun c:test4 ()   (modifyangle -30 nil)   )