[讨论]：这个lsp怎么有问题啊?

jjxiao

(DEFUN C:dx() (COMMAND "break" pause "F" PAUSE "@")(princ))


实现不了在同一点把直线打断啊...............请教!

xcajcj

我刚试了，可以呀！

jjxiao

我的要求是直线只是被打断成两端,而并不是去掉一段啊,

效果要和执行 -->break-->f-->选一点,第二点输入@   的效果是一样的才行

另外,(DEFUN C:kk() (COMMAND "transparency" pause PAUSE PAUSE "" "on")(princ))
这个命令中,当你输入transparency,后,cad提示你选择一个图片,你选择后cad又会提示你选择图片,知道你确认为止,如果是这样的话,那么不是要加很多pause吗?

柔柔

把    (DEFUN C:dx() (COMMAND "break" pause "F" PAUSE "@")(princ))
改成：(DEFUN C:dx() (COMMAND "_break" pause "F" PAUSE "@")(princ))

ll_j

使用command函数时最好不要使用pause输入“选择”，而应该在前面先选择，然后调用，这是因为pause只作为一步交互动作，不管动作是否成功。
看看我的单点切断：

2. 
   
3. (defun C:BRF(/ e1 pt)
   
4.   (setq e1 (entsel "\nSelect object: ")
   
5.         pt (getpoint "\nPick a point: ")
   
6.   )
   
7.   (command "break" e1 "f" pt "@")
   
8. )
   

<br /> (defun C:BRF(/ e1 pt)<br />   (setq e1 (entsel "\nSelect object: ")<br />         pt (getpoint "\nPick a point: ")<br />   )<br />   (command "break" e1 "f" pt "@")<br /> )<br />

陌生人

建议这样
(defun C:BRF(/ e1 pt)
  (setq e1 (entsel "\nSelect object: ")
　        pt (getpoint "\nPick a point: ")
  )
  (command "break" (list e1 pt) pt)
)

eachy

建议使用图标

841594

这个程序写的完善一点，可以是这样：
这样能成捆的打断实体。

(defun c:dbr( / ss n p1 p2 en oos me)
  (setq oos (getvar "osmode"))
  (princ "\n选择要切断的实体: ")
  (if (setq n 0 ss (ssget)) (progn
    (setq p1 (getpoint "给出第一断点: "))
    (or (setq p2 (getpoint "给出第二断点: ")) (setq p2 p1))
    (setvar "osmode" 0)
    (while (setq en (ssname ss n))
      (setq me (cdr (assoc 0 (entget en))))
      (if (member me '("POLYLINE" "LINE" "ARC" "CIRCLE" "LWPOLYLINE"))
        (command "break" (list en p1) p2)
      ) ;if
      (setq n (1+ n))
    ) ;while
    (setvar "osmode" oos)
  )) ;if
  (princ)
)