- Category:
- Other systems
- Tags:
-
- File Size:
- 22kb
- Update:
- 2017-08-06
- Downloads:
- 0 Times
- Uploaded by:
- 李吉成
Description: (setvar "cmdecho" 1)
(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
(setq i 0)
(setq ll 0)
(repeat (sslength en)
(setq ss (ssname en i))
(setq endata (entget ss))
(command "lengthen" ss "")
(setq dd (getvar "perimeter"))
(setq ll (+ dd ll))
(setq i (1+ i))
To Search:
File list (Check if you may need any files):
测绘实用工具.VLX