| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Подскажите, существуют ли практические руководства по Lisp?

Подскажите, существуют ли практические руководства по Lisp?

Ответ
Поиск в этой теме
Непрочитано 07.03.2006, 15:51
Подскажите, существуют ли практические руководства по Lisp?
vn
 
Регистрация: 10.02.2006
Сообщений: 369

Недавно купил книгу. Полный сборник команд Lisp с их описанием.
Но на этом все и кончилось. Никаких примеров для начинающих.
Если кто знает, с чего начинать изучение Lisp медленно и шаг за шагом , подскажите пожалуйста.
Просмотров: 60731
 
Непрочитано 25.05.2010, 16:30
#241
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,431


всем привет. прошел год. забыл те крохи что знал.
Код:
[Выделить все]
(defun C:ramka (L B / pt1 pt2 pt3 pt4 )
 
 (initget 7)
     (setq pt1 (getpoint "\nВведите начальную точку: "))
  (setq L 297)
  (setq B 210)
    (setq pt2 (polar pt1 (* 0.5 pi) B))
    (setq pt3 (polar pt2 0 L))
    (setq pt4 (polar pt3 (* 1.5 pi) B))
    (Command "_Pline" pt1 pt2 pt3 pt4 "_c")
    
    (princ)
    )
не работает, а что непонятно

Последний раз редактировалось Рyslan, 25.05.2010 в 16:48.
Рyslan вне форума  
 
Непрочитано 25.05.2010, 16:56
#242
E-degtyarev

Помогаю, кому делать нечего.
 
Регистрация: 27.03.2009
Русская деревня
Сообщений: 394


Попробуй так:

Код:
[Выделить все]
(defun C:ramka ( / L B pt1 pt2 pt3 pt4 )
 
 (initget 7)
     (setq pt1 (getpoint "\nУкажите начальную точку: "))
  (setq L 297)
  (setq B 210)
    (setq pt2 (polar pt1 (* 0.5 pi) B))
    (setq pt3 (polar pt2 0 L))
    (setq pt4 (polar pt3 (* 1.5 pi) B))
    (Command "_Pline" pt1 pt2 pt3 pt4 "_c")
    
    (princ)
    )
E-degtyarev вне форума  
 
Непрочитано 25.05.2010, 17:08
#243
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,431


E-degtyarev получилось, спасибо

а вот тут что не верно?

