[求助]：仅选块(含属性)或标注,让其左右镜像或内外镜像

eachy

最初由 e2002 发布
[B]

是啊,这是一个问题
前几天建筑的找到我,问我有没有办法解决,我想了一下,没找到方法,再说自己也... [/B]

这样是否可行，先得到要镜像的线，分解－》镜像－》再作新块。

陌生人

最初由 eachy 发布
[B]写了个简单的块镜像程序（没有错误处理和变量保存等）。尺寸上下镜像麻烦些，有长短腿情况。
[code]
(defun c:test (/ blk inspt ang key obj ptm)
  (setq e (entsel "\n选择属性块: "))
  (initget 128 "L T")...      (vl-cmdf ".mirror" e "" inspt ptm "y")
...[/B]

他在1贴说块的定义点是在边上，不是中间，所以这样镜像就不在原来位置了

eachy

个人认为，这种和块相关的必须和特定块定义联系起来才会使编程简单化，程序也更有针对性。获取块内所有实体的顺序是和生成（绘制）块时的顺序一致的，这样针对块的操作可以直接用 nth 找到子实体进行各种操作。

ydf7332462

eachy12F的用了:
1>单个块可以,但不能批量;dim不能上下镜像;text上下镜像不能循环,如线上镜像到线下,再次镜像不能返回线上

aeo

最初由 ydf7332462 发布
[B]eachy12F的用了:
1>单个块可以,但不能批量;dim不能上下镜像;text上下镜像不能循环,如线上镜像到线下,再次镜像不能返回线上 [/B]

他写的是适用于块

用这个:
--对文字,如果mirrtext为0,永远向一个方向,因为它自动变过去了
但mirrtext=1时就对了.
--对dim,左右就不一定合我们心意了.
--对直线,假定他的方向为0度.
--对块,就是插入方向.

2. 
   
3. (defun c:aeo( /  ang e en e-ob mirr p1 p2 os)
   
4. (initget "A B")
   
5. (setq mirr(getkword(strcat "\n A:上下,B:左右"(if $mirr-aeo "【上下】" "【左右】"))))
   
6. (cond((= mirr "A")(setq $mirr-aeo t))((= mirr "B")(setq $mirr-aeo nil)))
   
7. (while(setq e(car(entsel)))
   
8.        (setq en(entget e)
   
9.              e-ob(cdr(assoc 0 en))
   
10.        )
    
11.       (cond( (and(= e-ob "DIMENSION")(= 1(logand 1(cdr(assoc 70 en)))))
    
12.              (setq p1(cdr(assoc 13 en)) p2(cdr(assoc 14 en))
    
13.                    ang(angle p1 p2)
    
14.              )
    
15.            )
    
16.            ( (and(= e-ob "DIMENSION")(= 0(logand 1(cdr(assoc 70 en)))))
    
17.              (setq p1(cdr(assoc 13 en))ang(cdr(assoc 50 en)))
    
18.            )
    
19.            (t(setq p1(cdr(assoc 10 en))ang(cdr(assoc 50 en)))
    
20.              (if(not ang)(setq ang 0))
    
21.            )
    
22.      )
    
23.     (setq os(getvar"osmode"))(setvar"osmode" 0)
    
24.     (command".mirror"e "" p1(polar p1(if $mirr-aeo ang(+ ang(* pi 0.5)))1000) "y")
    
25.     (setvar "osmode" os)
    
26.   )
    
27. (princ)
    
28. )
    

<br /> (defun c:aeo( /  ang e en e-ob mirr p1 p2 os)<br /> (initget "A B")<br /> (setq mirr(getkword(strcat "\n A:上下,B:左右"(if $mirr-aeo "【上下】" "【左右】"))))<br /> (cond((= mirr "A")(setq $mirr-aeo t))((= mirr "B")(setq $mirr-aeo nil)))<br /> (while(setq e(car(entsel)))<br />        (setq en(entget e)<br />              e-ob(cdr(assoc 0 en)) <br />        )<br />       (cond( (and(= e-ob "DIMENSION")(= 1(logand 1(cdr(assoc 70 en)))))<br />              (setq p1(cdr(assoc 13 en)) p2(cdr(assoc 14 en))<br />                    ang(angle p1 p2)<br />              )<br />            )<br />            ( (and(= e-ob "DIMENSION")(= 0(logand 1(cdr(assoc 70 en)))))<br />              (setq p1(cdr(assoc 13 en))ang(cdr(assoc 50 en)))<br />            )<br />            (t(setq p1(cdr(assoc 10 en))ang(cdr(assoc 50 en)))<br />              (if(not ang)(setq ang 0))<br />            )<br />      )<br />     (setq os(getvar"osmode"))(setvar"osmode" 0)<br />     (command".mirror"e "" p1(polar p1(if $mirr-aeo ang(+ ang(* pi 0.5)))1000) "y")<br />     (setvar "osmode" os)<br />   )<br /> (princ)<br /> )<br />

陌生人

有点意思，有没有演示啊？

ydf7332462

1>10F,方案是否可按需不显部分或全部属性,text也有好几步,尤其不水平.当然熟能生巧,习惯成自然,异型窗更是了.
2>13F 15F块内文字宜用属性,否则块比改变时,文字难读;不变文字可用常量属性.
3>eachy16F+18F,我觉可以:插入比绝对值同,属性值同,块名前部分也要同:左开-a,右开-b;
4>aeo20F待试;"--对文字但mirrtext=1..."不知可读否--试用后，好！谢了各位