如何先在图形里选择图元，在传递给参数ss

tm20038175

好像有个命令ssgetfirst，或者sssetfirst，但不知道如何使用，求这样的lsp例子，谢谢了~~~

Gu_xl

(setq ss (cadr (ssgetfirst)))
语法

    (ssgetfirst)

功能及参数

    此函数将用来决定哪一个图形已被选取。之后将返回两个选择集的表。在此图元选择集表里的第１个图元, 已经被获取, 但是却未被选取。表里的第二个图元既为被获取, 也是被选取的。只有在模型空间与纸张空间的图元可以被此函数来分析。而非图形图元与图块图元则无法使用此函数。

tm20038175

回复 Gu_xl 的帖子

我想做一个先选择，然后创建块的程序，但是总是不能传递选择，
代码如下：

(defun    c:k2    ()
  (setvar    "CMDECHO"    0)

  (if (or (setq ss (cdr (ssgetfirst))) (setq ss (ssget)))
((progn)
  (setq ss (sssetfirst))
           (setq pt (getpoint    "\n图块插入点 :"))
           (setq bnm (getstring    "\n块名 :"))


   (command    "-block" bnm pt ss "" "-insert" bnm pt "" "" "")
  
  )
)


; (if    (= ss nil)
  ;; (princ    "\n选择建块图元 :")
; (setq ss (ssget))
;)

     (setvar    "CMDECHO"    1)
  (princ)
)

tm20038175

回复 Gu_xl 的帖子

代码改为如下后可以运行，有结果，但是有错误提示，不知道为什么。。

(defun    c:k2    ()
  (setvar    "CMDECHO"    0)

      (if (= 1 (logand 1 (getvar "pickfirst")))
             (setq ss (ssgetfirst))
           )

; (if    (= ss nil)
  ;; (princ    "\n选择建块图元 :")
; (setq ss (ssget))
;)

     (if (apply 'or ss)
             (apply 'sssetfirst ss)
           )



           (setq pt (getpoint    "\n图块插入点 :"))
           (setq bnm (getstring    "\n块名 :"))


   (command    "-block" bnm pt ss "" "-insert" bnm pt "" "" "")
  
  (setvar    "CMDECHO"    1)
  (princ)
)