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

lee50310

原請求帖
http://bbs.mjtd.com/thread-183499-1-1.html

應網友要求 寫了一個 雙線切割程式  效果如動態圖所示

1.執行指令: pcut

2.是否要切割文字? [Yes/No]<N>:        ;不割字按 Enter (遇字則避讓) , 要割字按 Y

3.輸入要連接的距離<3> :                    ;輸入要切割的寬度            

4.按Enter 結束選取  

(ps1: 第一次割字時需將字轉換為封閉多線段字體 所以會等 3到5秒時間 請耐心等待 )

(PS2 : 按 Enter 鍵 有3種方式: 1.鍵盤 Enter鍵  2. 鍵盤 空白鍵(space鍵)  3.滑鼠右鍵  請選擇一種順手的搭配)

                                             

                                                  <***    源碼釋出 在2 樓  ***>

;--------------------------------------
舊版只有切割功能  (不含文字切割)   請至 37樓下載 dd8a.fas

最新更新: dd9d_chs 及 dd9d_cht.fas  (含切割字型功能)

lee50310

花了許多時間才完成,效果還不錯


;;------------------------------------------
最新更新版:( 源碼程式+詳細註解 +切割字型功能)

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

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

lee50310

ssyfeng 发表于 2021-12-25 10:19
如果遇到有文字，就不成功。

因原請求帖 功能並沒說明須 包含文字部分 所以撰寫程式時 沒有考慮此項目

不過, 在新版 (簡體)dd9_chs 及 (繁體) dd9_cht.lsp 已做改進(已釋出在版面)
                   1.原有功能不變
                   2.增加一選項是否切割文字 ?
                     a.選 "n" 則文字避讓保留 物體被切割
                     b.選 "y" 則文字部分會被分解轉為封閉多段線的文字形狀  一同跟物體被切割

  我測試過 可文字避讓切割 ,也可 單獨 做文字切割  
  所以新版功能更強 更好玩  喔!

999999

顶起顶起，，大神威武

pizi158545086

使用命令会关闭所有捕捉  没办法拾取捕捉点  能保留捕捉最好了

lee50310

最新更新版已保留捕捉 ,請重新下載,謝謝!

p-3-ianlcc

謝謝分享！
這樣子確實節省滿多時間的

lxl217114

谢谢分享，又有新作，给力

yanchao316

谢谢分享，好用。

断箭

先收藏了，等需要的时候再来下

ynhh

好牛
感谢分享
能不能多收点币后分享源码