[solo123]

Уважаемые форумчане подскажите пожалуйста "лиспописцу" самоучке, как правильно (корректно)прописать метод: vla-AddExtrudedSolidAlongPath на любом примере, а именно я не "врубаюсь", как сделать программно профиль регионом, да и сам профиль как рисовать (command "-.pline" "0,0" "10,20" и т.д или както по другому. С уважением, Илья!

[Дима_]

Пример без "библиотечных функций" для понятия смысла.

Код:

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

(vl-load-com); загрузка VLA
(setq sf (vlax-make-safearray vlax-vbobject (cons 0 0)); пустой vla'шный "список"
      mspace (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'Modelspace); ...пространстве модели
      tmp (vlax-safearray-fill sf (list (vlax-ename->vla-object (entmakex (list 
                       (cons 0 "circle")
                       (cons 10 '(0 0 0))
                       (cons 40 10)
                       (cons 210 '(1 0 0))))))); заносим контур сечения в sf
      region (car (vlax-safearray->list (vlax-variant-value (vla-addregion mspace sf)))); создаем область из контура
      path (vlax-ename->vla-object (entmakex (list 
                     (cons 0 "lwpolyline")
                     (cons 100 "AcDbEntity")
                     (cons 100 "AcDbPolyline")
                     (cons 90 3)
                     (cons 10 '(0 0))
                     (cons 10 '(100 0))
                     (cons 10 '(100 100))))); траекториия
      );end of setq
(vla-AddExtrudedSolidAlongPath mspace region path); создаем кривой цилиндр

р.s. вобще по документации AddExtrudedSolidAlongPath не признает в качестве траектории выдавливания lwpolyline, но по факту работает.