顧問教學
加入贊助
聯絡我們![[已解決]這程式為什麼不能運作? Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[已解決]這程式為什麼不能運作? 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[已解決]這程式為什麼不能運作? Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[已解決]這程式為什麼不能運作? 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[已解決]這程式為什麼不能運作? Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[已解決]這程式為什麼不能運作? Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[已解決]這程式為什麼不能運作? Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[已解決]這程式為什麼不能運作? BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[已解決]這程式為什麼不能運作? Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[已解決]這程式為什麼不能運作? Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[已解決]這程式為什麼不能運作? Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[已解決]這程式為什麼不能運作? Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[已解決]這程式為什麼不能運作? Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[已解決]這程式為什麼不能運作? Aoe1-111](https://i.servimg.com/u/f67/12/31/59/66/aoe1-111.png)
![[已解決]這程式為什麼不能運作? Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[已解決]這程式為什麼不能運作? Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[已解決]這程式為什麼不能運作? Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[已解決]這程式為什麼不能運作? Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[已解決]這程式為什麼不能運作?
4 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
![[已解決]這程式為什麼不能運作? Empty](https://2img.net/i/empty.gif)
[已解決]這程式為什麼不能運作?
由 s924310 2011-07-11, 15:53
本來有問題要發問
結果 想了好久 發現問題的所在
感謝CAD顧問論壇給我了靈感!!
(defun c:sb ()
(setq di (getint "\n請輸入縮短距離<-10>:"))
(if (null di )(setq di -10))
(setq en (entsel"\n請選擇切斷的線"))
(while en
(setq po (getpoint "\n請點取切斷點"))
(command "break" en "f" po "@")
(command "LENGTHEN" "DE" di (entsel"\n請選擇縮短的線")"")
(setq en (entsel"\n請選擇切斷的線"))
)
(prin1)
)
結果 想了好久 發現問題的所在
感謝CAD顧問論壇給我了靈感!!
(defun c:sb ()
(setq di (getint "\n請輸入縮短距離<-10>:"))
(if (null di )(setq di -10))
(setq en (entsel"\n請選擇切斷的線"))
(while en
(setq po (getpoint "\n請點取切斷點"))
(command "break" en "f" po "@")
(command "LENGTHEN" "DE" di (entsel"\n請選擇縮短的線")"")
(setq en (entsel"\n請選擇切斷的線"))
)
(prin1)
)
Tiger&蘋果爸 在 2011-07-13, 22:00 作了第 4 次修改 (原因 : 將主題顏色改為無)
s924310- 初級會員
- 文章總數 : 31
年齡 : 33
來自 : 高雄
職業 : 電腦繪圖
愛好 : 看熱鬧
個性 : 隨性
使用年資 : 4年
使用版本 : 2006
積分 : 2
經驗值 : 5446
威望值 : 27
注冊日期 : 2009-09-21
回復： [已解決]這程式為什麼不能運作?
由 Tiger&蘋果爸 2011-07-11, 16:47
是的!!
問題就出在少一個ENTER
(command "LENGTHEN" "DE" di (entsel"\n請選擇縮短的線") "" )
跟你分享我使用巨集寫出來的也可達到類似需求，你參考看看~
切斷縮短線巨集語法:
影片第一段為你的程式，第二段我使用巨集滿足~
問題就出在少一個ENTER
(command "LENGTHEN" "DE" di (entsel"\n請選擇縮短的線") "" )
跟你分享我使用巨集寫出來的也可達到類似需求，你參考看看~
切斷縮短線巨集語法:
*^c^cBREAK \F \@ LENGTHEN DE \\
影片第一段為你的程式，第二段我使用巨集滿足~
Tiger&蘋果爸 在 2022-08-08, 14:24 作了第 1 次修改
____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
![[已解決]這程式為什麼不能運作? Sesa2011](https://i.servimg.com/u/f67/12/31/59/66/sesa2011.png)
![[已解決]這程式為什麼不能運作? Youtub11](https://i.servimg.com/u/f67/12/31/59/66/youtub11.png)
![[已解決]這程式為什麼不能運作? Oiea2011](https://i.servimg.com/u/f67/12/31/59/66/oiea2011.png)
![[已解決]這程式為什麼不能運作? Oe20011](https://i.servimg.com/u/f67/12/31/59/66/oe20011.png)
![[已解決]這程式為什麼不能運作? Fbi20011](https://i.servimg.com/u/f67/12/31/59/66/fbi20011.png)
![[已解決]這程式為什麼不能運作? Line2011](https://i.servimg.com/u/f67/12/31/59/66/line2011.png)
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21115
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88657
威望值 : 16958
注冊日期 : 2008-04-23
-
tarpon- 中級會員
- 文章總數 : 209
年齡 : 33
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6043
威望值 : 263
注冊日期 : 2010-07-01
回復： [已解決]這程式為什麼不能運作?
由 Tiger&蘋果爸 2011-07-12, 11:07
當指定點位置跟上一次一樣，這時可以使用@tarpon 寫到:請問蘋果爸
巨集中使用 @ 有何用途謝謝
官網說明:
請為第一和第二點輸入相同的點。您可以輸入 @ 指定第二點，以實現此目的。
http://exchange.autodesk.com/autocad/cht/online-help/search#WS1a9193826455f5ffa23ce210c4a30acaf-4d65.htm
____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21115
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88657
威望值 : 16958
注冊日期 : 2008-04-23
-
tarpon- 中級會員
- 文章總數 : 209
年齡 : 33
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6043
威望值 : 263
注冊日期 : 2010-07-01
回復： [已解決]這程式為什麼不能運作?
由 Tiger&蘋果爸 2011-07-12, 16:12
不客氣啦~tarpon 寫到:學習了感謝蘋果爸的說明
這個@不只用在BREAK指令，很多地方都可以用，尤其是用在巨集(連續指令)特別好用~
____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21115
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88657
威望值 : 16958
注冊日期 : 2008-04-23
-
回復： [已解決]這程式為什麼不能運作?
由 lingo_st 2012-08-10, 00:33
發現一件很好玩的事
差值輸入負值時 可以把任意線段 每次切掉差值長度,同時可連續切除
差值輸入正值時 可以把任意線段 每次伸長差值長度,同時可連續延伸
好像可以用在不同需求的地方喔,如果多條線段需要延伸或縮短固定長度,好像還蠻方便的
可惜不能窗選,殘念
差值輸入負值時 可以把任意線段 每次切掉差值長度,同時可連續切除
差值輸入正值時 可以把任意線段 每次伸長差值長度,同時可連續延伸
好像可以用在不同需求的地方喔,如果多條線段需要延伸或縮短固定長度,好像還蠻方便的
可惜不能窗選,殘念
lingo_st- 中級會員
- 文章總數 : 211
年齡 : 60
來自 : 新北市
職業 : 營造,建設
愛好 : 學習,服務,電腦軟硬體
個性 : 正直,達觀且無可救藥的雞婆
使用年資 : 使用12年但真的是新手
使用版本 : 2012,2013
積分 : 6
經驗值 : 5756
威望值 : 271
注冊日期 : 2011-12-18
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章