社区 › Auto Lisp › 我需要lisp来计算le

afrazawan 发表于 2022-7-6 08:40:00

我需要lisp来计算le

我需要任何lisp来假设多行选择长度和面积假设我选择10行他给我显示了10行或多段线的长度相同的物体的多行选择面积

Tharwat 发表于 2022-7-6 09:19:12

看看这个。。。。
 

(defun c:TesT (/ l pl a ss i sn)(vl-load-com)
;; Tharwat 20 .Nov. 2011 ;;
(if (setq l0
         pl 0
         a0
         ss (ssget'((0 . "LWPOLYLINE,POLYLINE,LINE")))
   )
   (progn
   (repeat (setq i (sslength ss))
       (setq sn (ssname ss (setq i (1- i))))
       (cond
         ((eq (cdr (assoc 0 (entget sn))) "LINE")
          (setq
            l (+ l
               (distance (cdr (assoc 10 (entget sn)))
                           (cdr (assoc 11 (entget sn)))
               )
            )
          )
         )
         ((member (cdr (assoc 0 (entget sn)))
                  '("LWPOLYLINE" "POLYLINE")
          )
          (progn
            (setq
            pl (+ pl (vla-get-length (vlax-ename->vla-object sn)))
            )
            (setq a (+ a (vla-get-area (vlax-ename->vla-object sn))))
          )
         )
       )
   )
   (alert (strcat "Total Length of Lines : < "
                  (rtos l 2)
                  " >"
                  "\n"
                  "Total Length of Polylines : < "
                  (rtos pl 2)
                  " >"
                  "\n"
                  "Total Area of Polylines : < "
                  (rtos a 2)
                  " >"
            )
   )
   )
   (princ)
)
(princ)
)

Lee Mac 发表于 2022-7-6 09:51:26

我的一些老节目。
 
您可能还对以下方面感兴趣：
 
http://www.theswamp.org/index.php?topic=33671.0
 
[可能需要会员资格]

查看完整版本: 我需要lisp来计算le