[LISP函数]：xyp大虾请进

pipi002004

;;;曲线交点插块
(defun c:test (/ ptlst)
  (CMDLA0)
  (setvar"osmode"0)
  (setq  dwgname (USTR 1 "\n图块名称" dwgname NIL)
    ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
        i  -1
        j  0
  )
  (mkla "图块" 3)
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq j i)
    (while (setq s2 (ssname ss (setq j (1+ j))))
      (setq ptlst (X_INTERS s1 s2))
      (while (setq pt (car ptlst))
        (setq ptlst (cdr ptlst))
        (command "insert" dwgname pt "" "" "")
      )
    )
  )
  (CMDLA1)
)
(DEFUN mkla (A B)
  (IF (= (TBLSEARCH "layer" A) NIL)
    (COMMAND "layer" "m" A "c" B A "")
    (COMMAND "layer" "t" A "s" A "c" B A "")
  )
)
(DEFUN CMDLA0 ()
  (SETQ CMD (GETVAR "CMDECHO"))
  (SETQ OOM (GETVAR "orthomode"))
  (SETQ OSM (GETVAR "osmode"))
  (SETQ HLT (GETVAR "highlight"))
  (SETQ RMODE (GETVAR "regenmode"))
  (SETVAR "regenmode" 0)
  (SETVAR "CMDECHO" 0)
  (PRINC)
)
(DEFUN CMDLA1 ()
  (SETVAR "CMDECHO" CMD)
  (SETVAR "orthomode" OOM)
  (SETVAR "osmode" OSM)
  (SETVAR "highlight" HLT)
  (SETVAR "regenmode" RMODE)
  (PRINC)
)
能不能告诉我一下，这个程序在r14运行的方法，
这个对我非常重要
最好是把调用的其他函数贴一下，谢谢

taner

在14里没法运行,还是升级你的cad吧

pipi002004

我知道   ，但是这个问题应该不难解决，只要把没有的函数补齐就应该可以了

taner

X_INTERS这个函数用纯lisp写有点困难

试试这个地方http://www.mjtd.com/bbs/dispbbs. ... 9&page=1之3楼