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

*[已解決]連續插入加工名稱

上一篇主題 下一篇主題 向下

*[已解決]連續插入加工名稱

發表 由 fu4shu 于 2008-10-17, 22:49

請幫我指導如何完成此程式謝謝
;[Flow-1]*****加工程序********
(defun C:Flow-1 ()
(setvar "cmdecho" 0) ;;指令執行過程不回應
(setq os (getvar "osmode")) ;;記錄原物件鎖點值
(setvar "osmode" 0) ;;關閉物件鎖點

;(setq old_plinewid (getvar "plinewid"))
;(setvar "plinewid" 0.2)(setvar "plinewid" (* ww1 0.5))
;(setq old_plinewid (getvar "plinewid"))
;(setvar "plinewid" 0.2) .....(setvar "plinewid" old_plinewid)

(prompt "\n======加工程序======")
(setq th (getreal "\n請輸入字高<3>:"))
(if (= th nil) (setq th 3.0))
(setq p0 (getpoint "\n請點及放置點:"))
;(setq ps (polar p0 0 (* th 3.0)))
;(setq p1 (polar ps (* pi 0.5)(/ th 2.0)))
;(setq p2 (polar p1 0 5 ))
;(setq p3 (polar p2 0 3 ))
(while (/= p0 nil)
;(while p0
(initget "MD MM D M S E C H G W P J T N ")
(setq typ(getkword "\nMD(M/C鑽)/MM(M/C銑)/Drill(鑽孔)/Mill(銑削)/Saw(鋸切)/Edm(放電)/Carve(雕刻)/Hrc(熱處理)/Grind(研磨)/Wire(線割)/Plating(電鍍)/Jg(內孔研磨)/tiN(鍍鈦) :"))
(cond ((= typ "MD")(setq ty "M/C鑽"))
((= typ "MM")(setq ty "M/C銑"))
((= typ "D")(setq ty "鑽孔"))
((= typ "M")(setq ty "銑削"))
((= typ "S")(setq ty "鋸切"))
((= typ "E")(setq ty "放電"))
((= typ "C")(setq ty "雕刻"))
((= typ "H")(setq ty "熱處理"))
((= typ "G")(setq ty "研磨"))
((= typ "W")(setq ty "線割"))
((= typ "P")(setq ty "電鍍"))
((= typ "J")(setq ty "內孔研磨"))
((= typ "N")(setq ty "鍍鈦"))
)

(command "text" p0 th "" ty "" )
(setq p3 (polar p0 0 (* th 3 )))
;(command "pline" p1 "w" "0.2" "0.2" p2 "h" "0.5" "0" p3 "" )
(setq p0 p3)
)
(setvar "osmode" os) ;;回復原物件鎖點
(prompt "=========加工程序==========")
(prompt "\n<<指令:Flow-1>>程式撰寫Tseng fu-shu[[加工程序]]2007/10/13")
(prin1)
);defun

fu4shu
初級會員
初級會員

文章總數 : 26
年齡 : 47
來自 : TAIWAN
職業 : 衝壓模具設計製造
積分 : 2
經驗值 : 3457
威望值 : 21
注冊日期 : 2008-09-15
男 天秤座 狗

回頂端 向下

回復: *[已解決]連續插入加工名稱

發表 由 Tiger&蘋果爸 于 2008-10-27, 06:16

關於LISP程式的測試,目前論壇還沒有提供這樣的服務,因為業界的程式需求太多種了,而且很難在論壇中以文字的方式來處理~

或許你可以到以下網址詢問看看!
http://www.autocad.com.tw/asp/ShowRecord.asp?WebName=AutoCAD&ParentWebName=

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章