autolisp如何实现符号旋转

275437962

将CAD中，某层中的所有块的角度都旋转180度！不管原来它们角度是否相同！

llsheng_73

(if(setq m -1 ss(ssget"X"'((0 . "INSERT")(8 . "图层名"))))
  (repeat(sslength ss)
    (entmod(setq m(1+ m)
   e(entget(ssname ss m))
   e(subst'(50 . pi)(assoc 50 e)e)))))

275437962

llsheng_73 发表于 2013-12-22 22:52
(if(setq m -1 ss(ssget"X"'((0 . "INSERT")(8 . "图层名"))))
  (repeat(sslength ss)
    (entmod(setq ...

你好，这段代码怎么执行啊

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

275437962

ZZXXQQ 发表于 2013-12-23 08:00
[/post]

大侠，不是这样子的，也是我没有说清楚，我的意思是，所有块都各自旋转180度，旋转后，它们的方向不应都一样，如原来角度是380的，旋转后变成200；原来角度是60的，旋转后变成240；原来角度是280的，旋转后变成100，诸如此类。。

自贡黄明儒

275437962 发表于 2013-12-23 11:35
大侠，不是这样子的，也是我没有说清楚，我的意思是，所有块都各自旋转180度，旋转后，它们的方向不应都一 ...

你把(entmod (subst (cons 50 180) (assoc 50 ent) ent))
改成(entmod (subst (cons 50 (+ (cdr (assoc 50 ent) pi))) (assoc 50 ent) ent))不就得了？

275437962

自贡黄明儒 发表于 2013-12-23 11:41
你把(entmod (subst (cons 50 180) (assoc 50 ent) ent))
改成(entmod (subst (cons 50 (+ (cdr (asso ...

按你说的改了，不行，没有反应，符号没有变化

自贡黄明儒

275437962 发表于 2013-12-23 12:08
按你说的改了，不行，没有反应，符号没有变化

1. ;块变180度 ZZXXQQ 2013.12.23
   
2. (defun c:w1 (/ EN ENT I LN S1 SS)
   
3.   (if (setq s1 (entsel "\n单选图块: "))
   
4.     (progn
   
5.       (setq en (car s1)
   
6.             ln (assoc 8 (entget en))
   
7.       )
   
8.       (if (and (princ "\n选择图块: ")
   
9.                (setq ss (ssget (list '(0 . "INSERT") ln)))
   
10.           )
    
11.         (progn
    
12.           (setq i -1)
    
13.           (repeat (sslength ss)
    
14.             (setq ent (entget (ssname ss (setq i (1+ i)))))
    
15.             (entmod
    
16.               (subst (cons 50 (+ (cdr (assoc 50 ent)) pi)) (assoc 50 ent) ent)
    
17.             )
    
18.           )
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

;块变180度 ZZXXQQ 2013.12.23<br /> (defun c:w1 (/ EN ENT I LN S1 SS)<br />   (if (setq s1 (entsel "\n单选图块: "))<br />     (progn<br />       (setq en (car s1)<br />             ln (assoc 8 (entget en))<br />       )<br />       (if (and (princ "\n选择图块: ")<br />                (setq ss (ssget (list '(0 . "INSERT") ln)))<br />           )<br />         (progn<br />           (setq i -1)<br />           (repeat (sslength ss)<br />             (setq ent (entget (ssname ss (setq i (1+ i)))))<br />             (entmod<br />               (subst (cons 50 (+ (cdr (assoc 50 ent)) pi)) (assoc 50 ent) ent)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

自贡黄明儒

275437962 发表于 2013-12-23 12:08
按你说的改了，不行，没有反应，符号没有变化

2. 
   
3. ;;块旋转180 这个要好些，可用于带属性的块 自贡黄明儒2013年12月23日
   
4. (defun c:w1 (/ E EN I LN P10 S1 SS)
   
5.   (if (setq s1 (entsel "\n单选图块: "))
   
6.     (progn
   
7.       (setq ln (assoc 8 (entget (car s1))))
   
8.       (princ "\n选择图块: ")
   
9.       (if (setq ss (ssget (list '(0 . "INSERT") ln)))
   
10.         (repeat        (setq i (sslength ss))
    
11.           (setq e (ssname ss (setq i (1- i))))
    
12.           (setq p10 (vlax-3d-point (cdr (assoc 10 (entget e)))))
    
13.           (vla-rotate (vlax-ename->vla-object e) p10 pi)
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

<br /> ;;块旋转180 这个要好些，可用于带属性的块 自贡黄明儒2013年12月23日<br /> (defun c:w1 (/ E EN I LN P10 S1 SS)<br />   (if (setq s1 (entsel "\n单选图块: "))<br />     (progn<br />       (setq ln (assoc 8 (entget (car s1))))<br />       (princ "\n选择图块: ")<br />       (if (setq ss (ssget (list '(0 . "INSERT") ln)))<br />         (repeat        (setq i (sslength ss))<br />           (setq e (ssname ss (setq i (1- i))))<br />           (setq p10 (vlax-3d-point (cdr (assoc 10 (entget e)))))<br />           (vla-rotate (vlax-ename->vla-object e) p10 pi)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

275437962

自贡黄明儒 发表于 2013-12-23 13:30

谢谢了，很好用，麻烦你了！！！