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

xyz2009xyz

回复 ZZXXQQ 的帖子

呵呵，谢谢，版主能再抽时间帮我看看为什么用ENTMOD函数出现错误吗？

xyz2009xyz

ok，自己解决了，还是谢谢各位的帮助！

Gu_xl

回复 xyz2009xyz 的帖子

(defun C:VD ( / S1 S2 I vh p0 x0 y0 y z xyz_new b)
    (setvar "CMDECHO" 0)
    (command "-style" "xyz1" "txt,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 (entget (ssname  S2 I)))
               (setq y (- y0 (* I vh)))
               (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)
)
请学会Visual Lisp 的代码调试功能，按 Crtl+Shift+R ,会提示错误跟踪，告诉你出错的地方！

zwqgdhl

学习了，以后会用得着