[编程交流] 记住用户输入以备将来使用

(setq a b)
(setq b        (getint        (strcat        "\nSpecify Radius "
                (if (not a)
                  ": "
                  (strcat "<" (itoa a) ">: ")
                )
        )
)
)
(if (and (not b) a)
 (setq b a)
)

(setq xdef (if gv_xval gv_xval 100))
(setq x (getdist (strcat "\n X Axis Value <" (rtos xdef 2 2) ">:   ")))
(or x (setq x xdef))
(setq gv_xval x)

(defun c:gv (/ fl af)
 (setq af (reverse (acad_strlsort (atoms-family 1))))
 (foreach a af
   (and (= "GV_"  (strcase (substr a 1 3)))
 (setq fl (cons (cons a (eval (read a))) fl))))
 (textpage)
 (princ "Global Variable Settings:")
 (foreach a fl (terpri) (prin1 a))
(prin1))

;;; JMPR.lsp
;;;
;;; Description
;;; Jumper will auto-create the radius jump for pipe crossings. 
;;;
;;; Author: Lee Mac (CADTutor)
;;; Date: 03/25/10
;;;
;;; Revision: 1
;;; Revision Date: 10/30/15
;;; Description - Modified by David Prontnicki
;;; Added the ability to select your radius at the beginning of the command.
;;; Changed interface verbage
;;;
;;; Command: JMPR
;;; -----------------------------------------------------------------------------;
(defun c:jmpr (/ *error* A AENT B1 B2 BDIS BENT DOC ENT OV P1 P2 UFLAG VL O W)
;  (setq bDis (getreal "\n Enter new value for Jump Radius: ")) ; Modified by David Prontnicki
(setq bDis
 (cond
   (
     (getreal
       (strcat "\n Enter new value for Jump Radius <"
         (itoa
           (setq bDis
             (cond ( bDis ) (1) )
           )
         )
         ">: "
       )
     )
   )
   ( bDis )
 )
)
 (defun *error* (msg)
   (and uFlag (vla-EndUndoMark doc))
   (and ov  (mapcar (function setvar) vl ov))
   (and msg (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
                (princ (strcat "\n** Error: " msg " **"))))
   (princ))
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
       vl '("PEDITACCEPT" "CMDECHO" "OSMODE") ov (mapcar (function getvar) vl))
 (setvar "PEDITACCEPT" 1)
 (while (and (setq uFlag (not (vla-StartUndoMark doc)))
             (mapcar   (function setvar) (cdr vl) '(0 32))
             (setq p1  (getpoint "\nPick the crossing intersection: ")) ; Modified by David Prontnicki
             (setq ent (entsel "\nSelect the line to break: "))) ; Modified by David Prontnicki
   (setq p2 (osnap (cadr ent) "_nea")
         b1 (polar p1 (setq a (angle p1 p2)) bDis)
         b2 (polar p1 (+ pi a) bDis))
   
   (setvar "OSMODE" 0)
   (command "_.break" b1 b2)
   (setq bEnt (entlast))
   (if (> a (/ pi 2.))
     (command "_.arc" b2 "_E" b1 "_A" 180.)
     (command "_.arc" b1 "_E" b2 "_A" 180.))
   (setq aEnt (entlast))
   (if (eq "LWPOLYLINE" (cdr (assoc 0 (entget (setq ent (car ent))))))
     (progn
       (setq w (vla-get-ConstantWidth (setq o (vlax-ename->vla-object ent))))
       (command "_.pedit" "_M" bEnt aEnt ent "" "_J" "" "")
       (vla-put-ConstantWidth (vlax-ename->vla-object (entlast)) w)))
   (setq uFlag (vla-EndUndoMark doc)))
 (*error* nil)  
 (princ))