社区 › AutoLISP/Visual LISP 编程技术 › 代码下次调用的时候怎么记忆上次输入的数值 谁帮个忙改一下啊

xj6019 发表于 2019-11-26 16:50:46

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

wyl219 发表于 2019-11-26 17:50:37

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

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

xj6019 发表于 2019-11-26 17:58:21

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

运行过   不管用

xj6019 发表于 2019-12-2 11:57:53

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)
)

查看完整版本: 代码下次调用的时候怎么记忆上次输入的数值 谁帮个忙改一下啊