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

主題回顧 :

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

老師早 程式能否再升級 我現在已經把線500公分長度畫出來 已知道繪製 已42 條線段。
來選取位置指定要插入的文字位置 能否直接把42單行文字插入圖面，不用再敲鍵盤了

shyrchu 寫到:老師早 程式能否再升級 我現在已經把線500公分長度畫出來 已知道繪製 已42 條線段。
來選取位置指定要插入的文字位置  能否直接把42單行文字插入圖面，不用再敲鍵盤了

這個很簡單 把文字放置位置 更改為使用 POLAR
說明：
這行程式的作用是計算一個相對於點 P3 並位於其右側 5 單位的點，然後將這個新點賦值給 textPoint 變數。

老師你好 麻煩你了我的想法是這樣的(1) 輸入指令 (2)指定丫1 5圖層 (3)物件鎖點1791不跑掉 (4)指令行顯示線的數量比如18條線段
(5)讓用戶指定文字的放置位置,就是由使用者用滑鼠指定任意在那一點
(6)插入文字18 ,不用再按鍵盤數字18
(7)結束

shyrchu 寫到:老師你好 麻煩你了我的想法是這樣的(1) 輸入指令 (2)指定丫1 5圖層 (3)物件鎖點1791不跑掉 (4)指令行顯示線的數量比如18條線段
(5)讓用戶指定文字的放置位置,就是由使用者用滑鼠指定任意在那一點
(6)插入文字18   ,不用再按鍵盤數字18
(7)結束

你這個需求 我這裡已經回答了
請逐一檢查你的程式碼 是否我的相符合
https://www.autocad-tw.com/t29573-topic#183961

👇目前程式結果

; Duong han
(defun C:12 ( / 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 12 )
(setq b 12 )
(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)
(setq totalLength 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 13 0 (strcat "總長度: " (rtos totalLength 2 2) " cm"))
(princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段,總長度為 " (rtos totalLength 2 2) " cm。"))
(princ)
)
老師你好程式依照你的指示已經測試成功,我的線段 總共設計12個資料夾 @7公分@8公分@10公分@12公分@14公分@15公分@18公分@20公分@25公分@75公分@90公分@105公分
能否在開始預設指令時 ;讓使用者來輸入線的長度 線的長度指定多少就是多少 L七就是七公分 L12就是12公分

老師你好 程式能否在改寫 線總長度不是我要的方向;我要的方向是線的總數量謝謝你
線的數量顯示在指定行，然後任意插入位置插入文字把這資訊留到圖面，然後再用隔離再用相加的程式把數量計算出來線的總數量,
線的長度本身用處是在做計算用的，計算的方法有高度不一樣，寬度不一樣公分尺寸不一樣，利用本身線的功能來多計算想要得到的訊息

幾個例來講以簡單來敘述一間房子，外面圍牆有四面圍牆，因地面深度問題鋼筋密度比較密間隙我要使用12公分採用12公分的線，把後面所需的長度用(L12)指令標示出來。另外三面牆沒有地面深度問題使用正常鋼筋間隙即可採用15公分, 採用15公分的線(L15)指令把15公分的線分別標示在圖面三面牆上 將顯示在圖面數字在用圖層隔離出來在用外掛程式數量相加

請把寫出 總長度 的程式碼 改為 繪製數量

老師謝謝你的程式讓我在繪圖時工作更加順利; 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)
(setq totalLength 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)
; 文字放置位置
(setq textpoint (POLAR P3 0 5))
; 使用 TEXT 命令在指定位置寫出繪製數量
(command "TEXT" textpoint 14 0 (strcat " " (itoa (1+ n))))
(princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段。"))
(princ)
)
謝謝你的幫忙