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

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

有問題想請教一下，這樣使用影響外掛程式會不會再壞掉 進入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）圖層變更為目前層這一連串的更改做法使用上會不會引起程式外掛在出問題

***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;;

我要傳送檔案過去給你看

我要傳送檔案過去給你看

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

已有傳三張照片過去了

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

老師早 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;;

老師請問這樣加入後無法執行畫線並執行插入文字; 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) " 單位。

程式載入修改後可繪製線一樣無法插入文字
; 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)
)

老師謝謝你的程式
; 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)
)