本帖最后由 GSD 于 2020-9-23 15:45 编辑
(setq ptlist (acet-geom-ss-extents (SSGET "X") T) ;得到选择集的范围边界点表
p1 (car ptlist)
p2 (cadr ptlist))
(entmakex (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
(cons 10 p1)
(cons 10 (list (car p1) (cadr p2)))
(cons 10 p2)
(cons 10 (list (car p2) (cadr p1)))))
 - (setq ptlist (acet-geom-ss-extents (SSGET "X") T) ;得到选择集的范围边界点表
- p1 (car ptlist)
- p2 (cadr ptlist))
- (entmakex (list '(0 . "LWPOLYLINE")
- '(100 . "AcDbEntity")
- '(100 . "AcDbPolyline")
- '(90 . 4)
- '(70 . 1)
- (cons 10 p1)
- (cons 10 (list (car p1) (cadr p2)))
- (cons 10 p2)
- (cons 10 (list (car p2) (cadr p1)))))
acet-geom-ss-extents 不能得到块参照正确的边界,请高手帮忙解决!!
|