[pele]

Мой кусок программы
_$ ;;;;Построение точки А0
_$ (setq x0 0)
_$ (setq y0 0)
_$ (setq ptА0 (list x0 y0))
_$ (command "point" ptА0 "")
_$ ;;;;Построение точки Т1
_$ (setq x5 15)
_$ (setq ptТ1 (list x5 y3))
_$ (command "point" ptТ1 "")
_$ ;;;;Построение отрезка А0Т1
_$ (command "line" ptА0 ptТ1 "")

Мне надо отрезок A0Т1 от точки Т1 продлить примерно на 1000 мм, подскажите пожалуйста как это сделать в программе

[Profan]

Что это такое?

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

Что значит "примерно"? Если работать лиспом, то никаких "примерно" быть не может.

Код:

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

(defun test (dist / start end)
  (vl-load-com)
  (if
    (and
      (not
	(vl-catch-all-error-p
	  (vl-catch-all-apply
	    '(lambda () (setq start (getpoint "\nНачальная точка <Отмена> : ")))
	    ) ;_ end of vl-catch-all-apply
	  ) ;_ end of vl-catch-all-error-p
	) ;_ end of not
      start
      (not (vl-catch-all-error-p
	     (vl-catch-all-apply
	       '(lambda	()
		  (setq end (getpoint start "\nКонечная точка <Отмена> : "))
		  ) ;_ end of lambda
	       ) ;_ end of vl-catch-all-apply
	     ) ;_ end of vl-catch-all-error-p
	   ) ;_ end of not
      end
      ) ;_ end of and
     (progn
       (mapcar '(lambda (x) (entmakex (list (cons 0 "POINT") (cons 10 x))))
	       (list start end)
	       ) ;_ end of mapcar
       (setq end (polar start (angle start end) (+ (distance start end) dist)))
       (entmakex (list (cons 0 "LINE") (cons 10 start) (cons 11 end)))
       ) ;_ end of progn
     ) ;_ end of if
  ) ;_ end of defun

Только перед запуском через _ddptype выстави вид точек, а то ты их не увидишь...