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

ydf7332462

仅选块(含属性)或标注,让其左右镜像或内外镜像
块或标注的插入点在实体的边(line arc pline...)上,
仅选块(含属性)或标注,不选其它
让其左右镜像或内外镜像

lsjjm

编程不难, 可你给出的条件不够: 若干个对象, 哪个左镜像?哪个右镜像？

ydf7332462

左右镜像:块在实体边的同一侧mirror,对称线为块的ins垂直于实体边的线.象门点取一下开左边,再点取开右边边,象开关.循环往复

lsjjm

不好意思, 建筑是外行.
不过, 把门的左下角点作插入点(班门弄斧呀) 依点击左右边的点到插入点的距离和方位来区别左右镜象还倒可以, 可要是插入点在别处呢? 一个人有一个人的做法和习惯. 有普遍性吗?

陌生人

还不如用块替换

ydf7332462

块替换不是一回事,有时也是一种镜像的方法,请允稍后再说
谢lsjjm ,请看附件是否说清

aeo

最初由 ydf7332462 发布
[B]左右镜像:块在实体边的同一侧mirror,对称线为块的ins垂直于实体边的线.象门点取一下开左边,再点取开右边边,象开关.循环往复 [/B]

天正的门窗镜像不是根据它旁边的实体来的，是它自己的插入方向.

对标注，左右镜像好像没意义.
只要求出自身角度，很好办的.

hgqhq

ydf7332462提供的附件是什么类型的文件？

ydf7332462

赞同aeo:对纯标注，左右镜像好像没意义;用块属性间接标注有用的
hgqhq:附件为rar(zip)解压后bmp+dwg说明而用

cy956

涉及到实体的定义规则。其实我觉得用属性作门窗名称不是一个好办法，
因为对于一个1200宽度的门窗块，它可以是C-1215也可以是C-1218，
可以是M-1221也可以是M－1224，更何况还有门连窗，有角窗，有落地
和不落地的飘窗，有平面的异形和立面的异形，立面上还有各种门窗楣
形式，有不同的材料如胶合板铝合金塑钢等等。用archt的作法是一一
对应，但一来恐怕不敷使用，二来在方案阶段就要定义门窗，各位未必
有兴趣。我目前的门窗型号还是用text，因为建筑立面上通常宽度对齐高度
调整，用一些小程序每层拷拷改改，最后自动列表统计出门窗表也就是了。
以前在001时讨论过，dx们觉得老土了。用text是土，不过我觉得用属性是
用一种土代替另一种土，还是够土。^_^

就是用自定义实体，恐怕也无法解决上面的异形问题。

陌生人

文字可以合并到块成为属性，属性也可以从块中独立出来，这些转换没有问题。原则上两者差不多，不过我还是觉得用属性更科学，但是可以变通一下，不一定用一个属性.

eachy

写了个简单的块镜像程序（没有错误处理和变量保存等）。尺寸上下镜像麻烦些，有长短腿情况。

2. 
   
3. (defun c:test (/ blk inspt ang key obj ptm)
   
4.   (setq e (entsel "\n选择属性块: "))
   
5.   (initget 128 "L T")
   
6.   (setq key (getkword "\n[左右镜像 - L / 上下镜像 - T]<T>: "))
   
7.   (if (or (= key "") (null key))
   
8.     (setq key "T")
   
9.   )
   
10.   (if e
    
11.     (progn
    
12.       (setq obj          (vlax-ename->vla-object (car e))
    
13.             ang          (vla-get-rotation obj)
    
14.             inspt (safearray-value
    
15.                     (variant-value (vla-get-insertionpoint obj))
    
16.                   )
    
17.       )
    
18.       (setvar "osmode" 0)
    
19.       (setvar "mirrtext" 0)
    
20.       (if (= key "L")
    
21.         (setq ptm (polar inspt (+ ang (/ pi 2)) 1.))
    
22.         (setq ptm (polar inspt ang 1.))
    
23.       )
    
24.       (vl-cmdf ".mirror" e "" inspt ptm "y")
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

<br /> (defun c:test (/ blk inspt ang key obj ptm)<br />   (setq e (entsel "\n选择属性块: "))<br />   (initget 128 "L T")<br />   (setq key (getkword "\n[左右镜像 - L / 上下镜像 - T]<T>: "))<br />   (if (or (= key "") (null key))<br />     (setq key "T")<br />   )<br />   (if e<br />     (progn<br />       (setq obj          (vlax-ename->vla-object (car e))<br />             ang          (vla-get-rotation obj)<br />             inspt (safearray-value<br />                     (variant-value (vla-get-insertionpoint obj))<br />                   )<br />       )<br />       (setvar "osmode" 0)<br />       (setvar "mirrtext" 0)<br />       (if (= key "L")<br />         (setq ptm (polar inspt (+ ang (/ pi 2)) 1.))<br />         (setq ptm (polar inspt ang 1.))<br />       )<br />       (vl-cmdf ".mirror" e "" inspt ptm "y")<br />     )<br />   )<br />   (princ)<br /> )<br />

陌生人

(setvar "mirrtext" 0)
这个似乎对块内文字不起作用吧？问问

eachy

最初由 陌生人 发布
[B](setvar "mirrtext" 0)
这个似乎对块内文字不起作用吧？问问 [/B]

说的是属性。

e2002

最初由 陌生人 发布
[B](setvar "mirrtext" 0)
这个似乎对块内文字不起作用吧？问问 [/B]

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


那位大虾看看能否解决?