C A D重置設定為預設開機後無法自動載入程式

C A D重置設定為預設後 開機後無法自動載入程式 每次都需用A P手動在載入ATStruCAD外掛程式程式 請問有什麼辦法可以改善？

shyrchu 寫到:C A D重置設定為預設後  開機後無法自動載入程式  每次都需用A P手動在載入ATStruCAD外掛程式程式  請問有什麼辦法可以改善？

我們之前給您的信件有說明，因為有授權故用戶不能自行重裝或還原AutoCAD。
※版權聲明：
1.一套ATStruCAD結構外掛僅授權在一台電腦操作，建議安裝在穩定(較新)的電腦設備。
2.用戶若要「電腦重灌」或「AutoCAD重新安裝」，必須先通知我們「遠端移除結構外掛」，即可進行「轉移授權」至其他電腦使用。
3.ATSAI結構外掛僅支援Windows作業系統。

現在麻煩請重新提供 路徑偵測檔 ，我們確定是否為同一部電腦，再進行遠端安裝設置作業。

有問題想請教一下，這樣使用影響外掛程式會不會再壞掉 進入C U I 使用快顯功能表 再進去預設功能表 增加新子功能表使用顏色(&C) 使用C A D N E N U 2016巨集指令*^C^CSELECT;\CHPROP;P;;C;1;;在加入使用喜歡的顏色
C A D在使用上按右鍵在按C鍵再按數字一就選取到顏色紅色做圖比較方便
另外再加入一種編輯功能表增加圖層隔離繪製順序，把原本改(&W) 改成(&B)
在使用C A D按左鍵選取物件 按右𨫡近入編輯功能表 選取類似物件按（&T）在進入C A D在按右𨫡進入編輯功能表內在按右𨫡在選圖層（W）另外自己加入（R）圖層變更為目前層這一連串的更改做法使用上會不會引起程式外掛在出問題

shyrchu 寫到:有問題想請教一下，這樣使用影響外掛程式會不會再壞掉  進入C U I 使用快顯功能表  再進去預設功能表  增加新子功能表使用顏色(&C) 使用C A D N E N U 2016巨集指令*^C^CSELECT;\CHPROP;P;;C;1;;在加入使用喜歡的顏色
C A D在使用上按右鍵在按C鍵再按數字一就選取到顏色紅色做圖比較方便
另外再加入一種編輯功能表增加圖層隔離繪製順序，把原本改(&W) 改成(&B)
在使用C A D按左鍵選取物件 按右𨫡近入編輯功能表 選取類似物件按（&T）在進入C A D在按右𨫡進入編輯功能表內在按右𨫡在選圖層（W）另外自己加入（R）圖層變更為目前層這一連串的更改做法使用上會不會引起程式外掛在出問題

編輯 CUI 快顯功能表 不會影響論壇結構外掛程式。
註：編輯相關系統檔記得都要備份。

👇請把你的 CUIX 備份起來。
C:\ATStruCAD\2025\acad.CUIX

***POP538
**POPL18
[自訂功能表]
ID_MENUEDIT [編輯功能表]^C^CSTART;CadMenu2016.MNS;
[Y下170]^C^C^Q-LAYER;M;AT標示標註;C;2;;;-INSERT *Y下170.dwg \!#DWGSC;;
[Y下180]^C^C^Q-LAYER;M;AT標示標註;C;2;;;-INSERT *Y下180.dwg \!#DWGSC;;
[Y上170]^C^C^Q-LAYER;M;AT標示標註;C;2;;;-INSERT *Y上170.dwg \!#DWGSC;;
[Y上180]^C^C^Q-LAYER;M;AT標示標註;C;2;;;-INSERT *Y上180.dwg \!#DWGSC;;
[6直380]^C^C^Q-LAYER;M;Y7梁;C;7;;;-INSERT *6直380.dwg \!#DWGSC;;
[7直380]^C^C^Q-LAYER;M;Y7梁;C;7;;;-INSERT *7直380.dwg \!#DWGSC;;

老師，我想請問一下我在使用C A D ME N U 2016 MN S前面6個DWG按Cyril+右鍵自訂功能表方法插入dwg最後第二個就出現無法在掛入指令，後來這倆6 3 5腳，73 5腳刪除就正常可掛入請問 問題出在哪裡？

[635腳]^C^C^Q-LAYER;M;Y7梁;C;7;;;-INSERT *635腳.dwg \!#DWGSC;;
[735腳]^C^C^Q-LAYER;M;Y7梁;C;7;;;-INSERT *735腳.dwg \!#DWGSC;;

1.試試開啟一張空白圖檔能否正常插入。
2.前面6個dwg有放在支援搜尋路徑中嗎？
3.前面6個dwg檔案內容為何，提供檔案我試試

我要傳送檔案過去給你看

我要傳送檔案過去給你看

檔案支援檔案搜索路徑也有加進去了 放到C:\CadMenu2016\Block

測試過dwg檔案沒有問題
我需要看到及了解你的掛入語法與方式

1.po出你自訂的功能表mns檔畫面
2.是用什麼樣的方式步驟掛入
3.直接將dwg檔 635腳 更名，掛入試試

已有傳三張照片過去了

可能是把中文檔的關係

你的mns檔是使用記事本編輯嗎
儲存時請把文字編碼格式改為 ANSI

我使用的N N S檔案使用記事本編輯碼是記事本編輯格式是A N S I沒有錯 之前常常看你影片在教學的時候有提到這點內容我有記起來了，我就有注意到了A N S I沒有錯

shyrchu 寫到:我使用的N N S檔案使用記事本編輯碼是記事本編輯格式是A N S I沒有錯  之前常常看你影片在教學的時候有提到這點內容我有記起來了，我就有注意到了A N S I沒有錯

你測試把mns檔另存新檔，然後留下少數巨集資料，我們需要逐一檢查是哪一行寫法有誤。
MNS檔一次不要寫太多資料，分次寫分次掛入，這部分概念跟程式一樣，需要花時間除錯。

老師早 M N S留下少許巨集一一測試沒有問題 老師之前你有說名稱更改一下看能不能，之前的問題已找到了原因是因為名字在起名之前兩個名字太類似不可以，所以起名稱時要避免 M N S已恢復正常可以正常掛入
老師能不能再跟你拿一個巨集跟A T標示標註(DEE)在更改圖層合做圖時巨集在單刪除圖層作圖方便很好用

shyrchu 寫到:老師早  M N S留下少許巨集一一測試沒有問題  老師之前你有說名稱更改一下看能不能，之前的問題已找到了原因是因為名字在起名之前兩個名字太類似不可以，所以起名稱時要避免  M N S已恢復正常可以正常掛入
老師能不能再跟你拿一個巨集跟A T標示標註(DEE)在更改圖層合做圖時巨集在單刪除圖層作圖方便很好用

請詳述描述作業需求，我們再討論巨集寫法是否可以滿足。

在繪製梁鋼筋減料時需要畫一些輔助線，垂直水平建構線可以使用快速刪除建構線方式不用特地一一逐個去刪除。
然後使用;;;指定AT標示標註層 23指令
(DEFUN C:23 () (SETVAR "CMDECHO" 0) (PROMPT "指定AT標示標註圖層") (COMMAND "LAYER" "U" "AT標示標註" "T" "AT標示標註" "M" "AT標示標註" "C" "2" "" "") (PRINC)) 線性DLI指令. A T標示標註圖層來標註想要得到的尺寸，不要用假標註時 再用按鍵DEE來快速刪除A T標示標註圖層 不用特地一一逐個去刪除
在畫線條時然後使用; Duong han
(defun C:10 ( / p1 p2 p3 p4 a b l n deltaX deltaY i x1 y1 x2 y2 )
(SETVAR "CMDECHO" 0)
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(PROMPT "\n建立Y15")
(command "LAYER" "MAKE" "Y15" "COLOR" 2 "" "")
(setq p1 (getpoint "Start point : ") )
(setq p2 (getpoint p1 "End point : ") )
; (setq a (getdist "Distance : ") )
; (setq b (getdist "Lenght : ") )
(setq a 10 )
(setq b 10 )
(setq l (distance p1 p2) )
(setq n (fix ( / l a ) ) )
(setq deltaX ( - (car p2) (car p1) ) )
(setq deltaY ( - (cadr p2) (cadr p1) ) )
(setq i 0)
(setvar "OSMODE" 0)
(command "_UNDO" "_GROUP")
(while (<= i n)
(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )
)
)
)
(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY )
)
)
)
(setq p3 (list x1 y1) )
(setq x2 ( + x1 (* -1 (* b (/ deltaY l) )
)
)
)
(setq y2 ( + y1 (* b (/ deltaX l)
)
)
)
(setq p4 (list x2 y2) )
(command "LINE" p3 p4 "")
(setq i (+ i 1) )
)
(command "_UNDO" "_END")
(setvar "OSMODE" 1791)
(princ (strcat "\n已繪製 " (itoa ( 1+ n)) " 條線段。"))
(princ)
)
這個指令我另外有在修改裡面內容裡面有12公分15公分，18公分，20公分的尺寸
使用指令能否在最後把線畫完的數量。能否呈現單行文字插入在由我們指定的地方位置放置

這數量每次都有顯示在指令行，每次都要透過編緝在把數字數量填上去，不然一會就忘記了

每次使用鍵盤快捷鍵shift的加Q插入文字再做編輯^C^C^Q-LAYER;M;S-Y15;C;2;;;-INSERT *Y15.dwg \!#DWGSC;;

1.刪除特定 圖層名稱 巨集:

代碼:

^c^cERASE;(ssget "_X" '((8 . "圖層名稱")));;

2.程式以下這裡修改加上 累加線段的長度 及 寫文字

代碼:

   (command "LINE" p3 p4 "")  ; 繪製線段
    (setq totalLength (+ totalLength b))  ; 累加線段的長度
    (setq i (+ i 1))  ; 更新迴圈變量
  )
  (setvar "OSMODE" 1791)
  ; 讓用戶指定文字的放置位置
  (setq textPoint (getpoint "\n指定文字位置: "))
  ; 使用 TEXT 命令在指定位置寫出總長度
  (command "TEXT" textPoint 2.5 0 (strcat "總長度: " (rtos totalLength 2 2) " 單位"))
  (princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段，總長度為 " (rtos totalLength 2 2) " 單位。"))

老師請問這樣加入後無法執行畫線並執行插入文字; Duong han
(defun C:26 ( / p1 p2 p3 p4 a b l n deltaX deltaY i x1 y1 x2 y2 )
(SETVAR "CMDECHO" 0)
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(PROMPT "\n建立Y15")
(command "LAYER" "MAKE" "Y15" "COLOR" 2 "" "")
(setq p1 (getpoint "Start point : ") )
(setq p2 (getpoint p1 "End point : ") )
; (setq a (getdist "Distance : ") )
; (setq b (getdist "Lenght : ") )
(setq a 26 )
(setq b 26 )
(setq l (distance p1 p2) )
(setq n (fix ( / l a ) ) )
(setq deltaX ( - (car p2) (car p1) ) )
(setq deltaY ( - (cadr p2) (cadr p1) ) )
(setq i 0)
(setvar "OSMODE" 0)
(command "_UNDO" "_GROUP")
(while (<= i n)
(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )
)
)
)
(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY )
)
)
)
(setq p3 (list x1 y1) )
(setq x2 ( + x1 (* -1 (* b (/ deltaY l) )
)
)
)
(setq y2 ( + y1 (* b (/ deltaX l)
)
)
)
(setq p4 (list x2 y2) )
(command "LINE" P3 P4 "") ; 繪製線段
(setq totalLength (+ totalLength b)) ; 累加線段的長度
(setq i (+ i 1)) ; 更新迴圈變量
)
(setvar "OSMODE" 1791)
; 讓用戶指定文字的放置位置
(setq textpoint (getpoint "\n直指定文字位置: "))
; 使用 TEXT 命令在指定位置寫出總長度
(command "TEXT" textpoint 2.5 0 (strcat "總長度: " (rtos totalLength 2 2) " 單位"))
(princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段,總長度為 " (rtos totalLength 2 2) " 單位。

你程式最後少了 ，括弧數左右需對稱一致
))
(princ)
)

代碼:


(princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段，總長度為 " (rtos totalLength 2 2) " 單位。"))
(princ)
)

程式碼補充:

代碼:

 
  (setq i 0)
  (setq totalLength 0)  ; 初始化總長度
  (setvar "OSMODE" 0)


程式載入修改後可繪製線一樣無法插入文字
; Duong han
(defun C:42 ( / p1 p2 p3 p4 a b l n deltaX deltaY i x1 y1 x2 y2 )
(SETVAR "CMDECHO" 0)
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(PROMPT "\n建立Y15")
(command "LAYER" "MAKE" "Y15" "COLOR" 2 "" "")
(setq p1 (getpoint "Start point : ") )
(setq p2 (getpoint p1 "End point : ") )
; (setq a (getdist "Distance : ") )
; (setq b (getdist "Lenght : ") )
(setq a 42 )
(setq b 42 )
(setq l (distance p1 p2) )
(setq n (fix ( / l a ) ) )
(setq deltaX ( - (car p2) (car p1) ) )
(setq deltaY ( - (cadr p2) (cadr p1) ) )
(setq i 0)
(setvar "OSMODE" 0)
(command "_UNDO" "_GROUP")
(while (<= i n)
(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )
)
)
)
(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY )
)
)
)
(setq p3 (list x1 y1) )
(setq x2 ( + x1 (* -1 (* b (/ deltaY l) )
)
)
)
(setq y2 ( + y1 (* b (/ deltaX l)
)
)
)
(setq p4 (list x2 y2) )
(command "LINE" p3 p4 "")
(setq i (+ i 1) )
)
(command "_UNDO" "_END")
(setvar "OSMODE" 1791)
(princ (strcat "\n已繪製 " (itoa ( 1+ n)) " 條線段。"))
(princ)
)
(setvar "OSMODE" 0)
; 讓用戶指定文字的放置位置
(setq textpoint (getpoint "\n指定文字位置: "))
; 使用 TEXT 命令在指定位置寫出總長度
(command "TEXT" textpoint 2.5 0 (strcat "總長度: " (rtos totalLength 2 2) " 單位"))
(princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段,總長度為 " (rtos totalLength 2 2) "
單位。"))
(princ)
)

1.我在上面有程式碼補充 你沒有加上去

代碼:

(setq totalLength 0)  ; 初始化總長度

2.你的 c:42 程式碼後面複製錯誤 多了這些

代碼:

      (princ (strcat "\n已繪製 " (itoa ( 1+ n)) " 條線段。"))
      (princ)
)
      (setvar "OSMODE" 0)

3.須留意我使用你原本程式 c:10 的這隻
你要仔細看，放入正確的程式碼
寫程式要理解()對稱，理解加入需要程式碼

4.程式以下這三處修改加上，請留意程式碼複製須完整
初始化總長度
累加線段的長度
寫文字

老師謝謝你的程式
; Duong han
(defun C:99 ( / p1 p2 p3 p4 a b l n deltaX deltaY i x1 y1 x2 y2 )
(SETVAR "CMDECHO" 0)
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(PROMPT "\n建立Y15")
(command "LAYER" "MAKE" "Y15" "COLOR" 2 "" "")
(setq p1 (getpoint "Start point : ") )
(setq p2 (getpoint p1 "End point : ") )
; (setq a (getdist "Distance : ") )
; (setq b (getdist "Lenght : ") )
(setq a 99 )
(setq b 99 )
(setq l (distance p1 p2) )
(setq n (fix ( / l a ) ) )
(setq deltaX ( - (car p2) (car p1) ) )
(setq deltaY ( - (cadr p2) (cadr p1) ) )
(setq i 0)
(setvar "OSMODE" 0)
(command "_UNDO" "_GROUP")
(while (<= i n)
(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )
)
)
)
(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY )
)
)
)
(setq p3 (list x1 y1) )
(setq x2 ( + x1 (* -1 (* b (/ deltaY l) )
)
)
)
(setq y2 ( + y1 (* b (/ deltaX l)
)
)
)
(setq p4 (list x2 y2) )
(command "LINE" p3 p4 "")
(setq i (+ i 1) )
)
(command "_UNDO" "_END")
(setvar "OSMODE" 1791)
(princ (strcat "\n已繪製 " (itoa ( 1+ n)) " 條線段。"))
; 讓用戶指定文字的放置位置
(setq textpoint (getpoint "\n指定文字位置: "))
; 使用 TEXT 命令在指定位置寫出總長度
(command "TEXT" textpoint 15 0 (strcat "總長度: " (rtos totalLength 2 2) " 單位"))
(princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段,總長度為 " (rtos totalLength 2 2) " 單位。"))
(princ)
)