Код:
[Выделить все]
(defun C:ramka ( / F L B pt1 pt2 pt3 pt4 )
   (setq osm (getvar "OSMODE"))
	(setvar "osmode" (logior osm 16384))

	(initget 1 "A4 A3 A2 A1 A0")
		(setq F (getkword (strcat "\nВыберите форматку [A4/A3/A2/A1/A0]: ")))
(cond
  ((= F A4) (setq L 297 B 210))
  ((= F A3) (setq L 420 B 297))
 
  )
автокад пишет- что неверный тип аргумента

Последний раз редактировалось Рyslan, 26.05.2010 в 16:22.
Рyslan вне форума  
 
Непрочитано 26.05.2010, 16:19
#244
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


(cond
((= F "A4") (setq L 297 B 210))
((= F "A3") (setq L 420 B 297))
)

Или полностью:
Код:
[Выделить все]
 
(defun C:ramka ( / F L B pt1 pt2 pt3 pt4 )
   (setq osm (getvar "OSMODE"))
 (setvar "osmode" (logior osm 16384))
 (initget 1 "A4 A3 A2 A1 A0")
  (setq F (getkword (strcat "\nВыберите форматку [A4/A3/A2/A1/A0]: ")))
(cond
  ((= F "A4") (setq L 297 B 210))
  ((= F "A3") (setq L 420 B 297))
 )
(princ)
)
А где ты точки-то указываешь?

Последний раз редактировалось Profan, 26.05.2010 в 18:02. Причина: Забыл кавычки
Profan вне форума  
 
Непрочитано 26.05.2010, 16:31
#245
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,431


Спасибо! Ты кавычки забыл
точки дальше идут. не весь код показал.

как можно программно ввести текст?

Последний раз редактировалось Рyslan, 27.05.2010 в 13:08.
Рyslan вне форума  
 
Непрочитано 28.05.2010, 08:00
#246
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,431


какие есть варианты размещения текста в программе?
например нужно заполнить основную надпись форматки
Рyslan вне форума  
 
Непрочитано 01.06.2010, 16:56
#247
E-degtyarev

Помогаю, кому делать нечего.
 
Регистрация: 27.03.2009
Русская деревня
Сообщений: 394


Основную надпись в форматке лучше сделать блоком с атрибутами.
В дальнейшем будет удобнее автоматически считывать их значения.(Моё скромное мнение)
E-degtyarev вне форума  
 
Непрочитано 01.06.2010, 17:08
#248
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,431


я тут смотрю импортный лисп. в нем все через x-ref сделано
Рyslan вне форума  
 
Непрочитано 07.07.2010, 15:07
#249
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Возможно немного не в ту степь, но не охота из-за простого вопроса новую тему создавать....
Кто-нибудь, напомните почему при создании запроса к пользователю выбрать вариант ответа нельзя нажать Enter чтоб выбрать вариант по умолчанию? Поясняю на примере:
Изначально было так:
Код:
[Выделить все]
(initget 1 "A4 A3 A2 A1 A0 А4 А3 А2 А1 А0")
(setq format (getkword "\nФормат бумаги [A4/A3/A2/A1/A0] <A3>: "))
Потом, когда понял, что при нажатии на Enter для ответа по умолчанию (т.е. вариантом "A3"), выскакивает сообщение "Invalid option keyword", исправил на это:
Код:
[Выделить все]
(initget 1 "A4 A3 A2 A1 A0 À4 À3 À2 À1 À0")
  (if (null (setq format (getkword "\nФормат бумаги [A4/A3/A2/A1/A0] <A3>: ")))
	    (setq format "А3"))
И ничего не изменилось.... Как решить данную проблему? Помогите плиз...
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 07.07.2010, 15:13
#250
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,683
Отправить сообщение для Do$ с помощью Skype™


"Invalid option keyword" выскакивает, потому что в initget стоит бит 1. Убери его и будет то, что хочется.
Do$ вне форума  
 
Непрочитано 07.07.2010, 15:36
#251
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Do$, точно! Спасибо. Почитаю на досуге про initget....
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 18.08.2010, 22:48 конвертирования текстов в блоки
#252
IrinaO


 
Регистрация: 27.05.2009
Сообщений: 36


Обращаюсь к Вам, как инженеру LISp: существует ли возможность конвертирования текстов в блоки ? Цель - вычерчивание горизонталей в геодезии.
IrinaO вне форума  
 
Непрочитано 18.08.2010, 22:52
#253
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,754


А не проще ли будет сделать один блок с атрибутом или несколькими атрибутами и вставлять его, импортируя значения текста?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 19.08.2010, 06:30
#254
ShaggyDoc

Thượng Tá Quân Đội Nhân Dân Việt Nam
 
Регистрация: 14.03.2005
44d32'44"С, 33d26'51"В
Сообщений: 11,104


Разумеется, текст в блок можно "конвертировать". Только лучше, как Кулик Алексей aka kpblc подсказывает - брать "значение" текста и присваивать атрибуту блока, на место текста вставлять блок, а текст убирать.

Смысл в этом есть, например, для высотных отметок, которые были просто текстом написаны. Тогда их можно будет, впоследствии, обрабатывать программно - модель рельефа строить, профили и т.п.

Что касается горизонталей, то тут лучше использовать специальный "текстовый" тип линии. В этом случае полилиния, изображающая горизонталь, остается одним объектом, но видны значения отметки. И, при необходимости, можно извлечь значения высотных отметок для каждой горизонтали. Причем извлекать понадобится только одно значение для каждой линии - из имени типа.

Разумеется, такие линии должны генерироваться автоматически, при вводе значения отметки.
ShaggyDoc вне форума  
 
Непрочитано 19.08.2010, 11:08
#255
IrinaO


 
Регистрация: 27.05.2009
Сообщений: 36


Во-первых- большое спасибо за реакцию на вопрос. Но к сожалению, я не знаю, как импортировать значение текста в блок. В ручную - тяжело, текстов тысячи пол-тары. При-этом необходимо сохранить точку вставки текста, либо прочесть в блок ( если он общий) его координаты.
IrinaO вне форума  
 
Непрочитано 19.08.2010, 11:57
#256
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,754


Образец наверняка поможет делу: "что было" и "что должно из этого получиться".
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 08.01.2011, 17:32
#257
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Чувак наконец-то переиздал свою книженцию "The Visual LISP Developer's Bible, 2011 Edition"!
Советую к прочтению!
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 08.01.2011, 22:25
#258
bernata


 
Регистрация: 22.09.2005
здесь могла быть ваша реклама
Сообщений: 1,235


-> acyxou
а вариант в *.PDF можно-ли раздобыть ?
__________________
иногда молчание мудрее любой высказанной мудрости
bernata вне форума  
 
Непрочитано 08.01.2011, 23:46
#259
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


хз... следите за обновлениями на его сайте
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 26.11.2015, 05:53
#260
vladimirr_b


 
Регистрация: 24.01.2012
Сообщений: 83


Я начал с сайта acad-prog.ru. На сайте 14 уроков по созданию программ на Автолисп с подробным описанием каждого шага при программировании.
vladimirr_b вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Подскажите, существуют ли практические руководства по Lisp?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск