應網友要求寫了一個 << ** 批量在結構線內部偏移出鋼筋線程式 **>>

lee50310

  原帖:http://bbs.mjtd.com/thread-178824-1-1.html

  執行指令:tt   
部份程式碼:;----------------------------------------------------------------------------------------------

2. 
   
3. (vl-load-com)
   
4.      (SaveVars (list "osmode" "cmdecho" "orthomode" "DIMDEC" "clayer"))  ;儲存目前的系統變數
   
5.    (setvar "osmode" 0)                                                ; 關閉目標捕捉狀態
   
6.      (setvar "orthomode" 0)                                          ; 關閉垂直正交  
   
7.      (setvar "WHIPARC" 1)                                            ;打開真圓度
   
8.     (command "-LAYER" "P" "N" "0" "")                          ;將0層設為不顯示圖層視窗
   
9.       
   
10.      (foreach x '(("tst" 7) ("temp" 2) ("0-JG-Str-line" 4) ("0-JG-Rebar" 1))
    
11.              (if (not (tblsearch "layer" (car x)))              ;判斷圖檔中是否有此圖層名,若無則創建這些圖層及顏色
    
12.                 (layer x)
    
13.              )
    
14.      )
    
15.          (if (= dt nil) (setq dt 10))                          ;偏移距離初設 10         
    
16.            (setq of (getdist (strcat "輸入偏移距離:<" (rtos dt) ">")))
    
17.        (if (= of nil)(setq of dt )(setq dt of))
    
18.      
    
19.             (setq ssall (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
    

<br /> (vl-load-com)<br />      (SaveVars (list "osmode" "cmdecho" "orthomode" "DIMDEC" "clayer"))  ;儲存目前的系統變數<br />    (setvar "osmode" 0)                                                ; 關閉目標捕捉狀態<br />      (setvar "orthomode" 0)                                          ; 關閉垂直正交  <br />      (setvar "WHIPARC" 1)                                            ;打開真圓度<br />     (command "-LAYER" "P" "N" "0" "")                          ;將0層設為不顯示圖層視窗<br />       <br />      (foreach x '(("tst" 7) ("temp" 2) ("0-JG-Str-line" 4) ("0-JG-Rebar" 1)) <br />              (if (not (tblsearch "layer" (car x)))              ;判斷圖檔中是否有此圖層名,若無則創建這些圖層及顏色<br />                 (layer x)<br />              )<br />      )<br />          (if (= dt nil) (setq dt 10))                          ;偏移距離初設 10         <br />            (setq of (getdist (strcat "輸入偏移距離:<" (rtos dt) ">")))<br />        (if (= of nil)(setq of dt )(setq dt of))<br />      <br />             (setq ssall (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))) <br />

;------------------------------------------------------------------------------------------------------------

lee50310

DoubleV 发表于 2021-4-26 20:29
cad2021用不了这个插件，程序运行一半，提示未知命令:"tt"

我這邊cad2018執行指令 tt 測試皆ok
實在很抱歉,身邊沒有cad2021可供測試,無法找出你說的問題所在
不過看這情況很像程式有執行但指令未設置成功 ,被當成涵式所致
不然你再試試這兩個方法看看   
當程試載入後
                    (1) 在 cad  command 下輸入 (c:tt)  按Enter
                    (2) 在 cad  command 下輸入 (tt)  按Enter   
看看這兩個方式是否可行         

                                                               

lee50310

cghdy 发表于 2021-4-21 09:27
(setq ee  (ssname (ssget "C" a (list (car a) (cadr b)))0) )  ;;垂直两点选取最大包围框的物体图元名称
...

(1)請檢查你所繪的 物體是不是封閉物體
;------------------------------------------------------------------------------------

(ˋ2) 雖說物體是以兩層為主 第一層做內偏,第二層做外偏  
      若超過 2層以後都是做外偏，並不會產生錯誤 只是這樣做 就失去原意了  
如圖:

lee50310

htlaser 发表于 2021-12-11 15:34
哎呀   居然购买错了  繁体!!!

所以下載之前要先看清楚 喔!

不過還有補救辦法
去下載一個 Notepad++ 文字編輯器
用此編輯器  去開啟 繁體版的 TT.LISP  就不會亂碼
然後 按鍵盤 CTRL+A  全選   ， CTRL+C  複製內容

再上網找  簡繁轉換 的網頁  CTRL+V , 貼附內容 將繁體 轉成簡體字

轉好簡體在複製內容 到你 記事本內 貼上存 TT.LSP檔 即可

  

zwwen

大部分的情况都可以，特殊的有问题
D:\OneDrive - TSCN\桌面\Snipaste_2021-04-20_17-42-45.JPG

lee50310

zwwen 发表于 2021-4-20 17:44
大部分的情况都可以，特殊的有问题

這圖的聯結點在你的電腦D槽 ,根本看不到呀!
特殊的有什麼問題呢 ? 請把圖傳上明經論壇來看看吧?

paulpipi

cghdy

(setq ee  (ssname (ssget "C" a (list (car a) (cadr b)))0) )  ;;垂直两点选取最大包围框的物体图元名称
这句选都不上东西，提示原因：参数类型错误: lselsetp nil 位置-> 行:409 列:13

maiko

感谢楼主分享,收下了

cghdy

lee50310 发表于 2021-4-20 19:13
這圖的聯結點在你的電腦D槽 ,根本看不到呀!
特殊的有什麼問題呢 ? 請把圖傳上明經論壇來看看吧?

用测试图可以，可能是图层的问题，我再研究下。
如果程序还能把点筋画出来就更好了。

999999

谢谢楼主分享

afrgrgfdgdgt111

谢谢分享 楼主