![]() In this case, I had no other alternative because it was the most efficient/ only way to fillet all objects and all corners.Īll finished! Now just run the macro ‘fillet_all_objects’ and see the computer bend to your will. The manual way for drawing a 3D solid polyline, which looks like a circular pipeline in AutoCAD, involves the SWEEP command (see the video below), a 3D polyline representing the pipeline path, a circle the radius of which corresponds to the pipe radius. I also found that Sendcommand will not return any run-time errors, So if something went wrong, the user will never know. Note: I try to avoid using the SendCommand method as much as possible for reasons listed in this article. + Chr(34) + ")" + vbCr & "aeoutline" & vbCr & "all " & vbCr 'load the lisp proc to fillet all vertex of polylineĪcadDoc.SendCommand "(load " + Chr(34) + LispPath _ ![]() LispPath = ThisWorkbook.Path & "\Support\filletall.lsp" MsgBox "Sorry, it was impossible to start AutoCAD!", vbCritical, "AutoCAD Error" If acadApp Is Nothing Then 'Check (again) if there is an AutoCAD object. Set acadApp = CreateObject("AutoCAD.Application") ![]() Set acadApp = GetObject(, "AutoCAD.Application") If it is not opened create a new instance and make it visible. On Error Resume Next 'Check if AutoCAD application is open. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |