[討論]分享即時顯示聚合線長度LISP
+5
Rocky33321
mayaguy
regina
Tiger&蘋果爸
devinchou
9 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]分享即時顯示聚合線長度LISP
各位前輩們好!
這是小弟剛出爐的LISP,
功能為畫完聚合線後,
隨即在聚合線的端點,
顯示聚合線的長度,
請各位前輩們指教!
感恩呀!
這是小弟剛出爐的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)
- 附件
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
學習小孩, zx3613133 and laxd like this post
回復: [討論]分享即時顯示聚合線長度LISP
謝謝 devinchou 再次分享程式~
真的很讚~
真的很讚~
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [討論]分享即時顯示聚合線長度LISP
超方便的的程式,感謝大大無私分享
regina- 專屬會員
- 文章總數 : 62
年齡 : 48
來自 : 臺中市
職業 : 鋼筋施工圖
愛好 : 吸收新知
個性 : 內斂
使用年資 : 8年
使用版本 : 2013
經驗值 : 5662
威望值 : -2
注冊日期 : 2009-10-24
回復: [討論]分享即時顯示聚合線長度LISP
使用上要注意喲!!!
目前還不接受圓弧的聚合線!!!
目前還不接受圓弧的聚合線!!!
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
回復: [討論]分享即時顯示聚合線長度LISP
感謝分享!這很適合用在建築圖說的步行距離,只要把文字位置改到線段中央就完美了,我可以自己修改使用嗎?
mayaguy- 初級會員
- 文章總數 : 49
年齡 : 51
來自 : 台北
職業 : 建築
愛好 : 3C
個性 : 溫和
使用年資 : 15
使用版本 : 2012
積分 : 1
經驗值 : 5005
威望值 : 36
注冊日期 : 2011-09-28
回復: [討論]分享即時顯示聚合線長度LISP
當然沒問題!mayaguy 寫到:感謝分享!這很適合用在建築圖說的步行距離,只要把文字位置改到線段中央就完美了,我可以自己修改使用嗎?
歡迎使用!
另,我本來也有考慮將文字置於線段中央,
但這部份的程式不熟...
所以就採用最簡單的方法了。
對了!
字高還有圖層,
你也可以改成你自己常用的!
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
回復: [討論]分享即時顯示聚合線長度LISP
devinchou 寫到:當然沒問題!mayaguy 寫到:感謝分享!這很適合用在建築圖說的步行距離,只要把文字位置改到線段中央就完美了,我可以自己修改使用嗎?
歡迎使用!
另,我本來也有考慮將文字置於線段中央,
但這部份的程式不熟...
所以就採用最簡單的方法了。
對了!
字高還有圖層,
你也可以改成你自己常用的!
好的!
感謝您~!
mayaguy- 初級會員
- 文章總數 : 49
年齡 : 51
來自 : 台北
職業 : 建築
愛好 : 3C
個性 : 溫和
使用年資 : 15
使用版本 : 2012
積分 : 1
經驗值 : 5005
威望值 : 36
注冊日期 : 2011-09-28
回復: [討論]分享即時顯示聚合線長度LISP
個人對LISP不熟悉,下載來參考及研究,感謝分享
Rocky33321- 一般會員
- 文章總數 : 46
年齡 : 59
來自 : 台東
職業 : 土木工程
愛好 : 電腦
個性 : 良質
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4775
威望值 : 18
注冊日期 : 2012-03-27
回復: [討論]分享即時顯示聚合線長度LISP
我不懂LISP 但是一個非常好的程式,對我們要計算數量面積等幫助很大。希望有加入也顯示弧線
謝謝無私分享!!
謝謝無私分享!!
linxyz168- 專屬會員
- 文章總數 : 59
年齡 : 46
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 4498
威望值 : 12
注冊日期 : 2013-03-31
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6710
威望值 : 361
注冊日期 : 2010-09-20
box888- 一般會員
- 文章總數 : 28
年齡 : 53
來自 : 台北
職業 : 設計
愛好 : 電影
個性 : 一般
使用年資 : 10
使用版本 : 2010
經驗值 : 5270
威望值 : 15
注冊日期 : 2010-09-24
回復: [討論]分享即時顯示聚合線長度LISP
感謝大大無私地分享......感恩
rickyyang- 專屬會員
- 文章總數 : 196
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4543
威望值 : 36
注冊日期 : 2014-11-11
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章