[LISP程序]：计算选定对象的"总面积"和"总长度"

LUCAS

最初由 秋枫 发布
[B][CODE]

(defun c:TOTALAREA (/ ss e alist)
  (vl-load-com)
  (ssmap '(lambda (e)
            (setq alist (cons (vla-get-area (vlax-ename->vla-object e)) alist))
          )
         (ssget '((0 . "... [/B]

;;(sslength ss)還會有小數嗎??

陌生人

不过,秋风的程序写的很精练,我喜欢:)
除了楼上将的,再找不出什么破绽.算是个较完美的方案.因此,我也没有必要献丑了.嘻嘻

eachy

最初由 陌生人 发布
[B]不过,秋风的程序写的很精练,我喜欢:)
除了楼上将的,再找不出什么破绽.算是个较完美的方案.因此,我也没有必要献丑了.嘻嘻 [/B]

凑个热闹，你用上面的程序选择 3Dpoly 试试。

陌生人

哈哈,老兄,3dpoly有area属性么?

eachy

最初由 陌生人 发布
[B]哈哈,老兄,3dpoly有area属性么? [/B]

老弟，我是说程序会把 3dpoly 也选进来，过滤器不严谨。

1. 
   
2. (ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE,SPLINE,SPLINE,REGION")))
   

复制代码

这个 *line  还包括了 xline

1. 
   
2. (ssget '((0 . "*LINE,CIRCLE,ELLIPSE,ARC,REGION"))))
   

复制代码

这些都会造成程序中断退出

陌生人

秋风(第四贴)的过滤只有
(ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE,SPLINE,SPLINE,REGION")))
多写了一个spline.没包括*line啊.
后面那个是aoe的.
我们说的是不是一个程序?

eachy

最初由 陌生人 发布
[B]秋风(第四贴)的过滤只有
(ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE,SPLINE,SPLINE,REGION")))
多写了一个spline.没包括*line啊.
后面那个是aoe的.
我们说的是不是一个程序? [/B]

我是针对过滤器，不是指哪一帖， 3dploy 也属于 polyline ，所以不管是 秋枫 还是 aeo 写的都没有把 3dpoly 滤掉。