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

vn · 07.03.2006, 15:51

Недавно купил книгу. Полный сборник команд Lisp с их описанием.
Но на этом все и кончилось. Никаких примеров для начинающих.
Если кто знает, с чего начинать изучение Lisp медленно и шаг за шагом , подскажите пожалуйста.

Кулик Алексей aka kpblc · 03.03.2009, 22:04

Двойной клик мышой на открывающей (или закрывающей) скобке автоматом выделит весь кусок, заключенный в эти скобки (естественно, если это возможно). Вот его и надо проверять.
Кстати, не maloformed, по-моему, а mailformed.
Теперь о вызовах и прочей лабуде. Оформляется всего одна функция, что-то наподобие

Код:

[Выделить все]

(defun draw-pipe-tap(angle-center diameter rdug) ;||;)

а в макросах прописываешь что-то типа

Код:

[Выделить все]

^C^C(draw-pipe-tap 30 160 20)

А если захочется, чтобы по пробелу или Enter'у повторялось выполнение, то

Код:

[Выделить все]

^C^C(defun c:mydr() (draw-pipe-tap 30 160 20));mydr;
^C^C(defun c:mydr() (draw-pipe-tap 45 160 20));mydr;

Естественно, что макросы представлены в последнем коде для разных кнопок. Единственное - тебе надо будет гарантировать загрузку твоего лиспа.

Рyslan · 14.03.2009, 18:02

Алексей, привет! Есть вопрос. Важно месторасположение функции пересчета углов из градусов в радианы в теле кода программы?

Код:

[Выделить все]

