为啥加getdist无效

梦想家-DING

为啥加getdist无效，是哪里没整对吗

2. (defun c:nn (/ curve tlen ss n sumlen zg)
   
3.   (vl-load-com)
   
4.   (setq sumlen 0)
   
5.   (setq ss (ssget '((0 . "circle,ellipse,line,*polyline,spline,arc"))))
   
6.   (setq n 0)
   
7.   (repeat (sslength ss)
   
8.     (setq curve (vlax-ename->vla-object (ssname ss n)))
   
9.     (setq tlen (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve) ) )
   
10.     (setq sumlen (+ sumlen tlen))
    
11.     (setq n (1+ n))
    
12.   )
    
13.     (setq zg (getdist  "\n->拖动距离高度:"))
    
14.     (setvar "textsize" zg)
    
15.   (entmakex
    
16.     (list '(0 . "text") (cons 1 (strcat "线长度: " (rtos sumlen 2 2)"mm" )) (cons 10 (getpoint "\n点击指定文本位置:")) (cons 40 5))
    
17.   )
    
18.   (princ)
    
19. )

(defun c:nn (/ curve tlen ss n sumlen zg) <br />   (vl-load-com) <br />   (setq sumlen 0) <br />   (setq ss (ssget '((0 . "circle,ellipse,line,*polyline,spline,arc")))) <br />   (setq n 0) <br />   (repeat (sslength ss) <br />     (setq curve (vlax-ename->vla-object (ssname ss n))) <br />     (setq tlen (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve) ) ) <br />     (setq sumlen (+ sumlen tlen)) <br />     (setq n (1+ n)) <br />   ) <br />     (setq zg (getdist  "\n->拖动距离高度:"))<br />     (setvar "textsize" zg)<br />   (entmakex<br />     (list '(0 . "text") (cons 1 (strcat "线长度: " (rtos sumlen 2 2)"mm" )) (cons 10 (getpoint "\n点击指定文本位置:")) (cons 40 5))<br />   )<br />   (princ) <br /> )

andymong

(cons 40 5)改成(cons 40 zg)

xyp1964

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "circle,ellipse,line,*polyline,spline,arc"))))
   
3.     (progn
   
4.       (setq ll 0
   
5.             n  0
   
6.             zg (getdist "\n->拖动距离高度: ")
   
7.             p0 (getpoint "\n点击指定文本位置: ")
   
8.       )
   
9.       (or zg (setq zg 30))
   
10.       (repeat (sslength ss)
    
11.         (setq s1 (vlax-ename->vla-object (ssname ss n))
    
12.               l1 (vlax-curve-getdistatparam s1 (vlax-curve-getendparam s1))
    
13.               ll (+ ll l1)
    
14.               n (1+ n)
    
15.         )
    
16.       )
    
17.       (setvar "textsize" zg)
    
18.       (setq tx (strcat "线长度: " (rtos ll 2 2) "mm"))
    
19.       (entmakex(list '(0 . "text")(cons 1 tx)(cons 10 p0)(cons 40 zg)))
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "circle,ellipse,line,*polyline,spline,arc"))))<br />     (progn<br />       (setq ll 0<br />             n  0<br />             zg (getdist "\n->拖动距离高度: ")<br />             p0 (getpoint "\n点击指定文本位置: ")<br />       )<br />       (or zg (setq zg 30))<br />       (repeat (sslength ss)<br />         (setq s1 (vlax-ename->vla-object (ssname ss n))<br />               l1 (vlax-curve-getdistatparam s1 (vlax-curve-getendparam s1))<br />               ll (+ ll l1)<br />               n (1+ n)<br />         )<br />       )<br />       (setvar "textsize" zg)<br />       (setq tx (strcat "线长度: " (rtos ll 2 2) "mm"))<br />       (entmakex(list '(0 . "text")(cons 1 tx)(cons 10 p0)(cons 40 zg)))<br />     )<br />   )<br />   (princ)<br /> )