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

[討論]請教模型空間PDF出圖的LISP

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

[討論]請教模型空間PDF出圖的LISP

發表 由 a1793524860 于 2013-06-27, 08:47

大家好,我近三個月來第一次接觸到LISP並用工作空檔上網研究摸索,目前也只是能拼湊些基本程式來用而已
作業上是在模型空間製圖,並在繪製出不會列印出來的A4直框或橫框中繪圖
所以我先是寫出了以下LISP來加快出圖速度,能在輸入檔名並儲存後結束程式
直框只是改了徑度與距離而已所以以下只貼出橫框程式碼

(DEFUN C:b ()
(setq osm (getvar "osmode"));這一行請放置於第三行
(setq a (getpoint "\n▂ ▃ ▄ ▅ ▆ ▇ █  橫 框  █ ▇ ▆ ▅ ▄ ▃ ▂"));抓取左下角為第一點
(setq b (polar a 0.615 363.7));以第一點a為起點徑度0.615與距離363.7
(setvar "osmode" (+ 16384 osm));暫時關閉物件鎖點(請放至於繪圖指令前)
(COMMAND "plot" "Y" "" "" "" "M" "L" "Y" "W" a b "" "" "" "" "" "" "" "" "")
(setvar "osmode" osm);恢復初始設定值
(PRINC)
)

先感謝版上的大家,關閉鎖點的部分是在版上參考到的,所以我自己寫的部分真的很皮毛啊害羞
接下來以下問題想請教:

1.  我試著想寫出迴圈直到案ESC為止才停止程式,網路上參考很多while語法來試,不過像是"交叉線段切斷於點"我能成功寫出來(只是在COMMAND前加上一層while T),但在這個程式卻會無限執行導致卡死,我不知道是否不同需求的程式內容會有不同的while寫法,或是有其他語法可用?請賜教謝謝!

(7/2更新)這個也自己解決了,也是語法位置放錯的問題.....,把while T放在DEFUN下一層的最前頭就行了

2.  因為有些案子全用直框或是全用橫框繪製,排圖我個人是五張圖為一排,所以想寫一個連續出五張圖的LISP,試驗上我只試了出兩張圖,一樣用polar的方式寫出了下一個圖框的c跟d兩個對角點,但是出圖後第二張圖卻一樣是抓了a跟b兩個點來出圖,請問這怎麼回事?(很抱歉我都是工作空檔拼湊程式碼來亂試,前天這個問題的LSP不小心刪掉了,所以現在想不起來當初寫出來的完整程式內容.....)
(6/28更新)今天寫出來了,很簡單,大概之前語法位置放錯吧.....三條線

3.  我想在連續五張出圖時能自動儲存檔名,以省下每次出一張就要改檔名並按儲存的步驟,但是關於"儲存"與"檔名"這部分的語法我完全沒頭緒,煩請給個提示謝謝!

以上問題謝謝大家賜教。
avatar
a1793524860
初級會員
初級會員

文章總數 : 19
年齡 : 29
來自 : 台北市
職業 : 製圖
愛好 : 動漫
個性 : 隨和
使用年資 : 3年
使用版本 : 2015
積分 : 1
經驗值 : 1850
威望值 : 57
注冊日期 : 2013-04-11
藍鵲630號
串連貼紙成功 男 巨蟹座 龍

回頂端 向下

回復: [討論]請教模型空間PDF出圖的LISP

發表 由 leoneriol 于 2013-07-25, 10:57

[分享]大量出圖.plt檔

這是出成plt檔的,您可以參考看看能不能修改成出PDF
avatar
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 816
年齡 : 33
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 6637
威望值 : 938
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

回復: [討論]請教模型空間PDF出圖的LISP

發表 由 a1793524860 于 2013-08-08, 03:48

leoneriol 寫到:[分享]大量出圖.plt檔

這是出成plt檔的,您可以參考看看能不能修改成出PDF

很抱歉最近才有空檔來研究如何變特殊會員來看這篇文章(原來很簡單快速啊,囧)

看過後似乎沒有我問題第3點關於檔名部分語法的討論
我上網找過不過也找不到相關應用
待我有空再直接將我目前實用中的LISP提供出來吧

感謝您的回答!
avatar
a1793524860
初級會員
初級會員

文章總數 : 19
年齡 : 29
來自 : 台北市
職業 : 製圖
愛好 : 動漫
個性 : 隨和
使用年資 : 3年
使用版本 : 2015
積分 : 1
經驗值 : 1850
威望值 : 57
注冊日期 : 2013-04-11
藍鵲630號
串連貼紙成功 男 巨蟹座 龍

回頂端 向下

回復: [討論]請教模型空間PDF出圖的LISP

發表 由 a1793524860 于 2013-08-15, 07:59

[分享]LISP模型空間中快速/大量出圖

分享在這篇了有需要的請參考
avatar
a1793524860
初級會員
初級會員

文章總數 : 19
年齡 : 29
來自 : 台北市
職業 : 製圖
愛好 : 動漫
個性 : 隨和
使用年資 : 3年
使用版本 : 2015
積分 : 1
經驗值 : 1850
威望值 : 57
注冊日期 : 2013-04-11
藍鵲630號
串連貼紙成功 男 巨蟹座 龍

回頂端 向下

回復: [討論]請教模型空間PDF出圖的LISP

發表 由 greetingsfromtw 于 2013-08-16, 04:56

【發帖精華】AutoCAD模型空間及配置空間批量打印(列印)軟件
http://www.autocad-tw.com/t12052-topic

在這篇討論串中蘋果爸有分享一個強大的軟件並提供詳盡的影片教學,
可以參考看看讚啦!! 
avatar
greetingsfromtw
初級會員
初級會員

文章總數 : 222
年齡 : 33
來自 : 高雄
職業 : CAD菜鳥繪圖員
愛好 : 吃好吃的東西
個性 : 文靜
使用年資 : 不到兩年
使用版本 : 公司為2008,家中為2011
積分 : 3
經驗值 : 3281
威望值 : 189
注冊日期 : 2012-05-02
經典問與答讀者 藍鵲441號
男 天蝎座 鼠

回頂端 向下

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


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