Форум программистов, компьютерный форум, киберфорум
Наши страницы
AutoLISP
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.59/17: Рейтинг темы: голосов - 17, средняя оценка - 4.59
Virviglaz
3 / 3 / 1
Регистрация: 21.10.2015
Сообщений: 92
1

AutoLISP работа с файлом

08.11.2015, 21:43. Просмотров 3290. Ответов 21
Метки нет (Все метки)

Здравствуйте! Необходимо реализовать вывод и ввод в файлы. Программа чертит заданную по условию фигуру и проверяет попадает ли точка в заштрихованную область. Пользователь может выбрать вводить ли ему точку самому (с клавиатуры), либо ввести точку из файла (где я и застряла). Точка введённая пользователем с клавиатуры должна быть записана в файл (тут тоже не лучше). В общем не получается у меня с файлами работать(
0
Вложения
Тип файла: txt tmp.txt (2.0 Кб, 22 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.11.2015, 21:43
Ответы с готовыми решениями:

Работа с файлом
Добрый вечер. Нужна помощь с задачкой. Переписать содержимое исходного файла в другой текстовый...

Программа в AUTOLISP
Здравствуйте,не могли бы вы мне помочь вот с таким заданием для AutoLisp Пятнадцать трапеций,...

Программа в AutoLISP
Известна длинна окружности. Найти площадь круга, ограниченного этой окружностью.

Запуск AutoLISP
Как запустить AutoLISP в AutoCad"e. Я выбираю Сервис=Приложения=... и в открывшемся окне на диске...

AutoLisp - Не вводятся координаты
Помогите разобраться, после того как базовая точка задается, появляется следующая команда "Введите...

21
Lambdik
1038 / 932 / 106
Регистрация: 04.11.2012
Сообщений: 968
Записей в блоге: 3
18.11.2015, 09:23 21
Хм, должно было получиться. А что там у вас в файле лежит, можете прикрепить?
0
Virviglaz
3 / 3 / 1
Регистрация: 21.10.2015
Сообщений: 92
19.11.2015, 06:03  [ТС] 22
Лучший ответ Сообщение было отмечено _sg как решение

Решение

Lambdik, спасибо вам большое за помощь!) Там действительно были не правильно записаны координаты в файле. Выложу окончательный результат нашей беседы, вдруг кому-то ещё пригодится)))
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
( defun f ( / osm)
  (setq osm (getvar 'osmode))
  (setvar 'osmode 0) ; отключаем привязку
  (command "_.Color" "7")
  (command "_.CIRCLE" "0,0" 2) 
  (command "_.RECTANGLE" "0,-2" "1,2")
  (command "_.bhatch" "с" "ansi31" "0.02" "30" "-1,0" "1.5,0" "")
  (command "_.zoom" "г")
  (setvar 'osmode osm)
  (princ);вывод выражения на экран без учёта управляющих кодов
  (setq flag T) ; начало цикла
  (while flag
  (setq answer (getstring "\n Ввести точку вручную или из файла? <В/Ф>"));ветвление на различные способы ввода
  (if (or (= answer "Ф")(= answer "ф"))
   (progn 
    ; открыть файл на чтение
(setq FILE (open "d:\\points.txt"  "r"))
(setq p2 (read-line FILE))
(setq p1(read(strcat "(" p2 ")")))
 
 
 
(close FILE)
 
);закрытие работы с файлом
  (setq p1 (getpoint "Введите координaты любой точки через запятую:"))
    ); конец условия по выбору ввода
   
 (progn
(setq FILE (open "d:\\user.txt" "a"))
(prin1 p1  FILE)
(close FILE)
 )
    
    
 (setq x (car p1))
  (setq y (cadr p1))
  (setq Rad 4)
  (setq r (+ (expt x 2) (expt y 2)))
    (
     if (and (<= r  Rad) (or (<= x 0) (>= x 1)))
      (progn
    (command "_.Color" "61")
    
      (SetVar "PDMODE" 34)
      (SetVar "PDSIZE" 0)
      (command "_.Point" p1 )
    
      (command "_.Text" p1  "0.1" "0" "Попал")
      )
      (progn
       (command "_.Color" "61")
       (SetVar "PDMODE" 34)
       (SetVar "PDSIZE" 0)
      (command "_.Point" p1 )
       (command "_.Text" p1  "0.1" "0" "Не попал")))
     (setq ans (getstring "\n Ещё раз? <Д/Н>:"))
    (setq flag (or ( = ans "Д") ( = ans "д")))
    );конец цикла
    )
2
Миниатюры
AutoLISP работа с файлом  
Вложения
Тип файла: txt points.txt (31 байт, 10 просмотров)
Тип файла: txt user.txt (13 байт, 7 просмотров)
19.11.2015, 06:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2015, 06:03

Рисование кругов AutoLisp
помогите пожалуйста сделать задание (Autocad через лисп ) Нарисовать несколько графических...

Способ изучения autolisp
Привет. Посоветуйте пожалуйста, как бы мне к зверю(авто лисп) этому найти подход? Прошу...

Программа-калькулятор AUTOLISP
Пожалуйста,помогите!Срочно нужна программа-калькулятор на AUTOLISP в среде AUTOCAD выполняющая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru