本帖最后由 vitalgg 于 2023-1-2 08:01 编辑
- ;; 选择一个多段线
- (setq ent (car (entsel "选择一个矩形:")))
- ;; 得到矩形的点序
- (setq pts (curve:get-points ent))
- ;; 用点序围选
- (setq ents (pickset:to-list(ssget "cp" pts )))
- ;; 去除 矩形图元
- (setq ents (vl-remove ent ents))
- ;; 如果不空,亮显选中的图元
- (if ents (sssetfirst nil (pickset:from-list ents)) (alert "没有选中"))
支持任意形状的多段线。
用到的函数:
|