[LISP函数]：在cad2005 support里面发现的晓东lsp

lifuding

请问这个怎么用啊 谁能发一个动画演示

; MODULE_ID ACAD2005_LSP_
;;;    ACAD2005.LSP Version 1.0 for AutoCAD 2005
;;;
;;;    Copyright (C) 1994-2003 by Autodesk, Inc.
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;;    AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;;    MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;;    DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;;    UNINTERRUPTED OR ERROR FREE.
;;;
;;;    Use, duplication, or disclosure by the U.S. Government is subject to
;;;    restrictions set forth in FAR 52.227-19 (Commercial Computer
;;;    Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;;    (Rights in Technical Data and Computer Software), as applicable.
;;;
;;;.
;;;
;;;    Note:
;;;            This file is normally loaded only once per AutoCAD session.
;;;            If you wish to have LISP code loaded into every document,
;;;            you should add your code to acaddoc.lsp.

;;;
;;;    Globalization Note:   
;;;            We do not support autoloading applications by the native
;;;            language command call (e.g. with the leading underscore
;;;            mechanism.)

(if (not (=  (substr (ver) 1 11) "Visual LISP")) (load "acad2005doc.lsp"))

;; Silent load.
(princ)
(defun c:XDTB_CopyWithDoteInt ()
  (prompt "\n请选取要沿轴交点拷贝的实体<退出>:")
  (setq dote_lyr (xdrx_getlyrname "轴线"))
  (if (and
        (setq ss (ssget))
        (setq pj (xdrx_getpoint "\n请拾取基点<退出>:"))
        (setq e (xdrx_entsel "\n请拾取一条轴线作为路径<退出>:"))
      )
    (progn
      (xdrx_begin)
      (xdrx_sysvar_push "osmode" "cmdecho")
      (setvar "osmode" 0)
      (setvar "cmdecho" 0)
      (setq p1 (xdrx_getentdxf 10)
            p2 (xdrx_getentdxf 11)
            tf (xdrx_isptoffscr p1 p2)
      )
      (if tf
        (progn
          (xdrx_drawing_viewsave)
          (xdrx_drawing_zoomw p1 p2)
        )
      )
      (setq intl (xdrx_getinters
                   e
                   (ssget "f"
                          (list p1 p2)
                          (list
                            (cons 8 dote_lyr)
                            '
                             (0 . "line")
                          )
                   )
                 )
      )
      (foreach n intl
        (if (not (equal n pj 1e-5))
          (command ".copy" ss "" pj n)
          (princ "ok")
        )
      )
      (xdrx_sysvar_pop)
      (xdrx_end)
    )
  )
  (princ)
)

唐僧肉

大家来看看

陌生人

真的么？文件名是什么？我看看我这里有没有：）

lifuding

怎么没人知道吗 我是菜鸟  谁能给个动画演示 谢谢