[DY]

Ни как не могу понять.

Суть LISP программы:

1. Указываем линию от точки до точки.
2. к концу линии рисуем линию под углом 30 град к первой линии.

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

Код:

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

(defun C:EX ()
  (setq sp (getpoint "\n Начало: "))
  (setq se (getpoint "\n Конец: "))
  (command "line" sp se "")
  (setq Ug1 (/ pi 6))
  (setq Ug2 (angle sp ep))
  (setq Ug3 (+ pi Ug2))
  (setq Ug (- Ug3 Ug1))
  (setq R 20) 
  (command "line"
	   (getvar "LASTPOINT")
	   (polar (getvar "LASTPOINT") Ug R)
	   ""
  )


)

[Кулик Алексей aka kpblc]

А так?

Код:

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

(defun c:ex (/ pt_start pt_end)
  (if (and (setq pt_start (getpoint "\nНачало <Выход> : "))
           (setq pt_end (getpoint pt_start "\nКонец <Выход> : "))
           ) ;_ end of and
    (progn
      (command "_.line" pt_start pt_end "")
      (command "_.line"
               pt_end
               (polar pt_end
                      (+ pi (- (angle pt_start pt_end) (/ pi 6.)))
                      20.
                      ) ;_ end of polar
               ""
               ) ;_ end of command
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[DY]

Рисует.
Но длина второй линии 0.

Блин...
мозги вскипели....
А не работает как надо.... Хоть до завтра откладывай. Хотя казалась что все просто.

[Zouss]

привязка к концу срабатывает

или отключайте привязку или генерите отрезок через entmake

[DY]

Спасибо!
Все работает.
Нашел ошибку у себя там где (angle sp ep) надо sp se

[Krieger]

Может уже проблему с привязками в FAQ занести?