请求一个把图中选择多段线查询周长，面积，并编号写到EXCEL里面的工具

Lisphk

请求一个把图中选择多段线查询周长，面积，并编号写到EXCEL里面的工具,应该说清楚了吧，不用配图了吧。

Lispboy

学习XD EXCEL有点收获了，准备拿你这个练练手了，给点时间。

Lispboy

先留存，下面代码把选择的多段线的编号，周长，面积写到表lst里面。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (not (prompt "\n选取处理的多段线<退出>:"))
   
4.         (setq ss (ssget '((0 . "*line"))))
   
5.       )
   
6.     (progn
   
7.       (xdrx_setsstodb ss 0)
   
8.       (setq i 0
   
9.             lst nil
   
10.       )
    
11.       (while (setq e (xdrx_getentdata 0))
    
12.         (mapcar
    
13.           'set
    
14.           '(perimeter area)
    
15.           (xdrx_getpropertyvalue e "length" "area")
    
16.         )
    
17.         (setq lst (cons (list (setq i (1+ i))
    
18.                               perimeter area
    
19.                         ) lst
    
20.                   )
    
21.         )
    
22.       )
    
23.       (setq lst (reverse lst))
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

(defun c:tt ()<br />   (if (and<br />         (not (prompt "\n选取处理的多段线<退出>:"))<br />         (setq ss (ssget '((0 . "*line"))))<br />       )<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (setq i 0<br />             lst nil<br />       )<br />       (while (setq e (xdrx_getentdata 0))<br />         (mapcar<br />           'set<br />           '(perimeter area)<br />           (xdrx_getpropertyvalue e "length" "area")<br />         )<br />         (setq lst (cons (list (setq i (1+ i))<br />                               perimeter area<br />                         ) lst<br />                   )<br />         )<br />       )<br />       (setq lst (reverse lst))<br />     )<br />   )<br />   (princ)<br /> )<br />

st788796

XDGE解析库忒快、简单，搞得Autocad写出xls都没啥好玩了:)

Lisphk

Lispboy 发表于 2014-12-14 18:03
先留存，下面代码把选择的多段线的编号，周长，面积写到表lst里面。

先谢谢大侠了。

Lisphk

1. (mapcar
   
2.           'set
   
3.           '(perimeter area)
   
4.           (xdrx_getpropertyvalue e "length" "area")
   
5.         )
   

(mapcar<br />           'set<br />           '(perimeter area)<br />           (xdrx_getpropertyvalue e "length" "area")<br />         )<br />

这个用法好啊，可以批量设置变量了？

CAD小学徒

我试了怎么用不了呢

Lisphk

CAD小学徒 发表于 2016-7-6 17:16
我试了怎么用不了呢

下载 XDRX_API加载，如果不会，直接下载晓东工具箱，安装，然后执行代码就行了。

l775887181

不够职分不够职分不够职分不够职分不够职分不够职分

zhj2387

支持下，好好学习

lanyf

正是需要的，谢谢了

CAD小白

还是使用不了，我tt后，选择了多段线就没有反应

zxhorse363

学习中....