AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
老師這程式最後能否改良最後顯示線的數量 Aoe1-113老師這程式最後能否改良最後顯示線的數量 Ioaoe110老師這程式最後能否改良最後顯示線的數量 2020-310老師這程式最後能否改良最後顯示線的數量 Oiu15010老師這程式最後能否改良最後顯示線的數量 2020-211老師這程式最後能否改良最後顯示線的數量 Ia15010老師這程式最後能否改良最後顯示線的數量 Aizyao10老師這程式最後能否改良最後顯示線的數量 Uos15010老師這程式最後能否改良最後顯示線的數量 BPl3tjj老師這程式最後能否改良最後顯示線的數量 Ziao1510
老師這程式最後能否改良最後顯示線的數量 Aoe15010老師這程式最後能否改良最後顯示線的數量 Oo-2-110老師這程式最後能否改良最後顯示線的數量 Zuoiy_10老師這程式最後能否改良最後顯示線的數量 Aizyao11老師這程式最後能否改良最後顯示線的數量 Iyb_1510老師這程式最後能否改良最後顯示線的數量 Aoe1-112老師這程式最後能否改良最後顯示線的數量 Uos15011老師這程式最後能否改良最後顯示線的數量 Aoe2da10老師這程式最後能否改良最後顯示線的數量 Aoe2da11老師這程式最後能否改良最後顯示線的數量 Aoe10

老師這程式最後能否改良最後顯示線的數量

2 posters

向下

老師這程式最後能否改良最後顯示線的數量 Empty 老師這程式最後能否改良最後顯示線的數量

發表 由 shyrchu 2024-03-22, 14:02

; Duong han
(defun C:10 ( / p1 p2 p3 p4 a b l n deltaX deltaY i x1 y1 x2 y2 )
(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)
)
shyrchu
shyrchu
贊助會員
贊助會員

文章總數 : 59
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : LT2024
經驗值 : 766
威望值 : 24
注冊日期 : 2023-05-28
男 處女座 兔

rickyyang likes this post

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 回復: 老師這程式最後能否改良最後顯示線的數量

發表 由 Tiger&蘋果爸 2024-03-22, 18:06

在你的程式碼加上 >> (princ (strcat "\n已繪製 " (itoa n) " 條線段。"))
會顯示結果 >> 已繪製 xx 條線段。
代碼:
(setvar "OSMODE" 1791)
(princ (strcat "\n已繪製 " (itoa n) " 條線段。"))
(princ)

____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
老師這程式最後能否改良最後顯示線的數量 Sesa2011 老師這程式最後能否改良最後顯示線的數量 Youtub11 老師這程式最後能否改良最後顯示線的數量 Oiea2011 老師這程式最後能否改良最後顯示線的數量 Oe20011 老師這程式最後能否改良最後顯示線的數量 Fbi20011 老師這程式最後能否改良最後顯示線的數量 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21320
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 89999
威望值 : 17174
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

rickyyang likes this post

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 使用程式後開頭少一條線 能否再修改璧如目前使用文字圖層顏色6號色使用這指令後能強制換成標註顏色6號色嗎謝謝

發表 由 shyrchu 2024-03-22, 21:25

; Duong han
(defun C:10 ( / p1 p2 p3 p4 a b l n deltaX deltaY i x1 y1 x2 y2 )
(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"\已繪製 " (itoa n) " 條線段。"))
(princ)
shyrchu
shyrchu
贊助會員
贊助會員

文章總數 : 59
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : LT2024
經驗值 : 766
威望值 : 24
注冊日期 : 2023-05-28
男 處女座 兔

rickyyang likes this post

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 回復: 老師這程式最後能否改良最後顯示線的數量

發表 由 Tiger&蘋果爸 2024-03-23, 13:38

你的程式一開始請加入以下這行程式碼,這樣執行速度會快一點
(SETVAR "CMDECHO" 0)

想要自訂圖層及顏色可以參考以下這行程式碼
(command "layer" "make" "DIM" "color" 3 "" "")

說明:
(command "layer" "make" "圖層名稱" "color" 顏色代碼 "" "")

