[求助]：如何把某一范围长度的线做成一个选择集

ewenhui · 发表于 2006-3-22 20:51:20

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

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

×

本人对选择集方面了解很少，比如：(ssget '((0 . "Arc,Circle,Ellipse,*Line"))) 或 (ssget "X" (list (cons 0 "line") (cons 8 txt)))，其中“0”和“8”是什么？有没有这方面的学习材料？
请问：把小于20mm的线；大于20mm小于100mm的线；大于100mm小于300mm的线分别做成选择集，lisp该怎么做？

xyp1964 · 发表于 2006-3-22 21:28:47

未经测试：

[FONT=courier new](defun c:test ()
(setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
s20 (ssadd)
s20-100 (ssadd)
s100-300 (ssadd)
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq
leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
)
(cond ((<= leng 20) (setq s20 (ssadd s1 s20)))
((and (> leng 20) (<= leng 100))
(setq s20-100 (ssadd s1 s20-100))
)
((and (> leng 100) (<= leng 300))
(setq s100-300 (ssadd s1 s100-300))
)
(t (princ))
)
)
(princ "\n选择集名称：!s20 !s20-100 !s100-300")
(princ)
)[/FONT]

xhy3000 · 发表于 2006-3-22 21:41:16

这个我也不清楚，我帮你问问别人．

ewenhui · 发表于 2006-3-22 22:06:36

谢谢xyp1946：
问题：1。s20集没有选择完； 2。其它集没有选到

能不能提供学习资料？

xyp1964 · 发表于 2006-3-22 22:22:04

最初由 ewenhui 发布
[B]谢谢xyp1946：
问题：1。s20集没有选择完； 2。其它集没有选到

能不能提供学习资料？ [/B]

1、首先要框选一个范围。
2、如果不存在要求的实体，当然选择集就不存在。

完整测试版：

[FONT=courier new]
(load "xyp_lib.vlx") ;版本 V.20060314
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:test ()
(cmdla0)
(setq ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
s20 (ssadd)
s20-100 (ssadd)
s100-300 (ssadd)
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq
leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
)
(cond ((<= leng 20) (setq s20 (ssadd s1 s20)))
((and (> leng 20) (<= leng 100))
(setq s20-100 (ssadd s1 s20-100))
)
((and (> leng 100) (<= leng 300))
(setq s100-300 (ssadd s1 s100-300))
)
(t (princ))
)
)
(princ
"\n选择集名称：!s20 !s20-100 !s100-300, 任意键逐个显示选择集： "
)
(xyp-Pause)
(princ "\n!s20")
(xyp-Redraw3 s20)
(xyp-Pause)
(command "regen")
(princ "\n!s20-100")
(xyp-Redraw3 s20-100)
(xyp-Pause)
(command "regen")
(princ "\n!s100-300")
(xyp-Redraw3 s100-300)
(cmdla1)
)
[/FONT]

[FONT=courier new] 
(load "xyp_lib.vlx")                        ;版本 V.20060314 
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib.vlx") 
■2·在每个程序内增加(load"xyp_lib.vlx") 
■3·在command下，输入(load"xyp_lib.vlx") 
■4·在菜单.mnl中增加(load"xyp_lib.vlx") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
(defun c:test () 
  (cmdla0) 
  (setq        ss         (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) 
        s20         (ssadd) 
        s20-100         (ssadd) 
        s100-300 (ssadd) 
        i         -1 
  ) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (setq 
      leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1)) 
    ) 
    (cond ((<= leng 20) (setq s20 (ssadd s1 s20))) 
          ((and (> leng 20) (<= leng 100)) 
           (setq s20-100 (ssadd s1 s20-100)) 
          ) 
          ((and (> leng 100) (<= leng 300)) 
           (setq s100-300 (ssadd s1 s100-300)) 
          ) 
          (t (princ)) 
    ) 
  ) 
  (princ 
    "\n选择集名称：!s20 !s20-100 !s100-300, 任意键逐个显示选择集： " 
  ) 
  (xyp-Pause) 
  (princ "\n!s20") 
  (xyp-Redraw3 s20) 
  (xyp-Pause) 
  (command "regen") 
  (princ "\n!s20-100") 
  (xyp-Redraw3 s20-100) 
  (xyp-Pause) 
  (command "regen") 
  (princ "\n!s100-300") 
  (xyp-Redraw3 s100-300) 
  (cmdla1) 
) 
[/FONT]

ewenhui · 发表于 2006-3-26 17:35:18

请问： (setq ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))) ，能否选中由命令：“_rectang”所绘出的线？下面这个程序就失败了：
(defun c:eee( / ee pa pb pc)
(cmdla0)
(setq pa (getpoint "\n基点:"))
(setq pb (polar pa 0 60))
(setq pc (polar pb (* pi 1.5) 60))
(command "pline" pa pb pc "")
(command "rectang" "f" 0 pa "@30,20")
(command "rectang" "f" 2 pb "@20,30")

(setq ee (ssget "X" (list (cons 0 "arc,*line") (cons 8 "0"))))
(command "explode" ee)
(cmdla1)
)
请教错误出在哪里？

xyp1964 · 发表于 2006-3-26 19:19:07

要保证在0层操作才能选到：

[FONT=courier new]
(defun c:test (/ ee pa pb pc)
(cmdla0)
(setvar"osmode"0)
(mkla"0"7)
(setq pa (getpoint "\n基点:")
pb (polar pa 0 60)
pc (polar pb (* pi 1.5) 60)
)
(command "pline" pa pb pc "")
(command "rectang" "f" 0 pa "@30,20")
(command "rectang" "f" 2 pb "@20,30")
(setq ee (ssget "X" (list (cons 0 "arc,*line") (cons 8 "0"))))
(command "explode" ee "")
(cmdla1)
)[/FONT]

ewenhui · 发表于 2006-3-27 17:45:57

*-*3 版主，还是有问题。程序共画了三个实体，却只炸开了第一个？请帮忙

AyungerStudio · 发表于 2006-3-27 19:48:14

关于DXF代码，如0，62，8等问题请到Vlisp软件环境下的帮助->Dxf reference->ENTITIES Section下即可找到。

yinwenfeng2003 · 发表于 2006-3-28 19:26:31

不清楚,也遇到了此类问题,那位大虾解解啊

雨箭风刀 · 发表于 2006-3-28 21:32:37

最初由 ewenhui 发布
[B]*-*3 版主，还是有问题。程序共画了三个实体，却只炸开了第一个？请帮忙 [/B]

（setvar “qaflags” 1)

ewenhui · 发表于 2006-3-30 20:41:44

多谢11楼楼主

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

[求助]：如何把某一范围长度的线做成一个选择集

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

相关帖子

浏览过的版块