选择随层线型相同的对象

Comming · 发表于 2013-12-23 13:22:32

大家好,麻烦帮我改正下面的程式.

(defun c:stl()
  (setq en(entget(car(entsel"\n选择一个参照对象:"))));选择参照对象
  (setq lay(cdr(assoc 8 en)));取得参照对象图层
  (setq layn(TBLOBJNAME "layer" lay));检查参照对象图层
  (setq ladata(entget layn));取得图层信息
  (setq la6(cdr(assoc 6 ladata)));取得随层对象的线型
  (setq ss(ssget (list(cons 6 la6) (list(cons 8 lay)))));选择参照图层里线型为la6的对象
  )

自贡黄明儒 · 发表于 2013-12-23 13:35:29

(setq ss(ssget (list(cons 6 la6) (list(cons 8 lay)))))=>(setq ss(ssget (list(cons 6 la6) (cons 8 lay))))

Comming · 发表于 2013-12-23 13:39:35

自贡黄明儒发表于 2013-12-23 13:35
(setq ss(ssget (list(cons 6 la6) (list(cons 8 lay)))))=>(setq ss(ssget (list(cons 6 la6) (cons 8 lay ...

大哥,我按你的提示改了,运行后还是提示:ssget 列表错误

Comming · 发表于 2013-12-23 13:42:34

自贡黄明儒发表于 2013-12-23 13:35
(setq ss(ssget (list(cons 6 la6) (list(cons 8 lay)))))=>(setq ss(ssget (list(cons 6 la6) (cons 8 lay ...

搞错了,不是提示ssget 列表错误,而是选择不到对象

skg123 · 发表于 2016-4-11 15:53:34

(DEFUN C:tucengxuanz(/ EN LAY)
(SETQ EN(ENTSEL "\n选择图层上的实体:"))
(SETQ LAY(CDR(ASSOC 8 (ENTGET(CAR EN)))))
(SETQ SS(ssget "x" (LIST(CONS 8 LAY))))
(setq s1 (sslength ss))
(princ s1)
)

llsheng_73 · 发表于 2016-4-17 15:48:23

本帖最后由 llsheng_73 于 2016-4-17 15:55 编辑

(defun c:stl(/ en)
(if(setq en(entsel"\n选择一个参照对象:"));选择参照图元
(sssetfirst'nil(setq en(entget(car en))en(ssget"X"(mapcar'(lambda(x)(assoc x en))'(6 8))))));选择与参照l图元线型和图层相同的图元
)

账号		自动登录	找回密码
密码			注册

[提问] 选择随层线型相同的对象

相关帖子

浏览过的版块