[LISP程序]：单点打断

LUCAS · 发表于 2002-1-28 12:46:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

功能:把相交于一点的线"POLYLINE" "LWPOLYLINE" "LINE""ARC"同时打断

;;;程序设计:赖云龙;;;
;;;---------------;;;
(defun C:BBPT (/ A AA PT)
(COMMAND "_.UNDO" "BE")
(while (= A NIL)
(setq PT (getpoint "\n切割点: "))
(setq A (ssget "C"
PT
PT
'((-4 . "< OR")
(0 . "POLYLINE")
(0 . "LWPOLYLINE")
(0 . "LINE")
(0 . "ARC")
(-4 . "OR >")
)
)
)
(if (= A NIL)
(prompt "\n错误: 找不到像素")
)
)
(prompt
"\n按下 ENTER 切断所有亮显的像素/<R>移除选取像素/<选取像素>: "
)
(command "_.SELECT" "AU" A PAUSE)
(setq A (ssget "P"
'((-4 . "< OR")
(0 . "POLYLINE")
(0 . "LWPOLYLINE")
(0 . "LINE")
(0 . "ARC")
(-4 . "OR >")
)
)
)
(if (/= (sslength A) 0)
(progn
(setq N 0)
(repeat (sslength A)
(setq AA (ssname A N))
(command "_.BREAK" AA PT "@")
(setq N (1+ N))
)
)
)
(COMMAND "_.UNDO" "END")
(princ)
)

;;;程序设计:赖云龙;;; 
;;;---------------;;; 
(defun C:BBPT (/ A AA PT) 
  (COMMAND "_.UNDO" "BE") 
  (while (= A NIL) 
    (setq PT (getpoint "\n切割点: ")) 
    (setq A (ssget "C" 
                   PT 
                   PT 
                   '((-4 . "< OR") 
                     (0 . "POLYLINE") 
                     (0 . "LWPOLYLINE") 
                     (0 . "LINE") 
                     (0 . "ARC") 
                     (-4 . "OR >") 
                    ) 
            ) 
    ) 
    (if        (= A NIL) 
      (prompt "\n错误: 找不到像素") 
    ) 
  ) 
  (prompt 
    "\n按下 ENTER 切断所有亮显的像素/<R>移除选取像素/<选取像素>: " 
  ) 
  (command "_.SELECT" "AU" A PAUSE) 
  (setq        A (ssget "P" 
                 '((-4 . "< OR") 
                   (0 . "POLYLINE") 
                   (0 . "LWPOLYLINE") 
                   (0 . "LINE") 
                   (0 . "ARC") 
                   (-4 . "OR >") 
                  ) 
          ) 
  ) 
  (if (/= (sslength A) 0) 
    (progn 
      (setq N 0) 
      (repeat (sslength A) 
        (setq AA (ssname A N)) 
        (command "_.BREAK" AA PT "@") 
        (setq N (1+ N)) 
      ) 
    ) 
  ) 
(COMMAND "_.UNDO" "END") 
  (princ) 
)

cy956 · 发表于 2002-1-28 14:13:58

