ssgetfirst求助

13816600495

(defun c:mm (/ ww p1)
(if (= (cadr (ssgetfirst)) nil)
(progn
(setq ww (ssget))
)
(progn
(setq ww (cadr (ssgetfirst)))
))
(setq p1 (getpoint "\n[指定第一点]:"))
(command "MIRROR" ww "" p1 (polar p1 (angtof "90") 500) "Y")
(princ))
以上代码先执行命令后选择可以运行，但是先选择就无法运行，请问大能之士怎么修改呢？

Andyhon

或许是版本差异
我这儿 后选择/先选择皆正常运行

yoyoho

autocad2012測試o.k.

479274135

2006测试没问题        首先确认下图是不是有问题

本函数只能分析当前图形中模型空间和图纸空间中的图元，而不能分析非图形对象和其他块定义中的图元。
再不行换下方法
  (setq ss (ssget "i"))
  (if (= ss nil)
     ）

还有个相关的系统变量  

PICKFIRST 系统变量
命令和系统变量        
类型: 整数
保存位置: 注册表
初始值: 1
控制在发出命令之前（先选择后执行）还是之后选择对象
此主题没有相关的操作步骤。

lifuq1979

測試o.k,progn在这里没啥用
(defun c:mm (/ ww p1)
(if (= (setq ww(cadr (ssgetfirst))) nil)
(setq ww (ssget))
)
(setq p1 (getpoint "\n[指定第一点]:"))
(command "MIRROR" ww "" p1 (polar p1 (angtof "90") 500) "Y")
(princ))

namezg

;在执行mm命令之前执行(setvar "pickfirst" 1)
(defun c:mm (/ ww p1)
        (setvar "qaflags" 0)
        (setq ww (cadr (ssgetfirst)));(setq ww (ssget "I"));判断当前图形是否有己选取的对象
        (if (or ww (setq ww (ssget)))
                (if (setq p1 (getpoint "\n[指定第一点]:"))
                        (command "MIRROR" ww "" p1 (polar p1 (angtof "90") 500) "Y")
                )
        )
)

13816600495

明经大神多，已解决，谢谢各位！

ysq101

13816600495 发表于 2018-7-9 14:31
明经大神多，已解决，谢谢各位！

COMMAND  新手加油