使用sssetfirst遇到的问题

zark · 发表于 2011-7-9 21:32:49

回复 zhynt 的帖子

大哥，这是发表于 2006-3-17 00:20 的帖子

zhynt · 发表于 2011-7-10 01:00:56

小弟，我回答的是9楼昨天的问题

lllccc · 发表于 2011-12-10 20:37:18

ljpnb 发表于 2006-3-17 07:52
(sssetfirst nil ss1)改成(sssetfirst ss1 ss1)

(Defun C:BatchSelect()
(Vl-VbaRun "BatchSelect" )
(setq gripset (ssget "_l" '((100 . "AcDbEntity"))))

(sssetfirst nil gripset)
;;; (sssetfirst nil)
;;;(Princ)
gripset
)

还不行，
我想在VBA中定义选择集，cad 中使用系统命令如move,copy...

CTQ630824 · 发表于 2013-1-28 22:06:41

这是因为要显示蓝色夹点，需要重生成，重生成比较耗资源，AutoCAD软件设计成当你点击绘图区时，就会激活执行一次重生成，所以，如果要免去“点一下”，可以调用重生成 (command "_regen"<Enter>)

xiabin68 · 发表于 2013-1-29 01:20:12

怎么没有这个函授的帮助说明呢！

lanjqka · 发表于 2017-8-17 09:43:01

(setq ss1 (ssget))
替换成
(if (cadr (ssgetfirst))
(progn (sssetfirst) (setq ss1 (ssget "_P")))
(setq ss1 (ssget))
)

账号		自动登录	找回密码
密码			注册