669423907 发表于 2018-6-27 11:51:57

如何把(setq ss (entsel ))改为(setq ss (ssget":e:s")

(defun c:13(/ ss tzsl ent lst)
(setq ss (entsel "\n按颜色选择样板:"));(setq ss (ssget":e:s"))
(if (/= ss nil)(progn
(setq ent (entget (car ss))) ;获取对象组码列表
;创建过滤列表
(if (assoc 62 ent)
(setq lst (list (assoc 62 ent)))
(setq lst (list (cons 62 256))))
(setq lst (cons (assoc 8 ent) lst)) ;颜色
;(setq lst (cons (assoc 0 ent) lst)) ;类型
(setvar 'nomutt 1)
(princ"\n请框选对象:")
(setq tzsl (ssget lst))
(sssetfirst nil tzsl)
) )
(princ))

请教一下，如何把(setq ss (entsel "\n按颜色选择样板:"))改为(setq ss (ssget":e:s")

Andyhon 发表于 2018-6-27 11:58:58

两者依需求来调用
改用的理由是啥!?

669423907 发表于 2018-6-27 12:04:51

方便被其它程序调用

Andyhon 发表于 2018-6-27 12:12:50

没能理解有范例作比对吗?

669423907 发表于 2018-6-27 13:47:08

(setvar 'nomutt 1)
(princ"\n请点选打印编号起始数字，或直接点选要打印的矩形图框样板:")

(if (setq ss (ssget":e:s" '((-4 . "<or")(1 . "*#*")(0 . "lwpolyline")(-4 . "or>"))) )
(if (setq ss1 (ssget"p" '((0 . "lwpolyline"))))(progn (sssetfirst nil ss1)(xuanze) )
(progn
(setq ent (entget (ssname ss 0)))
(setq xs (cdr (assoc 1 ent)))
(setq xs (atoi xs)) ;字串符转整数
(setq xs (1+ xs))
(xuanze)
)
)
(xuanze)
)



(defun xuanze(/ ss tzsl ent lst)
(setq ss (entsel "\n按颜色选择样板:"));(setq ss (ssget":e:s"))
(if (/= ss nil)(progn
(setq ent (entget (car ss))) ;获取对象组码列表
;创建过滤列表
(if (assoc 62 ent)
(setq lst (list (assoc 62 ent)))
(setq lst (list (cons 62 256))))
(setq lst (cons (assoc 8 ent) lst)) ;颜色
;(setq lst (cons (assoc 0 ent) lst)) ;类型
(setvar 'nomutt 1)
(princ"\n请框选对象:")
(setq tzsl (ssget lst))
(sssetfirst nil tzsl)
) )
(princ))

669423907 发表于 2018-6-27 13:48:05

Andyhon 发表于 2018-6-27 12:12
没能理解有范例作比对吗?

把它变为一个子函数

669423907 发表于 2018-6-27 19:24:53

搞不懂啊，大师们帮帮忙啦

1993063 发表于 2018-6-28 18:51:19

子函数可以以局部变量形式( s / ... ...)体现,没必要在子函数里选吧

669423907 发表于 2018-6-28 19:56:40

麻烦大师帮改一下咯，改为可以先选

qazxswk 发表于 2022-3-29 22:08:09

669423907 发表于 2018-6-27 13:47
(setvar 'nomutt 1)
(princ"\n请点选打印编号起始数字，或直接点选要打印的矩形图框样板:")



谢谢源代码，学习了。
页: [1]
查看完整版本: 如何把(setq ss (entsel ))改为(setq ss (ssget":e:s")