本帖最后由 菜卷鱼 于 2014-4-1 20:11 编辑
 - (defun centerp (ss ) ;;;获得图元中心点,结果返回一个点
- (mapcar '(lambda (x)(/ x 2))
- (apply '(lambda (x1 x2)(mapcar '+ x1 x2)) (cornerp ss)) )
- )
- (defun cornerp(entname / ptlist) ;;;获得图元对角点,结果返回两个点(点表)
- (vla-getboundingbox (vlax-ename->vla-object entname) 'entpl 'entpr)
- (setq ptlist (mapcar 'vlax-safearray->list (list entpl entpr)))
- (mapcar '(lambda (x) (trans x 0 1)) ptlist)
- )
|