[编程交流] Lisp-向se提示用户输入

(initget "Through Erase Layer")
(setq ans (getdist "\nSpecify offset distance [Through/Erase/Layer]: "))

(setq ent_lst nil ent0 nil)
(while (= ent0 nil)
(initget "Distance")
(setq ans (entsel "\nSelect rectangle to chamfer [Distance]: "))
(if (= ans "Distance")
        (progn
        (setq cdis (getreal "Chamfer Distance: <1.0>"))
        )
        (progn
        (setq ent0 ans)
        (setq ent_lst (entget(car ent0)))
        )
)
)
(if (= cdis nil) (setq cdis 1.0))

(defun c:test ( / ans dis ent enx ) ;; Define function & declare local variables ('dis-global' remains a global variable)
   ;; Initialise global variable if null
   (if (null dis-global)
       (setq dis-global 1.0)
   )
   (while ;; While the following expression returns a non-nil value
       (progn ;; Evaluate the following expressions and return the result of the last evaluated expression
           (setvar 'errno 0) ;; Reset the ERRNO system variable (this sys var does not automatically reset)
           (initget "Distance") ;; Initialise the keyword for the next user prompt
           (setq ans (entsel "\nSelect rectangle to chamfer [Distance]: ")) ;; Prompt the user for a selection or keyword
           (cond
               (   (= 7 (getvar 'errno)) ;; Missed pick
                   (princ "\nMissed, try again.") ;; Notify user & stay in loop
               )
               (   (null ans) ;; User pressed Enter
                   nil ;; Exit loop
               )
               (   (= "Distance" ans) ;; User entered keyword
                   (if (setq dis (getdist (strcat "\nChamfer distance <" (rtos dis-global) ">: "))) ;; Prompt user for chamfer distance
                       (setq dis-global dis) ;; Update global variable if user enters a new value
                       (setq dis dis-global) ;; Else use global variable value
                   ) ;; end if
               ) ;; end condition
           ) ;; end cond
       ) ;; end progn
   ) ;; end while
   (if ans ;; If an object was selected
       (progn ;; Evaluate the following expressions and return the result of the last evaluated expression
           (setq ent (car ans) ;; Obtain the selected entity name
                 enx (entget ent) ;; Obtain the DXF data for the selected entity
           ) ;; end setq
           (princ ;; Print the entity type & chamfer distance for the selected object (just as an example)
               (strcat ;; Concatenate the following strings
                   "\nUser selected a " (cdr (assoc 0 enx)) 
                   " with a chamfer distance of " (rtos dis)
               ) ;; end strcat
           ) ;; end princ
       ) ;; end progn
       (princ "\nUser did not select an object.") ;; Else the user did not select anything
   ) ;; end if
   (princ) ;; Suppress the return of the last evaluated expression
) ;; end defun

(defun C:PLA ()
(setq osmd (getvar "osmode"))
(setq ocmd (getvar "cmdecho"))
(graphscr)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setvar "plinetype" 2)
(command "UCS" "world");reset UCS to "World"
(setq ent_lst nil ent0 nil)
(while (= ent0 nil)
        (initget "Distance")
        (setq ans (entsel "\nSelect rectangle to chamfer [Distance]: "))
        (if (= ans "Distance")
                (progn
                (setq cdis (getreal "Chamfer Distance: <1.0>"))
                )
                (progn
                (setq ent0 ans)
                (setq ent_lst (entget(car ent0)))
                )
        )
)
(if (= cdis nil) (setq cdis 1.0))
(setq olyr (getvar "clayer"))
(setvar "clayer" (cdr(assoc '8 ent_lst)))
(if (= (cdr(assoc 0 ent_lst)) "LWPOLYLINE")
(progn
(setq len (length ent_lst))
(setq n 0)
(setq vernum 1 verlst nil)
(repeat len 
        (setq ent_tmp (car(nth n ent_lst)))
        (if (= ent_tmp 10)
                (progn
                (terpri)
                ;(princ (cdr(nth n ent_lst)))
                (setq verlst (cons (cons vernum (cdr(nth n ent_lst))) verlst))
                (setq vernum (1+ vernum)) 
                )
        )
        (setq n (1+ n))
)
(if (= (length verlst) 4)
        (progn
        (setvar "chamfera" cdis) 
        (setvar "chamferb" cdis)
        (setq midp_x (/(+ (cadr(assoc '1 verlst)) (cadr(assoc '3 verlst))) 2))
        (setq midp_y (/(+ (caddr(assoc '1 verlst)) (caddr(assoc '3 verlst))) 2))
        (setq midp (list midp_x midp_y))
        (command "offset" cdis ent0 midp "")
        (command "chamfer" "p" ent0)
        
        (if (< (cadr(assoc '1 verlst)) (cadr(assoc '3 verlst)))
                (setq pt_x (cadr(assoc '1 verlst)))
                (setq pt_x (cadr(assoc '3 verlst)))
        );get ori point_x to start line
        (if (< (caddr(assoc '1 verlst)) (caddr(assoc '3 verlst)))
                (setq pt_y (caddr(assoc '1 verlst)))
                (setq pt_y (caddr(assoc '3 verlst)))
        );get ori point_y to start line
        (setq pt0 (list (+ pt_x cdis) (+ pt_y cdis)))
        (setq ldis (/(sqrt (* (* cdis cdis) 2)) 2))
        (setq pt1 (polar pt0 (* 1.25 PI ) ldis))
        (command "line" pt1 pt0 "")
        
        (setq mid_ymp (list midp_x (1+ midp_y)))
        (setq mid_xmp (list (1+ midp_x) midp_y))
        (setq ent_l (entlast))
        (command "mirror" ent_l "" midp mid_ymp "N")
        (setq ent_2 (entlast))
        (command "mirror" ent_l ent_2 "" midp mid_xmp "N")
        (princ "\nDone")
        
        (command "UCS" "P");restore previous UCS
        
        )
        (progn
        (terpri)
        (princ "Invalid Rectangle, ")
        (princ "It has ")
        (princ (length verlst))
        (princ " corners")
        )
)
)
(princ "Invalid lwpolyline")
)
(setvar "osmode" osmd)
(setvar "cmdecho" ocmd)
(setvar "clayer" olyr)
(princ)
)

                               
登录/注册后可看大图