[求助]：vlisp有这样的函数吗？

ybyuan

如何在一个表中加入一个新的表
比如：（（1 2） （2 3）），加入（3  4）后，变为：（（1 2） （2 3） （3  4）） ？
如何将：“（（1 2） （2 3） （3  4））” 变为 ：（（1 2） （2 3） （3  4）） ？
感觉编程编糊涂了

hqd9639

1.
(setq a1 '((1 2) (2 3)))
(setq a1 (append a1 '((3 4))))

2.
(setq g1 "((1 2) (2 3) (3 4))")
(read g1)

ybyuan

我本来是想把选定的几行文字按Y坐标的大小顺序，排一下序，谁知遇到了麻烦，麻烦你帮我看一下，为什么到VL-SORT这一步就不能继续了，显示：error: 参数类型错误: consp QUOTE。试了很多其他方法也不行。（我用Y坐标值和图元名称构成了一个表，想排完序后再逐个提取图元，不知这样做的思路有没有问题。）
(defun C:tt ()
  (setvar "cmdecho" 0)
  (setq p (ssget))
  (princ "\n选择段落文字:")
(setq n (sslength p))
(setq index 0)
(repeat        n
  (setq name (ssname p index))
  (setq lp (entget name))
  (setq coy (caddr (assoc 10 lp)))
(setq item (list coy name))
  (setq aa1 (vl-princ-to-string item))
  (if (= 0 index)
    (setq aa2 aa1)
  (setq aa2 (strcat aa2 " " aa1)))
  (setq aa3 (strcat "(" aa2 ")"))
  (setq aaa (strcat "'" aa3))
  (setq aal (read aaa))
  (setq index (1+ index))
)
(setq newsort
        (vl-sort aal
            (function (lambda (e1 e2)
                        (< (car e1) (car e2)))) )
       
)
)

ll_j

将
(setq aaa (strcat "'" aa3))
(setq aal (read aaa))
改为
(setq aal (read aa3))试试。
vl-sort函数操作的对象是表，“'”（quote）函数返回不求值的表达式，一般只在直接给定一个表时使用。

ybyuan

不愧长老，几句话就解决了困扰我半天的问题，多谢了。
我现在走到了这一步，排序后，用nth 等函数得出了第一个
"(-1 . <图元名: 7EFB59D0>)" ，比正式的图元表多两个引号，现在用
read函数也不灵了。怎么才能由"(-1 . <图元名: 7EFB59D0>)"得到
(-1 . <图元名: 7EFB59D0>)？能赐教吗？

cy956

最初由 ybyuan 发布
[B]我本来是想把选定的几行文字按Y坐标的大小顺序，排一下序，谁知遇到了麻烦，麻烦你帮我看一下，为什么到VL-SORT这一步就不能继续了，显示：error: 参数类型错误: consp QUOTE。试了很多其他方法也不行。（我用Y坐标?.. [/B]

(defun C:ttt ()
(setvar "cmdecho" 0)
(setq p (ssget))
(princ "\n选择段落文字:")
(setq n (sslength p)bbb'())
(setq index 0)
(repeat n
  (setq name (ssname p index))
  (setq lp (entget name))
  (setq coy (caddr (assoc 10 lp)))
  (setq bbb (append bbb (list (list coy name))))

;;; 甚至直接(setq bbb (append bbb (list (list coy lp))))也可

;;;(setq aa1 (vl-princ-to-string item))
;;;(if (= 0 index)
;;;(setq aa2 aa1)
;;;(setq aa2 (strcat aa2 " " aa1)))
;;;(setq aa3 (strcat "(" aa2 ")"))
;;;(setq aaa (strcat "'" aa3))
;;;(setq aal (read aaa))
  (setq index (1+ index))
)
;;;(setq newsort
;;;(vl-sort aal
;;;(function (lambda (e1 e2)
;;;(< (car e1) (car e2)))) )

;;;)
)

ybyuan

你的方法简单多了，很快就可以排序，出现例如：
((11756.8 <图元名: 40084500>) (11308.6 <图元名: 40081DD8>) (10794.5 <图元名: 40081DE0>))
这样的表
我现在在提取图元名进行下一步时，遇到了困难，用cdr提取来之后显示 （<图元名: 40084500>），加了括号的图元名entget不读取，该如何是好？

jianqiang21c

第一个这样也可以的哦
(vl-list* '(3 4) '((1 2) (2 3)))

cy956

最初由 ybyuan 发布
[B]你的方法简单多了，很快就可以排序，出现例如：
((11756.8 <图元名: 40084500>) (11308.6 <图元名: 40081DD8>) (10794.5 <图元名: 40081DE0>))
这样的表
我现在在提取图元名进行下一步时，遇到了困难，用cdr提取?.. [/B]

cdr不行你用cadr试试.建议你通读一遍所有lisp函数.

ybyuan

看是肯定都看过了，有些不熟练。上面的问题不是你想象那样，用cdr, cadr 都不能完成，你可以试试

aeo

Command: (setq a(entlast))
< Entity name: 50105a0 >

Command: (setq a(list 34.3 a))
(34.3 < Entity name: 50105a0 >)

Command: (cadr a)
< Entity name: 50105a0 >

怎么会不行?

ybyuan

你们这样是可以，但我这样确实不行，我经过下面程序处理后，得到类似(33356.2 <图元名: 4009D150>)的表，但再用cadr之后，总是显示有问题，不信你们可以运行一下看看。我估计是因为这个表的构成采用了strcat之类的字符串处理命令造成这种情况，如果用append函数组成的表就没这种问题。但不明白为什么显示的情况一样，得出的结果却不同？


(defun C:tt ()                       
  (setvar "cmdecho" 0)
  (setq p (ssget))
  (princ "\n选择段落文字:")
  (setq n (sslength p))
  (setq index 0)
  (repeat n
    (setq name (ssname p index))
    (setq lp (entget name))
    (setq coy (caddr (assoc 10 lp)))
    (setq item (list coy name))
    (setq aa1 (vl-princ-to-string item))
    (if        (= 0 index)
      (setq aa2 aa1)
      (setq aa2 (strcat aa2 " " aa1))
    )
    (setq aa3 (strcat "(" aa2 ")"))
    (setq aal (read aa3))       
    (setq index (1+ index))
  )
  (setq        newsort
         (vl-sort aal
                  (function (lambda (e1 e2)
                              (> (car e1) (car e2))
                            )
                  )
         )
  )
   (setq n1 (length newsort))
  (setq ind 0)
  (repeat n
    (setq ntt (nth ind newsort))
    (setq ty (cadr ntt))
)
)

lijiao

最初由 ybyuan 发布
[B]你们这样是可以，但我这样确实不行，我经过下面程序处理后，得到类似(33356.2 <图元名: 4009D150>)的表，但再用cadr之后，总是显示有问题，不信你们可以运行一下看看。我估计是因为这个表的构成采用了strcat之类的字... [/B]

原因：
你处理后的表不是关键表（点对），此时“<图元名: 4009D150>”中有空格，实际上(33356.2 <图元名: 4009D150>)是一个三元素表，CADR得到的是<图元名: ，而不是<图元名: 4009D150>)。
解决方法：
不用图元名，改用句柄，用handent函数返回图元名。
修改了一下你的代码：

2. 
   
3.   [FONT=courier new]
   
4. (defun C:tt ()
   
5.   (setvar "cmdecho" 0)
   
6.   (setq p (ssget))
   
7.   (princ "\n选择段落文字:")
   
8.   (setq n (sslength p))
   
9.   (setq index 0)
   
10.   (setq aal '())
    
11.   (repeat n
    
12.     (setq name (ssname p index))
    
13.     (setq lp (entget name))
    
14.     (setq coy (caddr (assoc 10 lp)))
    
15.     (setq item (list coy (cdr (assoc 5 lp))))
    
16.     (setq aal (cons item aal))
    
17.     (setq index (1+ index))
    
18.   )
    
19.   (setq        newsort
    
20.          (vl-sort aal
    
21.                   (function (lambda (e1 e2)
    
22.                               (> (car e1) (car e2))
    
23.                             )
    
24.                   )
    
25.          )
    
26.   )
    
27.   (setq n1 (length newsort))
    
28.   (setq ind 0)
    
29.   (repeat n
    
30.     (setq ntt (nth ind newsort))
    
31.     (setq ty (handent (cadr ntt)))
    
32.   )
    
33. )
    
34.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun C:tt ()<br />   (setvar "cmdecho" 0)<br />   (setq p (ssget))<br />   (princ "\n选择段落文字:")<br />   (setq n (sslength p))<br />   (setq index 0)<br />   (setq aal '())<br />   (repeat n<br />     (setq name (ssname p index))<br />     (setq lp (entget name))<br />     (setq coy (caddr (assoc 10 lp)))<br />     (setq item (list coy (cdr (assoc 5 lp))))<br />     (setq aal (cons item aal))<br />     (setq index (1+ index))<br />   )<br />   (setq        newsort<br />          (vl-sort aal<br />                   (function (lambda (e1 e2)<br />                               (> (car e1) (car e2))<br />                             )<br />                   )<br />          )<br />   )<br />   (setq n1 (length newsort))<br />   (setq ind 0)<br />   (repeat n<br />     (setq ntt (nth ind newsort))<br />     (setq ty (handent (cadr ntt)))<br />   )<br /> )<br />   [/FONT]<br />

ybyuan

明白了，谢谢 ：）