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.
[分享]複線取尺寸lisp Aoe1-113[分享]複線取尺寸lisp Ioaoe110[分享]複線取尺寸lisp 2020-310[分享]複線取尺寸lisp Oiu15010[分享]複線取尺寸lisp 2020-211[分享]複線取尺寸lisp Ia15010[分享]複線取尺寸lisp Aizyao10[分享]複線取尺寸lisp Uos15010[分享]複線取尺寸lisp BPl3tjj[分享]複線取尺寸lisp Ziao1510
[分享]複線取尺寸lisp Aoe15010[分享]複線取尺寸lisp Oo-2-110[分享]複線取尺寸lisp Zuoiy_10[分享]複線取尺寸lisp Aizyao11[分享]複線取尺寸lisp Iyb_1510[分享]複線取尺寸lisp Aoe1-112[分享]複線取尺寸lisp Uos15011[分享]複線取尺寸lisp Aoe2da10[分享]複線取尺寸lisp Aoe2da11[分享]複線取尺寸lisp Aoe10

[分享]複線取尺寸lisp

5 posters

向下

[分享]複線取尺寸lisp Empty [分享]複線取尺寸lisp

發表 由 蔣秉澔 2014-07-03, 11:41

一個很簡易的小程式,給有需要的冰友,很粗糙哦~
這隻程式,我將來還會做的更好,只是沒時間去改它。

會把每個折點尺寸也算出最後總長寫在尾端
[分享]複線取尺寸lisp 1110

下載
https://www.dropbox.com/s/kh659iuknvro756/%40pp.lsp

備用載點
https://app.box.com/s/6mbxgg6z9ym9rxc0k75r
蔣秉澔
蔣秉澔
初級會員
初級會員

文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 5357
威望值 : 204
注冊日期 : 2013-08-31
顧問外掛程式 藍鵲661號
男 金牛座 蛇

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 hannibal1112 2014-07-03, 14:36

感謝分享!!~魚幫水、水幫魚~

請問我載入使用他對話窗顯示---- 錯誤: 損壞的引數類型: consp nil---是設定問題嗎?謝謝! 火冒三丈 

____________________________________________________________________________________
[分享]複線取尺寸lisp 07810
[分享]複線取尺寸lisp 01310 [分享]複線取尺寸lisp Acad1810
[分享]複線取尺寸lisp Acad2010 [分享]複線取尺寸lisp Acad1810
[分享]複線取尺寸lisp Acad1211 [分享]複線取尺寸lisp Acad1311 [分享]複線取尺寸lisp Acad1511
hannibal1112
hannibal1112
初級會員
初級會員

文章總數 : 55
年齡 : 59
來自 : 台南
職業 : 網購
愛好 :
個性 : 悶燒
使用年資 : 3個月
使用版本 : r14
AutoCAD基礎篇等級 : 9星級
積分 : 2
經驗值 : 4358
威望值 : 69
注冊日期 : 2013-08-28
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲631號
男 金牛座 蛇

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 蔣秉澔 2014-07-03, 15:13

請問您是用在複線的物件嗎

____________________________________________________________________________________
[分享]複線取尺寸lisp Ioaoe110 [分享]複線取尺寸lisp Zuoiy_10 [分享]複線取尺寸lisp 2020-211 [分享]複線取尺寸lisp Aizyao11 [分享]複線取尺寸lisp Iyb_1510
[分享]複線取尺寸lisp Aizyao10 [分享]複線取尺寸lisp BPl3tjj.png [分享]複線取尺寸lisp Ziao1510 [分享]複線取尺寸lisp Oo-2-110 [分享]複線取尺寸lisp Oooa_110
蔣秉澔
蔣秉澔
初級會員
初級會員

文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 5357
威望值 : 204
注冊日期 : 2013-08-31
顧問外掛程式 藍鵲661號
男 金牛座 蛇

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 hannibal1112 2014-07-03, 15:40

恩我是有把線段聚合起來,但不是一個封閉路徑就像你的範例一樣,如果是封閉聚合線我想應該無法顯示吧...

