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 static/image/common/back.gif
(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))
)
页: 1 [2]
查看完整版本: 使用sssetfirst遇到的问题