批量操作块，以插入点位基点，旋转或镜像

a117034423

1. (defun c:xzt (/ ss1 n ty1 ptn en kwb cmm kwa na)
   
2.   (setvar "osmode" 0)
   
3.   (prompt "\n请选择需要旋转或镜像的块")
   
4.   (setq na (car (entsel)))
   
5.   (redraw na 3)
   
6.   (setq en (vlax-get-property (vlax-ename->vla-object na) "EffectiveName"))
   
7.   (prompt "\n请请定义修改范围")
   
8.   (setq ss1 (ssget
   
9.         (list '(-4 . "<and")
   
10.         '(0 . "INSERT")
    
11.         (cons 2 en)
    
12.         '(-4 . "and>")
    
13.         ))
    
14.   n 0
    
15.   )
    
16.   (redraw na 4)
    
17.   (initget "A a B b")
    
18.   (setq kwa (getkword "\n请选择操作模式 : <A:批量镜像>/<B:批量旋转>"))
    
19.   (if (= kwa "B")
    
20.   (setq cmm (getint "\n请输入旋转角度，逆时针为正 :"))
    
21.   (progn
    
22.     (initget "A a B b")
    
23.     (setq kwb (getkword "\n请选择操作模式 : <A:上下镜像>/<B:左右镜像>"))
    
24.     )
    
25.     )
    
26.   (repeat (sslength ss1)
    
27.     (setq ty (ssname ss1 n)
    
28.           ptn (cdr (assoc 10 (entget ty)))
    
29.     n (1+ n)
    
30.     )
    
31.     (if (= en (vlax-get-property (vlax-ename->vla-object ty) "EffectiveName"))
    
32.     (if (= kwa "B")
    
33.     (vla-Rotate (vlax-ename->vla-object ty) (vlax-3d-point ptn) (/ (* cmm pi) 180))
    
34.     (progn
    
35.     (vla-mirror (vlax-ename->vla-object ty) (vlax-3d-point ptn) (if (= kwb "B")
    
36.                   (vlax-3d-point (list (car ptn) (+ (cadr ptn) 1000)))
    
37.                   (vlax-3d-point (list (+ (car ptn) 1000) (cadr ptn)))
    
38.                   ))
    
39.     (vla-delete (vlax-ename->vla-object ty))
    
40.     )
    
41.     )
    
42.   )
    
43.     )
    
44.   (setvar "osmode" 4863)
    
45.   (princ)
    
46.   )

(defun c:xzt (/ ss1 n ty1 ptn en kwb cmm kwa na)<br />   (setvar "osmode" 0)<br />   (prompt "\n请选择需要旋转或镜像的块")<br />   (setq na (car (entsel)))<br />   (redraw na 3)<br />   (setq en (vlax-get-property (vlax-ename->vla-object na) "EffectiveName"))<br />   (prompt "\n请请定义修改范围")<br />   (setq ss1 (ssget<br />         (list '(-4 . "<and")<br />         '(0 . "INSERT")<br />         (cons 2 en)<br />         '(-4 . "and>")<br />         ))<br />   n 0<br />   )<br />   (redraw na 4)<br />   (initget "A a B b")<br />   (setq kwa (getkword "\n请选择操作模式 : <A:批量镜像>/<B:批量旋转>"))<br />   (if (= kwa "B")<br />   (setq cmm (getint "\n请输入旋转角度，逆时针为正 :"))<br />   (progn<br />     (initget "A a B b")<br />     (setq kwb (getkword "\n请选择操作模式 : <A:上下镜像>/<B:左右镜像>"))<br />     )<br />     )<br />   (repeat (sslength ss1)<br />     (setq ty (ssname ss1 n)<br />           ptn (cdr (assoc 10 (entget ty)))<br />     n (1+ n)<br />     )<br />     (if (= en (vlax-get-property (vlax-ename->vla-object ty) "EffectiveName"))<br />     (if (= kwa "B")<br />     (vla-Rotate (vlax-ename->vla-object ty) (vlax-3d-point ptn) (/ (* cmm pi) 180))<br />     (progn<br />     (vla-mirror (vlax-ename->vla-object ty) (vlax-3d-point ptn) (if (= kwb "B")<br />                   (vlax-3d-point (list (car ptn) (+ (cadr ptn) 1000)))<br />                   (vlax-3d-point (list (+ (car ptn) 1000) (cadr ptn)))<br />                   ))<br />     (vla-delete (vlax-ename->vla-object ty))<br />     )<br />     )<br />   )<br />     )<br />   (setvar "osmode" 4863)<br />   (princ)<br />   )

谢谢marting 和 Lisphk 解惑

yangjian001

做一个热心并受欢迎的人！

huangpc27

好代码，谢谢分享了。

kmliro_2017

谢谢分享！！！！！

a117034423

好东西啊  谢谢分享啦

Herealone

做一个热心并受欢迎的人！