Sub gettext()
  Dim sset As AcadSelectionSet  '声明定义选择集
  Dim ent As AcadEntity         '声明实体

  



阅读全文……

Dim adText As AcadText 
    Dim adSS As AcadSelectionSet 
    Dim fType(0 To 1) As Integer, fData(0 To 1) 
    Dim i As Integer 
        If lstFile.ListCount = 0 Then 



阅读全文……

在CAD VBA中，可以使用AddLightWeightPolyline(VerticesList) 函数画2D多线段。其中

参数VerticesList必须是预先定义的一个数组，数组的元素个数为2的倍数，其含义为：

[x0,y0,x1,y1,...,xn-1,yn-1](n为顶点个数)。



阅读全文……

CAD大字体什么意思？何谓形文件？详细讲解CAD的字体文件分类

当用AutoCAD或浩辰CAD打开其他设计人员发过来的图纸时，经常会提示找不到相应的字体而弹出一个替换字体的对话框，如下图所示





阅读全文……

首先得声明一下：这段代码基本上是"借"来的。只是做了些修改。这段代码的作用是计算选定区域的面积，运行效果如下面的图，用了比较多的SendCommand，不太可取，不过也无大碍，管用就行。另外，有多次对Auto-CAD环境变量的操作，GetVariable/SetVariable，至于各环境变量有什么用，可以查看CAD帮助文档。 
         修正Bug：重设ObjectSnapMode之后，原来的捕捉设置会丢失，必须得修改OSMODE环境变量的值才行。
[程序代码]       －－By :忽又一天 Email:wzw.icy@gmail.com QQ：365052003
Public Sub XArea() '选择一点，计算围绕该点的对象围成的面积
On Error GoTo ErrorHandler



阅读全文……

在CAD VBA就这么简单，可以计算出文字数字的和，单行文字框就去掉中间的“M”即可
'CAD图中所有选中的文字数字自动求和
Dim oEnt As Object
Dim mm As Double
mm = 0



阅读全文……

珊瑚绒会是真正的珊瑚的绒毛吗？

     这个我们应该很清楚的告诉你:珊瑚绒是一种新型面料。由于纤维间密度较高，呈珊瑚状，覆盖性好，犹如活珊瑚般轻软的体态，色彩斑斓，故称之为珊瑚绒。

珊瑚绒的面料有什么特点

   
     质地细腻，手感柔软,不掉毛，不起球。不掉色。吸水性能出色，是全棉产品的三倍。对皮肤无任何刺激，不过敏。外形美观，颜色丰富。是国外刚刚兴起的棉质浴袍替代产品。

珊瑚绒的优缺点都有哪些

   
优点： 　　珊瑚绒采用进口DTY超细纤维为原料制造生产.与其它纺织品相比，其优点特别明显:包括起来是手感柔软，细腻，不掉毛，易染色。 　　手感柔软：单丝纤度细，弯曲模量小，因而其织物具有杰出的柔软性。 　　覆盖性好：由于纤维间密度较高，比表面积大，因而覆盖性好。 　　服用性好：由于纤维有较大的比表面积，因而有较高的芯吸效应和透气性，穿着舒适去污性好：由于纤维织物柔顺，能与被擦拭对象紧密贴合，因而有很好的清洁效果. 　　光学性：由于纤维比表面积大，纤维集合体表面的光反射就差，因此，这种纤维制得的织物，色泽淡雅、柔和。 　　缺点： 　　易起静电，如果面料质量不过关易掉毛，建议穿着前先过水洗一遍．(冬天皮肤干燥,穿着前可擦润肤霜,或洗涤时使用除静电洗涤液)，因要掉浮毛，建议皮肤易过敏者和哮喘者应避免穿着该面料．

相关链接：珊瑚绒棉被

阅读全文……

-----------QQ挠挠:-------------
   简介:该软件是一款基于聊天工具的[动作增强器]

        具有比QQ动一下更丰富的语言调侃表情动作


相关链接：vb | 软件 | QQ挠挠 | QQ动作 | 增强器

阅读全文……