XD::Curve:BreakAtPoints

marting

1. ;;; 函数名称: XD::Curve:BreakAtPoints
   
2. ;;; 功能: 在指定点对 (pt1, pt2) 处打断指定实体 (ssn)。
   
3. ;;;      如果仅提供 pt1，则使用 AutoCAD 的 "@" 选项进行打断。
   
4. ;;; 参数:
   
5. ;;;   - ssn (选择集/实体): 需要打断的对象。
   
6. ;;;   - pt1 (点坐标): 第一个打断点。
   
7. ;;;   - pt2 (可选, 点坐标): 第二个打断点。如果未提供，则使用 "@" 自动打断。
   
8. ;;; 返回值:
   
9. ;;;   - 无返回值，直接执行 AutoCAD 的 `break` 命令。
   
10. (defun XD::Curve:BreakAtPoints (ssn pt1 pt2)
    
11.   (if pt2
    
12.     (progn
    
13.       (command "break")
    
14.       (command ssn)
    
15.       (command "non") ;; 使用非正交方式选择点
    
16.       (command pt1)
    
17.       (command "non")
    
18.       (command pt2)
    
19.     )
    
20.     (progn
    
21.       (command "break")
    
22.       (command ssn)
    
23.       (command "non")
    
24.       (command pt1)
    
25.       (command "@") ;; 使用 "@" 选项在 pt1 处打断
    
26.     )
    
27.   )
    
28. )
    

;;; 函数名称: XD::Curve:BreakAtPoints<br /> ;;; 功能: 在指定点对 (pt1, pt2) 处打断指定实体 (ssn)。<br /> ;;;      如果仅提供 pt1，则使用 AutoCAD 的 "@" 选项进行打断。<br /> ;;; 参数:<br /> ;;;   - ssn (选择集/实体): 需要打断的对象。<br /> ;;;   - pt1 (点坐标): 第一个打断点。<br /> ;;;   - pt2 (可选, 点坐标): 第二个打断点。如果未提供，则使用 "@" 自动打断。<br /> ;;; 返回值:<br /> ;;;   - 无返回值，直接执行 AutoCAD 的 `break` 命令。<br /> (defun XD::Curve:BreakAtPoints (ssn pt1 pt2) <br />   (if pt2 <br />     (progn <br />       (command "break")<br />       (command ssn)<br />       (command "non") ;; 使用非正交方式选择点<br />       (command pt1)<br />       (command "non")<br />       (command pt2)<br />     )<br />     (progn <br />       (command "break")<br />       (command ssn)<br />       (command "non")<br />       (command pt1)<br />       (command "@") ;; 使用 "@" 选项在 pt1 处打断<br />     )<br />   )<br /> )<br />