[kozko]

Уважаемые программисты. Нашел на просторах инета ЛИСП, конвертация объектов в 3D полилинию. Беда в том, что он не работает. Собственно сам ЛИСП:
(defun C:PL-JOIN3D ( / ssnab *error* )
(setq *error* pltool-err)
(or *pl-activedoc* (setq *pl-activedoc* (vla-get-activedocument (vlax-get-acad-object))))
(vla-StartUndoMark *pl-activedoc*)
(pl-error-save-sysvar '(("CMDECHO" 0)))
(setvar "CMDECHO" 0)
(setq ssnab (ssget "_I" '((0 . "POLYLINE,LINE"))))
(while (not ssnab)(setq ssnab (ssget '((0 . "POLYLINE,LINE")))))
;;;И 3d полилинии
(3dpljn ssnab 1e-6 "AcDb3dPolyline,AcDbLine")
(setq ssnab nil)(sssetfirst)
(pl-error-restore-sysvar)
(vla-EndUndoMark *pl-activedoc*)
(princ))

Т.е. ЛИСП этот подгрузил, как полагается, вызвал его, а мне в ответ выдает:
Command: PL-JOIN3D
; error: no function definition: PL-ERROR-SAVE-SYSVAR

[Disney]

Правильно, это функция, использует другую функции (сохранение\восстановление системных переменных), найти её, и много других полезных можешь здесь - Новые команды для работы с полилинией.

[kozko]

Disney, Понял откуда сей лисп взялся, только проблема в том, что не все эти коды работают в 2010, в частности тот код, который 3D полилинии делает.

[Disney]

kozko, спроси об этом в теме Новые команды для работы с полилинией, хотя VVA уверяет, что всё должно работать.

[VVA]

Disney, Не только должно, но и работает. Но должен грузиться весь файл pltools.lsp или pltools.fas. Если хочешь выдрать отдельно команду, то нужно аккуратно взять все используемые ф-ции