[LISP函数]：将选择块旋转180度的lisp源码

vvv

将选择块旋转180度的lisp源码

2. [font=courier]
   
3. ;;将选择块旋转180度
   
4. (defun c:rot( / ss ssl n en ed pt os)
   
5. (setvar "cmdecho" 0)
   
6. (setq os (getvar "osmode"))
   
7. (setvar "osmode" 0)
   
8. (if  (setq ss (ssget (list '(0 . "INSERT"))))
   
9.    (progn (setq ssl (sslength ss) n 0)
   
10.      (repeat ssl
    
11.        (setq en (ssname ss n) ed (entget en))
    
12.        (setq pt (cdr (assoc 10 ed)))(setq pt (trans pt en 1))
    
13.        (command "rotate" en "" pt "180")
    
14.        (setq n (1+ n))
    
15.     );;end repeat
    
16.     (princ "\n All Selected Block have Rotated 180d!")
    
17.    );;end progn
    
18. );;end if
    
19. (setvar "osmode" os)
    
20. (princ)
    
21. )
    
22. [/font]
    

[font=courier]<br /> ;;将选择块旋转180度<br /> (defun c:rot( / ss ssl n en ed pt os)<br /> (setvar "cmdecho" 0)<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> (if  (setq ss (ssget (list '(0 . "INSERT"))))<br />    (progn (setq ssl (sslength ss) n 0)<br />      (repeat ssl<br />        (setq en (ssname ss n) ed (entget en))<br />        (setq pt (cdr (assoc 10 ed)))(setq pt (trans pt en 1))<br />        (command "rotate" en "" pt "180")<br />        (setq n (1+ n))<br />     );;end repeat<br />     (princ "\n All Selected Block have Rotated 180d!")<br />    );;end progn<br /> );;end if<br /> (setvar "osmode" os)<br /> (princ)<br /> )<br /> [/font]<br />

lsjjm

用Vlisp编程:
(defun c:test ( / ss)
  (vl-load-com)
  (prompt "\nSelect Block: ")
  (setq ss (ssget) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-rotation obj pi)
    (setq n (1+ n))
  )
)

xyz

有必要这么麻烦吗？
(defun c:180 () (command "rotate"pause"""@""180"))
然后Enter 180 ,选择你的block 即可!

e2002

2楼 : 你的程序不是rotate一个角度而是直接设BlockReference对象的旋转角度是180度了,
            注意打开对象后要用lax-release-object释放对象.
3楼 : 你这是一个一个修改,效率低,所以要编程序解决

前生

二楼的有问题.
(defun c:rot( / ss ssl n en ed pt os)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(if  (setq ss (ssget (list '(0 . "INSERT"))))
   (progn (setq ssl (sslength ss) n 0)
     (repeat ssl
       (setq en (ssname ss n) ed (entget en))
;;;       (setq pt (cdr (assoc 10 ed)))(setq pt (trans pt en 1))
;;;       (command "rotate" en "" pt "180")
       (setq ang (cdr (assoc 50 ed)))
       (setq ang (+ ang pi))
       (setq ed (subst (cons 50 ang)(assoc 50 ed) ed))
       (entmod ed)
;;       (command "rotate" en "" pt "180")

       (setq n (1+ n))
    );;end repeat
    (princ "\n All Selected Block have Rotated 180d!")
   );;end progn
);;end if
(setvar "osmode" os)
(princ)
)

lsjjm

将(vla-put-rotation obj pi) 改成(vla-rotate b (vla-get-insertionpoint b)  pi) 即可!
另:5楼, 你的程序我试了一下, 好象对带属性的块不行?

dengxuechen

很不错的方法