[建议]：关于XD工具箱交点断开命令

寒梅

使用XD工具箱交点断开命令后凡是相交的线都在交点中断开了,但在实际画图中可能出现相交的A,B两条线中我只想断开A线,交点断开的命令中能否设置这个选择项目?

另外感觉 " 求助大虾：怎么把测量的大量地形图整合一起"
贴内的程序对做规划的人来说很有用,能将它编进xd工具箱吗?

【斑竹提示】要用这个命令先安装XD工具箱，批量插图演示在20楼[/COLOR]

eachy

最初由 寒梅 发布
[B]使用XD工具箱交点断开命令后凡是相交的线都在交点中断开了,但在实际画图中可能出现相交的A,B两条线中我只想断开A线,交点断开的命令中能否设置这个选择项目?

另外感觉 " 求助大虾：怎么把测量的大量地形图整合一起... [/B]

2. 
   
3. (defun c:XDTB_MInsertDWG (/ lst)
   
4.   (xdrx_begin)
   
5.   (xdrx_sysvar_push "osmode")
   
6.   (setvar "osmode" 0)
   
7.   (setq lst (xdrx_getfiled "" "批量插图" "AutoCAD图形(*.dwg)|*.dwg" t))
   
8.   (if lst
   
9.     (mapcar '(lambda (x)
   
10.                (vl-cmdf ".insert" x '(0. 0. 0.) "1" "1" "0")
    
11.              )
    
12.                lst
    
13.     )
    
14.   )
    
15.   (xdrx_sysvar_pop)
    
16.   (xdrx_end)
    
17.   (princ)
    
18. )
    
