[讨论]：XYP1964，您的test267是不是有问题？

MJJ3468

加载后，输入命令没用，还要重新加载一下xyp_lib.VLX，才能用。什么原因啊!？*-*3


;;;一条线把通过的对象全部打断（break）
(defun c:test267 ()
  (CMDLA0)
  (setq s0 (car (USEL 0 "LINE" "源线")))
  (princ "\n选择目标线 : ")
  (setq        ss (ssget '((0 . "*LINE,ARC")))
        i  -1
  )
  (command "select" ss "r" s0 "")
  (setq ss (ssget "P"))
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (princ i)
    (if        (setq ptlst (xyp-get-Inters s0 s1 0))
      (progn
        (foreach pt ptlst
          (setq ss1 (ssget pt))
          (command "select" ss1 "r" s0 "")
          (setq s1 (ssname (ssget"p") 0))
          (command "break" (list s1 pt) "f" pt pt)
        )
      )
    )
  )
  (CMDLA1)
)

xyp1964

最初由 MJJ3468 发布
[B]加载后，输入命令没用，还要重新加载一下xyp_lib.VLX，才能用。什么原因啊!？
;;;一条线把通过的对象全部打断（break）
(defun c:test267 ()
  (CMDLA0)
  (setq s0 (car (USEL 0 "LINE" "源线")))
  ... [/B]

首先要加载通用函数，程序没有问题。
参考：kdzlm(快刀斩乱麻)
http://p4.xdcad.net/forum/showthread.php?threadid=538013

MJJ3468

最初由 xyp1964 发布
[B][QUOTE]最初由 MJJ3468 发布
[B]加载后，输入命令没用，还要重新加载一下xyp_lib.VLX，才能用。什么原因啊!？
;;;一条线把通过的对象全部打断（break）
(defun c:test267 ()
  (CMDLA0)
  (setq s0 (car... [/B]

长老，这个我还是知道的，先加载了通用函数，后加载test267 ，输入命令没有用，再重新加载才行，不知为何啊？

kdzlm(快刀斩乱麻)
这个可以用。*-*8C:\Documents and Settings\Administrator\My Documents\My Pictures\998497880.jpg