关于CAD命令"LENGTHEN"

weixin7944

最近打算编一个程序，可以实现“统计一个区域内所有直线，圆，椭圆、弧线等的长度”的功能。CAD中有个命令是"LENGTHEN"，可以实现对直线，圆，椭圆、弧线长度的测量。但是，不知道怎样才能通过运用此命令提取出长度数据，以便实现在程序中的累加。

(setq a (command "LENGTHEN"))返回为nil，不能得到长度数据。

 

龙龙仔

3. ;;;-----------------------------------------------------
4. ;;;計算線加總長度
5. ;;;BY LUCAS(龍龍仔)
6. ;;;2002/8/14  AM 9:00
7. ;;;初版
8. ;;;2002/8/21  PM 9:20
9. ;;;修正LWPOLYLINE & POLYLINE & SPLINE沒有CLOSED
10. ;;;但首尾點相連,長度不能計算題
11. ;;;2002/9/3   PM 8:20
12. ;;;更改計算程式
13. ;;;-----------------------------------------------------
14. (defun C:LENOF (/ CURVE TLEN SS N SUMLEN)
15.   (vl-load-com)
16.   (setq SUMLEN 0)
17.   (setq
18.     SS (ssget
19.   '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))
20.        )
21.   )
22.   (setq N 0)
23.   (repeat (sslength SS)
24.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
25.     (if (/= (vla-get-objectname CURVE) "AcDbRegion")
26.       (setq TLEN (vlax-curve-getdistatparam
27.      CURVE
28.      (vlax-curve-getendparam CURVE)
29.    )
30.       )
31.       (setq TLEN (vla-get-perimeter CURVE))
32.     )
33.     (setq SUMLEN (+ SUMLEN TLEN))
34.     (setq N (1+ N))
35.   )
36.   (print (strcat "總長度: " (rtos SUMLEN 2 5)))
37.   (princ)
38. )

;;;----------------------------------------------------- ;;;計算線加總長度 ;;;BY LUCAS(龍龍仔) ;;;2002/8/14  AM 9:00 ;;;初版 ;;;2002/8/21  PM 9:20 ;;;修正LWPOLYLINE & POLYLINE & SPLINE沒有CLOSED ;;;但首尾點相連,長度不能計算題 ;;;2002/9/3   PM 8:20 ;;;更改計算程式 ;;;----------------------------------------------------- (defun C:LENOF (/ CURVE TLEN SS N SUMLEN)   (vl-load-com)   (setq SUMLEN 0)   (setq     SS (ssget   '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))        )   )   (setq N 0)   (repeat (sslength SS)     (setq CURVE (vlax-ename->vla-object (ssname SS N)))     (if (/= (vla-get-objectname CURVE) "AcDbRegion")       (setq TLEN (vlax-curve-getdistatparam      CURVE      (vlax-curve-getendparam CURVE)    )       )       (setq TLEN (vla-get-perimeter CURVE))     )     (setq SUMLEN (+ SUMLEN TLEN))     (setq N (1+ N))   )   (print (strcat "總長度: " (rtos SUMLEN 2 5)))   (princ) )

yoyoho

;下面计算线、聚合线LISP:                                
                                                        
                                                        
(defun c:long_1 ()                                      
(setq ss (ssget '((0 . "*line"))))                      
(setq nn (sslength ss))                                 
(setq i 0 tnum 0)                                       
(repeat nn                                              
(setq ssn (ssname ss i))                                
(command "lengthen" ssn "")                             
(setq num (getvar "perimeter"))                         
(setq tnum (+ tnum num))                                
(setq i (1+ i))                                         
)                                                       
(alert (strcat "框选的线段加总长为: "(rtos tnum 2)))    
)                                                       

weixin7944

谢谢，非常感谢！

 

独钓客

学习中，两位都是牛人。我还正愁怎么取得lengthen的值呢，

jyzas

支持源码