[討論]分享即時顯示聚合線長度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)

mayaguy 寫到:感謝分享！這很適合用在建築圖說的步行距離，只要把文字位置改到線段中央就完美了，我可以自己修改使用嗎？

devinchou 寫到:

mayaguy 寫到:感謝分享！這很適合用在建築圖說的步行距離，只要把文字位置改到線段中央就完美了，我可以自己修改使用嗎？

當然沒問題!
歡迎使用!
另,我本來也有考慮將文字置於線段中央,
但這部份的程式不熟...
所以就採用最簡單的方法了。
對了!
字高還有圖層,
你也可以改成你自己常用的!