Ошибка неверная строка режима ssget

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

---

---

---

---

---

---

Использование Visual LISP

491

•Bad conversion code (Неправильный код преобразования)

Функции преобразования был передан неверный пространственный идентификатор.

•Bad entmod list value (Неправильное значение списка ENTMOD)

Один из подсписков ассоциированного списка, полученного функцией ENTMOD, содержит неверное значение.

•Bad function (Неверная функция)

Первый элемент списка не является именем существующей функции.

•Bad list (Неверный список)

Неверный список, полученный данной функцией.

•Bad ssget list (Неверный список функции SSGET)

Параметр, переданный функции (ssget «x»), является неверным.

•Bad ssget list value (Неправильное значение списка функции SSGET)

Один из подсписков ассоциированного списка, полученного функцией SSGET, содержит неверное значение.

•Bad ssget mode string (Неверное строковое выражение, содержащееся в параметре режима функции SSGET)

Ошибка, возникающая при получении функцией SSGET параметра режима, содержащего неверное строковое выражение.

•Base point is required (Требуется определить координаты исходной точки)

Ошибка, возникающая при вызове функции getcorner без определения координат исходной точки.

•Can’t evaluate expression (Вычислить выражение нельзя)

Неправильно поставленная десятичная точка или неверно сформированное выражение.

•Can’t open file for input — LOAD failed (Нельзя открыть введенный файл — отказ функции LOAD)

Функция загрузки не находит нужный файл или пользователь не имеет доступа к файлу.

•Input aborted (Ввод данных прекращен)

Ошибка или преждевременное завершение определения параметров файла, которое приводит к прерыванию ввода данных.

•Invalid character (Неверный символ)

Выражение, содержащее неверный символ.

•Invalid dotted pair (Неправильная точечная пара)

Вещественное число, начинающееся с десятичной точки; в подобных случаях необходимо использовать ведущий нуль.

•Misplaced dot (Неправильно расположенная точка)

Вещественное число, начинающееся с десятичной точки; в подобных случаях необходимо использовать ведущий нуль.

492 Глава 13

Задания для самопроверки

Ответьте на следующие вопросы и сравните свои ответы с правильными ответами, приведенными в конце этой главы.

1.Visual LISP содержит мощный ________ и ________.

2.Текстовый редактор поддерживает ________ круглых скобок, имен функций, переменных и других компонентов программы.

3.Форматтер ________ программный код, сохраняя его в удобочитаемом формате.

4.Для отслеживания значений переменных можно использовать средство ________, которое находится на панели инструментов View.

5.Для пошаговой отладки программы обычно используется средство ________, которое находится на панели инструментов Debug.

6.Какие способы могут быть использованы для запуска Visual LISP?

	1. ____________________	2. ____________________
7.	Назовите основные области окна Visual LISP.
	1. ____________________	2. ____________________
	3. ____________________	4. ____________________
8.	Перечислите панели инструментов Visual LISP.
	1. ____________________	2. ____________________
	3. ____________________	4. ____________________
	5. ____________________

Повторение пройденного материала

Ответьте на следующие вопросы.

1. Опишите различные способы загрузки программ Visual LISP.

1. ____________________

2. ____________________

2.Как запустить программу Visual LISP?

3.Можно ли открыть файл AutoLISP в текстовом редакторе Visual LISP?

4.Для каких целей используется окно консоли Visual LISP Console?

5.Можно ли ввести в окно консоли Visual LISP несколько выражений LISP? Если можно, приведите соответствующий пример.

6.Как записать выражение LISP на нескольких строках, используя окно консоли Visual LISP?

7.Что такое контекстное меню и как его вывести на экран?

8.Какие цвета в текстовом редакторе Visual LISP назначены по умолчанию следующим элементам программы:

круглым скобкам ____________	функциям LISP ______________
комментариям _______________	целым числам _______________

9.Для каких целей используется Visual LISP Formatter и как можно отформатировать текст?

10.Чем отличается заглавный комментарий от комментария завершения функции?

11.Как изменить опции форматирования?

Рис. 13.29. Эскиз рамки для упражнения 7

