[编程交流] 帮我解决Lisp程序的问题

(defun c:psave (/ ss mn mx)
     (vl-load-com)
 (setvar "cmdecho" 0)
 (setvar "filedia" 0)
 (princ "\n Panel Number is ")(princ (getvar "useri1"))
 (princ ".   To change this, reset the system variable USERI1")
    
     (setq pnum(getvar "useri1"))
   
     (if(= pnum 0)(setq pnum 1))
     
     (setvar "useri1" (+ pnum 1))
  
     (setq pnum(itoa pnum))
     (if (setq ss  (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
         (progn
     (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn'mx)
     (command "wblock" pnum " " "0" "WINDOW"
     (trans (vlax-safearray->list mn) 0 1)
     (trans (vlax-safearray->list mx) 0 1)
                  "")
 (setvar "cmdecho" 1)
 (setvar "filedia" 1)
         )
      )
)
(princ)

(setq text1 (entget (car (entsel "\nSelect text 1 "))))
   (setq anst1 (cdr (assoc 1 text1)))
then do something like 
(setq outdwg (strcat anst1 "-" (getvar "dwgname"))

(defun c:psave (/ ss mn mx sst)
 (vl-load-com)
 (if (setq ss (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
   (progn
     (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn 'mx)
     (setq sst (ssget "W"
        (trans (vlax-safearray->list mn) 0 1)
        (trans (vlax-safearray->list mx) 0 1)
        '((0 . "text") (1 . "@*"))
 )
     )
     (command "-wblock"
       (strcat (getvar "dwgprefix")
        (cdr (assoc 1 (entget (ssname sst 0))))
       )
       " "
       "0"
       "WINDOW"
       (trans (vlax-safearray->list mn) 0 1)
       (trans (vlax-safearray->list mx) 0 1)
       ""
     )
     (command "oops")
   )
   ;; progn
 )
 ;; if
 (princ)
)

(defun c:psave2 (/ ss mn mx)
     (vl-load-com)
;;;--- Turn the command echo off
 (setvar "cmdecho" 0)
;;;--- Turn the filedia off
 (setvar "filedia" 0)
(setq datalist (list))
                                       ;select objects
 (if (setq eset (ssget))
   (progn
                                       ;set a counter to the first item in the selection set
     (setq cntr 0)
                                       ;loop through each selected entity
     (while (< cntr (sslength eset))
                                       ;grab the entity's name
       (setq en (ssname eset cntr))
                                       ;grab the DXF group codes of the entity
       (setq enlist (entget en))
                                       ;ignore the entity if it is not a TEXT entity
       (if (= "TEXT" (cdr (assoc 0 enlist)))
         (progn
                                       ;get the text value from the DXF Group Code
           (setq str (cdr (assoc 1 enlist)))
                                       ;setup a variable to check if the entity exist in the datalist list
           (setq existing 0)
                                       ;loop through the datalist to find out if it is a new entity that needs
                                       ;to be added to the list or if it already exist and it's counter needs
                                       ;to be incremented
           (foreach a datalist
             (if (= (car a) str)
               (setq existing 1)
             )
           )
                                       ;if the entity is new then 
           (if (= existing 0)
                                       ;do this - Add the item to the datalist along with a counter that starts at 1
             (setq datalist (append datalist (list (cons str 1))))
                                       ;else it's cntr needs to be incremented
             (setq datalist
                    (subst
                      (cons str (+ 1 (cdr (assoc str datalist))))
                      (assoc str datalist)
                      datalist
                    )
             )
           )
         )
       )
                                       ;increment the entity counter
       (setq cntr (+ cntr 1))
     )
   )
 )
                                      
                                      
     
     (if (setq ss  (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
         (progn
     (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn'mx)
     (command "wblock" str " " "0" "WINDOW"
     (trans (vlax-safearray->list mn) 0 1)
     (trans (vlax-safearray->list mx) 0 1)
                  "")
          
 ;;;--- Turn the command echo back on
 (setvar "cmdecho" 1)
 ;;;--- Turn the filedia back on
 (setvar "filedia" 1)
         )
      )
)
(princ)

(defun c:psave (/ ss mn mx)
     (vl-load-com)
 (setvar "cmdecho" 0)
(setq text1 (entget (car (entsel "\nSelect Label "))))
   (setq anst1 (cdr (assoc 1 text1)))
                                      
(setq outdwg (strcat anst1 "-" (getvar "dwgname"))
)
     
     (if (setq ss  (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
         (progn
     (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn'mx)
     (command "wblock" anst1 " " "0" "WINDOW"
     (trans (vlax-safearray->list mn) 0 1)
     (trans (vlax-safearray->list mx) 0 1)
                  "")
          
 (setvar "cmdecho" 1)
         )
      )
) 
(princ)

(defun c:psave (/ ss mn mx sst)
 (vl-load-com)
 (if (setq ss (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE"))))
   (progn
     (vla-getboundingbox
(vlax-ename->vla-object (ssname ss 0))
'mn
'mx
     )
     (setq sst (ssget "W"
        (trans (vlax-safearray->list mn) 0 1)
        (trans (vlax-safearray->list mx) 0 1)
        '((0 . "text") (1 . "@*"))
 )
     )
     (if (= (findfile (strcat (getvar "dwgprefix")
         (cdr (assoc 1 (entget (ssname sst 0))))
         ".dwg"
        )
     )
     nil
  )
(progn
  (command "-wblock"
    (strcat (getvar "dwgprefix")
     (cdr (assoc 1 (entget (ssname sst 0))))
    )
    " "
    "0"
    "WINDOW"
    (trans (vlax-safearray->list mn) 0 1)
    (trans (vlax-safearray->list mx) 0 1)
    ""
  )
  (command "oops")
)
;; progn
(alert
  (strcat "\nThe "
   (cdr (assoc 1 (entget (ssname sst 0))))
   ".dwg already exists in the current directory!!!"
  )
)
     )
     ;; if
   )
   ;; progn
 )
 ;; if
 (princ)
)