GRREAD的 充分运用--刻度尺的原理介绍 [测试 建 筑 之 门]

dandee

看到有人提供绘制门程序，我也来提供一个原创的  动 态显示的建筑门，命令为sd ,取意 smart door
请 在附件的 test.dwg (里面有个平面图 ) 里测试 .(如果不用test,dwg,本程序会看不出效果 )
                       dr.dcl文件请放入acad所支持的目录

本程序使用说明 >分 成 两 步  

第一步 选择门宽后 ，自动生成平面60度开启门，  
利用grread函数， 可以动态移动门， 并且在移动的 同时 按鼠标右键可以循环切换门的 3个 插入点(左，中，右 )
在移动门的同时 寻找墙线， 当门 接触 墙线时 ， 门会自动rotate角度和墙线平行 ， 并且会夹在两墙线之间，这时门会象吸铁石那样附在墙线移动，不管鼠标已经离开墙线。 (当鼠标离开墙线的距离够远时，门又会离开墙，跟随鼠标)      
门在墙线上 滑行时会出现一段标尺 ，标尺刻度值因移动而变化， 可以按右键调整插入点，和 标尺刻度定位 ， 定位 是按鼠标左键确定。 门会定位在你想要的位置

第二步， 门在墙上的位置定下来后，再继续按鼠标右键 ， 门的4个方向的开启方式循环出现， 仍然按鼠标左键为最后确定。 这样门在墙上完成 ， 并且墙线自动被切除.

请使用带中键滚轮的鼠标， 这样无论何时都可以放大缩小视窗
由于本程序是我为自己的公司编制的，有很多的局限性 (如门的单位是英制， 墙线只支持
b-inner,只符合ontario building code)

不过作为建筑之门， 在建筑制图中省去了很多麻烦步骤。 本程序， 可以为大家编程起到 抛砖引玉的作用，   提供一些思路 (比如 让门自动和墙平行， 自动粘在墙上， 块在程序中应 用---插入点的改变---块里单体的改变--块里数字的改变--属性块的构造等) 各位兄弟姐妹多玩玩这个程序你会发现很多东西。

狂刀

试用感觉不错，有创意．支持一下

dandee

给点建议和意见

cy956

在原来的得赛lt中，第二步，是出现4个方向的门，你选其中一个，确定方向；
或者更简单是按门方向的四个象限，任意点一下即可。

它山之石

确有创意。支持一下。
既然让大家多玩玩嘛，至少要给出一些程序片断吧。
另，楼主应该还有建筑之窗等等吧。

dandee

对 ， 我自己还编制了建筑用的一系列的建筑构件 (如 建筑之窗平面， 窗立面casement，  建筑楼梯立面， 侧面porch,平面closet, 斜屋顶立面，  还有为加快尺寸标注的线标注， 多级标注， 平面内标注 等)
由于这些小程序是平时编编玩玩， 目的为极速提高自己的制图效率， 编程时只利用自己office里的 制图设置的特征。  所以通用性不强。

这次推出smart door,主要看各位是否感兴趣， 是否值得。  如果大家热烈支持的话 ， 我将会扩展其通用性 和继续提升其功能性 ， 令它象dimension设置那样  ， 使sd 可以自由设置门线的层，颜色， 并且可以自己设置墙线的层 让门认识自己设置的墙线  ，增加90度开启方式 ， 增加双开门和 slide door，   这样 ，各位可以真正的使用 。

zxcvbnm-cad

楼主
能把建筑之窗也传上和大家分享一下
另能不能把英寸改为毫米
谢谢

xyz518mm

请问 dandee 楼主您程序中的尺度线
是怎样做出来的呢?
烦请解答一下
谢谢

dandee

刻度尺是个独立的无名块，它由单线和数字组成，当鼠标不停变换时，其数字也可以做到不停变化，其实就是不停的修改块。
那扇门也是个无名块，门的标号也是个带属性的块

其实整个程序就是不停的对块进行修改
不停修改块的位置点，形成动态移动的状态
门--自由修改块的6个不同的插入点，并且在第二步中可以自由修改块里面线条的位置
刻度尺--不停修改块里面的数字

zxmmelly

那个刻度尺很有创意，能否讲讲你程序的思路啊!

dandee

其实很简单
1；依附在墙线上移动的刻度尺--->
当移动鼠标用ssget触角感知有墙线时，墙线(为单线)的两端点和角度可以获得，
也可以知道鼠标点的位置(grread的功能)，并且可以获知鼠标点在墙线上最近点(vlax-curve-getClosestPointTo这个函数可以轻易做到)，这个最近点就是刻度尺的中心点，刻度尺的角度也就可以设置为墙线的角度。
这样移动鼠标时,始终可以获得在在墙线上的最近点，,刻度尺就会一直依附在墙线上移动了

2；刻度尺的刻度的移动和数值变化
刻度尺是刻度线和数值构成的无名块，中心点左右各有6个刻度，并且块的插入点就是中心点。
前面已经提到，当获知墙线后，可以知道墙线的两端点，刻度尺的中心点(也就是鼠标在墙线的最近点p)在鼠标的移动中可以不间断的获得。刻度尺的中心点离墙线端点的距离可以不间断的计算出来，其数值就是刻度尺的中心点的数值(不断改变块里的数值)，
这样可以做个判断，当尺中心点移动超过6个刻度，块(当然是刻度尺构成的块)的插入点也就修改一下,，为当前的p点£¬并且，还要对p点做点修改，p点对墙线一端点的距离取整数处理

如此这般，你就可以看到刻度尺在鼠标移动下，轨距工作

carrot1983

这个好玩哟。。。
占个位子学习一下

xyp1964

思路确实不错，不过对话框太简单，应该增加墙厚设置、打断墙线的功能。

露水2

好东西 有创意

xyp1964

模拟一个：