____________________________________________________________________________________
[分享]複線取尺寸lisp 07810
[分享]複線取尺寸lisp 01310 [分享]複線取尺寸lisp Acad1810
[分享]複線取尺寸lisp Acad2010 [分享]複線取尺寸lisp Acad1810
[分享]複線取尺寸lisp Acad1211 [分享]複線取尺寸lisp Acad1311 [分享]複線取尺寸lisp Acad1511
hannibal1112
hannibal1112
初級會員
初級會員

文章總數 : 55
年齡 : 59
來自 : 台南
職業 : 網購
愛好 :
個性 : 悶燒
使用年資 : 3個月
使用版本 : r14
AutoCAD基礎篇等級 : 9星級
積分 : 2
經驗值 : 4358
威望值 : 69
注冊日期 : 2013-08-28
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲631號
男 金牛座 蛇

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 蔣秉澔 2014-07-04, 07:47

如果是把線段聚合起來,應該是pline,而不是mline,我這個lisp只能用在mline,如果要可以使用在pline,必須在改良。

____________________________________________________________________________________
[分享]複線取尺寸lisp Ioaoe110 [分享]複線取尺寸lisp Zuoiy_10 [分享]複線取尺寸lisp 2020-211 [分享]複線取尺寸lisp Aizyao11 [分享]複線取尺寸lisp Iyb_1510
[分享]複線取尺寸lisp Aizyao10 [分享]複線取尺寸lisp BPl3tjj.png [分享]複線取尺寸lisp Ziao1510 [分享]複線取尺寸lisp Oo-2-110 [分享]複線取尺寸lisp Oooa_110
蔣秉澔
蔣秉澔
初級會員
初級會員

文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 5357
威望值 : 204
注冊日期 : 2013-08-31
顧問外掛程式 藍鵲661號
男 金牛座 蛇

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 hannibal1112 2014-07-04, 10:02

恩我用mline 就可以顯示,不過我比較常用pline...mlie不會用到,也謝謝你的分享與解說!

____________________________________________________________________________________
[分享]複線取尺寸lisp 07810
[分享]複線取尺寸lisp 01310 [分享]複線取尺寸lisp Acad1810
[分享]複線取尺寸lisp Acad2010 [分享]複線取尺寸lisp Acad1810
[分享]複線取尺寸lisp Acad1211 [分享]複線取尺寸lisp Acad1311 [分享]複線取尺寸lisp Acad1511
hannibal1112
hannibal1112
初級會員
初級會員

文章總數 : 55
年齡 : 59
來自 : 台南
職業 : 網購
愛好 :
個性 : 悶燒
使用年資 : 3個月
使用版本 : r14
AutoCAD基礎篇等級 : 9星級
積分 : 2
經驗值 : 4358
威望值 : 69
注冊日期 : 2013-08-28
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲631號
男 金牛座 蛇

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 adslwang 2014-07-05, 07:41

蔣秉澔 寫到:如果是把線段聚合起來,應該是pline,而不是mline,我這個lisp只能用在mline,如果要可以使用在pline,必須在改良。

我請問一下你最下面的迴圈原寫法是以 4 3 2 1 0 的方向往回計算的嘛,還是我誤解了......
還是有其它的高手可以教一下呢,我看不太懂(一般都是採串列反轉的方法,再進入迴圈)
這個好像是往回走的呢?

