lisp自建表会溢出？？

zrg1

问问几个问题希望大神帮忙解决一下，想了很久找不到原因
1，本人用ssget选了很多多段线，分别遍历获取多段线顶点，并把顶点加入新表中。然后用insert批量按表中点的位置插入快（这里说一下，我是判断了表中各点前后的的位置，也就是各点相对位置（通过比较x  y坐标）满足我要求才按某点插入块，用的cond语句）。但只要超出一定数量（ssget所选数量）插入块过程就会提示 “ intersect 所选对象太多”。但是插入过程并没有停止。而且好像批量插入的块也没有失败。感觉是表溢出。但想想插入块过程是成功的。所以貌似也不是表溢出。求高手帮我分析解答一下出现这个提示的原因，谢谢
2，想问问二维多段线怎么在加入选集前转成多段线，再加入选集。二维多段线没有节点很麻烦。只能手动先转，在框选插入块
3,再多问一下entget获取的属性表为什么没有-3码，有些插件也查不到，但某些插件又可以查的到-3码比如AY工具箱

zrg1

zrg1 发表于 2019-10-15 13:25
问问几个问题希望大神帮忙解决一下，想了很久找不到原因
1，本人用ssget选了很多多段线，分别遍历获取多段 ...

没人吗？？？？？？
来自: 微社区

ll_j

为什么不先把你的代码贴出来呢？
第二个问题，取二维多段线顶点坐标比取传统多段线（3D多段线）坐标要容易得多，论坛有很多这类帖子，根本不需要先转换。
第三个问题，你试过ssget的*参数了没？

Lisphk

