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.
[已解決]這程式為什麼不能運作? Io15011 [已解決]這程式為什麼不能運作? 2020-310 [已解決]這程式為什麼不能運作? Oiu15010 [已解決]這程式為什麼不能運作? 2020-211 [已解決]這程式為什麼不能運作? Oo-2-110 [已解決]這程式為什麼不能運作? BPl3tjj

[已解決]這程式為什麼不能運作?

4 posters

向下

[已解決]這程式為什麼不能運作? Empty [已解決]這程式為什麼不能運作?

發表 由 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)
)



Tiger&蘋果爸 在 2011-07-13, 22:00 作了第 4 次修改 (原因 : 將主題顏色改為無)
s924310
s924310
初級會員
初級會員

文章總數 : 31
年齡 : 30
來自 : 高雄
職業 : 電腦繪圖
愛好 : 看熱鬧
個性 : 隨性
使用年資 : 4年
使用版本 : 2006
積分 : 2
經驗值 : 4504
威望值 : 27
注冊日期 : 2009-09-21
男 水瓶座 馬

回頂端 向下

[已解決]這程式為什麼不能運作? Empty 回復: [已解決]這程式為什麼不能運作?

發表 由 Tiger&蘋果爸 2011-07-11, 16:47

是的!!
問題就出在少一個ENTER
(command "LENGTHEN" "DE" di (entsel"\n請選擇縮短的線") "" )

跟你分享我使用巨集寫出來的也可達到類似需求,你參考看看~
切斷縮短線巨集語法:
*^c^cBREAK \F \@ LENGTHEN DE \\


影片第一段為你的程式,第二段我使用巨集滿足~