[编程交流] LD lisp-帮助

(defun C:ld (/ osm pt prf suf)
 (vl-load-com)
 (defun *error* (msg)
   (if        osm
     (progn (setvar "osmode" osm) (setvar "cmdecho" 1))
   )
   (or        (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
(princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
 )
 (if (not num)
   (setq num 1)
 )
 (setq osm (getvar "osmode"))
 (setvar "osmode" 0)
 (setvar "cmdecho" 0)
 (if (and (/= (setq prf (getstring t "\n Type prefix : ")) "")
   (/= (setq suf (getstring t "\n Type suffix : ")) "")
   (setq num (cond ((getint (strcat "\n Enter an initial number < "
                                    (itoa num)
                                    " > : "
                            )
                    )
                   )
                   (t num)
             )
   )
     )
   (while
     (setq
pt (getpoint
     "\nSpecify leader start point: (or hit ENTER to Exit) :"
   )
     )
      (command        "._leader" "_non"
        pt
        pause
        ""
        (strcat prf " " (itoa num) " " suf)
        ""
      )
      (setq num (1+ num))
   )
 )
 (setvar "cmdecho" 1)
 (setvar "osmode" osm)
 (princ)
)
(princ "\nStart command with LD")
(princ)

DIMTXT