lisp函数求助【请各位斑竹帮帮忙】

xyz2009xyz

(defun C:VD ( / S1 S2 I txt vh p0 x0 y0 y ptxt )
     (vl-load-com)
    (if (setq S1 (ssget '((0 . "TEXT"))))
     (progn
         (setq S2 (XYZ-SORT-SE S1 1 nil nil nil));;;;对S1进行内容排序函数，返回排序后的表
         (setq vh (getdist "\n行距："))
         (setq p0 (getpoint "\n首行的插入点："))
         (setq x0 (car p0))
         (setq y0 (cadr p0))
         (setq I 0)
         (repeat (sslength S2)      
              (setq  txt (cdr (assoc 1 (entget (ssname S2 I)))))   ;;获取排序后表内容，应该没问题，用PRINC可以单独显示正确内容
              (setq y (- y0 (* I vh)))
              (setq ptxt (list x0 y))
             (command  "TEXT" "J" "BL" ptxt 3.5 0  txt "") ;;但是此处为什么用command内容却不能显示，提示未知命令，是否txt内省不匹配？   
             (setq I (1+ I))
        )
     )
   )
  (princ)
)

xyz2009xyz

Gu_xl 斑竹好像在啊，能帮帮忙不？

xyz2009xyz

另外用entmod 函数来显示是不是好一点，用COMMAND好像很慢，开始用COMMAND显示正确，重新开cad，这个程序就不能用COMMAND运行了，这是附件，麻烦帮一下忙！

xyz2009xyz

本来是想用entmod函数来实现，代码如下，也不正确，就来求助各位大虾了

   (setq b (nth I S2))
    (setq y (- y0 (* I val)))
    (setq z (nth 3 (assoc '10 b)))
    (setq xyz_new (list '10 x0 y z))
    (setq b (subst (cons '72 0) (assoc '72 b) b))
    (setq b (subst (cons '73 0) (assoc '73 b) b))
    (setq b (subst xyz_new (assoc '10 b) b ) )
    (entmod b)

用COMMAND显示正常的时候是一个一个一次显示感觉有点慢！

Gu_xl

回复 xyz2009xyz 的帖子

(command  "TEXT" "J" "BL" ptxt 3.5 0  txt "")
==》
(command  "TEXT" "J" "BL" ptxt 3.5 0  txt)

xyz2009xyz

版主我删掉了，还是不行，我一开始就测试过了，附件已经上来了，麻烦看看！

Gu_xl

回复 xyz2009xyz 的帖子

      (setq S2 (SORT-SE S1 1 nil nil nil))   ;;表排序函数
==》
(setq S2 (SORT-SE S1 10 0 nil nil))   ;;表排序函数

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

xyz2009xyz

(defun C:VD ( / S1 S2 I vh p0 x0 y0 y z xyz_new b)
    (setvar "CMDECHO" 0)
    (command "-style" "xyz1" "ASCII,HZTXT" "0" "0.75" "0" "n" "n" "n") ;
    (if (setq S1 (ssget '((0 . "TEXT"))))
     (progn
       (setq S2 (SORT-SE S1 1 nil nil nil))   ;;表排序函数
       (setq vh (getdist "\n行距："))
       (setq p0 (getpoint "\n首行的插入点："))
       (setq x0 (car p0))
       (setq y0 (cadr p0))
       (setq I 0)                         
       (repeat (sslength S2)       
               (setq b (nth I S2))
               (setq y (- y0 (* I val)))
               (setq z (nth 3 (assoc '10 b)))
               (setq xyz_new (list '10 x0 y z))
               (setq b (subst (cons '72 0) (assoc '72 b) b)) ;;水平文字对齐组码，左对齐
               (setq b (subst (cons '73 0) (assoc '73 b) b)) ;;垂直文字对齐组码，基准线
               (setq b (subst xyz_new (assoc '10 b) b))      ;;文字插入位置
               (entmod b)                         
               (setq I (1+ I))
        )
     )
   )
   (setvar "CMDECHO" 1)
  (princ)
)
各位版主，麻烦再看看，我改成用ENTMOD来生成为什么提示参数错误：

命令: vd
选择对象: 指定对角点: 找到 20 个

选择对象:
行距：5
首行的插入点：; 错误: 参数类型错误: consp <Selection set: b7>

xyz2009xyz

回复 Gu_xl 的帖子

呵呵，我不是按坐标来排序，我是想按文字内容来排序！，呵呵，Gu_xl 版主，能再帮我看看，用ENTMOD函数来生成为什么出现参数错误吗？谢谢，代码在上一楼！