19. (defun c:XDTB_CurveBreakAT (/ e ss ints)
    
20.   (xdrx_begin)
    
21.   (xdrx_sysvar_push "osmode")
    
22.   (setvar "osmode" 0)
    
23.   (setq        e (xdrx_entsel
    
24.             "\n选择要打的线: "
    
25.             '((0 . "*line,arx,circle,ellipse"))
    
26.           )
    
27.   )
    
28.   (if e
    
29.     (progn
    
30.       (princ "\n选择与其相交的线....")
    
31.       (setq ss (ssget '((0 . "*line,arx,circle,ellipse"))))
    
32.       (if ss
    
33.         (progn
    
34.           (setq        ints (xdrx_getinters (car e) ss 0)
    
35.                 ints (xdrx_sortpointoncurve (car e) ints)
    
36.           )
    
37.           (foreach x ints
    
38.             (vl-cmdf ".break" (list (car e) x) "f" x "@")
    
39.             (setq e (list (entlast) x))
    
40.           )
    
41.         )
    
42.       )
    
43.     )
    
44.   )
    
45.   (xdrx_sysvar_pop)
    
46.   (xdrx_end)
    
47.   (princ)
    
48. )
    

<br /> (defun c:XDTB_MInsertDWG (/ lst)<br />   (xdrx_begin)<br />   (xdrx_sysvar_push "osmode")<br />   (setvar "osmode" 0)<br />   (setq lst (xdrx_getfiled "" "批量插图" "AutoCAD图形(*.dwg)|*.dwg" t))<br />   (if lst<br />     (mapcar '(lambda (x)<br />                (vl-cmdf ".insert" x '(0. 0. 0.) "1" "1" "0")<br />              )<br />                lst<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br /> (defun c:XDTB_CurveBreakAT (/ e ss ints)<br />   (xdrx_begin)<br />   (xdrx_sysvar_push "osmode")<br />   (setvar "osmode" 0)<br />   (setq        e (xdrx_entsel<br />             "\n选择要打的线: "<br />             '((0 . "*line,arx,circle,ellipse"))<br />           )<br />   )<br />   (if e<br />     (progn<br />       (princ "\n选择与其相交的线....")<br />       (setq ss (ssget '((0 . "*line,arx,circle,ellipse"))))<br />       (if ss<br />         (progn<br />           (setq        ints (xdrx_getinters (car e) ss 0)<br />                 ints (xdrx_sortpointoncurve (car e) ints)<br />           )<br />           (foreach x ints<br />             (vl-cmdf ".break" (list (car e) x) "f" x "@")<br />             (setq e (list (entlast) x))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

寒梅

版主问个很低级的问题，不要笑我，上面大程序要放到那里，才可以在cad里运行?还有命令是什么?

chenhang1203

插图命令不对，断线命令正确
命令: test
错误: 参数太少

eachy

最初由 chenhang1203 发布
[B]插图命令不对，断线命令正确
命令: test
错误: 参数太少 [/B]

去掉 insert 前面的 - 号。

chenhang1203

最初由 eachy 发布
[B]
去掉 insert 前面的 - 号。 [/B]

还是不对。。。

eachy

最初由 chenhang1203 发布
[B]
还是不对。。。 [/B]

已修改。复制第二贴内容存盘加载

chenhang1203

刚才测试了一下，可以，但是图纸中有些图块与其他图中图块同名而又不一样的话，程序就不认了，看来所有的地形图必须保证图块或者外部参照是一样的才能快速插入，一些例外的还是要手工插入的，不过已经节省了好多好多青春了，谢谢斑竹的工作。

hs_f

最初由 寒梅 发布
[B]版主问个很低级的问题，不要笑我，上面大程序要放到那里，才可以在cad里运行?还有命令是什么? [/B]

1、把程序代码复制到记事本，保存为.lsp文件；
2、在ACAD里appload，装载刚保存的文件；
3、这个小程序有二个命令：多图插入XDTB_MInsertDWG，交点断开：XDTB_CurveBreakAT 。

afly

最初由 hs_f 发布
[B]
1、把程序代码复制到记事本，保存为.lsp文件；
2、在ACAD里appload... [/B]

好像不行哦
如下：
Loading E:\下载文件\woo\tt.lsp ...

Command: XDTB_MInsertDWG error: null function
(XDRX_BEGIN)
(C:XDTB_MINSERTDWG)
*Cancel*

怎么办？
*-*5 *-*b *-*5

hs_f

楼上是否安装XD工具箱，若没装，先装吧。
祝你成功！

陌生人

楼上的装了xd工具箱了么？要先装
另外，改一下

2. 
   
3. (defun c:XDTB_CurveBreakAT (/ e ss ints)
   
4.   (xdrx_begin)
   
5.   (xdrx_sysvar_push "osmode")
   
6.   (setvar "osmode" 0)
   
7. (while (setq        e (xdrx_entsel
   
8.             "\n选择要打的线/<退出>: "
   
9.             '((0 . "*line,arx,circle,ellipse"))
   
10.           )
    
11.             )
    
12.       (princ "\n选择与其相交的线....")
    
13.       (setq ss (ssget '((0 . "*line,arx,circle,ellipse"))))
    
14.       (if ss
    
15.         (progn
    
16.           (setq        ints (xdrx_getinters (car e) ss 0)
    
17.                 ints (xdrx_sortpointoncurve (car e) ints)
    
18.           )
    
19.           (foreach x ints
    
20.             (vl-cmdf ".break" (list (car e) x) "f" x "@")
    
21.             (setq e (list (entlast) x))
    
22.           )
    
23.         )
    
24. 
    
25.      )
    
26.   )
    
27.   (xdrx_sysvar_pop)
    
28.   (xdrx_end)
    
29.   (princ)
    
30. )
    

<br /> (defun c:XDTB_CurveBreakAT (/ e ss ints)<br />   (xdrx_begin)<br />   (xdrx_sysvar_push "osmode")<br />   (setvar "osmode" 0)<br /> (while (setq        e (xdrx_entsel<br />             "\n选择要打的线/<退出>: "<br />             '((0 . "*line,arx,circle,ellipse"))<br />           )<br />             )<br />       (princ "\n选择与其相交的线....")<br />       (setq ss (ssget '((0 . "*line,arx,circle,ellipse"))))<br />       (if ss<br />         (progn<br />           (setq        ints (xdrx_getinters (car e) ss 0)<br />                 ints (xdrx_sortpointoncurve (car e) ints)<br />           )<br />           (foreach x ints<br />             (vl-cmdf ".break" (list (car e) x) "f" x "@")<br />             (setq e (list (entlast) x))<br />           )<br />         )<br /> <br />      )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

afly

最初由 hs_f 发布
[B]楼上是否安装XD工具箱，若没装，先装吧。
祝你成功！ [/B]

试用成功！这个lisp真的很有用，谢谢大家！
*****都是好人哪！

卓雄

插图怎样批量，我用了只是插一个，重复命令又插入同一个地方。

eachy

最初由 卓雄 发布
[B]插图怎样批量，我用了只是插一个，重复命令又插入同一个地方。 [/B]

这个用在插地形图上，因为分幅地形图的插入点一般为（0.0 0.0 0.0），这样插图后是不会重叠的。如果图形不规则是不能批量插图的，因为你不一定了解要插入图形的情况。