[TararykovDG]

В AutoCAD для программного создания тела командой СДВИГ(SWEEP) работал следующий lisp код
(vl-cmdf "_.sweep" (car (entsel)) "" (car (entsel)))

В NanoCAD такой код не работает, при первом запросе Выберете объект сдвига подходит код (car (entsel)),
но при втором запросе Выберете траекторию сдвига (car (entsel)) не работает, появляется ошибка.

Подскажите, что нужно написать вместо (car (entsel)) при запросе траектории сдвига

[Кулик Алексей aka kpblc]

А руками при указании именно на эти примитивы тело создается?

[TararykovDG]

Да, создается, но даже в интерактивном ручном режиме, при запросе на указание траектории сдвига, видно что курсор не такой же как при запросе объекта сдвига.

[Кулик Алексей aka kpblc]

Ну тогда можно попробовать собственную реализацию накидать. Примерно так (код в продакшн пускать нельзя - ни проверок, ни отлова ошибок, ни меток начал/конца отмены; только в качестве иллюстрации):

Код:

[Выделить все]

 (vl-load-com)

(defun c:test-sweep (/ ent path region)
  (setq ent  (car (entsel "\nObject to sweep : "))
        path (car (entsel "\nPath : "))
  )
  (setq region (vla-addregion
                 (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
                 (vlax-make-variant
                   (vlax-safearray-fill
                     (vlax-make-safearray
                       vlax-vbobject
                       '(0 . 0)
                     )
                     (list (vlax-ename->vla-object ent))
                   )
                 )
               )
  )
  (vla-addextrudedsolidalongpath
    (vla-get-modelspace
      (vla-get-activedocument (vlax-get-acad-object))
    )
    (car (vlax-safearray->list (vlax-variant-value region)))
    (vlax-ename->vla-object path)
  )
  (vla-erase (car (vlax-safearray->list (vlax-variant-value region))))
)

[TararykovDG]

Спасибо, Алексей! Совсем забыл про vla-addextrudedsolidalongpath (позор на мои седые волосы)
прям так не работает, но работает код из https://help.autodesk.com/view/OARX/...7-351E141D3DA4
дальше буду разбираться!

[Кулик Алексей aka kpblc]

Ну, я прогнал на 23.1 - работало.

[===AAA===]

Интересно...
У меня в 23.1 даже с клавиатуры ни команда
СДВИГ, ни команда _sweep работать не желают...

[TararykovDG]

Сообщение от ===AAA=== Интересно... У меня в 23.1 даже с клавиатуры ни команда СДВИГ, ни команда _sweep работать не желают...

Может у Вас нет лицензии на модуль 3D, в NanoCAD это отдельный плантый модуль

[===AAA===]

Да фиг его знает. Вводишь "СДВИГ", на отсутствие такой
команды НК не ругается, но и никаких запросов на выбор
объектов не делает, просто выдает очередное приглашение

Команда:

А, вон оно что...

В НК 23.1 эта команда работает только в Модели, да и то как-то
криво - 1-й объект выбирает, а вот на запрос 2-го объекта на экране
не появляется "прицел выбора", а по-прежнему висит "перекрестье".