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

水仙的错

这个插件很好用

水仙的错

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

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 />

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

水仙的错

收到！，感谢楼主！