分享自制折断线绘制源码，实现单折断线与双折断线的自动裁剪！

Dallas_whu

功能：
1、单折断线根据选择的折断线两点的先后顺序不同，自动裁剪折断线左侧或右侧的目标对象；
2、双折断线自动裁剪中部对象；
3、有不需要裁剪的对象如轴线请提前锁定层或冻结层，否则一起裁剪掉了；
4、可设置中部这段符号的大小在合理范围内，程序中设置折断符号的大小范围；
5、可设置折断线的延伸长度；

Dallas_whu

muai2010 发表于 2023-10-14 23:41
这个对我这小白就比较复杂了，搞不来，不错很感谢分享好用的程序

1. (DEFUN MAKE_LAYER (LAYERNAME LAYERLTYPE LAYERCOLOR LTFILENAME / CHK_LAYER)
   
2.   (VL-LOAD-COM)
   
3.   (SETQ VLINETYPES (VLA-GET-LINETYPES (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))))
   
4.   (IF (NOT (TBLSEARCH "LTYPE" LAYERLTYPE))
   
5.     (VLA-LOAD VLINETYPES LAYERLTYPE LTFILENAME)
   
6.   )
   
7.   (SETQ CHK_LAYER (TBLSEARCH "LAYER" LAYERNAME))
   
8.   (IF (= CHK_LAYER NIL)
   
9.     (PROGN
   
10.       (ENTMAKE (LIST
    
11.                  '(0 . "LAYER")
    
12.                  '(100 . "AcDbSymbolTableRecord")
    
13.                  '(100 . "AcDbLayerTableRecord")
    
14.                  (CONS 6 LAYERLTYPE)        ;线型
    
15.                  (CONS 62 LAYERCOLOR)        ;颜色
    
16.                  '(70 . 0)                ;图层状态
    
17.                  (CONS 2 LAYERNAME)        ;图层名
    
18.                )
    
19.       )
    
20.     )
    
21.   )
    
22.   (SETVAR "CLAYER" LAYERNAME)
    
23.   (PRINC)
    
24. )

复制代码

Dallas_whu

muai2010 发表于 2023-10-15 09:15
尝试失败，这段我放了几个地方，修改了cons后面的不生效

把这一行的两个分号去掉

1. ;;              (MAKE_LAYER "折断线" "CONTINUOUS" 6 "acadiso.lin")
   

;;              (MAKE_LAYER "折断线" "CONTINUOUS" 6 "acadiso.lin")<br />

Dallas_whu

h008 发表于 2023-10-15 23:51
好程序!只是2014里“D”后不能画双剖

没装2014，没法测试，按说不是版本的问题。可能是你没装cad自带的EXPRESS TOOLS原因。你装一个试试

sowin

很实用的工具，谢谢分享

muai2010

不错，要是可以定义折断线颜色就好了

Dallas_whu

muai2010 发表于 2023-10-14 17:53
不错，要是可以定义折断线颜色就好了

可以自己将一个图层放在画线的前面就行，看注释掉的那一行。

muai2010

Dallas_whu 发表于 2023-10-14 23:33
可以自己将一个图层放在画线的前面就行，看注释掉的那一行。

这个对我这小白就比较复杂了，搞不来，不错很感谢分享好用的程序

muai2010

Dallas_whu 发表于 2023-10-15 08:20

尝试失败，这段我放了几个地方，修改了cons后面的不生效

muai2010

Dallas_whu 发表于 2023-10-15 09:19
把这一行的两个分号去掉

搞定，效果很好

669423907

效果非常好，很适合搞机械的