<<<*** 雙線切割+切割字型功能 ***>>

水仙的错

这个插件很好用

水仙的错

楼主能否分享没有文字版的源码

lee50310

水仙的错 发表于 2025-3-4 18:54
楼主能否分享没有文字版的源码

不含文字切割版 自行修改方式
請下載最新版 dd9d_chs.lsp 由此版 修改
用文字編輯器 編輯 dd9d_chs.lsp

刪除 程式中步驟1,2,3 這些函數及代碼
1.

2. 
   
3. ;;
   
4. ;;http://bbs.mjtd.com/thread-171466-1-1.html
   
5. ;;分解文字 程式 作者:荒野孤行
   
6. ;;
   
7. ;;;<<< *** 分解文字 程式開始 ***>>>
   
8. (defun break_downTXT (ss2 / PtList)
   
9.   (command "undo" "be")
   
10.   (setvar "mirrtext" 1)
    
11. .
    
12. .
    
13. .
    
14.   (setvar "mirrtext" 0)
    
15.   (command "undo" "e")
    
16. 
    
17. )
    
18. ;;;*****分解文字 程式結束*****
    

<br /> ;;<br /> ;;http://bbs.mjtd.com/thread-171466-1-1.html<br /> ;;分解文字 程式 作者:荒野孤行<br /> ;;<br /> ;;;<<< *** 分解文字 程式開始 ***>>><br /> (defun break_downTXT (ss2 / PtList)<br />   (command "undo" "be")<br />   (setvar "mirrtext" 1)<br /> .<br /> .<br /> .<br />   (setvar "mirrtext" 0)<br />   (command "undo" "e")<br /> <br /> )<br /> ;;;*****分解文字 程式結束*****<br />

2.

2. 
   
3. (initget "Y y Yes N n No")
   
4. (setq key (getkword "nEnter 是否要切割文字? [Y/N]<N>: "))
   
5. (if(= key nil)(setq key "N"))
   

<br /> (initget "Y y Yes N n No")<br /> (setq key (getkword "nEnter 是否要切割文字? [Y/N]<N>: "))<br /> (if(= key nil)(setq key "N"))<br />

3.

