szx025 发表于 2016-7-20 16:16:58

单选，可以改成多选吗

(SETQ OBJ (ENTSEL "\nSelect object to offset :"))
这句是单选，可以改成多选吗

maiko 发表于 2016-7-20 17:35:25

楼上都两个太阳的钻石会员了,还得向您请教请教

evayleung 发表于 2016-7-20 18:35:07

不能用SSGET吗？

namezg 发表于 2016-7-20 21:12:55

那不叫多选,那叫首尾相连或叫链拾取

szx025 发表于 2016-7-21 09:54:58

namezg 发表于 2016-7-20 21:12 static/image/common/back.gif
那不叫多选,那叫首尾相连或叫链拾取

(DEFUN C:OR () (SETQ OBJ (ENTSEL "\nSelect object to offset :"))
(IF (= OBJ NIL) (PRINC "\n** None object select **")
怎么把ENTSEL换成SSGET

Sylvanas 发表于 2016-7-21 10:28:27

szx025 发表于 2016-7-21 09:54 static/image/common/back.gif
(DEFUN C:OR () (SETQ OBJ (ENTSEL "\nSelect object to offset :"))
(IF (= OBJ NIL) (PRINC "\n** Non ...

举个简单的例子，ssget大致是这样的

(defun c:tt ()
(setq ss (ssget))
(while (setq en (ssname ss 0))
    (setq ss (ssdel en ss))
;;;程序内容
)
)

程序内容自己添加

maiko 发表于 2016-7-21 14:31:16

(defun c:tt (/ ss)
(if (setq ss (ssget))
    (mapcar
      '(lambda (x)
      (if (= 'ename (type (cadr x)))
          ;;;code
      )
      )
      (ssnamex ss)
    )
)
)

szx025 发表于 2016-7-21 16:54:21

maiko 发表于 2016-7-21 14:31 static/image/common/back.gif


错误: 参数类型错误: consp <Selection set: 4a91>
按这个写，出现上面问题

maiko 发表于 2016-7-21 17:32:29

szx025 发表于 2016-7-21 16:54 static/image/common/back.gif
错误: 参数类型错误: consp
按这个写，出现上面问题

自己去看基本语法知识
页: [1]
查看完整版本: 单选，可以改成多选吗