代码下次调用的时候怎么记忆上次输入的数值 谁帮个忙改一下啊

xj6019

这只是其中一种  我都碰到了好多好多种这个样的提示了  

wyl219

xj6019 发表于 2019-11-26 16:50
这只是其中一种  我都碰到了好多好多种这个样的提示了

运行一次        (vl-load-com) 试试

xj6019

wyl219 发表于 2019-11-26 17:50
运行一次        (vl-load-com) 试试

运行过   不管用

xj6019

xyp1964 发表于 2019-11-26 14:04

您好领导  看到了您的一个代码我想用可是缺少 xyp-Start  能麻烦您抽点时间给 弄一下吗  万分感谢
代码是这个
;; tt(break)
(defun c:tt ()
  (xyp-Start)
  (princ "\n选择直线: ")
  (setq i -1)
  (if (setq ss (ssget '((0 . "*LINE"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq ptn        (xyp-Get-CurveIntersLeng s1 4)
            ptn        (xyp-Curve-PtsLengSort s1 ptn t)
            j        -1
      )
      (while (and (setq p1 (nth (setq j (1+ j)) ptn))
                  (setq p2 (nth (setq j (1+ j)) ptn))
             )
        (xyp-breakE s1 p1 p2)
      )
    )
  )
  (xyp-End)
)