Сплайн

[1958]

Вроде просмотрел везде, но так и не нашел, как обойти запрос на указание касательных при рисовке сплайна.
Сейчас приходится нажимать несколько раз <Enter> для завершения процесса.

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:22 (/)
2.  (command "_SPLINE")
3.  (while (/= (logand (getvar "cmdactive") 31) 0) (command pause))
4. )

[Александр Ривилис]

Сплайны, рисуемые командой, зависят от ряда системных переменных. И кроме того есть различие в разных версиях AutoCAD.

Код: [Выделить]

SPLFRAME 
SPLINESEGS
SPLINETYPE
SPLDEGREE
SPLKNOTS
SPLMETHOD
SPLPERIODIC

[Александр Ривилис]

1958
Попробуй такой вариант:

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:22 (/)
2.      (initcommandversion 2)
3.      (command "_SPLINE")
4.      (while (/= (logand (getvar "cmdactive") 31) 0) (command pause))
5. )

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

Можно, конечно, совсем извратиться Запрашивать точки и их добавлять как контрольные точки в сплайн по мере указания

[Александр Ривилис]

Можно, конечно, совсем извратиться Запрашивать точки и их добавлять как контрольные точки в сплайн по мере указания

Предложенный мной код, а именно (initcommandversion 2), заставляет AutoCAD выполнять (command "_SPLINE" ...) как команду _SPLINE запущенную из командной строки вручную.

[1958]

** Error: no function definition: INITCOMMANDVERSION **
У меня 2007. Эта версия меня больше всего устраивает. Перепробовал множество, вплоть до 2018, но душа всё-равно в 2007 осталась.

[1958]

Попробуй такой вариант:

** Error: no function definition: INITCOMMANDVERSION **
У меня 2007. Эта версия меня больше всего устраивает. Перепробовал множество, вплоть до 2018, но душа всё-равно в 2007 осталась.

[1958]

Можно, конечно, совсем извратиться  Запрашивать точки и их добавлять как контрольные точки в сплайн по мере указания

Это чтоб потом сплайн создать командой entmake? Но тогда я не увижу процесс отрисовки сплайна (его укладки). Мне надо обрисовывать чертеж по растру (дигитализация горизонталей топоплана).

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

Поскольку нужно видеть "процесс укладки", то придется мириться с запросом углов.
P.S. Уже очень давно не работаю в 2007, почти ничего о его особенностях и не помню...

[Александр Ривилис]

Попробуй такой вариант:

** Error: no function definition: INITCOMMANDVERSION **
У меня 2007. Эта версия меня больше всего устраивает. Перепробовал множество, вплоть до 2018, но душа всё-равно в 2007 осталась.

Ну если эта версия устраивает, то смирись со всеми её недостатками.

[1958]

В версии 2018 (initcommandversion 2) работает.
Тогда такой вопрос: - с какой версии АвтоКАД появилась initcommandversion ?
Это чтобы я мог сделать проверку на версию и включить (initcommandversion 2).

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

А оно настолько надо?

Код - Auto/Visual Lisp [Выбрать]

1. (defun custom-spline ()
2.   (vl-cmdf "_.spline")
3.   (while (/= (logand (getvar "cmdactive") 31) 0) (vl-cmdf pause))
4.   ) ;_ end of defun

[Александр Ривилис]

В версии 2018 (initcommandversion 2) работает.
Тогда такой вопрос: - с какой версии АвтоКАД появилась initcommandversion ?
Это чтобы я мог сделать проверку на версию и включить (initcommandversion 2).

Проверка на версию не нужна:

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:22 (/)
2.      (if initcommandversion (initcommandversion 2))
3.      (command "_SPLINE")
4.      (while (/= (logand (getvar "cmdactive") 31) 0) (command pause))
5. )

Эта функция появилась или в AutoCAD 2009 или в AutoCAD 2010.

[1958]

А оно настолько надо?

А в чем смысл вашего вопроса? И зачем Вы повторили код из первого поста?

[Александр Ривилис]

И зачем Вы повторили код из первого поста?

У  Алексей Кулик используется функция (vl-cmdf) вместо (command). Эти функции не совсем одинаковые. Но в данном случае замена не помогает.