[Aндрeй]

Хочется разобраться с LISP программированием, как раз предоставилась возможность изучить на конкретном примере.

Как можно описать следующие действия:
1. Вводятся две точки на экране (левый верхний угол окна, затем правый нижний угол)
2. по образованному контуру рисуется прямоугольник четырьмя линиями
3. в зависимости от максимально возможной ширины стеклопакета (например 1м), рисуются вертикальные линии символизирующие импосты. вертикальные линии должны делить окно по горизонтали на равное количество отрезков.

Пример:
Графическим способом считаны точки с координатами 0,0 и 1800,1000
программа должна нарисовать 4 линии по контуру, чтобы получилось окно 1800х1000, затем рисуется еще одна вертикальная линия по середине.

Если считаны точки с координатами 0,0 и 2400,1000
программа должна нарисовать 4 линии по контуру, чтобы получилось окно 2400х1000, затем рисуется еще две вертикальных линий, которые делят окно на три части.

Посоветуйте с чего начать...

[Рyslan]

_Pline

[Do$]

Взять справочник по функциям AutoLISP и VilualLISP, в нем посмотреть функции "getpoint" и "command".

[Aндрeй]

Сообщение от Do$ Взять справочник по функциям AutoLISP и VilualLISP, в нем посмотреть функции "getpoint" и "command".

Так, getpoint ясно, считываются координаты, затем можно использовать расстоянии по x в качестве длинны, которую необходимо поделить на равные части.
С рисованием тоже более менее понятно.
А как выполнить выполнение деления полученной длинны с условием?

[Елпанов Евгений]

Сообщение от Aндрeй А как выполнить выполнение деления полученной длинны с условием?

смотри функции с условным выполнением: if, cond, while
и разбор самих условий: and, or, >, <, >=, <=
для начала более, чем достаточно.
удачи!

[Do$]

... и математические функции +, -, /, *
А так как координаты точки выдаются в виде списка, то понадобятся еще функции car, cadr, caddr...
Во вложении уроки по AutoLISP где пошагово объясняется, как писать такие простенькие программки...

[VVA]

Aндрeй, В твоем случае лучше, наверное, будет использовать связку GETPOINT+ GETCORNER

Код:

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

(initget 1)
(setq pt1 (getpoint "\nПервая точка:"))
(initget 1)
(setq pt2 (GETCORNER pt1 "\nВторая точка:"))

[Рyslan]

можно и координату середины окна высчитать и той же полилинией нарисовать

[detrah]

Я таку прогу писал несколько лет назад. Там много типов переплётов (около 10). Есть возможность указания ширины перплётов.
Потом сделал "автоокно", где можно было указывать количество одинаковых ячеек переплётов по ширине/высоте.

Соотношение размеров переплётов задавалось в lisp-коде.

[Aндрeй]

detrah А как прикрутить диалоговые окна?

Рyslan Так там не только пополам... Делить надо... И округлять! С FIX вроде все получается!

VVA GETCORNER - то что нужно!
А зачем используется (initget 1)?

Do$ Спасибо за мурзилку! Все коротко, понятно да еще с элементами повторения!

В общем, всем спасибо за поддержку!

[detrah]

Сообщение от Aндрeй detrah А как прикрутить диалоговые окна?

У-у-у-ффф! Ну и вопросик! Читаем книгу Полещука "Визуал лисп и секреты адаптации автокад"...

Короче, в двух словах не рассказать

[Aндрeй]

Сообщение от detrah У-у-у-ффф! Ну и вопросик! Читаем книгу Полещука "Визуал лисп и секреты адаптации автокад"... Короче, в двух словах не рассказать

Ну хотя бы намек.
dcl?

[Alan]

Только что написал в соседней очень похожей теме, повторюсь.
Вспомнил знаменитую тему "Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)"


>Андрей внимательно прочитайте, думаю многое проясниться
http://forum.dwg.ru/showthread.php?t=22894

[kontrR]

Давно пользуюсь вот таким-

Код:

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

 ;Окно двустворчатое на фасаде. 

(defun C:FOK2 ()
(setvar "CMDECHO" 0)
(command "_layer" "s" "okn" "")
     
     (setq D ($getdist "\nТолщина переплета:" 60 P1))


         
(command "_osnap" "int")

           (setq P1 (getpoint "\nЛевая нижняя точка проема:"))
           (setq P3 (getpoint P1 "\nПравая верхняя точка проема:"))

 (setq P2 (list  (car P1) (cadr P3)))

(command "_osnap" "none")

           (setq A (angle P1 P2))
           (setq AA (angle P2 P3))

           (setq H (distance P1 P2))
           (setq L (distance P2 P3))
          
(setq P11 (polar P1 A D ))
(setq P21 (polar P11 AA D ))
(setq P12 (polar P1 A (- H D) ))
(setq P22 (polar P12 AA (- (/ L 2) (* 0.5 D))))
(setq P31 (polar P11 AA (+ (/ L 2) (* 0.5 D))))
(setq P32 (polar P12 AA (- L D) ))


(command "_rectang"  P1 P3 "")
(command "_rectang"  P21 P22 "")
(command "_rectang"  P31 P32 "")

(command "_OSNAP" "int")
(princ)
)


;+++++++++++++++++++++++++++++++++++++FOK3.lsp++++++++++++++++++++++++++++++++++++
                         ;Окно трехстворчатое на фасаде.

(defun C:FOK3 ()
(setvar "CMDECHO" 0)
(command "_layer" "s" "okn" "")
     
     (setq D ($getdist "\nТолщина переплета:" 60 P1))


         
(command "_osnap" "int")

           (setq P1 (getpoint "\nЛевая нижняя точка проема:"))
           (setq P3 (getpoint P1 "\nПравая верхняя точка проема:"))

 (setq P2 (list  (car P1) (cadr P3)))

(command "_osnap" "none")

           (setq A (angle P1 P2))
           (setq AA (angle P2 P3))

           (setq H (distance P1 P2))
           (setq L (distance P2 P3))
          
(setq P11 (polar P1 A D ))
(setq P21 (polar P11 AA D ))
(setq P12 (polar P1 A (- H D) ))
(setq P22 (polar P12 AA (- (/ L 3) (* 0.5 D))))


(setq P31 (polar P11 AA (+ (* (/ L 3) 2) (* 0.5 D))))
(setq P32 (polar P12 AA (- L D) ))

(setq P41 (polar P11 AA (+ (/ L 3) (* 0.5 D))))
(setq P42 (polar P12 AA (- (* (/ L 3) 2) (* 0.5 D))))


(command "_rectang"  P1 P3 "")
(command "_rectang"  P21 P22 "")
(command "_rectang"  P31 P32 "")
(command "_rectang"  P41 P42 "")

(command "_OSNAP" "int")
(princ)
)