小师傅 发表于 2014-7-19 20:16:09

请问这个选择集要怎么写

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

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

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

自贡黄明儒 发表于 2014-7-19 21:28:26

用上strcatcons就可以了

小师傅 发表于 2014-7-19 21:48:46

xyp1964 发表于 2014-7-19 21:18 static/image/common/back.gif


谢谢院长指教

小师傅 发表于 2014-7-19 21:49:27

自贡黄明儒 发表于 2014-7-19 21:28 static/image/common/back.gif
用上strcatcons就可以了

谢谢黄大侠

小师傅 发表于 2014-7-20 16:14:10

xyp1964 发表于 2014-7-19 21:18 static/image/common/back.gif


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

xyp1964 发表于 2014-7-20 16:19:15

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

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

小师傅 发表于 2014-7-20 16:33:49

本帖最后由 小师傅 于 2014-7-20 17:37 编辑

xyp1964 发表于 2014-7-20 16:19 static/image/common/back.gif
;; (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 (strcatstxt1 "*" ))))


i -1)


(command "erase" ss "")

(princ)
)

院长，你看我是这样写的，可是就是不能运行，当我改成'(0 . "TEXT") 后，选单行文字又没问题了
页: [1]
查看完整版本: 请问这个选择集要怎么写