代碼:
(defun C:10 ( / p1 p2 p3 p4 a b l n deltaX deltaY i x1 y1 x2 y2 )
  (SETVAR "CMDECHO" 0)
  (command "layer" "make" "DIM" "color" 3 "" "")
      (setq p1 (getpoint "Start point : ") )
      (setq p2 (getpoint p1 "End point  : ") )

____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
老師這程式最後能否改良最後顯示線的數量 Sesa2011 老師這程式最後能否改良最後顯示線的數量 Youtub11 老師這程式最後能否改良最後顯示線的數量 Oiea2011 老師這程式最後能否改良最後顯示線的數量 Oe20011 老師這程式最後能否改良最後顯示線的數量 Fbi20011 老師這程式最後能否改良最後顯示線的數量 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21320
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 89999
威望值 : 17174
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

rickyyang likes this post

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 回復: 老師這程式最後能否改良最後顯示線的數量

發表 由 shyrchu 2024-03-23, 14:34

程式已成功老師謝謝你
shyrchu
shyrchu
贊助會員
贊助會員

文章總數 : 59
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : LT2024
經驗值 : 766
威望值 : 24
注冊日期 : 2023-05-28
男 處女座 兔

rickyyang likes this post

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 回復: 老師這程式最後能否改良最後顯示線的數量

發表 由 shyrchu 2024-03-23, 18:51

; 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建立標註")
(command "LAYER" "MAKE" 標註"" "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已繪製1+ " (itoa n) " 條線段。"))
(princ)
)
shyrchu
shyrchu
贊助會員
贊助會員

文章總數 : 59
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : LT2024
經驗值 : 766
威望值 : 24
注冊日期 : 2023-05-28
男 處女座 兔

rickyyang likes this post

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 回復: 老師這程式最後能否改良最後顯示線的數量

發表 由 shyrchu 2024-03-24, 14:49

請問老師後來發現指令行的線顯示線條少一條線段 和性質面板的數量不一樣 性質面板的數量是正確的數量有辦法在改善嗎
shyrchu
shyrchu
贊助會員
贊助會員

文章總數 : 59
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : LT2024
經驗值 : 766
威望值 : 24
注冊日期 : 2023-05-28
男 處女座 兔

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 回復: 老師這程式最後能否改良最後顯示線的數量

發表 由 Tiger&蘋果爸 2024-03-24, 16:41

shyrchu 寫到:請問老師後來發現指令行的線顯示線條少一條線段         和性質面板的數量不一樣  性質面板的數量是正確的數量有辦法在改善嗎
因為 n 值是等分數 只要在程式碼中加1即可
(princ (strcat "\n已繪製 " (itoa (1+ n)) " 條線段。"))


Tiger&蘋果爸 在 2024-03-25, 09:20 作了第 1 次修改

____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
老師這程式最後能否改良最後顯示線的數量 Sesa2011 老師這程式最後能否改良最後顯示線的數量 Youtub11 老師這程式最後能否改良最後顯示線的數量 Oiea2011 老師這程式最後能否改良最後顯示線的數量 Oe20011 老師這程式最後能否改良最後顯示線的數量 Fbi20011 老師這程式最後能否改良最後顯示線的數量 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21320
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 89999
威望值 : 17174
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

rickyyang likes this post

回頂端 向下

老師這程式最後能否改良最後顯示線的數量 Empty 回復: 老師這程式最後能否改良最後顯示線的數量

發表 由 shyrchu 2024-03-24, 19:25

程式以改善指令行的線數量和性質面板線數量一樣謝謝你
shyrchu
shyrchu
贊助會員
贊助會員

文章總數 : 59
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : LT2024
經驗值 : 766
威望值 : 24
注冊日期 : 2023-05-28
男 處女座 兔

Tiger&蘋果爸 and rickyyang like this post

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
老師這程式最後能否改良最後顯示線的數量 Aoe1-113老師這程式最後能否改良最後顯示線的數量 Ioaoe110老師這程式最後能否改良最後顯示線的數量 2020-310老師這程式最後能否改良最後顯示線的數量 Oiu15010老師這程式最後能否改良最後顯示線的數量 2020-211老師這程式最後能否改良最後顯示線的數量 Ia15010老師這程式最後能否改良最後顯示線的數量 Aizyao10老師這程式最後能否改良最後顯示線的數量 Uos15010老師這程式最後能否改良最後顯示線的數量 BPl3tjj老師這程式最後能否改良最後顯示線的數量 Ziao1510
老師這程式最後能否改良最後顯示線的數量 Aoe15010老師這程式最後能否改良最後顯示線的數量 Oo-2-110老師這程式最後能否改良最後顯示線的數量 Zuoiy_10老師這程式最後能否改良最後顯示線的數量 Aizyao11老師這程式最後能否改良最後顯示線的數量 Iyb_1510老師這程式最後能否改良最後顯示線的數量 Aoe1-112老師這程式最後能否改良最後顯示線的數量 Uos15011老師這程式最後能否改良最後顯示線的數量 Aoe2da10老師這程式最後能否改良最後顯示線的數量 Aoe2da11老師這程式最後能否改良最後顯示線的數量 Aoe10