不要那么复杂吧？
(defun c:bx1(/ p0 s n in e an)
 (mapcar 'setvar '("cmdecho""blipmode") '(0 0))
 (setq p0 (getpoint"\n请在交点选择要打断的线条: ")
s (ssget "c" p0 p0 '((-4 . "<OR")(0 . "LINE")(0 . "ARC")
(0 . "POLYLINE")(0 . "LWPOLYLINE")(-4 . "OR>"))) n(sslength s) in 0)
 (repeat n
(setq e(ssname s in) in (1+ in) an(cons e (list p0)))
(command "break" an p0 p0)
 )
 (mapcar 'setvar '("cmdecho""blipmode") '(1 1))(princ)
)
除了cir，spl，ellip不能一点打断的实体及其他实体外。

XDSoft · 发表于 2002-1-28 14:26:35

下面程序能将所有曲线line,polyline,lwpolyline,arc,circle,ellipse,spline实体，选择到的曲线在“所有”交点处断开，也适合一个实体“自交”情况，比如一根POLYLINE线自己有交点也可以断开。

;|
命令：CURVE_INTBRK
功能：将选取的所有曲线在交点处断开
配合XDRX_API B11208以上版本使用
关于该程序的改进建议请到“晓东CAD空间” “开发论坛” 留言
[url]http://www.fspdi.com/forum[/url]
|;
(defun c:curve_intbrk ()
(prompt "\n请选取交点打断的曲线<全选>:")
(if (not (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))))
(setq ss (ssget "x" '((0 . "*line,arc,circle,ellipse"))))
)
(setq num (xdrx_curve_intersectbreak ss))
(prompt (strcat "\n处理了 " (itoa (sslength ss)) " 个曲线实体，发现交点 "
(itoa num) " 个！"
)
)
(princ)
)

LUCAS · 发表于 2002-1-28 15:45:10

我只需要单点打断我所要的线(可增减线),所以打断所有交点对我反而不好用

XDSoft · 发表于 2002-1-28 19:06:05

最初由 LUCAS 发布
[B]我只需要单点打断我所要的线(可增减线),所以打断所有交点对我反而不好用 [/B]

这个程序是可以交互的，选取两个线就是“单点”打断了。

LUCAS · 发表于 2002-1-29 09:29:59

Curve_intbrk把polyline or spline打成N断,我只要“单点”打断。
附图说明(但我不会贴图!!)

XDSoft · 发表于 2002-1-29 09:43:19

最初由 LUCAS 发布
[B]Curve_intbrk把polyline or spline打成N断,我只要“单点”打断。
附图说明(但我不会贴图!!) [/B]

xdrx_curve_intersectbreak 函数有个参数，允许是否自身打断，见下面的函数用法。它还可以给误差标记，对指定距离范围内的，也认为是有交点，这对不是准确画图的时候，比如丁字的两个线，很方便。

另：贴图方法，就是跟传ZIP是一样的，你传上来JPG或者GIF，就显示出来了。

257. xdrx_curve_intersectbreak

功能：将选择集中的曲线在所有交点处break

调用格式：(xdrx_curve_intersectbreak <选择集> [误差距离] [自身打断标记] [进度条间隔])

返回值：NIL

说明：参数
 [误差距离]：整数或者实数，两个曲线顶点到另个曲线距离在误差内，算作相交
 [自身打断标记]：T,对于复杂实体如POLYLINE,SPLINE等自身相交也打断，NIL不处理自身相交
 [进度条间隔]：大于等于0的整数，为0，不显示进度条，大于0的值作为每处理这些实体后，进度条显示一次进度。

 不给这些参数，默认值是：误差100，自身打断T,无进度条0

梦断江南 · 发表于 2003-5-4 19:25:22

第一贴显示不正常,xd想想办法....

速龙 · 发表于 2003-12-26 07:18:15

请问那些文件如何使用?

luob72 · 发表于 2005-3-8 14:38:12

请问管理员，你那个程序可以在不安装晓东工具箱的情况下使用吗？

userzhluserzhl · 发表于 2005-6-23 23:27:03

楼主,下不了呀!

libo_dy · 发表于 2005-6-24 09:25:56

楼主的程序我用在cad2006下，出现下述错误，不知什么原因，请指教！

命令: bbpt _.UNDO 当前设置: 自动 = 开，控制 = 全部，合并 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>:
BE
命令:
切割点: ; 错误: 参数太多

命令: bbpt _.UNDO 当前设置: 自动 = 开，控制 = 全部，合并 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>:
BE
命令:
切割点: int 于
错误: 找不到像素
切割点:
错误: 找不到像素
切割点:
; 错误: 参数太多

wylong · 发表于 2005-6-24 16:23:55

不错不错！谢谢

userzhluserzhl · 发表于 2005-6-24 21:51:21

选择对象: ; 错误: no function definition: XDRX_CURVE_INTERSECTBREAK

海豚 · 发表于 2005-7-3 22:37:06

是否能做到可以设定缺口的距离，另外是否可选择两线相交，只打断需要的那一根线呢。

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：单点打断

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子