Nano Hash - криптовалюты, майнинг, программирование

Ошибка 451 для AutoCAD VBA

Следующий код должен перебирать каждую строку на чертеже и получать значения начальной точки x, y и z, но вместо этого я получаю

ошибка 451

Я скопировал этот код из чего-то еще, что работает, поэтому я в недоумении.

Sub Get_Points()

     Dim ent As AcadEntity
     Dim name As String
     Dim x As Double
     Dim y As Double
     Dim z As Double

     For Each ent In ThisDrawing.ModelSpace

         If TypeOf ent Is AcadLine Then

             name = ent.Handle
             x = ent.StartPoint(0)
             y = ent.StartPoint(1)
             z = ent.StartPoint(1)
         End If

     Next

 End Sub
vba autocad
19.12.2017

Ответы:


1

Сначала вы захотите преобразовать общий тип сущности в конкретный тип сущности следующим образом:

Sub Get_Points()
     Dim ent As AcadEntity
     Dim acLine As AcadLine
     Dim name As String
     Dim x As Double
     Dim y As Double
     Dim z As Double

     For Each ent In ThisDrawing.ModelSpace
         If TypeOf ent Is AcadLine Then
             Set acLine = ent
             name = acLine.Handle
             x = acLine.StartPoint(0)
             y = acLine.StartPoint(1)
             z = acLine.StartPoint(2)
         End If
         MsgBox name & vbCr & x & vbCr & y & vbCr & z
     Next

 End Sub

(Кроме того, ваш z использовал индекс 1 так же, как y, поэтому я исправил и это)

19.12.2017
  • Я попробовал ваш код и тоже получил ошибку 451, но код, который я разместил, отлично сработал для меня, так что вы можете перепроверить. Я использую Автокад 2015. 19.12.2017
    • Новые материалы
    Кластеризация: более глубокий взгляд
    Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
    Как написать эффективное резюме
    Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
    Частный метод Python: улучшение инкапсуляции и безопасности
    Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
    Как я автоматизирую тестирование с помощью Jest
    Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
    Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
    Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
    Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
    В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
    Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
    В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..