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
Rocky33321
mayaguy
regina
Tiger&蘋果爸
devinchou
9 posters

向下

[討論]分享即時顯示聚合線長度LISP Empty [討論]分享即時顯示聚合線長度LISP

發表 由 devinchou 2016-12-03, 02:24

各位前輩們好!
這是小弟剛出爐的LISP,
功能為畫完聚合線後,
隨即在聚合線的端點,
顯示聚合線的長度,
請各位前輩們指教!
感恩呀!
代碼:
 ; [AutoCAD EXTEND] SHOWN IN LENGTH OF PLINE.
 ; [AutoCAD "指令"功能延伸] 即時顯示聚合線長度。
 ; 支援軟體版本("AutoCAD")
 ; 設計者:Devin,Chou
 ; 版權所有,歡迎使用
 ; Rev.1(2016/11/27-12/03)
(defun C:pls (/ pl_o pl_d pl_10 pl_70
                d_p d_lh x_p x_lh xy_lt
                pt1 pt2 pl_dt
                t_lay )
(setvar "cmdecho" 1 )
(setq t_lay
    (tblsearch "LAYER" "TEMP" ))
(if (= t_lay nil )
    (progn
    (setq t_lay "TEMP" )
    (entmake
    (list
    '(0 . "LAYER" )
    '(100 . "AcDbSymbolTableRecord" )
    '(100 . "AcDbLayerTableRecord" )
    '(62 . 7 )
    '(70 . 0 )
    '(6 . "Continuous" )
     (cons 2 t_lay )))) ; progn.end
    (setq t_lay "TEMP" )) ; if.end
(setq xy_lt '() d_p 0 x_p 0 )
(command "PLINE"
    (while (> (getvar 'cmdactive ) 0 )
    (command pause ))) ; while.end,pline.end
(setq pl_o
    (entlast ))
(setq pl_d
    (entget pl_o ))
(setq pl_70
    (cdr
    (assoc 70 pl_d )))
(setq d_lh
    (length pl_d ))
(while (< d_p d_lh )
(setq pl_10
    (nth d_p pl_d ))
(if (= (car pl_10 ) 10 )
    (setq xy_lt
    (cons pl_10 xy_lt ))) ; if.end
(setq d_p
    (1+ d_p ))) ; while.end
(setq xy_lt
    (reverse xy_lt ))
(setq x_lh
    (length xy_lt ))
(if (= pl_70 0 )
    (progn
    (while (< x_p (- x_lh 1 ))
    (setq pt1
    (cdr
    (nth x_p xy_lt )))
    (setq pt2
    (cdr
    (nth (1+ x_p ) xy_lt )))
    (setq x_p
    (1+ x_p ))
    (setq pl_dt
    (rtos (distance pt1 pt2 ) 2 0 ))
    (entmake_text )))) ; while.end,progn.end,if.end
(if (= pl_70 1 )
    (progn
    (while (< x_p x_lh )
    (setq pt1
    (cdr
    (nth x_p xy_lt )))
    (if (< (1+ x_p ) x_lh )
    (setq pt2
    (cdr
    (nth (1+ x_p ) xy_lt )))
    (setq pt2
    (cdr
    (nth 0 xy_lt )))) ; if.end
    (setq x_p
    (1+ x_p ))
    (setq pl_dt
    (rtos (distance pt1 pt2 ) 2 0 ))
    (entmake_text )))) ; while.end,progn.end,if.end
(prin1)
) ; pls.end,主程式結束
;----------主副程式分隔線----------;
(defun entmake_text ()
(entmake
    (list
    '(0 . "TEXT" )
     (cons 1 pl_dt )
     (cons 10 pt1 )
     (cons 40 20 )
     (cons 8 t_lay )))
(prin1)
) ; entmake_text.end,副程式結束
(princ "\nC:pls")
(prin1)
以下為影片說明檔-
附件
[討論]分享即時顯示聚合線長度LISP Attachment
55. 聚合線-即時長度.zip 您無權下載這里的附件。(1 Kb) 下載 102 次
devinchou
devinchou
初級會員
初級會員

文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
男 天蝎座 蛇

學習小孩, zx3613133 and laxd like this post

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 Tiger&蘋果爸 2016-12-05, 09:39

謝謝 devinchou 再次分享程式~
真的很讚~
害羞

____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
[討論]分享即時顯示聚合線長度LISP Sesa2011 [討論]分享即時顯示聚合線長度LISP Youtub11 [討論]分享即時顯示聚合線長度LISP Oiea2011 [討論]分享即時顯示聚合線長度LISP Oe20011 [討論]分享即時顯示聚合線長度LISP Fbi20011 [討論]分享即時顯示聚合線長度LISP Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

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

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 regina 2016-12-05, 16:09

超方便的的程式,感謝大大無私分享 竊喜

____________________________________________________________________________________

regina
regina
專屬會員
專屬會員

文章總數 : 62
年齡 : 48
來自 : 臺中市
職業 : 鋼筋施工圖
愛好 : 吸收新知
個性 : 內斂
使用年資 : 8年
使用版本 : 2013
經驗值 : 5662
威望值 : -2
注冊日期 : 2009-10-24
顧問外掛程式 經典問與答讀者 女 水瓶座 龍

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 devinchou 2016-12-05, 18:59

使用上要注意喲!!!
目前還不接受圓弧的聚合線!!!
devinchou
devinchou
初級會員
初級會員

文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
男 天蝎座 蛇

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 mayaguy 2016-12-14, 13:22

感謝分享!這很適合用在建築圖說的步行距離,只要把文字位置改到線段中央就完美了,我可以自己修改使用嗎?
mayaguy
mayaguy
初級會員
初級會員

文章總數 : 49
年齡 : 51
來自 : 台北
職業 : 建築
愛好 : 3C
個性 : 溫和
使用年資 : 15
使用版本 : 2012
積分 : 1
經驗值 : 5005
威望值 : 36
注冊日期 : 2011-09-28
顧問外掛程式 男 雙魚座 牛

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 devinchou 2016-12-14, 21:46

mayaguy 寫到:感謝分享!這很適合用在建築圖說的步行距離,只要把文字位置改到線段中央就完美了,我可以自己修改使用嗎?
當然沒問題!
歡迎使用!
另,我本來也有考慮將文字置於線段中央,
但這部份的程式不熟...
所以就採用最簡單的方法了。
對了!
字高還有圖層,
你也可以改成你自己常用的!
devinchou
devinchou
初級會員
初級會員

文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
男 天蝎座 蛇

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 mayaguy 2016-12-15, 11:39

devinchou 寫到:
mayaguy 寫到:感謝分享!這很適合用在建築圖說的步行距離,只要把文字位置改到線段中央就完美了,我可以自己修改使用嗎?
當然沒問題!
歡迎使用!
另,我本來也有考慮將文字置於線段中央,
但這部份的程式不熟...
所以就採用最簡單的方法了。
對了!
字高還有圖層,
你也可以改成你自己常用的!

好的!
感謝您~!
mayaguy
mayaguy
初級會員
初級會員

文章總數 : 49
年齡 : 51
來自 : 台北
職業 : 建築
愛好 : 3C
個性 : 溫和
使用年資 : 15
使用版本 : 2012
積分 : 1
經驗值 : 5005
威望值 : 36
注冊日期 : 2011-09-28
顧問外掛程式 男 雙魚座 牛

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 Rocky33321 2016-12-18, 12:37

個人對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
Rocky33321
Rocky33321
一般會員
一般會員

文章總數 : 46
年齡 : 59
來自 : 台東
職業 : 土木工程
愛好 : 電腦
個性 : 良質
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4775
威望值 : 18
注冊日期 : 2012-03-27
藍鵲375號
男 金牛座 蛇

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 linxyz168 2018-12-23, 23:02

我不懂LISP 但是一個非常好的程式,對我們要計算數量面積等幫助很大。希望有加入也顯示弧線
謝謝無私分享!!
linxyz168
linxyz168
專屬會員
專屬會員

文章總數 : 59
年齡 : 46
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 4498
威望值 : 12
注冊日期 : 2013-03-31
男 射手座 蛇

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 直線+三點畫弧, 我自己寫過的程式我都忘記了, 哈 ... 參考一下. 3Q : )

發表 由 shackle_2005 2018-12-30, 06:25


____________________________________________________________________________________
[討論]分享即時顯示聚合線長度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
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6710
威望值 : 361
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 box888 2019-01-14, 14:10

熱情 感謝分享
box888
box888
一般會員
一般會員

文章總數 : 28
年齡 : 53
來自 : 台北
職業 : 設計
愛好 : 電影
個性 : 一般
使用年資 : 10
使用版本 : 2010
經驗值 : 5270
威望值 : 15
注冊日期 : 2010-09-24
藍鵲384號
男 獅子座 豬

回頂端 向下

[討論]分享即時顯示聚合線長度LISP Empty 回復: [討論]分享即時顯示聚合線長度LISP

發表 由 rickyyang 2022-01-18, 22:21

感謝大大無私地分享......感恩
rickyyang
rickyyang
專屬會員
專屬會員

文章總數 : 196
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4543
威望值 : 36
注冊日期 : 2014-11-11
[討論]分享即時顯示聚合線長度LISP Acadad10 男 射手座 馬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]分享即時顯示聚合線長度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