AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[分享]複線取尺寸lisp 2020-211 [分享]複線取尺寸lisp Oooo-110 [分享]複線取尺寸lisp Oo-2-110 [分享]複線取尺寸lisp Ziao1510 [分享]複線取尺寸lisp BPl3tjj [分享]複線取尺寸lisp Uos15010

[分享]複線取尺寸lisp

向下

[分享]複線取尺寸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
年齡 : 42
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 3668
威望值 : 162
注冊日期 : 2013-08-31
顧問外掛程式 藍鵲661號
男 金牛座 蛇

回頂端 向下

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

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

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

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

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

回頂端 向下

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

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

請問您是用在複線的物件嗎
蔣秉澔
蔣秉澔
初級會員
初級會員

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

文章總數 : 55
年齡 : 54
來自 : 台南
職業 : 網購
愛好 :
個性 : 悶燒
使用年資 : 3個月
使用版本 : r14
AutoCAD基礎篇等級 : 9星級
積分 : 2
經驗值 : 2711
威望值 : 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
年齡 : 41
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5516
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

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

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]複線取尺寸lisp Uos15010 [分享]複線取尺寸lisp BPl3tjj [分享]複線取尺寸lisp Ziao1510 [分享]複線取尺寸lisp Oo-2-110 [分享]複線取尺寸lisp Oooo-110 [分享]複線取尺寸lisp 2020-211