API应用分类统计线长

st788796 · 发表于 2014-7-15 23:59:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
(progn
(setq lst (mapcar '(lambda (x)
(list (xdrx_getpropertyvalue x "IsA")
x
)
)
(xdrx_pickset->ents ss)
)
lst (XD::List:GroupByIndex lst 0)
)
(mapcar '(lambda (x)
(princ "\n")
(princ (list (car x)
(apply '+
(mapcar '(lambda (a)
(cadr (xdrx_getarea a))
)
(cdr x)
)
)
)
)
)
lst
)
)
)
(princ)
)

(defun c:tt (/ ss lst) 
  (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x) 
                           (list (xdrx_getpropertyvalue x "IsA") 
                                 x 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (XD::List:GroupByIndex lst 0) 
      ) 
      (mapcar '(lambda (x) 
                 (princ "\n") 
                 (princ        (list (car x) 
                              (apply '+ 
                                     (mapcar '(lambda (a) 
                                                (cadr (xdrx_getarea a)) 
                                              ) 
                                             (cdr x) 
                                     ) 
                              ) 
                        ) 
                 ) 
               ) 
              lst 
      ) 
    ) 
  ) 
  (princ) 
)

hzj268 · 发表于 2014-8-3 11:46:56

老大网上有这么这段代码他只能在命令行里显示每根线段详细的尺寸能不能将它统计成表格呀只需要长度和数量就好(好的话送豆豆)
;;;-----------------------------------------------------
;;;程序名：ll.LSP
;;;功  能：计算线段和多义线的长度
;;;-----------------------------------------------------
(defun c:ll( / a n index0 tuyname)
(setq a (ssget))
(setq n (sslength a))             ;求出选择集中的图元数目
(setq index0 0)                   ;设置计数器
(setq s 0)
(repeat n                         ;对后面的表达式进行N次计算
      (setq tuyname (ssname a index0));返回选择集中由序号指定的图元名
      (setq index0 (+ index0  1))    ;计数器加一
      (setq ent1 (entget tuyname))
      (setq et (length ent1))
      (setq et1 et)
      (setq index1 0)

      (setq test 0)
      (setq x2  0)
      (setq y2  0)
      (setq x1 0 y1 0)
      (setq s0 0)
         (repeat 2
      (setq xy (nth index1 ent1))
                  ;计算line线长
      (if (= (cdr xy) "LINE")
         (progn
            (setq index2 0)
            (repeat et1
                   (setq xy (nth index2 ent1))
              (if (= (car xy) 10)
                     (progn
                           (setq x1 (nth 1 xy))
                           (setq y1 (nth 2 xy))
                  )
                  )
                  (if (= (car xy) 11)
                  (progn
                        (setq x2 (nth 1 xy))
                           (setq y2 (nth 2 xy))
                     )
         )
               (setq index2 (+ index2 1))
      )
      (setq s0 (sqrt (+(* (- x2 x1) (- x2 x1)) (* (- y2 y1) (- y2 y1)))))
                 )
      )
                  ;line线计算结束
      ;计算"LWPOLYLINE"线长
      (if (= (cdr xy) "LWPOLYLINE")
(progn
(setq index2 0)
         (repeat et1
                        (setq xy (nth index2 ent1))
               (if (= (car xy) 10)
                  (if (= test 1)
                  (progn
                        (setq x2 x1)
                        (setq y2 y1)
                        (setq x1 (nth 1 xy))
                        (setq y1 (nth 2 xy))
                        (setq s0 (+ s0 (sqrt (+(* (- x2 x1) (- x2 x1)) (* (- y2 y1) (- y2 y1))))))
                  )
            )
               )
               (if (= (car xy) 10)
                  (if (= test 0)
                  (progn
                        (setq x1 (nth 1 xy))
                        (setq y1 (nth 2 xy))
                        (setq test 1)
                  )
                  )
               )
               (setq index2 (+ index2 1))
         )
)
      )
                  ;计算"LWPOLYLINE"线结束
(setq index1 (+ index1 1))
      )
      (print s0)
      (setq s (+ s s0))
      )
(print )
(princ "总长度:")
(princ s)
(setq a nil)
(princ)
)

関吣 · 发表于 2017-4-24 11:04:28

hzj268 发表于 2014-8-3 11:46

你这段代码有问题~多段线其中一段中间加个顶点长度统计就出错了。

newer · 发表于 2017-4-24 20:36:29

hzj268 发表于 2014-8-3 11:46

每日插件有了，看看 http://bbs.xdcad.net/thread-705982-1-1.html

登录/注册后可看大图

账号		自动登录	找回密码
密码			立即注册

[教学] API应用 分类统计线长

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

[教学] API应用分类统计线长