zlg258369 发表于 2011-6-3 20:40:10

如何获取图元总数

如何获取图元的总数量，或如何选择最后一个命令创建的多个图元。

http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 zlg258369的微博

啵浪鼓 发表于 2011-6-3 20:43:24

(setq ss (ssget))
(setq sum (sslength ss))

Gu_xl 发表于 2011-6-3 20:47:00

回复 zlg258369 的帖子

获取图元的总数量：
(vla-get-Count(vlax-get-property (vla-get-ActiveDocument (vlax-get-acad-object)) (if (= 1 (getvar 'CVPORT)) 'PaperSpace 'ModelSpace)))
选择最后一个图元：
(entlast)

zlg258369 发表于 2011-6-3 21:05:59

回复 Gu_xl 的帖子

非常感谢

zlg258369 发表于 2011-6-3 21:08:27

回复 Gu_xl 的帖子

最后多个图元有没有方便的选法

if 发表于 2011-6-4 09:44:49

;;;获得最后相同命令创建(而非复制的)的对象(对创建类型的命令有效：如，LINE 但对复制的命令无效)
(defun c:ttt (/ tag en lst)
(setq tag (cdr(assoc 0 (entget (entlast)))))
(while (= tag(cdr(assoc 0 (entget(setq en (entlast))))))
    (setq lst (cons en lst))
    (entdel en)
)
(mapcar 'entdel lst)
)
页: [1]
查看完整版本: 如何获取图元总数