2013-05-05 QQ群：LISP/VLISP交流(143438137) 聊天记录：放到共享吧

CCarch

流氓兔(871425525)于2013-05-05 00-10-40：
放到共享吧

CCarch

天问(891487378)于2013-05-05 00-21-28：
我没积分啊

CCarch

迪克斯(1065100574)于2013-05-05 00-39-48：
靠　我下午发的问题　都被无聊的信息给淹没了

CCarch

流氓兔(871425525)于2013-05-05 00-40-09：
恩

CCarch

流氓兔(871425525)于2013-05-05 00-40-17：
统计长度面积并且做好表格，

CCarch

流氓兔(871425525)于2013-05-05 00-40-24：
这个你会吗

CCarch

迪克斯(1065100574)于2013-05-05 00-40-50：
这个没有会不会的　设计个思路　去实现就行

CCarch

流氓兔(871425525)于2013-05-05 00-42-04：
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=667677&pid=3446979&page=2&extra=&mobile=yes

CCarch

流氓兔(871425525)于2013-05-05 00-42-11：
没有思路

CCarch

迪克斯(1065100574)于2013-05-05 00-42-35：
;;用该方法获取属性块的范围失败，改用新方法
  
;;;  (vla-getboundingbox
;;;    (vlax-ename->vla-object entblk)
;;;    'pt1
;;;    'pt2
;;;  )
;;;
;;;
;;;  (setq        pt1 (trans (vlax-safearray->list pt1) 0 1)
;;;        pt2 (trans (vlax-safearray->list pt2) 0 1)
;;;  )
;;;

CCarch

迪克斯(1065100574)于2013-05-05 00-43-00：
统计长度　面积　：这个就是累积了

CCarch

迪克斯(1065100574)于2013-05-05 00-43-10：
这个问题解决

CCarch

迪克斯(1065100574)于2013-05-05 00-43-41：
(defun GetBlkMMPt (en              /               ent        m
                             n              blocks   vn        pointmax
                             pointmin maxpoint minpoint        ONE
                             TWO
                            )
                                        ;(setq en ent)
  (setq        *AcadDocument* (vla-get-activeDocument (vlax-get-acad-object))
        blocks               (vla-get-blocks *AcadDocument*)
  )
  (setq vn (vla-item blocks (cdr (assoc 2 (entget en)))))
  (setq p0 (cdr (ASSOC 10 (entget en))))
  (setq        m '()
        n '()
  )
  (vlax-for ent        vn
    ;;这里的 ent 就是 块内的图元了,可以对其进行操作
    (if        (/= "AcDbAttributeDefinition" (vla-get-ObjectName ent))
      (progn
        (vla-getboundingbox ent 'minpoint 'maxpoint)
        (setq pointmax (vlax-safearray->list maxpoint)
              pointmin (vlax-safearray->list minpoint)
        )
        (setq pointmax (LIST (+ (CAR p0) (CAR pointmax))
                             (+ (CADR p0) (CADR pointmax))
                             0
                       )
        )
        (setq pointmin (LIST (+ (CAR p0) (CAR pointmin))
                             (+ (CADR p0) (CADR pointmin))
                             0
                       )
        )
        (setq m (cons pointmax m))
        (setq n (cons pointmin n))
      )
    )
  )
  (setq        two
         (list
           (caar
             (vl-sort M
                      (function (lambda (e1 e2) (> (car e1) (car e2))))
             )
           )
           (cadar
             (vl-sort M
                      (function (lambda (e1 e2) (> (cadr e1) (cadr e2))))
             )
           )
           0
         )
  )
  (setq        one
         (list
           (caar
             (vl-sort N
                      (function (lambda (e1 e2) (< (car e1) (car e2))))
             )
           )
           (cadar
             (vl-sort N
                      (function (lambda (e1 e2) (< (cadr e1) (cadr e2))))
             )
           )
           0
         )
  )
  (list        one
        (LIST (CAR TWO) (CADR ONE) 0)
        two
        (LIST (CAR ONE) (CADR TWO) 0)
  )
)

CCarch

迪克斯(1065100574)于2013-05-05 00-43-46：
用这个方法得到的

CCarch

迪克斯(1065100574)于2013-05-05 00-43-53：
;;; MODULE: 得到块的4个点  4 3                                              ;;;
;;;                        1 2