[求助]帮忙看一下break函数

hanhanzi

我想删除两点间的线段，可调用command总出错，不知为何？

  (setq en (car (entsel"\n选取要剪切的线:")))
  (setq p1 (getpoint "\n选取第一个点:"))
  (setq p2 (getpoint "\n选取第二个点:"))
  (command "break" en "f" p1 p2)

Andyhon

(setq en (car (entsel"\n选取要剪切的线:")))
  (setq p1 (getpoint "\n选取第一个点:"))
  (setq p2 (getpoint "\n选取第二个点:"))
  (command "break" en p1 p2)

or

(setq en (entsel"\n选取要剪切的线:"))
  (setq p1 (getpoint "\n选取第一个点:"))
  (setq p2 (getpoint "\n选取第二个点:"))
  (command "break" en "f" p1 p2)

 

CADghost

要看你的p1 p2是否在这条线上

sailorcwx

command那一段不需要f了,

你看看(command "break" en),已经是提示你选择第一个点了

gucci218

这段程序写的没错。。。

xyp1964

这样就行了：

2. (defun c:test ()
3.   (setvar "osmode" 0)
4.   (setq en (car (entsel "\n选取要剪切的线:"))
5. p1 (cadr (entsel "\n选取第一个点 : "))
6. p2 (cadr (entsel "\n选取第二个点 : "))
7.   )
8.   (command "break" (list en p1) "f" p1 p2)
9.   (princ)
10. )

(defun c:test ()   (setvar "osmode" 0)   (setq en (car (entsel "\n选取要剪切的线:")) p1 (cadr (entsel "\n选取第一个点 : ")) p2 (cadr (entsel "\n选取第二个点 : "))   )   (command "break" (list en p1) "f" p1 p2)   (princ) )