你要查看扩展实体数据，要
(entget ent '("*"))

zrg1

ll_j 发表于 2019-10-16 08:39
为什么不先把你的代码贴出来呢？
第二个问题，取二维多段线顶点坐标比取传统多段线（3D多段线）坐标要容易 ...

1. (defun c:t0( / pt_list)
   
2.         (setvar "cmdecho" 0)
   
3.         (Poly-->PL)
   
4.         (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
5.         (if (= ss nil)
   
6.                 (progn
   
7.                         (alert "请选择多段线！！")
   
8.                         (c:t0)
   
9.                 )
   
10.         )
    
11.         (ent_ss ss)
    
12.         (princ)
    
13. )
    
14. (defun Poly-->PL();;二维多段线转多段线
    
15.         (princ "\n 二维多段线转多段线<按任意字符跳过>")
    
16.         (setq Poly_ss (ssget '((0 . "POLYLINE"))))
    
17.         (if Poly_ss
    
18.                 (progn
    
19.                   (command "convert" "p" "s" Poly_ss "")
    
20.                 )
    
21.         )
    
22.         (princ)
    
23. )
    
24. 
    
25. (defun ent_ss(ent / ss_len n ent_name ent_list ent_len)
    
26.   (setq ss_len (sslength ent))
    
27.   (setq n 0)
    
28.         (repeat ss_len
    
29.                 (setq ent_name (ssname ent (1- ss_len)))
    
30.                 (setq ent_list (entget ent_name))
    
31.                 (setq ent_len (length ent_list))
    
32.                         (foreach ls_pt ent_list
    
33.                                 (if (= (car ls_pt) 10)
    
34.                       (setq pt_list (append pt_list (list (cdr ls_pt))))
    
35.                                 )
    
36.             )
    
37.                 (rig pt_list)
    
38.                 (setq ss_len (1- ss_len))
    
39.         )
    
40. )
    
41. 
    
42.         ;;=======判断==========
    
43. (defun rig (lst / pt0 pt1 pt2 pt3 ptx1 ptx2 ptx3 pty1 pty1 pty1 a az b bz c cz ay by cy n pt_len)
    
44.         (setq pt_len (length lst))
    
45.         (repeat pt_len
    
46.                 (setq pt0 (nth (1- pt_len) pt_list))
    
47.                 (setq n ( - pt_len 4))
    
48.                 (if (>= n 0)
    
49.                         (progn
    
50.                                 (setq pt1 (nth (- pt_len 2) pt_list))
    
51.                     (setq pt2 (nth (- pt_len 3) pt_list))
    
52.                     (setq pt3 (nth (- pt_len 4) pt_list))
    
53.                                 (setq ptx0 (car pt0) ptx1 (car pt1) ptx2 (car pt2) ptx3 (car pt3))
    
54.                                 (setq pty0 (cadr pt0) pty1 (cadr pt1) pty2 (cadr pt2) pty3 (cadr pt3))
    
55.                                 (type_P)
    
56.                     (b_P)
    
57.                         )
    
58.                 )
    
59.                 (setq pt_len (1- pt_len))
    
60.         )
    
61. )
    
62. 
    
63. (defun type_P ()
    
64.   (setq a (abs (- ptx1 ptx0)) b (abs (- pty2 pty1)) c (abs (- ptx3 ptx2)))
    
65.         (setq az (abs (- a 10.5)) bz (abs (- b 10.1)) cz (abs (- c 15.6)))
    
66.         (setq ay (abs (- a 1.6)) by (abs (- b 1.1)) cy (abs (- c 0.5)))
    
67.                
    
68.         (setq d (abs (- pty1 pty0)) e (abs (- ptx2 ptx1)) f (abs (- pty3 pty2)))
    
69. )
    
70. (defun b_P()
    
71.         (cond ((and (< az 0.109) (< bz 0.01) (< cz 0.0))                (command "-insert" "*A.dwg" pt0 "" ""))
    
72.                     ((and (< ay 0.991) (< by 0.01) (< cy 0.01))   (command "-insert" "*B.dwg" pt3 "" ""));块是放在支持路径下面
    
73.                     ;;(此处省略多次cond判断，和上面2句一样，按需求判断后插入不同名称的块，注意是不同名称。不是同一个块，，，太多了就不写了，我也是临时写的。就是这里插入过程会显示 "所选对象过多")
    
74.                                
    
75.         )
    
76. (princ)
    
77. )
    

(defun c:t0( / pt_list)<br />         (setvar "cmdecho" 0)<br />         (Poly-->PL)<br />         (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />         (if (= ss nil)<br />                 (progn<br />                         (alert "请选择多段线！！")<br />                         (c:t0)<br />                 )<br />         )<br />         (ent_ss ss)<br />         (princ)<br /> )<br /> (defun Poly-->PL();;二维多段线转多段线<br />         (princ "\n 二维多段线转多段线<按任意字符跳过>")<br />         (setq Poly_ss (ssget '((0 . "POLYLINE"))))<br />         (if Poly_ss<br />                 (progn<br />                   (command "convert" "p" "s" Poly_ss "")<br />                 )<br />         )<br />         (princ)<br /> )<br /> <br /> (defun ent_ss(ent / ss_len n ent_name ent_list ent_len)<br />   (setq ss_len (sslength ent))<br />   (setq n 0)<br />         (repeat ss_len<br />                 (setq ent_name (ssname ent (1- ss_len)))<br />                 (setq ent_list (entget ent_name)) <br />                 (setq ent_len (length ent_list)) <br />                         (foreach ls_pt ent_list <br />                                 (if (= (car ls_pt) 10)<br />                       (setq pt_list (append pt_list (list (cdr ls_pt))))<br />                                 )<br />             )<br />                 (rig pt_list)<br />                 (setq ss_len (1- ss_len))<br />         )<br /> )<br /> <br />         ;;=======判断==========<br /> (defun rig (lst / pt0 pt1 pt2 pt3 ptx1 ptx2 ptx3 pty1 pty1 pty1 a az b bz c cz ay by cy n pt_len)<br />         (setq pt_len (length lst))<br />         (repeat pt_len<br />                 (setq pt0 (nth (1- pt_len) pt_list))<br />                 (setq n ( - pt_len 4))<br />                 (if (>= n 0)<br />                         (progn<br />                                 (setq pt1 (nth (- pt_len 2) pt_list))<br />                     (setq pt2 (nth (- pt_len 3) pt_list))<br />                     (setq pt3 (nth (- pt_len 4) pt_list))<br />                                 (setq ptx0 (car pt0) ptx1 (car pt1) ptx2 (car pt2) ptx3 (car pt3))<br />                                 (setq pty0 (cadr pt0) pty1 (cadr pt1) pty2 (cadr pt2) pty3 (cadr pt3))<br />                                 (type_P)<br />                     (b_P)<br />                         )<br />                 )<br />                 (setq pt_len (1- pt_len))<br />         )<br /> )<br /> <br /> (defun type_P ()<br />   (setq a (abs (- ptx1 ptx0)) b (abs (- pty2 pty1)) c (abs (- ptx3 ptx2)))<br />         (setq az (abs (- a 10.5)) bz (abs (- b 10.1)) cz (abs (- c 15.6)))<br />         (setq ay (abs (- a 1.6)) by (abs (- b 1.1)) cy (abs (- c 0.5)))<br />                 <br />         (setq d (abs (- pty1 pty0)) e (abs (- ptx2 ptx1)) f (abs (- pty3 pty2)))<br /> )<br /> (defun b_P()<br />         (cond ((and (< az 0.109) (< bz 0.01) (< cz 0.0))                (command "-insert" "*A.dwg" pt0 "" ""))<br />                     ((and (< ay 0.991) (< by 0.01) (< cy 0.01))   (command "-insert" "*B.dwg" pt3 "" ""));块是放在支持路径下面<br />                     ;;(此处省略多次cond判断，和上面2句一样，按需求判断后插入不同名称的块，注意是不同名称。不是同一个块，，，太多了就不写了，我也是临时写的。就是这里插入过程会显示 "所选对象过多")<br />                                 <br />         )<br /> (princ)<br /> )<br />

；；；；顺便问一下，插入块名称前面为什么一定要带*，不带就会要求手动选基点/角度。

zrg1

Lisphk 发表于 2019-10-16 09:32
你要查看扩展实体数据，要
(entget ent '("*"))

谢谢，又学会新东西。

zrg1

高手大神们
来自: 微社区

hefamiao