俺是小白，谁能帮忙把统计的长度单位毫米为米

tdl555

俺是小白，谁能帮忙把统计的长度单位毫米为米

xyp1964

1. (defun c:zz ()
   
2.   "统计线段长度"
   
3.   (if (and (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
   
4.            (setq pt (getpoint "\n点取标注点:"))
   
5.       )
   
6.     (progn
   
7.       (setq i  -1
   
8.             ll 0
   
9.       )
   
10.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.         (setq l1 (vlax-curve-getdistatparam s1 (vlax-curve-getendparam s1))
    
12.               ll (+ ll (* l1 1e-3))
    
13.         )
    
14.       )
    
15.       (setq ll (rtos ll 2 3)
    
16.             tx (strcat "周长=" ll "m")
    
17.             nn (itoa (sslength SS))
    
18.       )
    
19.       (command "text" "mc" pt 55 0 tx)
    
20.       (princ (strcat "\n共选择 " nn " 条线段. 线段总长: " ll))
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

(defun c:zz ()<br />   "统计线段长度"<br />   (if (and (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))<br />            (setq pt (getpoint "\n点取标注点:"))<br />       )<br />     (progn<br />       (setq i  -1<br />             ll 0<br />       )<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq l1 (vlax-curve-getdistatparam s1 (vlax-curve-getendparam s1))<br />               ll (+ ll (* l1 1e-3))<br />         )<br />       )<br />       (setq ll (rtos ll 2 3)<br />             tx (strcat "周长=" ll "m")<br />             nn (itoa (sslength SS))<br />       )<br />       (command "text" "mc" pt 55 0 tx)<br />       (princ (strcat "\n共选择 " nn " 条线段. 线段总长: " ll))<br />     )<br />   )<br />   (princ)<br /> )

song宋_74729

(defun C:cd (/ CURVE TLEN SS N SUMLEN)

(vl-load-com)

  (setqSUMLEN 0)

  (setq SS(ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))

  (setq N 0)

  (repeat(sslength SS)

    (setqCURVE (vlax-ename->vla-object (ssname SS N)))

    (setqTLEN (vlax-curve-getdistatparam

CURVE

(vlax-curve-getendparam CURVE)

       )

    )

    (setqSUMLEN (+ SUMLEN TLEN))

    (setq N(1+ N))

  )

  (print(strcat "总长度:" (rtos SUMLEN 2 5)))

  (princ)

)

试试看是不是这样

song宋_74729

xyp1964 发表于 2022-9-5 21:10

xyp1964厉害,值得学习

tdl555

song宋_74729 发表于 2022-9-5 14:42
(defun C:cd (/ CURVE TLEN SS N SUMLEN)  (vl-load-com)   (setqSUMLEN 0)   (setq SS(ssget '((0 . "CIRC ...

谢谢你，xyp1964已经回答了哈

kfh

xyp1964 发表于 2022-9-5 14:09

向你学习！
可标注长度并分类统计及总长吗？谢谢！

tdl555

kfh 发表于 2022-9-9 12:00
向你学习！
可标注长度并分类统计及总长吗？谢谢！

不可以啊，你再看看论坛