[LISP程序]：还请高手解决！

keleboy · 发表于 2002-6-16 17:15:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如果我想统计图中白颜色的文本“10”，请问能否这样：(sslength (ssget '((62 . 7)(8. "0")(0 . "10"))))？如果不行请执教！

XDSoft · 发表于 2002-6-16 17:22:39

最初由 keleboy 发布
[B]如果我想统计图中白颜色的文本“10”，请问能否这样：(sslength (ssget '((62 . 7)(8. "0")(0 . "10"))))？如果不行请执教！ [/B]

推荐你用

(entget (car (entsel))选择你要统计的文字，你去看看显示的内容，琢磨琢磨。

keleboy · 发表于 2002-6-16 21:07:54

我才学lisp，能否帮助解决一下？谢谢！

LUCAS · 发表于 2002-6-17 08:16:23

(sslength (ssget "X" '((0 . "TEXT")(62 . 7)(1 . "10"))));;(不包括随层白色之文本)

cy956 · 发表于 2002-6-18 01:06:09

送你两个函数，看看第二个

(defun cy_lay_62(filt);;;filt=图层颜色1~255 ,列出所有颜色为filt的图层表
(setq lay0(tblnext "LAYER" t)
laynam(dxf 2 lay0)lay-col(abs (dxf 62 lay0)))
(if (= filt lay-col)
(setq layb(list laynam))
(setq layb '())
)
(while (setq lay0(tblnext "LAYER"))
(setq laynam(dxf 2 lay0)
lay-col(abs (dxf 62 lay0)))
(if (= filt lay-col)
(setq layb(append layb (list laynam)))
)
)
)
(defun cy_ssget_col(col / E EN IN LAYB N S S1);;;col=1~255
(setq layb(cy_lay_62 col))
(prompt "\n选择要用颜色过滤的物体【不选＝全选】:")
(setq s (ssget))
(if (not s)(setq s(ssget "X")))
(setq n (sslength s) in 0 s1(ssadd))
(repeat n
(setq e(ssname s in) en(entget e)
in (1+ in))
(if (assoc 62 en)
(if (= (dxf 62 en) col)(ssadd e s1))
(if (member (dxf 8 en) layb)(ssadd e s1))
)
)s1
)
;;(cy_ssget_col col)用颜色过滤的物

(defun cy_lay_62(filt);;;filt=图层颜色1~255 ,列出所有颜色为filt的图层表 
  (setq lay0(tblnext "LAYER" t) 
        laynam(dxf 2 lay0)lay-col(abs (dxf 62 lay0))) 
  (if (= filt lay-col) 
    (setq layb(list laynam)) 
    (setq layb '()) 
  ) 
  (while (setq lay0(tblnext "LAYER")) 
    (setq laynam(dxf 2 lay0) 
          lay-col(abs (dxf 62 lay0))) 
    (if (= filt lay-col) 
      (setq layb(append layb (list laynam))) 
    ) 
  ) 
) 
 
(defun cy_ssget_col(col / E EN IN LAYB N S S1);;;col=1~255 
  (setq layb(cy_lay_62 col)) 
  (prompt "\n选择要用颜色过滤的物体【不选＝全选】:") 
  (setq s (ssget)) 
  (if (not s)(setq s(ssget "X"))) 
  (setq n (sslength s) in 0 s1(ssadd)) 
  (repeat n 
    (setq e(ssname s in) en(entget e) 
          in (1+ in)) 
    (if (assoc 62 en) 
      (if (= (dxf 62 en) col)(ssadd e s1)) 
      (if (member (dxf 8 en) layb)(ssadd e s1)) 
    ) 
  )s1 
) 
 
;;(cy_ssget_col col)用颜色过滤的物

Wildcat · 发表于 2002-6-18 10:24:14

最初由 cy956 发布
[B]送你两个函数，看看第二个

(defun cy_lay_62(filt);;;filt=图层颜色1~255 ,列出所有颜色为filt的图层表
  (setq lay0(tblnext "LAYER" t)
      laynam(dxf 2 lay0)lay-col(abs (dxf 62 lay0)))
  (if (= fi... [/B]

多谢了。

keleboy · 发表于 2002-6-18 21:31:41

我是个cad初学者，请问将此代码放入lisp编辑器中，怎样执行？

cy956 · 发表于 2002-6-18 22:51:01

内部函数，其实是作为一个小模块，方便引用的。
最后它返回一个选择集而已。

keleboy · 发表于 2002-6-25 10:10:24

cy956,你的第二个程序怎么不能执行？

cy956 · 发表于 2002-6-25 11:17:24

你在vlisp里分步测试一下，告诉在那儿不能执行了。

keleboy · 发表于 2002-6-25 15:58:14

执行到第一句便提示错误: 输入的列表有缺陷？

cy956 · 发表于 2002-6-25 22:32:50

少了一个返回值:

(defun cy_lay_62(filt / LAY-COL LAY0 LAYB LAYNAM)
(setq lay0(tblnext "LAYER" t)
laynam(dxf 2 lay0)lay-col(abs (dxf 62 lay0)))
(if (= filt lay-col)
(setq layb(list laynam))
(setq layb '())
)
(while (setq lay0(tblnext "LAYER"))
(setq laynam(dxf 2 lay0)
lay-col(abs (dxf 62 lay0)))
(if (= filt lay-col)
(setq layb(append layb (list laynam)))
)
)layb ;;;<--------
)

keleboy · 发表于 2002-6-26 08:22:27

TO 956cy：
你的QQ是多少想和你交个朋友！

cy956 · 发表于 2002-6-26 11:01:08

不好意思，我没有QQ。申请了几次，
都是服务器忙，索性再也不睬它。

来这里的都是朋友，
有问题提出来大家一起交流，
有心得说出来大家一起分享，ok？:)

keleboy · 发表于 2002-6-26 16:15:51

在此代码中filt的值怎样赋？

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

[LISP程序]：还请高手解决！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP程序]：还请高手解决！

1