请问这个选择集要怎么写

小师傅

请教给位大侠，我想做个选择以某字符开头的文字选择集，在论坛上找到这句代码：（ssget "X" '((0 . "TEXT") (1 . "As*")))。请问当AS为自定义变量时，代码该怎么写才对呀

xyp1964

2. ;; (aaa "AS")
   
3. (defun aaa (str)
   
4.   (ssget "X" (list '(0 . "TEXT") (cons 1 (strcat str "*"))))
   
5. )

;; (aaa "AS")<br /> (defun aaa (str)<br />   (ssget "X" (list '(0 . "TEXT") (cons 1 (strcat str "*"))))<br /> )

自贡黄明儒

用上strcat  cons就可以了

小师傅

xyp1964 发表于 2014-7-19 21:18

谢谢院长指教

小师傅

自贡黄明儒 发表于 2014-7-19 21:28
用上strcat  cons就可以了

谢谢黄大侠

小师傅

xyp1964 发表于 2014-7-19 21:18

请问院长，要是多行文字要怎么写呢

xyp1964

小师傅 发表于 2014-7-20 16:14
请问院长，要是多行文字要怎么写呢

;; (aaa "AS")
(defun aaa (str)
  (ssget "X" (list '(0 . "MTEXT") (cons 1 (strcat str "*"))))
)

小师傅

xyp1964 发表于 2014-7-20 16:19
;; (aaa "AS")
(defun aaa (str)
  (ssget "X" (list '(0 . "MTEXT") (cons 1 (strcat str "*"))))

(defun C:SCC ()

(setq stxt1 (getstring"\n请输入文字内容:  "))
  (setq ss (ssget (list '(0 . "TEXT, MTEXT")  (cons 1 (strcat  stxt1 "*" ))))


i -1)


(command "erase" ss "")

(princ)
)

院长，你看我是这样写的，可是就是不能运行，当我改成'(0 . "TEXT") 后，选单行文字又没问题了