将多个多义线绕中点旋转90度的问题

spring

TO : alwaysbin 对了,你用的是 R14 是吧.我查过2000的帮助文件有些函数都没有说明2002才有,可能是R14不支持吧. 试试看下面的行不,抄ZZXXQQ的.呵呵 (defun c:aa (/ ss n en ed n@ point-list p1_x p2_x p1-x p1_y p2_y p2-y p1)
(setq ss (ssget
(list (cons 8 "尺寸线及标注符号") (cons 0 "*POLYLINE"))
)
) ;选择图元
(setq n 0)
(while (> (sslength ss) n) ;循环选择的图元
(setq en (ssname ss n))
(setq ed (entget en)) ;图元数据
(if (not (assoc 62 ed))
(progn
(setq n@ 0)
(setq point-list nil)
(while (/= (nth n@ ed) nil)
(if (= (car (nth n@ ed)) 10)
(setq point-list
(append (list (cdr (nth n@ ed))) point-list)
)
)
(setq n@ (1+ n@))
)
;)
;)
(setq p1_x (car (car point-list))) ;第一点 X 轴
(setq p2_x (car (cadr point-list))) ;第二点 X 轴
(if (and (/= p1_x nil)
(/= p2_x nil)
)
(setq p1-x (+ p1_x (/ (- p2_x p1_x) 2.0000))) ;X 中心点
)
(setq p1_y (cadr (car point-list))) ;第一点 Y 轴
(setq p2_y (cadr (cadr point-list))) ;第二点 Y 轴
(if (and (/= p1_y nil)
(/= p2_y nil)
)
(setq p1-y (+ p1_y (/ (- p2_y p1_y) 2.0000))) ;Y 中心点
)
(setq p1 (list p1-x p1-y)) ;中心点
(command "_.ROTATE" en "" P1 90)
)
)
(setq n (1+ n))
)
(princ)
)

alwaysbin

高手啊！！，果然是高手啊，一语惊醒我梦中人啊！！


我用2004试了一下，果然可以达到我的要求了，谢谢上面的两位大侠，佩服，佩服。

Ea

针对你的图纸，还可以这样写

2. (defun c:Rt90 (/ ss ssl oldos e sp ep mp el)
3.    (if (setq ss (ssget      '((8 . "尺寸线及标注符号")
4.                                                                   (0 . "*POLYLINE")
5.                                                                   (90 . 2)
6.                                                                   (-4 . "<not")
7.                                                                   (62 . 2)
8.                                                                   (-4 . "not>")
9.                                                                 )
10.                                            )
11.            )
12.        (progn
13.            (setq ssl     (sslength ss)
14.                              oldos (getvar "osmode")
15.            )           (setvar "osmode" 0)
16.            (while (> ssl 0)
17.                  (setq e   (ssname ss (setq ssl (1- ssl)))
18.                                   el (entget e)
19.                                   sp (cdr (assoc 10 el))
20.                                   ep (cdr (assoc 10 (reverse el)))
21.                                    mp (mapcar '(lambda (x) (/ x 2)) (mapcar '+ sp ep))
22.                    )
23.                    (command ".rotate" e "" mp "90")
24.            )
25.            (setvar "osmode" oldos)
26.        )
27.    )
28.    (princ)
29. )

(defun c:Rt90 (/ ss ssl oldos e sp ep mp el)    (if (setq ss (ssget      '((8 . "尺寸线及标注符号")                                                                   (0 . "*POLYLINE")                                                                   (90 . 2)                                                                   (-4 . "<not")                                                                   (62 . 2)                                                                   (-4 . "not>")                                                                 )                                            )            )        (progn            (setq ssl     (sslength ss)                              oldos (getvar "osmode")            )           (setvar "osmode" 0)            (while (> ssl 0)                  (setq e   (ssname ss (setq ssl (1- ssl)))                                   el (entget e)                                   sp (cdr (assoc 10 el))                                   ep (cdr (assoc 10 (reverse el)))                                    mp (mapcar '(lambda (x) (/ x 2)) (mapcar '+ sp ep))                    )                    (command ".rotate" e "" mp "90")            )            (setvar "osmode" oldos)        )    )    (princ) )

alwaysbin

不错，谢谢。