672277923 发表于 2020-12-25 20:05

求指导,用AddExtrudedSolidAlongPath创建实体失败

我想画一条管道,看是否与其他管道冲突,想用AddExtrudedSolidAlongPath这个方法扫掠路径生成实体,结果看了帮助文件,老是提示创建失败。
我仔细阅读了帮助文件的示例,复制粘贴到CAD VBA编辑器中,运行还是提示创建失败。

提示如下:

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAASsAAAC9CAYAAADr7FteAAAZB0lEQVR4Ae2dS44cNxKGczOY2Xrpne/Qq+qj1AFy442Ws+sjVN9g6gJeGShYtgy7/YAkSLJl2ZIMl+1B2wN46wN4hoMgGWSQSWaynpms/BsoVD74iPgj+GVkVknVPHjwQKVe77777k7HU2Pseiyec2h/1/HRPh1r6AJdppwDv/32m/rjjz9Uo/AHBaAAFJioAgTRX375Rf3++++A1URjBLOgABRQSt/d/fTTT+r+/h6wQkZAASgwXQWosnr79q369ddfAavphgmWQQEoQLD64Ycf1M8//wxYIR2gABSYrgIEq1evXim6FcQD9unGCZZBgdkrQLB6+fKl+vHHHwGr2WcDBIACE1aAYPXtt9+qN2/eAFYTjhNMgwKzV4Bg9eLFC/X69WvAavbZAAGgwIQVIFg9f/5cff/99yeA1fZWXTfX6nY7JQW26va6UU3TqHZzoF0n9W+j2qZVh5pY7OHevhxRz2JjD2kodN3b58z8xx4vM00th2mNEVxyf3SO2pT+EayePXumH7IX9OLEzAGIEqFRzfWt0nyaYPC2t9eqKaTUpm2SbfUY5ONJ/ROLKhFNbRtpzS/WPNG26NCevuyiZ5EdrpHNtcJYuW6DG0LXPX3OTnHs8bIT1XGCYPS3v/8jCay+cznvCFZPnz5V3333XUllZRLo+vpaXSfKJZ24Ela5WUc8Tovc2278ya6HTauaTnUz0OdovolFlRgz9EOpHFgTXY96KLbjaIPTwqc86+h/6Az9uu42+rlyYTerptQ6BaXUsRKbCVZPnjzRnwgWV1btLd3exbcoFLhrdXvb+sqqxIIztwkX11CyUWJHt4v66hn7fgon+hdV6IdSp6tw+n2L7ehvXX6W/KGLCo2fvZiUDyda9usqGhZsDuVPwRAzaCLhJLd3dZ1g9fjxY/2JYDmsNuZK7isURQcMpPidLOksbLP4+dbF9OeA23PudiZsG1c4rorTt0ESHvl+lPg8d+fdzRtKqPuI1RJAIfIvaVPUpqOJPu/t8lORH9Kvrl1ef9ZQtMmOa8HGt488R2ynCnX0c/k5Qj3Z1rBfGDe207bJaK4UtbOPGmQ+6amjMawfXreh80LXUp+TWkZ+ki8D44VaUH97cbc+SI2TueSlr26LIZW7LSxxaG9YaThxouvksldAmVxB8ExwZUCMgSa5uoGUt2sWhjxfMK50MzEH2cP99DByXE5sOUa0HcwVtZfn5LYcIj4e7G/VbWuf71GfwFbyhQEgBzTbISjEc0J9umfcYH4xbnA8oaNoKjfJDh/TRL/Ap1Ss5Wh2W+aQhqZ8RpoYY2iO4LzQtcjnHi1l3pPpQ+N17BDPRHVf62cwTkKfCg+NCysbKJ2oMrnkthRdHg/EjgBA55JtZTuzKJr4k8bBfnFFKMcMjBI7oo30h1oE+xmbgjZxHzNN+ioqFpWwhjdDSMSgGxqXKjkJgMiupI48c/ge2JHsJ/SLF3c4lNsLxiy6wAzNIc8LXWVskrY7k8xtdlyNxv4MjhfbIWNA53g/k0venKq2GFT0Lrd3dWL/yopmsgG+lVdXGfTB4NEgMoDWfDmG80gGkw+avm7hFfQLF0Jibh5avPOtH7+7U9I/f9B+NSJzlZR99LaoTOQ5XVH0V1a+oqHJKcHlnLlx2dBIOzl3UkfuF74Heib7ybiV6M0L1d8am1t21iI1hjwmt9lWeWxHWPXGSI5bAnxqL4HE22SnPBfa7fKbD1f0noJT6liJS4fByj3X4ETyAPNfXeBzJgn9s4WNutWfKEYB11abtsFilAthe6tu3ReQZP+BfkVX6YRsOmGv9adTwYegcoHnbLJ9uZ+poqwm0ied69fillUsqoRJASToPI3Ft4194/baORSrriGhHUP6y1h1x9JHpB+uiRnX5I4ZQ379JNDUXvzy54WuMn42lzv52adlfKFNjJfNYXlx0X6SX/5ik85vJ0gVG31Q6juXc+5AWNmHtT7CrtrqwoqvPHzF5IWRS2CToP5BOLc3rtAicefk/A6gfL7bTyaQSfT4mU8sl10g8QPhIDnNLWbKJjdH06jrthWfpNpx+QFrcE4sqtgcC103l+4v/ewbN2Nn5Iu5xU1rKM0JYUVn+uKWi7UfUcc1iKc554/bMVqCc8q+ofNC1yKf+7V0sd33Abv7wjTN4yutfH57raa+RfEhKOX+6By1Kf3bEValw6IdFDiVAhZGrrKO5xk6H7fHfi0KAFa1RAp2WgWGYDR0HkLWqgBgVWvkZmv3EIyGzs9WuOodB6yqDyEcgALzUACwmkec4SUUqF4BwKr6EMIBKDAPBQCrecQZXkKB6hUArKoPIRyAAvNQALCaR5zhJRSoXgHAqvoQwgEoMA8FAKt5xBleQoHqFQCsqg8hHIAC81AAsJpHnOElFKheAcCq+hDCASgwDwUAq3nEGV5CgeoVAKyqDyEcgALzUACwmkec4SUUqF4BwKr6EMIBKDAPBQCrecQZXkKB6hUArKoPIRyAAvNQALCaR5zhJRSoXgHAqvoQwgEoMA8FAKt5xBleQoHqFQCsqg8hHIAC81AAsJpHnOElFKheAcCq+hDCASgwDwUAq3nEGV5CgeoVAKyqDyEcgALzUACwmkec4SUUqF4BwKr6EMIBKDAPBQCrecQZXkKB6hUArKoPIRyAAvNQALCaR5zhJRSoXgHAqvoQwgEoMA8FAKt5xBleQoHqFQCsqg8hHIAC81AAsJpHnOElFKheAcCq+hDCASgwDwUAq3nEGV5CgeoVqAtW//mXUvTCHxSAArNToC5Y3b2nFL3wBwWgwOwUqAdWVFE9aszrlNXVplXtZnZ5AIehwOQVqAdWd++p/71o9OvU1dWmXajVVim1aVXTNIlXqwKeUTsiXLK9HWsgFbarRQBJZ4Pt5/e3arUQ829XarFYKTJXqY1qU/a68wNG4PSFKUD5UJZ/NTheB6xsVfXXvxtFL11hnbK6IgAUllcEGQ2qoWhHIIuHD2EloLNoVbtIAbNRC01UC1U94Ea1HTCljpGxNIeAXsJ+7RvDLzZY+5Puv2kb1Tg7CK7SftFHaOJ8UUrl55VjiUWYGEfbwLbbdzmHubAIW3L+W7+zNiXmpqF2bS8vdF07jX58fNA354uHFfXh/ub0cPzdMBPZqANWtqr6675R9KIK69TVVUl8KCFNAuSAIEbZtC5ZqF/bZqq2xUptoiqLRslWVmKK3SqroWTdqBXD0FZsZt1aYCwWapGCHYGe4BDASoDF2btRLQNQ97HgkNvKzMXNugtOK5Mex81j2zhbB+znfmQH+5CzKTjuwUBxSGqXa7/rcbZRv/fFUdpEfss49PULJpjMzvRhJasqC6tTVldcBSxWq/QtFV+teQVpkDSq3VDwZQUhtinpY1gF95HmSsxDbla+mlq0rVn8qbFF1cV9yzNrq1Yt3z4O9QqhoVsHC4z72wWxagWsChYFjcVgCCo+MW/QhueL3jNt/EVFtE/a788TGL2m0gdvk66efCOVhulw+9w4uePeSpM3QcUkKr2mbcPbQDrn7BXx11pIkMkZprM9fVhFVdVZqisBFgoVJY2LcRy7IAHESUoA2UkmUUMLgZLY34bEc8T7YuTOJrel9/QztvgWoDNE/4HUwk4cc4uVfA3g48EtF5az17W1ZgitXHut88rfUoo+2XH0cBI0ws2E/f5sok/CJprX2ce3fjLmNKCYJ9d+1+NZO/VcAjraZrEfXAj8KLVsTRtWqarqDNUVPT9wSUgJwAkoj1OEOYH5vIy67Gfb8piUnLrLdqVae6vljtlbHweddhM+/3AVVh50NN121ZoPCaRNuW2d5AwUmdzso5/LDaH7iOMaJrZcpG0BE9dHL5ZofDqpx7LHadv1jaoS8bDYgdEPHo5jj5OuvpoQjWP7xSl9O+1ssPa5/dAmjil1j6ETPxeLz/M+v7MJvM/v8XG5H/gmY6AbEXSl3uEFksep5X3asMpUVSevrhyUusGVCbRpW7WhpN8XVuJZFI0rh5H7ctskVmiXOW8WkYOcg5qFkFts5alJ4waLQXYNFntubgEz2ze8vfID8nGaUwJAL3gSJl6I8X5yfGOX1NXNGNjvjvIowQcVOZtifSRA43M0cHyM2+963BjZ9S0exzzDBKzi6B5/v6+qOnV1ZWGlgx8telpI/mG3veqmVkMMMVpcYqy4C80lj8n9lB2Ne2BsFgE9M3MPdfXcrX/wvE90aIw+wPUtdvKV+4rqMaig5PfZ9Fh2Ucm+tsrU8Irm44VOEHO6yXHI56hPIEPfufh2qcgmUcXQ2Oy/nDSYM2rv4llwPOebHt/DyeSN3zfw6l5ApIlT3p5uZTVQVZ2sutIBp2pEBrknhNTerRbRLj7uqjWGi2hrr7pyGAMr84mZBJfpRVdVn3RBUmoo2nPBIgvnG9zT4/CtoXkPKh6tk7chGC+al8DCoJY+lhx30KMJpE1ioNw4un0KGjRWn/16KvmAnab2PkibjPbmnDNJ2mkvUKxdsr2Nf0qjXPucb7J9/wN2ETGtRWG+i27n3pwmrDJVFQeTQaXfj/y9K31r55JZJKioirQdnJkRlGSycILmgypvn8JkMYvDwECOyRrIyspUenRFbrq3bToR5VcJ8tbgjFAgiqs4U+1mcEdQoRfThFWmquKFGsBqQt+7qjD+MLlHAX2R4ItST7saTtHFb/jiOW1PpgerTFVFgMrB6pTfu5p2+GAdFJiPAtODVaaq6oUVqqv5ZCw8na0C04JVT1U1BCtUV7PNYTg+EwWmBaueqmoQVqiuZpKycHOuCkwHVgNVVQmsUF3NNY3h9xwUmA6sBqqqIlihuppDzsLHmSowDVgVVFWlsEJ1NdNMhtsXr8A0YFVQVRXDCtXVxSctHJynAuPDqrCq2gVWqK7mmczw+rIVGB9WhVXVTrBCdXXZWQvvZqnAuLDaoaoiWO30OvK/GZxldsBpKDAhBcaF1Q5V1U6gsmCbyv/VPqF4wxQoUK0C48Fqj6oq+28Dc1UXqqtqExOGQ4FYgfFgtUdVtTOs8Owqjjf2oUC1CowDqz2qqn1uA3UfVFfVJicMhwJSgXFgtUdVtTesUF3JeGMbClSrwPlhRVXVw0b993Wj/vv2TK/XjZ5T0dz4gwJQoEoFzg+ru/cMOB5agJzznebGHxSAAlUqcH5YVSkTjIYCUGBsBQCrsSOA+aEAFChSALAqkul0jabwiyNTsOF0CmPkS1EAsMpEkn7ZpPPDJoM/zxT+np8cWv7u3GK1UauF/wEM/v5Y8OvH4ncGaRxvT3oOCRz3c2LSANqOf89O/6beJvj14bgL9qHAVBQArOJIxAs6/r3A6Ecrw+5pkPg29Nt+4Q+DOsjEIGRY8e/+pezgH/CkNrytmRTO4ebnMfUBC6mUvx1KuxGwAQVGUwCwykjvKxnRIAKK/l25FETiY3rxC1ClAMF9Fq1qg6rL/9CpYUgXiLJqc1Uaj6ffLbwsrAwgDaxW9EvDDKfIP+E5NqHA6AoAVpkQZEHECzvRj/ukfkySzxFM5PlcZUXtuV0aRvYXnAl8oqpSqgszZ2oHVq1qVwTHldpSo6Dycr2wAQUmoQBglQkDwaLDpb7KQy90ehbVqlWqL8+j263MT70H1Y/8iXf7U/D6/EItFuFPy9NQDnI8rnvfBVYEKd8+6bMbFxtQYFwFAKtI/3QVk3gYztUI9afqRpPNL3waR8KO92MgpKCj27RtUWVVbC8Z06msTEW1XbVqtSXbu1CM5MEuFBhNAcAqIz1BwNyGeQARRPjWjLtpWDgq+bZ0PjhngaY/qet5ZqWZslqpbeqWLHWMDeF3akPVnb6v44P2Xfc31d9GiU8B9QP6hVo4P6J+2IUCE1AAsIqCwJVK27aq+7B6odp2YY63Gw0jWt8EsW5bU1l5YBHIxMNsO2+qstKnGEw9YAufVenvN6iF/rQxhGbgIoNJVoYEriasBIM+2IECE1AAsBoMQs/C7/Tta2thlXvAHo/FsOLjBJmGnoelqyYNxQSAwkrQ2KALKA2tldrqcen2T5zjOfEOBSakAGDVCYZ8uJ14VmUfeidvs8TD6nhYgom5y/LQSlVj7msEFlZc6fkqSvRfrJT+6kFPVeSqPlsJBvCiqi0AXHTrGjuBfSgwogKA1YjiY2ooAAXKFQCsyrVCSygABUZUALAaUXxMDQWgQLkCgFW5VmgJBaDAiAoAViOKj6mhABQoVwCwKtcKLaEAFBhRAcBqRPExNRSAAuUKAFblWqElFIACIyoAWI0oPqaGAlCgXAHAqlwrtIQCUGBEBQCrEcXH1FAACpQrAFiVa4WWUAAKjKgAYDWi+JgaCkCBcgUAq3Kt0BIKQIERFQCsRhQfU0MBKFCuAGBVrhVaQgEoMKICgNWI4mNqKAAFyhUArMq1QksoAAVGVACwGlF8TA0FoEC5AoBVuVZoCQWgwIgKAFYjio+poQAUKFcAsCrXCi2hABQYUQHAakTxMTUUgALlCgBW5VqhJRSAAiMqAFiNKD6mhgJQoFwBwKpcK7SEAlBgRAUAqxHFx9RQAAqUKwBYlWuFllAACoyoAGA1oviYGgpAgXIFAKtyrdASCkCBERUArEYUH1NDAShQrkAAqz///FPhBQ2QA8iBKeYAYAVA4wKFHKgiBwArJGoViTrFKz1sOm8FClgBVoAVcqCKHACskKhVJCqqmPNWMVPUG7ACrAAr5EAVOQBYIVGrSNQpXulh03mrPcAKsAKskANV5ABghUStIlFRxZy3ipmi3oAVYAVYIQeqyAHAColaRaJO8UoPm85b7QFWgBVghRyoIgcAKyRqFYmKKua8VcwU9QasRoRV88+3Cq/ja1C60D744AOF1/E1KNV/13aAFWB1ccAsXQQEqvv7e7yOqAFpWqr/ru0AqwnAihbMO++8oxcN3vfXgavU0kUAWB0f1IDViEApTfx92vHiYkDhKn/Y4mE9S2MBWB2mdypfAasLh1Uq6Di220Ii4ANWu2l2ihwDrC4cVqisjrPIAKvj6HgIxACrC4fVIcmBvmaBorIaH1SUi4DVhcMKldVxFhoqq+PoeMgFELC6cFgdkhxH73t3o66W6+GP89dL1VzdqLsjfux9iC9VV1aR5nc3V6ppGvMa0ni9VFc3d8PxOlOcAKsLh9VYldV6aReEXhhLtb6/UzdX8ljjFwItKF5APe/L9XhX99oqqwBKrOnVjVrfXCnSkc57EK3VktvQO0MMsMJX+0s//j6kHS+uQyqKw/uu1dJWUnc3S3VzZ2FDcOIFQVfl6OqfmpcW11iwurTKarm+U+v1Wt1c0UWEYrJWSxcPs01QcxWYBtmVj9+ZKqk4D1BZobI6XZm/XhrA0BX6Kk5+U2X5q/t4VVO8KFL7DP/SCwgtrNQ4ZzuWqFZJaw395dKByFwAhiur9RKwOtnX50uT6lLb8eI62+LoXG3FbR9dtek5lK6y6Li9otvbjOQti7wtsdtjge3yKqv4wtCtrPTzQnEbCFhdaFUzBQAyrMZ6ZnVPcGoISnYh6P3wmRXdZuQANIXFIUHPepbGduzKKnxm2NWdtPe31WlYyVvvKcQDt4EXCkxeXHLBnW/7Tt0sl2qpKygBq0xlZewSFdf9veosNvdMJa4KTr9fbWUVPBsM9ZUg0s+sZCVrtZaAWi/5+dbp9c7lKWB14bAarbLSn/75yqr7wDZ6ZhU9ZJcLJZe85zzO8K+lstIfWhCA3FdFBmDlLgZcZfE7wSnse07d5VyA1YXDSgb7vNuU4Pb244qqLL7tEInvnomYtvohfOKqfl67u5VD1ZVVDCv34J0fmIs4yeoquE0UMes8m+zqdap4AVYXDqvxK6v4qwkm8Zf2e1j03IRu+dyzq8yzLf0xult451sgvPCqq6w6UNkBOO4iIj4lHFF7jgFgdeGw4kDjfX/AVVtZdYC1vwZTyJ9Twur9999Xn3zyifryyy9VU3qvj3bH+dIsVwLjVVZ1L4x4cbKepflJCyseA/uH5QRghcoKi2qgAkFldRhkjgVpwOrCYYXK6jgLDZXVcXQ8BFyA1YXD6pDkQF+zQFFZjQ8qykXA6sJhxZUV3vf/sQhaKKisxgcWYHXhsOJFhvfj/IYgHrCPBy3ACrByVQOANgy0XWBFiwuv42pQqv+u7fDVhQsF4a6JgPbH+ToKdDydjoAVYIX/Agg5UEUOAFZI1CoSFRXL6SqWWrQlWH388cfqiy++wDfYawka7MTCnWMOAFaorFBZIQeqyAHAColaRaLOsZKAz2EFjWdWgBVghRyoIgcAKyRqFYmKKiOsMuaoB8Hq0aNH6quvvsID9jkmAHwGBGrJgbZt1Ycffqg/EcT/Z4UqC1UWcmCyOfDgwQP17Nkz9erVK1RWtVxhYCeqoTnmAFVWm81G3wqissJVdbJX1TkuTvgcXpSosvrmm2/UmzdvUFkhOcLkgB7QY0o5QA/Yv/76a30r2NAOXtAAOYAcmGoOPHnyRL148UI1z58/V0+fPlWPHz/WHw/Sv8H5/PPP1WeffaY+/fRTfa9I/zbn4cOH6qOPPsILGiAHkANHzQFiCzGGvqJAzCH23N3daR4RqIhRL1++VP8HguFYZ2AJs4cAAAAASUVORK5CYII=

示例如下:

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

672277923 发表于 2020-12-25 20:16

我好像明白了,路径不能与轮廓在同一平面。。。

zzyong00 发表于 2021-1-7 16:34

这是自己解决问题了

672277923 发表于 2021-6-17 08:31

zzyong00 发表于 2021-1-7 16:34
这是自己解决问题了

用VBA确实功能并不像其他种类的那么强大,写得还是很吃力的

mikewolf2k 发表于 2021-6-17 09:53

672277923 发表于 2021-6-17 08:31
用VBA确实功能并不像其他种类的那么强大,写得还是很吃力的

哪个程序支持路径和轮廓在同一平面?
页: [1]
查看完整版本: 求指导,用AddExtrudedSolidAlongPath创建实体失败