为什么执行这个Lisp会出现未知命令的提示呢？

guerearou

运行这个才写的多线段标注命令，不知道为啥会一直提示未知命令TT3。
准确的说是，有多少个多线段顶点就会提示多少次。
难道是因为用了两次repeat的原因？
劳烦懂的帮忙看看？

2. (defun c:tt3(/ m ss lsts)
   
3.   (vl-load-com)  
   
4.   (setvar "cmdecho" 0)
   
5.     (Setq m 0)
   
6.     (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
7.     (repeat (sslength ss)
   
8.         (setq lsts (get_point (ssname ss m)))
   
9.         (dimaligned lsts)
   
10.         (setq m (+ m 1))
    
11.     )
    
12. (princ)
    
13. )
    
14. ;;;求多段线顶点坐标集合
    
15. (defun get_point (ent / ptlist ptlist1 n)
    
16. (setq ptlist '() ptlist1 '() n 0)
    
17. (setq ptlist (vlax-safearray->list(vlax-variant-value(vlax-get-property(vlax-ename->vla-object ent)'Coordinates))))
    
18.       (repeat (/ (length ptlist) 2)
    
19.         (setq ptlist1 (cons (list (nth n ptlist) (nth (setq n (1+ n)) ptlist)) ptlist1))
    
20.         (setq n (1+ n))
    
21.       )
    
22. (setq ptlist2 (mapcar (function (lambda (x) (coorchang x))) ptlist1))
    
23. )
    
24. ;;;;;求两点的中点垂直过50的坐标
    
25. (defun get_mid_pt (pt1 pt2 / d ang)
    
26.     (setq d   (* (distance pt1 pt2) 0.5)
    
27.           ang (angle pt1 pt2)
    
28.     )
    
29.     (polar pt1 ang d)
    
30. )
    
31. ;;;;;;标注多线段
    
32. (defun dimaligned (llst / pt1 pt2 pt i)
    
33.     (setq i 0)
    
34.     (repeat (- (length llst) 1)
    
35.         (setq pt1 (nth i llst))
    
36.         (setq pt2 (nth (setq i (1+ i)) llst))
    
37.         (setq pt  (get_mid_pt pt1 pt2))
    
38.         (vl-cmdf "_dimaligned" pt1 pt2 pt "")
    
39.     )
    
40. )
    
41. ;;;;二维坐标转换为三维
    
42. (defun coorchang (lst)
    
43.     (setq p1 (car  lst))
    
44.     (setq p2 (cadr lst))
    
45.     (setq lst (list p1 p2 0))
    
46. )

(defun c:tt3(/ m ss lsts)<br />   (vl-load-com)  <br />   (setvar "cmdecho" 0)<br />     (Setq m 0)<br />     (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />     (repeat (sslength ss)<br />         (setq lsts (get_point (ssname ss m)))<br />         (dimaligned lsts)<br />         (setq m (+ m 1))<br />     )<br /> (princ)<br /> )<br /> ;;;求多段线顶点坐标集合<br /> (defun get_point (ent / ptlist ptlist1 n)<br /> (setq ptlist '() ptlist1 '() n 0)<br /> (setq ptlist (vlax-safearray->list(vlax-variant-value(vlax-get-property(vlax-ename->vla-object ent)'Coordinates))))<br />       (repeat (/ (length ptlist) 2)<br />         (setq ptlist1 (cons (list (nth n ptlist) (nth (setq n (1+ n)) ptlist)) ptlist1))<br />         (setq n (1+ n))<br />       )<br /> (setq ptlist2 (mapcar (function (lambda (x) (coorchang x))) ptlist1))<br /> )<br /> ;;;;;求两点的中点垂直过50的坐标<br /> (defun get_mid_pt (pt1 pt2 / d ang)<br />     (setq d   (* (distance pt1 pt2) 0.5)<br />           ang (angle pt1 pt2)<br />     )<br />     (polar pt1 ang d)<br /> )<br /> ;;;;;;标注多线段<br /> (defun dimaligned (llst / pt1 pt2 pt i)<br />     (setq i 0)<br />     (repeat (- (length llst) 1)<br />         (setq pt1 (nth i llst))<br />         (setq pt2 (nth (setq i (1+ i)) llst))<br />         (setq pt  (get_mid_pt pt1 pt2))<br />         (vl-cmdf "_dimaligned" pt1 pt2 pt "")<br />     )<br /> )<br /> ;;;;二维坐标转换为三维<br /> (defun coorchang (lst)<br />     (setq p1 (car  lst))<br />     (setq p2 (cadr lst))<br />     (setq lst (list p1 p2 0))<br /> )

guerearou

另外这个的效率简直慢到爆，试了下多线段躲起来的时候，就和动画片一样....不知道有没有啥优化的思路？

longcashman

(vl-cmdf "_dimaligned" pt1 pt2 pt "") -------> (vl-cmdf "_dimaligned" pt1 pt2 pt )

guerearou

longcashman 发表于 2015-1-30 18:55
(vl-cmdf "_dimaligned" pt1 pt2 pt "") -------> (vl-cmdf "_dimaligned" pt1 pt2 pt )

额 果然如此 看来是习惯用其它需要退出的命令 造成的  感谢