Напишите программу на языке Visual LISP, с помощью которой вы сможете начертить втулку со шпоночным пазом, показанную на рис. 13.32. Программа должна вывести приглашение, которое позволит пользователю определить координаты точки P0 (центр втул-

Использование Visual LISP 495

ки/вала), диаметр вала D1, наружный диаметр втулки D2, ширину шпоночного паза W и высоту вала со шпонкой (T). Программа должна также начертить осевые линии в слое Center (зеленый цвет) и проставить размеры T и W в слое Dim (фиолетовый цвет).

Рис. 13.32. Эскиз втулки со шпоночным пазом для упражнения 10

Упражнение 11 (Общее)

Напишите программу на языке Visual LISP, с помощью которой вы сможете начертить равносторонний треугольник, вписанный в окружность заданного диаметра (рис. 13.33). Программа должна вывести приглашение, которое позволит вам определить величину радиуса и координаты центра описанной окружности.

Рис. 13.33. Равносторонний треугольник, вписанный в окружность

Упражнение 12 (Общее)

Напишите программу на языке Visual LISP, с помощью которой вы сможете провести касательные к окружностям, показанным на рис. 13.34. Программа должна вывести приглашение, которое позволит вам определить диаметры окружностей и расстояние между их центрами.

496 Глава 13

Рис. 13.34. Касательные, проведенные к окружностям. Центры окружностей находятся на линии, проведенной под углом А

Ответы на вопросы для самопроверки

1 — текстовый редактор, форматтер, 2 — цветовое кодирование, 3 — форматирует,

4 — Watch Window, 5 — Toggle Breakpoint, 6 — Tools AutoLISP Visual LISP Editor, VLIDE,

7 — меню, панели инструментов, окно консоли и строка состояния, 8 — Standard, Tools,

Debug, View.

Глава 14

Visual LISP: редактирование базы данных чертежа

Цель занятия

Познакомившись с материалом этой главы, вы научитесь:

•редактировать базу данных чертежа с помощью Visual LISP;

•использовать функции ssget, sslength, ssname, ssadd, ssdel, entget, assoc, cons, subst, entnext, entlast и entmode;

•извлекать информацию из базы данных чертежа;

•редактировать базу данных и изменять существующие значения.

498 Глава 14

Редактирование базы данных

Язык программирования Visual LISP позволяет не только писать программы или создавать новые команды, но и редактировать базы данных чертежа. Другими словами, Visual LISP является мощным инструментом, который позволяет вносить необходимые изменения в уже существующие чертежи. Например, можно написать программу, с помощью которой вы сможете удалить все текстовые элементы чертежа или изменить диаметр и цвет всех вычерченных окружностей, введя одну-единственную команду. Познакомившись с организацией хранения информации в программе AutoCAD, а также со способами извлечения и редактирования данных, вы сможете работать с базой данных так, как вы этого захотите.

В этой главе рассказывается о командах, наиболее часто используемых при редактировании базы данных чертежа. Для получения информации о командах, не вошедших в этот раздел, обратитесь к интерактивному справочному руководству для программистов “Visual LISP Programmer’s Reference”, опубликованному компанией Autodesk.

Функция ssget

Функция ssget дает вам возможность выделить произвольное количество объектов, имеющихся на чертеже. Описание этой функции обычно содержит название режима выделения (окно, пересечение, предыдущее, последнее и т.д.) и координаты точек, определяющие положение противоположных вершин окна выделения. Функция ssget имеет следующий формат:

(ssget [режим_выбора] [точка1 точка2])

где

•режим_выбора — режим выделения объектов (w, c, l, p и т.д.);

•точка1 — первая вершина окна;

•точка2 — вторая вершина окна.

Примеры

(ssget)	Выделение объекта в обычном режиме
(ssget «L»)	Выделение последнего объекта
(ssget «p»)	Выделение ранее выбранных объектов
(ssget «w» (list 0 0)	Выделение объекта в оконном режиме (размеры и положение
(list 12.0 9.0))	окна определены точками 0,0 и 12.0,9,0)
(ssget «c» pt1 pt2))	Выделение объекта в режиме пересечения (размеры и поло-
	жение окна определены ранее заданными точками pt1 и pt2)

Пример 1