接上
..................................
 (setq i 0)
 (SETQ pc3 0)  ;
 (setq i (- (length da5) 1))  
 (setq pc1 (cdr (nth i da5)))  
   (while (> i -1)  
   (setq p1 (cdr (nth i da5 )))  
...................................
接下

借你的東西小小修正一下 *LINE及PLINE都可以,修正-1的字眼

代碼:

(defun c:pp()
  (setq da(entget(car(entsel"請選1支銅排"))))  
  (setq da1(length da))    
  (setq i 0                
   da5 nil)
  (while (< i da1)  
    (setq db1(nth i da))  
    (setq db2(car db1))
    (if (= db2 10)  
        (progn
     (prin1 db1)  
     (setq da5 (cons db1 da5))  
     );progn 結束
        );if 結束

    
    (if (= db2 11)  
        (progn
     (prin1 db1)
     (setq da5(cons db1 da5))
     );progn 結束
        );if 結束  
    (setq i(+ i 1))
    );while 結束
 
  (setq i 0)
  (SETQ   pc3 0)  ;
  (setq i (- (length da5) 1))  
  (setq pc1 (cdr (nth i da5)))  
  
  (while (> i -1)
    (setq p1 (cdr (nth i da5 )))  
    (setq p12 (distance pc1 p1))  
    (setq pc3 (+ p12 pc3))        
    (setq pc1 p1)                
    (setq p1 (polar p1 (/ pi 2) 3))
    (command "text" p1 10 0 (rtos pc3 2 0))  
    (setq i (- i 1))  
    );while 結束
    (IF (= I -1) (SETQ I ""))
    (PRINC)
  );程式結束
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 46
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 7163
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 蔣秉澔 2014-07-05, 08:26

謝adslwang哥指教~^^,我還算是LISP的初手,有很多都還不會,所以請見諒。我有空回頭去看一下,因為~我忘了。

____________________________________________________________________________________
[分享]複線取尺寸lisp Ioaoe110 [分享]複線取尺寸lisp Zuoiy_10 [分享]複線取尺寸lisp 2020-211 [分享]複線取尺寸lisp Aizyao11 [分享]複線取尺寸lisp Iyb_1510
[分享]複線取尺寸lisp Aizyao10 [分享]複線取尺寸lisp BPl3tjj.png [分享]複線取尺寸lisp Ziao1510 [分享]複線取尺寸lisp Oo-2-110 [分享]複線取尺寸lisp Oooa_110
蔣秉澔
蔣秉澔
初級會員
初級會員

文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 5357
威望值 : 204
注冊日期 : 2013-08-31
顧問外掛程式 藍鵲661號
男 金牛座 蛇

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 cgh09300 2014-07-30, 02:38

這Lisp對小弟幫助很大 感謝板大!!

[分享]複線取尺寸lisp 29p4xvt

另外請問可以把最上面起始的 0 取消嗎??
cgh09300
cgh09300
一般會員
一般會員

文章總數 : 13
年齡 : 44
來自 : 高雄
職業 : 建築
愛好 : 音樂
個性 : 樂觀
使用年資 : 新手初學
使用版本 : 2013
經驗值 : 4362
威望值 : 3
注冊日期 : 2012-12-28
男 天蝎座 羊

回頂端 向下

[分享]複線取尺寸lisp Empty 回復: [分享]複線取尺寸lisp

發表 由 d24410 2021-11-06, 14:57

感謝板主分享,先下載以防以後會用到
d24410
d24410
初級會員
初級會員

文章總數 : 36
年齡 : 48
來自 : 台南市
職業 : 模具繪圖設計
愛好 : 看書
個性 : 內向
使用年資 : 13年
使用版本 : Auto CAD 2013
積分 : 1
經驗值 : 2995
威望值 : 30
注冊日期 : 2017-01-12
男 金牛座 龍

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]複線取尺寸lisp Aoe1-113[分享]複線取尺寸lisp Ioaoe110[分享]複線取尺寸lisp 2020-310[分享]複線取尺寸lisp Oiu15010[分享]複線取尺寸lisp 2020-211[分享]複線取尺寸lisp Ia15010[分享]複線取尺寸lisp Aizyao10[分享]複線取尺寸lisp Uos15010[分享]複線取尺寸lisp BPl3tjj[分享]複線取尺寸lisp Ziao1510
[分享]複線取尺寸lisp Aoe15010[分享]複線取尺寸lisp Oo-2-110[分享]複線取尺寸lisp Zuoiy_10[分享]複線取尺寸lisp Aizyao11[分享]複線取尺寸lisp Iyb_1510[分享]複線取尺寸lisp Aoe1-112[分享]複線取尺寸lisp Uos15011[分享]複線取尺寸lisp Aoe2da10[分享]複線取尺寸lisp Aoe2da11[分享]複線取尺寸lisp Aoe10