(defun dtr (centr_ang)
	(* pi (/ centr_ang 180.0)
	)

Еще вопрос, функция antof делает то же самое что и вышенаписанная?

Кулик Алексей aka kpblc · 14.03.2009, 18:15

Теоретически местоположение функции не важно, по-моему. Но лично я предпочитаю функции описывать до первого их применения (уж не помню, откуда эта рекомендация вылезла).
Н.Н.Полещук, "AutoLISP и VisualLISP в среде AutoCAD" (с некоторыми купюрами):

Цитата:

angtof: Преобразовывает строку, представляющую значение угла в различных форматах, в вещественное число, являющееся величиной угла в радианах

Код:

[Выделить все]

(angtof <строка> [<представление>])

Строка - строковое представление преобразовываемого угла.
Представление - целое число. Соответствует значениям AUNITS. Если пропущено, принимается текущее значение AUNITS:
0 - градусы
1 - градусы, минуты, секунды
2 - грады
3 - радианы
4 - топографические единицы
Примеры:

Код:

[Выделить все]

(angtof "22" 0) ; 0.383972 (перевод из градусов в радианы)
(angtof "72.48g" 2) ; 1.13851
(angtof "7d13'20\"" 1) ; 0.126052

angtof:

Рyslan · 14.03.2009, 18:26

справка по функции antof у меня есть

просто хотел узнать, эти две функции делают одно и тоже или нет

Кулик Алексей aka kpblc · 14.03.2009, 18:39

Ну, если ты будешь передавать корректную строку, то, наверное, можно и ее использовать. Вопрос в скорости выполнения (я - не тестировал, скажу сразу).

Рyslan · 14.03.2009, 19:05

Код:

[Выделить все]

(setq Dist1 (* 2 Rv (sin (* 0.5 (angtof "centr_ang")))))

Код:

[Выделить все]

 (setq Dist1 (* 2 Rv (sin (* 0.5 (dtr centr_ang)))))

Когда использую dtr - постоянно выходит сообщение неправильно сформированный список на входе (лисп не начинает работать). Когда использую angtof - После ввода второй точки -Укажите точку на оси трубы:; ошибка: неверный тип аргумента: numberp:
nil
Может не из-за этих функций конечно не работает...честно говоря Vlide не особо помогает выявить ошибки. Пишет то да се, а пальцем ткнуть где неправильно не умеет

VVA · 14.03.2009, 20:13

Рyslan, С чего это ты переменную centr_ang берешь в кавычки?

Код:

[Выделить все]

(setq Dist1 (* 2 Rv (sin (* 0.5 (angtof "centr_ang")))))

В переменной centr_ang должна быть строка. Думаю что

Цитата:

неправильно сформированный список на входе

из той же оперы. Покажи что и как у тебя заносится в centr_ang

Рyslan · 14.03.2009, 20:20

VVA

Код:

[Выделить все]

(defun c:otvod (/ P1 P2 P3 P4 P5 P6)

(setq osm (getvar "OSMODE"))
(setvar "osmode" (logior osm 16384))
						
	(initget 7)																	
(setq centr_ang (getint (strcat "\nЦентральный угол отвода 45/60/90:")))
    

	(initget 7)
(setq D_nom (getdist (strcat "\nУсловный диаметр отвода 40/50/65/80/100:")))			
(cond
	((= D_nom 40 ) (setq D 45 Rdug 60))				
	((= D_nom 50 ) (setq D 57 Rdug 75))
	((= D_nom 65) (setq D 76 Rdug 100))
	((= D_nom 80) (setq D 89 Rdug 120))
	((= D_nom 100) (setq D 108 Rdug 150))
)
  
 (initget 7)
	(setq P1 (getpoint "\nУкажите начальную точку отвода:"))
(initget 7)
	(setq ang (getorient P1 "\nУкажите точку на оси трубы:"))
	
				
  (setq Rv (- Rdug (* 0.5 D)))							
  (setq Rn (+ Rdug (* 0.5 D)))

  (setq Dist1 (* 2 Rv (sin (* 0.5 (angtof "centr_ang")))))					
  (setq Dist2 (* 2 Rdug (sin (* 0.5 (angtof "centr_ang")))))				
  (setq Dist3 (* 2 Rn (sin (* 0.5 (angtof "centr_ang")))))					



  (setq P2 (polar P1 (+ ang (* 0.5 pi)) (* 0.5 D)))			
  (setq P3 (polar P2 (+ ang (* 0.5 (angtof "centr_ang"))) Dist1))
  (setq P4 (polar P1 (+ ang (* 0.5 (angtof "centr_ang"))) Dist2))
  (setq P6 (polar P1 (+ ang (* 1.5 pi)) (* 0.5 D)))
  (setq P5 (polar P6 (+ ang (* 0.5 (angtof "centr_ang"))) Dist3))
  
  
  

  (Command "_.PLine" P6 P2 "_cl")
  (Command "_.Pline" P3 P5 "_cl")
  (Command "_.Arc" P2 "_E" P3 "_R" Rv "_cl")
  (Command "_.Arc" P6 "_E" P5 "_R" Rn "_cl")
  	 
  (Command "_.Arc" P1 "_E" P4 "_R" Rdug "_cl")
(setq Arc (entlast))
(Command "_.Change" Arc "" "_P" "_la" "Center" "" "")

(setvar "OSMODE" osm)

  
  (princ)								
)

до antof у меня было (defun dtr (centr_ang)
(* pi (/ centr_ang 180.0)
)
ну и соответсвтенно (setq Dist1 (* 2 Rv (sin (* 0.5 (dtr centr_ang)))))

Рyslan · 17.03.2009, 21:23

странно, на работе лисп работает, дома нет

VVA · 18.03.2009, 13:49

Рyslan, Что ты этим хотел сделать
(Command "_.Arc" P2 "_E" P3 "_R" Rv "_cl")
(Command "_.Change" Arc "" "_P" "_la" "Center" "" "")

Цитата:

(Command "_.Arc" ;_Вызвали команду ARC
P2 ;_Что ты этим хотел сделать
"_E" ;_Что ты этим хотел сделать
P3 ;_Что ты этим хотел сделать
"_R" ;_Что ты этим хотел сделать
Rv ;_Что ты этим хотел сделать
"_cl" ;_Что ты этим хотел сделать
)

Вместо ;_Что ты этим хотел сделать дай ответ
Точно так же распиши про _CHANGE
Ответишь - подправлю код.

Рyslan · 18.03.2009, 17:25

Код:

[Выделить все]

(defun C:OTV (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 centr_ang Rdug D D_nom)
	
(defun dtr (centr_ang)			
    (* pi (/ centr_ang 180.0))
)

	(setq osm (getvar "OSMODE"))
	(setvar "osmode" (logior osm 16384))


	(initget 7)																	
		(setq centr_ang (getint (strcat "\nЦентральный угол отвода 45/60/90:")))
	(initget 7)

		(setq D_nom (getdist (strcat "\nДиаметр отвода 40/50/65/80/100/125/150/200/250/300:")))
(cond

	((= D_nom 40) (setq D 45 Rdug 60))
	((= D_nom 50) (setq D 57 Rdug 75))
	((= D_nom 65) (setq D 76 Rdug 100))
	((= D_nom 80) (setq D 89 Rdug 120))
	((= D_nom 100) (setq D 108 Rdug 150))
	((= D_nom 125) (setq D 133 Rdug 190))
	((= D_nom 150) (setq D 159 Rdug 225))
	((= D_nom 200) (setq D 219 Rdug 300))
	((= D_nom 250) (setq D 273 Rdug 375))
	((= D_nom 300) (setq D 325 Rdug 450))
)

  (setq Rv (- Rdug (* 0.5 D)))							
  (setq Rn (+ Rdug (* 0.5 D)))							
  (setq Dist1 (* 2 Rv (sin (* 0.5 (dtr centr_ang)))))					
  (setq Dist2 (* 2 Rdug (sin (* 0.5 (dtr centr_ang)))))				
  (setq Dist3 (* 2 Rn (sin (* 0.5 (dtr centr_ang)))))	
				

	(initget 7)  
  		(setq pt1 (getpoint "\nУкажите начальную точку отвода:"))
	(initget 7)
		(setq ang (getorient pt1 "\nУкажите точку на оси трубы:"))

  (setq pt2 (polar pt1 (+ ang (* 0.5 pi)) (* 0.5 D)))			
  (setq pt3 (polar pt2 (+ ang (* 0.5 (dtr centr_ang))) Dist1))
  (setq pt4 (polar pt1 (+ ang (* 0.5 (dtr centr_ang))) Dist2))
  (setq pt6 (polar pt1 (+ ang (* 1.5 pi)) (* 0.5 D))) 
  (setq pt5 (polar pt6 (+ ang (* 0.5 (dtr centr_ang))) Dist3))
  
  (setq pt7 (polar pt1 (+ ang pi) 5))
  (setq pt8 (polar pt4 (+ ang (dtr centr_ang)) 5))
  
(Command "_.Pline" pt1 pt7 "")
  
(Command "_.PLine" pt6 pt2 "")
(Command "_.Pline" pt3 pt5 "")
(Command "_.Arc" pt2 "_E" pt3 "_R" Rv "")
(Command "_.Arc" pt6 "_E" pt5 "_R" Rn "")	 
(Command "_.Arc" pt1 "_E" pt4 "_R" Rdug "")
  
(setq Arc (entlast))
(Command "_.Change" Arc "" "_P" "_la" "Center" "" "")
  
(Command "_.Pline" pt4 pt8 "")
  
(Command "_.Mirror")
  
(setvar "OSMODE" osm)
  
(princ)
)

Этот код у меня работает. (Command "_.Arc" pt2 "_E" pt3 "_R" Rv "") - этим я рисую внутреннюю часть отвода. (Command "_.Change" Arc "" "_P" "_la" "Center" "" "")- этим хочу осевую получить, хотелось бы на 0 слой, но не знаю как вытащить штрихпунктирную линию. Концовка кода как-то не так получается, вроде есть запрос на зеркало в ком строке, но нужно вручную выбирать все объекты для отражения. Еще бы хотелось, чтобы после отрисовки был запрос на повтор. Прилагаю картинку

VVA · 18.03.2009, 18:55

Рyslan, Я хочу увидеть описение ПОШАГОВЫХ действий
Типа

Цитата:

(Command "_.Arc" ;_Запустили команду ARC
pt2 ;_Точка начала дуги
"_E" ;_Опция END (конечна точка)
pt3;_конечная точка дуги
"_R" ;_Опция радиус
Rv ;_Задали радиус
"" ;_КАКОГО ... ЖМЕМ ENTER?
)

У тебя в этих командах ошибки. Я хочу чтобы ты их нашел м понял как пользоваться command

Рyslan · 18.03.2009, 20:45

VVA жму enter по аналогии с обычным рисованием. это лишнее? без enter почему то код не работает. может всетаки оставить кавычки?

VVA · 18.03.2009, 21:15

Рyslan, Разве рисуя дугу руками после указания радиуса ты жмешь Enter? (Enter которым ты подтверждаешь ввод радиуса в командной строке не считать)
Что здесь не работает?

Код:

[Выделить все]

(setq pt2 '(0 0 0))
(setq pt3 '(10 0 0))
(setq Rv 10)
(Command "_.Arc" ;_Запустили команду ARC
pt2 ;_Точка начала дуги
"_E" ;_Опция END (конечна точка)
pt3;_конечная точка дуги
"_R" ;_Опция радиус
Rv ;_Задали радиус
)

Рyslan · 19.03.2009, 11:14

убрал кавычки, все работает. разобрался с осевой. ну а как остальные мои вопросы?

VVA · 19.03.2009, 11:49

Рyslan, Молодца

Код:

[Выделить все]

(defun c:otvod (/ P1 P2 P3 P4 P5 P6)
(setq osm (getvar "OSMODE"))
(setvar "osmode" (logior osm 16384))
(initget 7 "45 60 90") ;_ Делаем опции
(setq centr_ang (getangle "\nЦентральный угол отвода [45/60/90]:")) ;_getangle запрашивает сразу угол
(initget 7 "45 50 65 80 100") ;_ Делаем опции
(setq D_nom (getkword  "\nУсловный диаметр отвода [40/50/65/80/100]:"));_getkword ограничивает запрос вариантов отводов
(setq D_nom (atoi D_nom))  
(cond
	((= D_nom 40 ) (setq D 45 Rdug 60))				
	((= D_nom 50 ) (setq D 57 Rdug 75))
	((= D_nom 65) (setq D 76 Rdug 100))
	((= D_nom 80) (setq D 89 Rdug 120))
	((= D_nom 100) (setq D 108 Rdug 150))
	(t  (setq D 108 Rdug 150))
)
  
 (initget 7)
	(setq P1 (getpoint "\nУкажите начальную точку отвода:"))
(initget 7)
	(setq ang (getorient P1 "\nУкажите точку на оси трубы:"))
	
				
  (setq Rv (- Rdug (* 0.5 D)))							
  (setq Rn (+ Rdug (* 0.5 D)))

  (setq Dist1 (* 2 Rv (sin (* 0.5 centr_ang)))) ;;;Было (angtof "centr_ang")
  (setq Dist2 (* 2 Rdug (sin (* 0.5 centr_ang))));;; Найди разницу
  (setq Dist3 (* 2 Rn (sin (* 0.5 centr_ang)))) ;;;

  (setq P2 (polar P1 (+ ang (* 0.5 pi)) (* 0.5 D)))			
  (setq P3 (polar P2 (+ ang (* 0.5 centr_ang)) Dist1))
  (setq P4 (polar P1 (+ ang (* 0.5 centr_ang)) Dist2))
  (setq P6 (polar P1 (+ ang (* 1.5 pi)) (* 0.5 D)))
  (setq P5 (polar P6 (+ ang (* 0.5 centr_ang)) Dist3))
  
  (Command "_.PLine" P6 P2 "_cl")
  (Command "_.Pline" P3 P5 "_cl")
  (Command "_.Arc" P2 "_E" P3 "_R" Rv )
  (Command "_.Arc" P6 "_E" P5 "_R" Rn )
  	 
  (Command "_.Arc" P1 "_E" P4 "_R" Rdug ) ;_С этим ты разобрался
(setq Arc (entlast))
(if (null(tblsearch "layer" "Center"));_Проверяем ниличие слоя и создаем его при отсутствии
  (command "_.-LAYER" "_N" "Center"))
(Command "_.Change" Arc "" "_P" "_la" "Center" "") ;_С этим ты разобрался
(setvar "OSMODE" osm)
(princ)								
)

Рyslan · 19.03.2009, 17:36

VVA,спасибо! Посмотри теперь мой код, работает. Вот только в конце Mirror не знаю как приспособить, отвод отрисовывается, потом зеракало передается в комстроку, запрашивается выделение объектов, можно все выделить и отзеркалить...но как то не особо красиво. Еще в моем коде плечики в 5 мм отрисовываются, для привязки. Они у меня рисуются отдельно от осевой (пробовал через Pline и дальше используя опции дуги, не получилось).

Код:

[Выделить все]

(defun C:OTV (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 centr_ang Rdug D D_nom)
	
(defun dtr (centr_ang)			
    (* pi (/ centr_ang 180.0))
)

	(setq osm (getvar "OSMODE"))
	(setvar "osmode" (logior osm 16384))


	(initget 7)																	
		(setq centr_ang (getint (strcat "\nЦентральный угол отвода 45/60/90:")))
	(initget 7)

		(setq D_nom (getdist (strcat "\nДиаметр отвода 40/50/65/80/100/125/150/200/250/300:")))
(cond

	((= D_nom 40) (setq D 45 Rdug 60))
	((= D_nom 50) (setq D 57 Rdug 75))
	((= D_nom 65) (setq D 76 Rdug 100))
	((= D_nom 80) (setq D 89 Rdug 120))
	((= D_nom 100) (setq D 108 Rdug 150))
	((= D_nom 125) (setq D 133 Rdug 190))
	((= D_nom 150) (setq D 159 Rdug 225))
	((= D_nom 200) (setq D 219 Rdug 300))
	((= D_nom 250) (setq D 273 Rdug 375))
	((= D_nom 300) (setq D 325 Rdug 450))
)

  (setq Rv (- Rdug (* 0.5 D)))							
  (setq Rn (+ Rdug (* 0.5 D)))							
  (setq Dist1 (* 2 Rv (sin (* 0.5 (dtr centr_ang)))))					
  (setq Dist2 (* 2 Rdug (sin (* 0.5 (dtr centr_ang)))))				
  (setq Dist3 (* 2 Rn (sin (* 0.5 (dtr centr_ang)))))	
				

	(initget 7)  
  		(setq pt1 (getpoint "\nУкажите начальную точку отвода:"))
	(initget 7)
		(setq ang (getorient pt1 "\nУкажите точку на оси трубы:"))

  (setq pt2 (polar pt1 (+ ang (* 0.5 pi)) (* 0.5 D)))			
  (setq pt3 (polar pt2 (+ ang (* 0.5 (dtr centr_ang))) Dist1))
  (setq pt4 (polar pt1 (+ ang (* 0.5 (dtr centr_ang))) Dist2))
  (setq pt6 (polar pt1 (+ ang (* 1.5 pi)) (* 0.5 D))) 
  (setq pt5 (polar pt6 (+ ang (* 0.5 (dtr centr_ang))) Dist3))
  
  (setq pt7 (polar pt1 (+ ang pi) 5))
  (setq pt8 (polar pt4 (+ ang (dtr centr_ang)) 5))
  
(Command "_.Pline" pt7 pt1 "")
(Command "_.Arc" pt1 "_E" pt4 "_R" Rdug)
(setq Arc (entlast))
(Command "_.Change" Arc "" "_p" "_lt" "ACAD_ISO04W100" "")
(Command "_.Pline" pt4 pt8 "") 
(Command "_.PLine" pt6 pt2 "")
(Command "_.Pline" pt3 pt5 "")
(Command "_.Arc" pt2 "_E" pt3 "_R" Rv)
(Command "_.Arc" pt6 "_E" pt5 "_R" Rn)	 

  
(Command "_.Mirror")
  
(setvar "OSMODE" osm)
  
(princ)
)

Буду твой код изучать, спасибо! Я тут установил себе прокат Кондрата В. Красиво сделано. Захотелось себе аналогичное сделать. Трубы, фланцы, переходы, отводы, тройники, задвижки-все в диалоговом окне. Код для трубы уже сделал (наверное не очень правильный, но работает). Неплохая штука была бы для технологов.

Рyslan · 21.03.2009, 08:53

как создать повтор кода, без повторного ввода информации? как осуществить выбор всех примитивов в коде?

Кулик Алексей aka kpblc · 21.03.2009, 09:01

Рyslan, ты вопросы задай по-человечески

Что значит "повтор кода"? И "выбор всех примитивов" - это ты про (ssget "_X") или еще про что-то?

Рyslan · 21.03.2009, 09:31

Привет. Повтор кода- ну вот загрузил программу, ввел данные, она отрисовала что-то....потом хотелось бы как в Акаде, нажал пробел и повтор команды, еще пробел повтор данных и отрисовка опять того же. ssget "X" я пробовал, выделяет все объекты в рисунке, а мне нужно только то что программа нарисовала (например для Mirror

ну не получается у меня отзеркалить)

07.03.2006, 15:51
Подскажите, существуют ли практические руководства по Lisp? vn Регистрация: 10.02.2006 Сообщений: 373 Недавно купил книгу. Полный сборник команд Lisp с их описанием. Но на этом все и кончилось. Никаких примеров для начинающих. Если кто знает, с чего начинать изучение Lisp медленно и шаг за шагом , подскажите пожалуйста.
Просмотров: 76616