11.02.2020 08:57

87984    

// lisp seçilen noktadan 1000 cm sağ yönünde çizim yapıyor. benim istediğim aşağı (270 derece) yönde yapması//

(defun c:gör()
(setq sol1 (getpoint "\nSol saçak noktası girin:")
sag1 (getpoint "\nSağ saçak noktası girin:"))


(setq sol2 (list (+ (car sol1) 1000.0) (cadr sol1)(caddr sol1))
sag2 (list (+ (car sag1) 1000.0) (cadr sag1)(caddr sag1)))


(command ".line" sol2 sag2 "")
)