拉伸实体的高度参数在VB中可以查询和修改吗?
想用VB做一个小软件统计各种管的长度,管的截面有各种各样的,都是通过面域拉伸生成的。编程过程中发现好像“3Dsolid”实体只能查询到“SolidType”属性,ActiveX好像没有提供“拉伸长度”对应的属性,所以就卡在这个环节。请教各位大神在VB中是否有办法查询(更改)这种拉伸形成的实体的拉伸长度?
如果VB中无法实现能不能做一个ARX或者DLL,然后在VB中引用?
附送上CAD中图形的截图。。
忘记说了,目前在用CAD 2019版本 ACAD没做过,MS中做过类似的操作,从mesh三角网构成的模型逆向回原来的模型,只有所有的点坐标,根本就没有什么高度截面等信息。在MS中我是先把这个型材树起来,然后用最小包围圈获得高度。不知道你能不能在ACAD中同样实现。效果供参考:
链接: https://pan.baidu.com/s/17qkCdO_NVyoq1SmLH8iBRg 提取码: cz4d
也是一个方法,但不是很直接,而且不能编辑 我想做一个通过一条线扫掠的一条管道,为什么用RetVal = object.AddExtrudedSolidAlongPath(Profile, Path)
这个方法创建不成功呢?我看了示例,示例也是创建不成功,不知道大哥知道是什么原因吗?
提示如下:
http://data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAATgAAADDCAYAAAAWXQ0EAAAfWElEQVR4Ae2dS7PcxnXHkUUqqco6C+38HVilqrkfhUVXaaHCRhsts6N3WtnDb5BbpcSJEyl+0B6Teli6kiiSIim+SUlXVxR1SepapkVSfmRhOyf1b+A0TmMaM8DMYADM/G8VChigH6f/ffqH0w3MnSRJEtHtj3/8ozx79kx+//vfy29/+1t57rnn5OWXX45uVdeqzleV0+R8uex5n5uUzbTxfqYu1KXvPvDVV1/J119/Lb/73e/k22+/ladPn8p3330nf/jDH8C2RP785z/Ln/70Jwe6J0+eyDfffCMPHz50gBP+UQEqQAV6qgDge3BwIIeHh3J0dCSPHz8WMAyQQ7DmAAe4IXoD7EBARG+gIiIk/lEBKkAF+qoAAPfZZ5/J/fv35dGjRy44wwxUIecBl4dzjoAI97788ks3Ne1rw2gXFaACVACAu3v3rnzxxRdBFIdADZBzgEPkhjmrrsVheooMyMw/KkAFqEBfFQCjbt26JZ9//rmbdWoUp1PVBFNTRG+Yr+r09MGDB25eS8D1tVtpFxWgAlAAjLpx44abpmLWCXZhLQ4PHDBVTQA3RG/69BQXsWAHIhJwdCIqQAX6rAAYde3aNfnkk0/8NBVLbHhQiijOAw5PHXACF7Fgh4U7Aq7PXUvbqAAVAKOuXr0qd+7cCaapGsUlGr3p+hvmsAj1Pv30Uz5Fpf9QASrQawUAuCtXrsjt27dlf3/fsQvTVI3iHOD09RCEdTi+d++eC/n4mkiv+5bGUYGtVwCAu3z5sty8edMFZWAXltgQqOF1tyR/Gc49YADgQD88QcWj11amqPunZCfZkVP7feqbfTm1k32jI50saVer7ZtImqSyrIm1W7hwW1aoZ21jl0lodF24zRX1r7q8imqGchoBFIBU9YdrSFP3D4y6dOmSe9Cg63B4hxdvgmCa6gGnX88C/fBmMOa09QCnzlwFLThPIsnOKXFM62GH75/akaQm2SZpEk3rykAbW22fGYgRD3C2ma/eec0jaWudWrAtTfSsZYdPlPtazb7y2eYeGF0XbHNlFasur7KiYVwAwP7+H/4xCrlZ16paB0ZdvHhRrl+/7oIysAvPEHSa6t+DAzWxKeBwXG+Kmjndzs6O7ETCMufsFnBVlnZ4HmAobM/aUzmGJqkkU1HUnDwra5sZiJEyw3aIVME4knWlp8p2rKxwwAJ+NqX/sjXM1rVZ6evyhWZW9Sl1DGSxc3VsBuAuXLjgnqTqgwZ9XQTrcAmengJmeIKqr4iAgli0awK49BSmnuXpEzp7R06dSosIro7Va04TDsh5DorBkEgAQHeXLre9jUbMHohhO0Tai6Rmt61sx+zU9a+iPbgRofxA//pFVKScrWtFporT8/ynItuWnbZAs8dNZQDgzp8/756k2gcNug63OsBNsoihiIQEJzKw6R7WT8EgA4ZGkFl+dZL8mk5vJUxbjqR8tOiiUQuc6nwYLFr31N7XG8ru8pgRFoCk1L6oTaU0U5q464VdRVVoh23XtF2F/qqhSVNZbg5DP73N6yjbWdK/qKuoI9RTba3WX0TtzNNUaJ6ly5dBrD+5qktl5O0odJt33ehat81RLUvt9EsWqgOMLaUJ+hPX8oAgb4PVOOpLhfSDO1KwVU1Z6zRorYBzQPMdpk5lQAeLAwfKOtt2YtaoLG8IsEhaO10MyrXSzMnnzGswRZ1qg2ln+VqVTeXzwed9OZXm65Uoz7bRDQ47WGw78ymph5RZ93TJZpQb1G/KDM5HdDRJ7SEgV/RpJF/Qplhf29Ly4wBqKNOu+UbKmFdHcB3lxaAesd2ZM0NLD+zc7nkaTtlh1nhd3rydQTkRfQZ4ai2AK0cti67BZXfLzNGcc1uHtMe2o+z5oINK0MC1aFqbLnPGJHD8OvkyMBQD0pYZGGU+mDS2PUgRfK6wKUhTzpNVE79bm4ForNHDECxlOM4rFxGjhUbJrqj+WnO4D+yI5jP6lYEQFuU/BWW6plmI2vI0iz1nj2PXja62b6K2a/6KqLfcnrnlWdtgh+0DXNPPFb5UmDOoI4Ub9va4aSNqRXD41n1sDQ6Z5//ZDiqAcsrexa2jzO1w1FgqE6dsGd4o6wB6MsvrB2uNfOHgidStRZu9Tkt17y/Z9hUn89dQKu7GNo87NoPXXqsRwRWgRuVmwMwsVw0taWfrjuqo+cJ9oGc0n+23Onrr4C6m7dmNWaPZWBn2nD1WW+05lB+J4KK2K/ir+siWq2nzsqPlIb2FmB7DTnsttNv7t54e0D4GtNi5Ok1aP+D8GoM6XwlOdtDkaYu1komcck9iS07iWpo5eTCArcPsn5JT/gUxm39OPmeecdYYXGNKu3bsuKd6wcNj274qm/K8mi+L1uKDILjWFHDQRweu1cqNu53i2kw7tR8zHaf7alqcAHB5H1f2Wx29bTt8ddaerL/tqz6hbvOuo6y8nbb/qvxzlpbl9kTKq9YCdlQArqqPvB7DOJgFslnXqlrXAeDy0L0YCWH0FXS43uH0zqyDyQLKNi1z6mJaremzNBhY/pqtP3dUf02dOS86HJBm6lG54I2M+aAppym1r8qmbABm9u6kqXkCnZeri8zBNTMQrSymHUUbUbbVZ1a52TTd51XtSm3Jpt+qsS07NKas5+yF9aq+Lsp0GqpNxWnzGkxeRgqgx+ybd93oWqvNs7X0fbvoQwb/EjzqKYBX5UtGkt4fon8Asqo/XEOaun9rAFxdU5iOCrSlQA4wH8GX65l3vZyen4eiwFKAq/ce3FCkoJ2bq8A8gM27vrnKbHrLCLhN72G2zy8XRGaxuToE3Ka6CQG3qT3LdlEBKuC+Lz/3mwyx10Sw0McpKj2IClCBPivACK7PvUPbqAAVWEoBAm4p+ZiZClCBPitAwPW5d2gbFaACSymwMOC4BreU7sxMBajAGhRYGHD430rIzD8qQAWoQF8VIOD62jO0iwpQgaUVIOCWlpAFUAEq0FcFCLi+9gztogJUYGkFlgIcX/RdWn8WQAWoQIsKEHAtisuiqQAV6FYBAq5b/Vk7FaACLSqwMOD4HlyLvcKiqQAVWIkCCwOu/u+irsROFkIFqAAVaKwAAddYMmagAlRgKAoQcEPpKdpJBahAYwUWBhzX4BprzQxUgAqsWYGFAcfvoq65p1gdFaACjRUg4BpLxgxUgAoMRQECbig9RTupABVorAAB11gyZqACVGAoChBwQ+kp2kkFqEBjBQi4xpIxAxWgAkNRgIAbSk/RTipABRorUAtweOcN29HRkRweHsrBwYHwNZHGWjMDFaACa1ZgLuAANv3hZxwTcGvuIVZHBajAwgrUApxGcATcwjozIxWgAh0oUAtwGsFxitpBD7FKKkAFFlZgLuCePn3q1t80itMpKj4jM/+oABWgAn1VoBbgGMH1tftoFxWgArMUIOBmqcNrVIAKDFoBAm7Q3UfjqQAVmKUAATdLHV6jAlRg0AoQcIPuPhpPBajALAUIuFnq8BoVoAKDVmDzAffgX0Ww8Y8KUIGtU2DzAbf3PRFs/KMCVGDrFNhswCFyeyvJtjajuEkq6WTrfIcNpgK9V2CzAbf3Pfm/K4nb2o7iJulIxvsiMkmDb37oN0CSJJWAgUgHKkbT52XNcZ/98SgAq7chz1d83pfxyNS/P5bRaCwwV2Qiaf7fYgpbE0n89TlG8PKGKQB/qOd/Q2j45gIuj97+ei8RbC6SazOKAzRqhnEAk4PbPA8pwa9cfAg4A6pRKuko+xdXAbSSREaOwjmIXYETSadgFjsHY1GHAWXEftc2BWbZYNeeeP5JaqEKIFv7TR6jiW+LiFTXa8syAzdSjrNBbc/3to7sZmRsqWp/3u5KmyJ1o6im6e3NcdrOTD89P7dtvi0F4JBH82eX5/e/L6YnB5sLuDx6++v9RLAhkms7iqvTp3DizGmqIGJKmaTewZAvTSuiw9FYJqVoDqVURnCmimYR3DwHn8hYAZpHhtlYzyEzGskoBkjcHAAUD1qkNzDy9k4kVWi6PDls7LFkdWmy6UHqlImX4+vJ03hb59iv+WCHtqHKpuB8ARP0Q1S7qvRNz6uNbj+rH61N5X6YlS+ooDcfNhNwNnrLAddmFKfRxmg8jk/3NCrQUefgk0g6gcPYSMUcY6CUARfMcbM7vhY5GRdR2yhNM2DEyjbRneat7437Mk51ajsvVwgalzoYlJo/H0Tj1ACuxkBCWQqTILI09QZptL7SviJNcSMy6aP2F9cB00JT24bCJhelFYkkDuD56avKqTpfWJn5TRCZmYgySdNwiopr3l7T/06L2E3I1tT98WYCrhS9rSWKMzBCt8LRvF+U+zlwGnMRTmMzWcdLMHjg+MUUqVxH+bMpeepQ02Jfnsbq52AQTJUw50QMBpFzfoCjrQGwCthbO7y9Pm1uh9HKp3c6j4vprslTWY4rzsLJtDNif3E1kidiE+r19um01PY5CjT1VKVver7STleXAZWz2XwObh5FKUM52jzAxaK3NURxWA/xjgunUae15+EV6vR63XqKzZen1TLh0C7L/ljSfBroz+XTMgUT7ri45j/7SK4ajqhuf5xmD0qsTVXHbmAohOyA0DYWdfkiXB5z3gEoD0txbADk87gBViofF11Z+Xkc+7yl6McsmHuYFoWH5eTnnXZV/eOnrbYQHJeWHGbYpH2KXKjLfi6v85Wv62fdqxX6Wffl8/ZzEZHlfRW0FaC2eoc3VS1nKPvNA1xF9NZ6FOdBNu0Q1ukmaSoTOH/gVLm7lM/7MrOBoFl0bQ3l6jmUYD/b46z00K7segaDaRDm4PLQqO/OKDcYQDYr2ucBUVW3AWCeN5z6FQXqedQ5BQkIYwGKbOXP0fIzu6yuvsbAfn9WSwke1lTZVNbHQrd8DQWXz2n6puczI6fbVi4nW5Ml4Pr5ozOzore2o7gcRs5hfMSUgQKDT6HkHK0MsnyIuKjEjiwMSFOWvaTOb8+hbv0cs8O+qpKlNQvbzqa0WHxXm5rsUcYsKM4ChI3gTJQaRGr2fUNXVj4Qbd48mnXAK9WncADoVKeg/ExUA+FS40vlhVdLU9RaNploCWXHtAvqLKX3N4sa56va5sovgJb5TfE5A970TSdse38/bVYENyd6ay2Kc04CmFnHmNHpSO9HmElXPl8RwWkOCzScU2jhSWP5mriBXzhq4MgOpPm1YGBqTTX3rhydthZw97mdToUN/jwOSvUCRgp3K1Wd88FU19pkCqoqp2xHYOMs+10T7EMGNKlog7Up0z675k2yduY3NY1Ko+k1usvT+nJmnK9qmy1/9kMGo4bToqa/m2zrPtwcwFVEbzpIFG5uv+L34ty0Ez3nOt04tYm+nB3qhUinxyWHVKeudgQ7tQsdLBtQGUACp/V2FHDJIkrc+ZPpKaW2IxZRVBvGK6V+3QRBgpnHABu0OYCriN6igOvRe3ED9BmaPEMBd2MxN68ZSXt/CTfM+TfcfjdjMwBXEb0hWqsCXJvvxfW7y2kdFdgeBTYDcBXR20zAMYrbHi9nS7dWgeEDbkb0Ng9wjOK21u/Z8C1RYPiAmxG9zQUco7gtcXM2c1sVGDbg5kRvdQDHKG5bXZ/t3gYFhg24OdFbLcAxitsGP2cbt1SB4QKuRvRWF3CM4rbU+9nsjVdguICrEb3VBhyjuI13dDZwOxUYJuBqRm9NAMcobjsHAFu92QoME3A1o7dGgGMUt9meztZtpQLDA1yD6A2Aa7St+DuqW+lRbDQV6JECwwNcg+itEdxyGPbltxt65CM0hQoMVoFhAW6B6K3yu6hV0R2juME6Mw2nAmUFhgW4BaK3xoDjWlzZR/iZCgxWgeEAboHobZEpqsvDKG6wDk3DqYBVYDiAWyB6WxhwjOKsj/CYCgxWgWEADtHb2UT+djuRv91d03Y7cXUK6uYfFaACg1RgGIDb+14Gm7M5dNa5R938owJUYJAKDANwg5SWRlMBKtC1AgRc1z3A+qkAFWhNgaUA99xzz7VmGAuuVqAPv3TUBxuqFeIVKpApQMCt0BPwi0pTP6g096fk8DOAxc/5WXPs72qOxhMZj4of0dH3+4JfkTe/o4pyCnvidVhI+Z8+tAbguPx7ne6nBCfBr7iXs/AzFeiLAgTcKnqiDAH/O6QhkOI/wRaHT2EWfrs0BKAHUxmeCjj9XdOYHfpbp0ijx45jYR2+fi3TncjBFmvvFNl9CTygAp0psDDgEEEgM/8KBYqIqTjnfgzaDH73u5kx8JTPuTwGbjGoaJ5RKmkQ3WWwKuyZhqiNDn00qOW5fQ68HHAZVDPAjfGL7dqmMmRN03lIBbpWgIBbYQ9UwkthEKlL88SiO70GANnrVREc0mu6OMBGMt7Pp50mehOZBqA3dQpwqaRjAHUsKApTWK3T5+EBFeiJAksBjg8Zwl4EYKZYNivCcXDA2loq41heLd6lG0saRFj59FdBI4j2dEo8ktEoh5mW4Vg0fS673ARwAFuRPtpmUycPqUCXCiwFOE5Rs66LR0sKG7P3MMqjKEfDAhYoxwJSP5ch4iM44zkuTVpEU3GbMsDFrxk7FZQwZiqCyyK3/XEq433YXgVNYxwPqUBHCswFHKZHT548kcePH8vR0ZEcHh6KrtkQcGGvARzZdK2AFsBTnsI5wHiSFWlRWnAN627pRNwTzhlrcI5D47Hsx6aLsXOh2RnEEEW6OWfposufRZkTRIkKafeQYiQj345SPn6kAj1QYC7gnj59OgW4g4MDuX37Nh8y5B2oEVGaph7+ehNIkpGk6Sg772CVRWkAX5GmiJ6yoEkX8QE/PS68JRbBuasKsxkwTBRQWhxA5Z7ShqDVy26vMAvyZlNi8i1Qih96pgAB10qHzIDFVH2z0uaAq3rIUC5LAafnc3iN3XRSTxZ7B+YItMKIM7PBgcyBbiz7rlxMTc21olgeUYHeKEDAraQr7AJ/EY2FEVrVWlU14ACgLEIqQBeWmdelYVQOOI0oi2jN5B+Nxb3mkWjZ0wL46DKPOAPgIToMoFiaVk8XxzNUoDMFCLjOpGfFVIAKtK0AAde2wiyfClCBzhQg4DqTnhVTASrQtgIEXNsKs3wqQAU6U4CA60x6VkwFqEDbChBwbSvM8qkAFehMAQKuM+lZMRWgAm0rQMC1rTDLpwJUoDMFCLjOpGfFVIAKtK0AAde2wiyfClCBzhQg4DqTnhVTASrQtgIEXNsKs3wqQAU6U4CA60x6VkwFqEDbChBwbSvM8qkAFehMAQKuM+lZMRWgAm0rQMC1rTDLpwJUoDMFCLjOpGfFVIAKtK0AAde2wiyfClCBzhQg4DqTnhVTASrQtgIEXNsKs3wqQAU6U4CA60x6VkwFqEDbChBwbSvM8qkAFehMAQKuM+lZMRWgAm0rQMC1rTDLpwJUoDMFCLjOpGfFVIAKtK0AAde2wiyfClCBzhQg4DqTnhVTASrQtgIEXNsKs3wqQAU6U4CA60x6VkwFqEDbChBwbSvM8qkAFehMAQKuM+lZMRWgAm0rsDTgnj59KtyoAX2APtBHHyDgCGjeoOgDG+sDBByde2Odu48RBW1ab6RLwBFwBBx9YGN9gICjc2+sczNaWm+01Ee9CTgCjoCjD2ysDxBwdO6Nde4+RhS0ab1RJQFHwBFw9IGN9QECjs69sc7NaGm90VIf9SbgCDgCjj6wsT5AwNG5N9a5+xhR0Kb1RpUEHAFHwNEHNtYHCDg698Y6N6Ol9UZLfdSbgBsY4JJ/uSvcVq9B3cH5+uuvC7fVa1BX/6bpCLgBAu7jh/8rD5/9hduKNMANo+7AAdzu37/PbYUaQNO6+jdNR8ANEHAKt3/+u39ykON+OR0IuG6BTcANDEJN7zJN0mMwAnAKNYUd94tHtAQcASePHz+Wo6MjOTw8lIODA7l9+7Yg/GsyOJl2+UVfBRyBtjjQVDu9SRBwBBwB15MoUgGng1MHK/eLA4+AI+AIuJ4BjkBbHGiqnd4kCDgCjoDrGeB0cOpg5X5x4BFwBBwB1zPA9QpoV38ox144Pf+1lddelOT5H8q5Fb3esawGepMYJOD2Tsqx47v+dZW9k8ckSZJsO3ZS9ma9xrF7XI6d3PN5u37thU9RewKXPjwkwWDEwNbBuewgb5r/1RfyQeQG04vy6rO78oPn7blEjr2S2fgQ4NNBN2N/4rXFo6+m9sfSDwlwAchU02MnZffkMTm+e19wvYDXrhzXNNgr+Ag497D00aNHkmBQP3nyhBFcTyCrgIsN1PWdOy0n8ojt3Csvyg+u5oAC0GyEViOyO/fKSLoCnN4khgQ4H21FIrjju3uyu7srJ48dl10Xwe3KcYXa/ewYIPSRnoPfMTm5xykqAdczwOngXB/UTJT12osZlF57UY49PyoNmCya81FcT6ajs3QaFOAANhuVJYmL2BC5HT9+3PcForn7gJpNq7AzEdzucQKOEVxP4IZouvsIzkxJEa1hXc1FcziPKetf5CHA98pdQXQWRgvhVFavdQVDvUkMCnC6thaN4MqR2HQE59bmCDhOUfuw3hazQQGng3NWZNLKNQAtAchOywkFnI0S8uMqaL36wqiY0vYkuhsS4HaPx28SerPAPove8ghOo7Z8igrAuWjPRXj3hREc1+B69W0NBVwr8JoLnLvygxdelBMuUjOAq4jgMhtNZPfsLxI+pEg6faqqN4khAc6twSF68+DaM2tuIbyqpqgWarvHdb2uHP2t7zOfovZoihiLqtZ5TgGng3P9oFNgZYB7tWIa6iO40oMGRnBLgkPX4PwrInMA50Go01Xdw44wr3+AodPgNe0JOALOR5EKuPWDTR8y2DU4RHNJ/hRUwVeswT3MXyFxDyLyp6t9ApzeJAYZwZUBp+BL9KEB4BWfzhZTWAKOr4n0DK4KOB2c6wedAVkQnWXnT+TvyeHVD0xHfSTn1u7iAy57SKEAXf9+cIALIqsGkPIPF8zTVQ/KJSPLwKZmZXUawX311VfujecvvvhCPvvsM7lz545cu3ZNLly4IC+99JKPLNY5TdvmuhRw6wfb+sHTdhv1JjFswDWDSVfT0Fn1tgk4MOrNN9+U999/3zHr448/lps3bzqOffLJJ5IQcMv/i6NVAlkBp4OzbQhsQ/kEXLeQJOB6Nk1cJbCalqWA2wbwtN1GvUkQcASccIraj0hOAaeDs20IbEP5BBwBR8D1JIpUwG0DeNpuo94kCDgCjoDrGeB0cHK/3A/OAKIEHAFHwPUMcG1HN9tUPgFHwBFwPQIcBiS31WpQ92EPnvhxW70GdfVvmo6vifQEXE07jun78dCH/dDvfiDgCDi+rE0f2FgfKAPuypUrcuPGjdkv+l69epXfZOCg2NhBwais31FZk/4B4N544w157733HLMUcPhdZ/9Nhi+//DJYgyPgNscBmjgL07Lfh+YDtQCH75HZF30JODr60Byd9m6nzy4EOH7ZfjudhZBgvw/NBxZagyPg6OhDc3Tau50+Wwbc1H8TOTw8dP8u6d69e7K/v89/l8SHC3y4QB8YjA8AcG+99ZZ88MEHcvHiRcHyGv5d0t27d+XTTz+VBAf4H3A4iYsfffSRnDt3Tt555x1J03QwDeUdfDvv4Oz37e53MOr06dPuSSqYBXbhf1leunRJEM0lz549cxD79ttv5ZtvvpEHDx64Bw4A38svv0zA8W5OH6AP9NYHwCjADO++4bUQPCzF/7h8+PChHB0dZREcYHbr1i33n3wvX74s58+fl3fffZcRHB27t47NyG27Izftf0Rwk8nETVP39vYcuzALxftwmJEm3333nSCKe/Lkift1+6+//tqtyeHflzOCoxOpI3FPX+ijD4BRmIpime3zzz8XvNOLWSg4hhlpglAOJxDW4UGD/i4D6IcFvD42ijZxsNEH6APwATAK626YpuLtD/0GAzh2cHBQAA5PU0E/UBBzWTx0QGZu1IA+QB/osw/goYJ+RQuRHJ6egmNYj0sePXrkIjh9XQTUQwIkvH79umBNDo9fsS6HR7H4zhfW5/DE4u2333ZzX3wX7OzZs3LmzBlu1IA+QB9YqQ+ALWAMXgcBc8AerLeBR4AbGIXoDc8REJxp9IYZaYK5KqapAJxOU0E/hRyeTmC6CkJi8Q4FYvvwww9dBfi5LlSGTcEHA7hRA/oAfWBZHwBTlC9gDaAG9oBB+jBB4abvvmn0hhlpgkep5SgO5FPIIRPmtQAdCsKCHmCHOS8iO1SE6A4bKsZ8mBs1oA/QB1bhA2CK8gWsAXP0HTcEXphlInIDpxC94csKmIWCYfiOvQOcRnH6sEG/fA/IIdxDRkxZATqszaFQCzuEiKgUROVGDegD9IFFfQAA003LAFvAGARWCLDAHgRcYBGYpJFbGW6YkSZnz9+SMx/elDPnbsjk/evyq/evyS/3PpbT716RX7xzWX729kfy0zcvyOtvfCivnf1Q/vvXH8h/Td6Xn/xqT/7zl+/Kf5x+V378i3fkx7/4jfz7z9+Wf/vZW9yoAX2APhD4AMAU2+bxAkwBW8AYsAbMAXvAILAITAKbwCiwCswCu8AwsCx54/xtUcj9+oM45H7+m0vy07cuyv+8eX4adJP3POwUeDCEGzWgDwzTBzC9W9V24sQJxwJEXLFtno+AKQq1n0zemwIbmAQ2gVFluCFgS968cEc85M7dkFmQc9FcCXSvnTnnSKqRHcjKjRrQB4brA3jgqNPDZfY/+tGP5Pvf/77jAZa4YlvZTwAx3fQa2OKitTPnfMSmYAOTquAGlv0/3qiHkC+nbvwAAAAASUVORK5CYII=
自带的参考文件里面的示例如下:
Sub Example_AddExtrudedSolidAlongPath()
' 该示例将面域沿样条曲线所定义的路径拉伸成实体。
' 面域是由圆弧和直线创建的。
Dim curves(0 To 1) As AcadEntity
' 定义圆弧
Dim centerPoint(0 To 2) As Double
Dim radius As Double
Dim startAngle As Double
Dim endAngle As Double
centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0#
radius = 2#
startAngle = 0
endAngle = 3.141592
Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)
' 定义线
Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).startPoint, curves(0).endPoint)
' 创建面域
Dim regionObj As Variant
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
' 定义拉伸路径(样条曲线对象)
Dim splineObj As AcadSpline
Dim startTan(0 To 2) As Double
Dim endTan(0 To 2) As Double
Dim fitPoints(0 To 8) As Double
' 定义样条曲线对象
startTan(0) = 10: startTan(1) = 10: startTan(2) = 10
endTan(0) = 10: endTan(1) = 10: endTan(2) = 10
fitPoints(0) = 0: fitPoints(1) = 10: fitPoints(2) = 10
fitPoints(0) = 10: fitPoints(1) = 10: fitPoints(2) = 10
fitPoints(0) = 15: fitPoints(1) = 10: fitPoints(2) = 10
Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
' 创建实体
Dim solidObj As Acad3DSolid
Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), splineObj)
ZoomAll
End Sub
面域和空间曲线都创建成功了,手动操作扫掠命令是发现还是不能创建实体。后来网上查了一下,可能的原因是扫掠面域的半径大于扫掠路径的最小半径导致实体创建不成功。
应该改变一下扫掠路径或者面域的参数是可以的。
页:
[1]