Opamp

(defun C:opamp ()
    (setq base (getpoint "\n OpAmp vieta:"))
      (setq upCorn       (list (+ (car base) -60)          (+ (cadr base)  30)))
        (setq downCorn       (list (+ (car base) -60)           (+ (cadr base) -30)))
      (setq midUpEdge   (GetMidPoint base upCorn))
      (setq midUpLine      (list (+ (car midUpEdge) 0)        (+ (cadr midUpEdge) 15)))
      (setq midDownEdge (GetMidPoint base downCorn))
      (setq midDownLine (list (+ (car midDownEdge) 0)        (+ (cadr midDownEdge) -15)))
      (setq luPoint     (list (+ (car upCorn) 0)          (+ (cadr upCorn)  -10)))
        (setq llPoint     (list (+ (car downCorn) 0)          (+ (cadr downCorn) 10)))
      (setq luPointEnd  (list (+ (car luPoint) -10)          (+ (cadr luPoint)  0)))
        (setq llPointEnd  (list (+ (car llPoint) -10)          (+ (cadr llPoint)  0)))
      (setq outEnd       (list (+ (car base) 20)           (+ (cadr base)  0)))
      (command "pline" base "w" 2 2 upCorn downCorn "cl" "")
      (command "pline" midUpEdge   "w" 2 2 midUpLine "")
      (command "pline" midDownEdge "w" 2 2 midDownLine "")
        (command "pline" luPoint "w" 2 2 luPointEnd "")
          (command "pline" llPoint "w" 2 2 llPointEnd "")
      (command "pline" base "w" 2 2 outEnd "")
      (command "-text" midUpLine 10 0 "+V" "")
     (command "-text" outEnd 10 0 "Out" "")
        (command "-text" (list (car midDownLine) (+ (cadr midDownLine) -8)) 10 0 "-V" "")
          (command "-text" (list (+(car luPointEnd) -35) (cadr luPointEnd)) 10 0 "Vin +" "")
      (command "-text" (list (+(car llPointEnd) -35) (cadr llPointEnd)) 10 0 "Vin -" "")
)