Напишите программу Visual LISP, с помощью которой вы сможете стереть все объекты, оказавшиеся в пределах чертежного листа (размеры листа определяются значениями limmin и limmax). Для выделения объектов используется функция ssget. Предполагается, что объекты уже начерчены на листе.

Шаг 1: написание программы Visual LISP

Откройте окно Visual LISP, выбрав команду Tools AutoLISP Visual LISP Editor или введя выражение VLIDE в командную строку. Затем откройте текстовый редактор Visual LISP, выбрав команду New File из меню File. В окно редактора введите текст программы, приведенный в следующем абзаце.

Функция command вызывает команду ERASE, с помощью которой стирает множество ранее выбранных объектов, определенное значением переменной ss1.

Строка 10

(command «redraw»)

В этой строке функция command вызывает команду REDRAW, которая перерисовывает содержимое текущего экрана и удаляет следы, оставшиеся после удаления объектов.

Шаг 2: загрузка и запуск программы Visual LISP

Выберите команду Save или Save As из меню File и сохраните файл программы под именем delall.lsp. Чтобы загрузить созданную программу, выберите команду Load Text in Editor из меню Tools или щелкните на кнопке Load active edit window, которая находится на панели инструментов Tools. В окне консоли Visual LISP появится сообщение об успешной загрузке данной программы. Если в программе будут обнаружены ка- кие-либо ошибки, на экране появится соответствующее сообщение. Характер и причины возможных ошибок описываются в разделе “Коды ошибок и сообщения об ошибках”, который находится в конце главы 13 “Использование Visual LISP”. Теперь можете заняться пошаговой отладкой программы, выполняя процедуры, описанные в главе 13 в разделе “Отладка программы”. Например, чтобы привести в соответствие количество открывающих и закрывающих скобок, щелкните на кнопке Format Edit Window, которая находится на панели инструментов Tools.

Чтобы запустить программу, введите имя функции (delall) в строку приглашения консоли после знака _$ и нажмите клавишу <Enter>. Не забывайте, что имя функции необходимо указывать в круглых скобках. Выполнив описанные действия, перейдите в программу AutoCAD, выбрав команду Activate AutoCAD из меню Window.

Вы убедитесь, что все объекты, находившиеся на чертежном листе, удалены.

Функция ssget «X»

Функция ssget «X» дает возможность выделить объекты определенного типа, имеющиеся на чертеже. Эта функция может использоваться даже в том случае, когда объекты находятся на замороженном или выключенном слое. Функция ssget «X» имеет следующий формат:

(ssget «X» критерии_отбора)

где

•X — режим отбора функции ssget;

•критерии_отбора — список определенных критериев, используемых при выборе объектов.

Примеры

(ssget «X» (list (cons 0	«TEXT»)))	Возвращает множество выбранных элемен-
		тов, состоящее из всех объектов TEXT, име-
(ssget «X» (list (cons 7	«ROMANC»)))	ющихся на чертеже
Возвращает множество выбранных элемен-
		тов чертежа, которое состоит из объектов
(ssget «X» (list (cons 0	«LINE»)))	TEXT, набранных шрифтом ROMANC
Возвращает множество выбранных элемен-
		тов, состоящее из всех объектов LINE, име-
(ssget «X» (list (cons 8	«OBJECT»)))	ющихся на чертеже
Возвращает множество выбранных элемен-
		тов, состоящее из объектов, находящихся
		на слое OBJECT

(defun c:standardfromdwgtext ( / a i s x )
    (if (setq s (ssget "_:L" '((0 . "INSERT") (66 . 1))))
        (repeat (setq i (sslength s))
            (setq i (1- i)
                  a (entnext (ssname s i))
                  x (entget a)
            )
            (while (= "ATTRIB" (cdr (assoc 0 x)))
                (if (entmod (subst '(41 . 1.0) (assoc 41 x) (subst '(7 . "Standard") (assoc 7 x) x)))
                    (entupd a)
                )
                (setq a (entnext a)
                      x (entget  a)
                )
            )
        )
    )
    (princ)
)

2

Lee Mac
13 Авг 2019 в 20:43

(setq ent (entnext blck))
    (if ent
      (progn
        (setq entinfo (entget ent))

0

mtaussie
13 Авг 2019 в 20:48