在多段線每段線中心標注本段線長

在多段線每段線中心標注本段線長 利用lisp對表求值的函數mapcar?快速標注線長。并利用rem保證生成文字角度在[-45,135)之間。

(defun c:tt (/ ss ent lis);多段線每段線中心標注本段線長

(setq ss (ssget ":P:E" '((0 . "LWPOLYLINE"))))

(setq ent (ssname ss 0))

(mapcar '(lambda (x) (entmake (list '(0 . "TEXT") '(72 . 1) '(73 . 2) (cons 1 (car x)) (cons 10 (cadr x)) (cons 11 (cadr x)) (cons 40 2.5) (cons 50 (last x)))))

(mapcar '(lambda (x) (list (rtos (distance (car x) (cadr x)) 2 2) (mapcar '* '(0.5 0.5) (mapcar '+ (car x) (cadr x))) (- (rem (+ (angle (car x) (cadr x)) (* 0.25 pi)) pi) (* 0.25 pi))))

(mapcar 'list (setq lis (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget ent)))) (append (cdr lis) (list (car lis))))))

(princ)

)

總結

以上是生活随笔為你收集整理的lisp pl线线段数_vlisp每日源码（标注多段线线长）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。