命令嵌套深度不能超过四层

yanshengjiang

(command "DJF3" "0.2" p1 p2 "")    lisp里面调用cass命令就会这样

xyp1964

1. (defun c:tt ()
   
2.   (while (and (setq p1 (getpoint "\n指定第一点: "))
   
3.               (setq p2 (getpoint p1 "\n指定第二点: "))
   
4.               (setq p3 (getpoint p2 "\n指定第三点: "))
   
5.          )
   
6.     (command "pline" p1 "w" "0.2" "" p2 "")
   
7.     (command "offset" "4" (entlast) p3 "")
   
8.     (setq s1 (entlast)
   
9.           p3 (vlax-curve-getEndPoint s1)
   
10.           p4 (vlax-curve-getStartPoint s1)
    
11.           pt (inters p1 p3 p2 p4)
    
12.     )
    
13.     (entmake (list '(0 . "TEXT")
    
14.                    (cons 1 "道路")
    
15.                    (cons 10 pt)
    
16.                    (cons 40 1.5)
    
17.                    (cons 41 1)
    
18.                    (cons 7 "HZDX")
    
19.                    (cons 8 "TK")
    
20.                    (cons 71 0)
    
21.                    (cons 72 1)
    
22.                    (cons 73 2)
    
23.                    (cons 11 pt)
    
24.              )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt ()<br />   (while (and (setq p1 (getpoint "\n指定第一点: "))<br />               (setq p2 (getpoint p1 "\n指定第二点: "))<br />               (setq p3 (getpoint p2 "\n指定第三点: "))<br />          )<br />     (command "pline" p1 "w" "0.2" "" p2 "")<br />     (command "offset" "4" (entlast) p3 "")<br />     (setq s1 (entlast)<br />           p3 (vlax-curve-getEndPoint s1)<br />           p4 (vlax-curve-getStartPoint s1)<br />           pt (inters p1 p3 p2 p4)<br />     )<br />     (entmake (list '(0 . "TEXT")<br />                    (cons 1 "道路")<br />                    (cons 10 pt)<br />                    (cons 40 1.5)<br />                    (cons 41 1)<br />                    (cons 7 "HZDX")<br />                    (cons 8 "TK")<br />                    (cons 71 0)<br />                    (cons 72 1)<br />                    (cons 73 2)<br />                    (cons 11 pt)<br />              )<br />     )<br />   )<br />   (princ)<br /> )