1.       (if(/= sstxt nil)
   
2.            (progn
   
3.                (if(or (= key "Yes")(= key "YES")(= key "yes")(= key "Y")(= key "y"))  ;切割文字
   
4.               (progn
   
5.                         (change_layer  sstxt "msk" )               ;將物體搬到msk層
   
6.                           (Active_Layer  "msk")                      ;設msk層為當前
   
7.                  
   
8.                   (princ "\n文字處理中......")
   
9.                           (break_downTXT sstxt)                      ;分解文字
   
10.                         (setq sse (ssget "_X" '((8 . "msk"))) )
    
11.                           (edit_jj_pline sse)                        ;將文字接合為多段線
    
12.                 (setq sse (ssget "_X" '((8 . "msk"))) )
    
13.                   (Master_slave "msk")                      ;在指定層 "msk" 找出物體主從關係
    
14.                           (sub_Masterslave wel )                     ;物體主從關係先做差集,若物體有包裹2層 則第一層主物 與 第二層所有物體 做差集         
    
15.                 (setq sse (ssget "_X" '((8 . "msk"))) )            
    
16.                 (change_layer  sse "tst" )                 ;將物體搬到tst層   
    
17.                         
    
18.                   (setq sstxt nil pn 1)     
    
19.                     );end_progn
    
20.               
    
21.                 );end_if         
    
22.         );end_progn
    
23.                       (setq pn 0)   
    
24.        );end_if
    

      (if(/= sstxt nil)<br />            (progn<br />                (if(or (= key "Yes")(= key "YES")(= key "yes")(= key "Y")(= key "y"))  ;切割文字<br />               (progn<br />                         (change_layer  sstxt "msk" )               ;將物體搬到msk層<br />                           (Active_Layer  "msk")                      ;設msk層為當前<br />                  <br />                   (princ "\n文字處理中......")<br />                           (break_downTXT sstxt)                      ;分解文字<br />                         (setq sse (ssget "_X" '((8 . "msk"))) )<br />                           (edit_jj_pline sse)                        ;將文字接合為多段線 <br />                 (setq sse (ssget "_X" '((8 . "msk"))) )<br />                   (Master_slave "msk")                      ;在指定層 "msk" 找出物體主從關係<br />                           (sub_Masterslave wel )                     ;物體主從關係先做差集,若物體有包裹2層 則第一層主物 與 第二層所有物體 做差集         <br />                 (setq sse (ssget "_X" '((8 . "msk"))) )            <br />                 (change_layer  sse "tst" )                 ;將物體搬到tst層    <br />                         <br />                   (setq sstxt nil pn 1)     <br />                     );end_progn<br />               <br />                 );end_if          <br />         );end_progn<br />                       (setq pn 0)    <br />        );end_if<br />

然後另存新檔 (檔名請自設) 即可

水仙的错

收到！，感谢楼主！

jianxiucai

不是封闭图形不能用，那位大神能帮修改下，不是封闭图形也能达到楼主那效果

jianxiucai

楼主能修改下，不是封闭图形中也能达到您那效果吧

fangmin723

有好多地方需要优化

1. (foreach lay (list "msk" "tst")
   
2.                 (if (not (tblsearch "layer" lay))
   
3.                         (make_layer lay 2 "continuous")
   
4.                 )
   
5.         )

(foreach lay (list "msk" "tst") <br />                 (if (not (tblsearch "layer" lay))<br />                         (make_layer lay 2 "continuous")<br />                 )<br />         )

创建图层前判断下，图层存不存在，不存在再创建
initget在中望2014CAD里面，这么写(initget "Y Yes N No")就足够了，AutoCAD中，自行测试
(setq key (if key (strcase key) "N"))
(if (or (= key "YES") (= key "Y"))
在不需要返回的子函数或主函数中，最好在最后面增加上(prin1)防止输出或重复打印
所有的子函数中建议将变量设为局部变量，然后将所有的子函数抢嵌套在主函数里面，子函数名作为主函数的局部变量，具体参考http://bbs.mjtd.com/thread-192021-1-1.html

lee50310

jianxiucai 发表于 2025-7-7 12:51
楼主能修改下，不是封闭图形中也能达到您那效果吧

很抱歉! 這個沒辦法做到
因為此程式要達到切割效果使用cad 面域指令: REGION
讓兩封閉的線物體先面域後再做差集
而要做面域線物體必須是封閉狀態才可,否則無法成功

lengxiaxi

程序对于常规多段线的封闭图形，和spl封闭图形，均能很好适用，非常棒！感谢！

同时，对于样条曲线和直线混杂的封闭图形，无效，例图，如附件；  如果这种情况，也能适配，功能将更加完美；可以广泛适用于广告喷绘雕刻行业的图形处理；

lee50310

lengxiaxi 发表于 2025-8-10 09:13
程序对于常规多段线的封闭图形，和spl封闭图形，均能很好适用，非常棒！感谢！

同时，对于样条曲线和直 ...

spline 轉 pline 程式 將下面樓主的程式複製至文字編輯器 存成s2p.lsp
http://bbs.mjtd.com/forum.php?mo ... 59&highlight=spline
(ps:原本作者 段數設 (setq num 1000)  你可修改增加段數值 看看是否會更接近原圖)
s2p.lsp
1.執行 s2p指令  將圖中的 spline 轉換為 pline
2.再執行 切割程式 即可切割

因複雜的spline 線(封閉)有時無法完美轉換 為 pline(封閉)
會產稱一些誤差 這是我在論壇上找到轉換後的pline線物體 最近似原本的 spline線物體
若這些誤差 是你可容許的範圍 ,便可用切割程式來做切割