[分享]模型下快速出圖LISP

搞了一天一夜終於生出來
使用方式 指令PAU
先輸入印表機設備,建議印表機設備名稱不要過長也不要有空格,實體印表機或是PDF虛擬印表機都可
選取圖框樣板
圈選獲選取要出圖的圖框

功能
就是在模型空間直接快速多圖框出圖
自動判別橫直列印
比例全用全舖滿,所以圖框需有正常比例,這算是我的畫圖性質在模型空間全都是1:1物件在繪圖 圖框用比例方式排版,又剛好我都是一場案件都在同一檔案作業除非物件過多才會拆檔案
所以圖框的圖塊樣板(建議圖塊的基準點是設置在圖框中心點,目前程式依據是這樣)必須設定好要配合所使用的印表機的圖紙比例設定

出圖詳細設定如需調整請自行調整
目前設置是A3(P.S. 是可是在搞一個輸入框可輸入A3或A4,有空在做,工作已經延遲哈哈
不依物件線粗出圖

目前初圖順序無法控制(毫無頭緒
圈選出圖圖框無法判別是不是圖框(想做可是已經工作延遲有空閒在搞
我點小問題要請教LISP高手,矩形圖塊的4個角的座標點要如何抓?
現在是用圖元資料下去判別我覺得相當笨,應該有更快的方式?
看有沒有高手要來討論

感謝DIGE會員朋友熱心分享，歡迎一起加入研討~

先取得矩形的中點，
然後就可以判斷出它的4個角點

您好：
首先感謝您無私的分享，我在使用後有問題想請問

在指令列輸入PAU之後，出現

指令: APPAUTOLOADER
輸入自動載入器動作 [列示(L)/重新載入(R)] <列示>:

輸入L或R，都還是無法順利只用PAU這個程式
想請問是我哪裡沒有設定好嗎？

謝謝您

JAiLin 寫到:您好：
首先感謝您無私的分享，我在使用後有問題想請問

在指令列輸入PAU之後，出現

指令: APPAUTOLOADER
輸入自動載入器動作 [列示(L)/重新載入(R)] <列示>:

輸入L或R，都還是無法順利只用PAU這個程式
想請問是我哪裡沒有設定好嗎？

謝謝您

大大，你的問題是沒載入成功

代碼:


(SETQ BKCX ?(cadr ? (nth 11 (ENTGET S2)))) <--把問號拿掉就即可順利運行
(SETQ BKCY ?(caddr ?(nth 11 (ENTGET S2)))) <--把問號拿掉就即可順利運行
(SETQ BKR ? (cdr ? (nth 13 (ENTGET S2))))    <--把問號拿掉就即可順利運行
(SETQ R1 (FIX(cdr (nth 15(ENTGET S2)))))     <--把問號拿掉就即可順利運行


問題出現在20~24列
修改完後就可以運行




我運行後會出現印的不完全


基準點對不到
請各位大神指點如何修改

感謝分享

感謝無私分享。

jock1626 寫到:

JAiLin 寫到:您好：
首先感謝您無私的分享，我在使用後有問題想請問

在指令列輸入PAU之後，出現

指令: APPAUTOLOADER
輸入自動載入器動作 [列示(L)/重新載入(R)] <列示>:

輸入L或R，都還是無法順利只用PAU這個程式
想請問是我哪裡沒有設定好嗎？

謝謝您

大大，你的問題是沒載入成功

代碼:


(SETQ BKCX ?(cadr ? (nth 11 (ENTGET S2)))) <--把問號拿掉就即可順利運行
(SETQ BKCY ?(caddr ?(nth 11 (ENTGET S2)))) <--把問號拿掉就即可順利運行
(SETQ BKR ? (cdr ? (nth 13 (ENTGET S2))))    <--把問號拿掉就即可順利運行
(SETQ R1 (FIX(cdr (nth 15(ENTGET S2)))))     <--把問號拿掉就即可順利運行


問題出現在20~24列
修改完後就可以運行




我運行後會出現印的不完全


基準點對不到
請各位大神指點如何修改

有一陣沒上論壇了
我研究看看

感謝分享