统计列表

zhangq_cai1 · 发表于 2014-12-4 11:09:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt1()
(xd::Begin)
(setq ss (ssget '((0 . "LWPOLYLINE")))
ss1 (mapcar '(lambda (X) (append (xdrx_Pickset->ents (ssget "_CP" (xdrx_entity_getstretchpoint X) '((0 . "Text")))) (list X) )) (xdrx_Pickset->ents ss))
ss2 (mapcar '(lambda (X) (list (xdrx_GetPropertyValue (cadr x) "Textstring")
(xdrx_GetPropertyValue (car x) "Textstring")
(xdrx_GetPropertyValue (caddr x) "area"))
)
ss1)
)
(if (setq pt (getpoint "\n表格插入点: "))
(progn
(setq lst (cons '("人名" "数量" "面积") ss2)
tb (xdrx_table_make
pt
(+ 2 (length lst))
8
4
6
)
; _制造表格
colwidth (mapcar '(lambda (x) x)
'(30 30 40)
)
; _列宽
)
(XD::Table:begin tb)
(mapcar
'(lambda (x)
(xdrx_table_settextheight tb x 4)
)
'(1 2 4)
) ; _设置所有 Cell 文字高度
(xdrx_table_setalignment tb 1 5) ; _数据区文字对齐方式
(xdrx_table_setgridvisibility tb 2 59 nil) ; _隐藏 Title 边
(mapcar
'(lambda (x y)
(xdrx_table_setcolumnwidth tb x y)
)
'(0 1 2)
colwidth
)
(setq i 0)
(mapcar
'(lambda (x / j)
(setq j -1
i (1+ i)
)
(mapcar '(lambda (a)
(xdrx_table_settextstring
tb
i
(setq j (1+ j))
(if (eq (type a) 'STR)
a
(vl-princ-to-string a)
)
)
)
x
)
)
lst
) ; 构造Cell文字
(xdrx_table_settextstring tb 0 0 "统计表")
(XD::Table:end tb)
)
)
(XD::End)
(princ)
)

(defun c:tt1() 
  (xd::Begin) 
  (setq ss    (ssget '((0 . "LWPOLYLINE"))) 
    ss1   (mapcar '(lambda (X) (append (xdrx_Pickset->ents (ssget  "_CP" (xdrx_entity_getstretchpoint  X) '((0 . "Text")))) (list X) )) (xdrx_Pickset->ents ss)) 
    ss2   (mapcar '(lambda (X) (list (xdrx_GetPropertyValue  (cadr x) "Textstring") 
          (xdrx_GetPropertyValue  (car x) "Textstring") 
          (xdrx_GetPropertyValue  (caddr x) "area")) 
      ) 
      ss1) 
  ) 
  (if (setq pt (getpoint "\n表格插入点: ")) 
    (progn 
      (setq lst       (cons '("人名" "数量" "面积") ss2) 
        tb       (xdrx_table_make 
          pt 
          (+ 2 (length lst)) 
          8 
          4 
          6 
        ) 
        ; _制造表格 
        colwidth (mapcar '(lambda (x) x) 
          '(30 30 40) 
        ) 
        ; _列宽 
      ) 
      (XD::Table:begin tb) 
      (mapcar 
        '(lambda (x) 
          (xdrx_table_settextheight tb x 4) 
        ) 
        '(1 2 4) 
      )          ; _设置所有 Cell 文字高度 
      (xdrx_table_setalignment tb 1 5)  ; _数据区文字对齐方式 
      (xdrx_table_setgridvisibility tb 2 59 nil) ; _隐藏 Title 边 
      (mapcar 
        '(lambda (x y) 
          (xdrx_table_setcolumnwidth tb x y) 
        ) 
        '(0 1 2) 
        colwidth 
      ) 
      (setq i 0) 
      (mapcar 
        '(lambda (x / j) 
          (setq j -1 
            i (1+ i) 
          ) 
          (mapcar '(lambda (a) 
              (xdrx_table_settextstring 
                tb 
                i 
                (setq j (1+ j)) 
                (if (eq (type a) 'STR) 
                  a 
                  (vl-princ-to-string a) 
                ) 
              ) 
            ) 
            x 
          ) 
        ) 
        lst 
      )          ; 构造Cell文字 
      (xdrx_table_settextstring tb 0 0 "统计表") 
      (XD::Table:end tb) 
    ) 
  ) 
  (XD::End) 
  (princ) 
)

怎么按文字插入点排序，达到下表的格式

newer · 发表于 2014-12-4 11:12:10

不知道你问的问题是什么？你的演示是你提供的API代码实现的吗？你想实现什么？

zhangq_cai1 · 发表于 2014-12-4 11:42:26

是API实现的，输出的表格内容人名是随机的，想按最上面的戴必银到最下面的戴必武的顺序输出

st788796 · 发表于 2014-12-4 11:42:42

用xdrx_getpropertyvalue 获取 Position 索引，然后用vl-sort 排序

st788796 · 发表于 2014-12-4 11:49:14

xd::table:make 可以替换后面一大段代码

newer · 发表于 2014-12-4 11:52:39

zhangq_cai1 发表于 2014-12-4 11:42
是API实现的，输出的表格内容人名是随机的，想按最上面的戴必银到最下面的戴必武的顺序输出

函数库有个现成的函数

(setq lst (xd::list:createByProperty ss "position" '<))
(setq lst (xd::list:sort lst))

ss是文字的选择集。

zhangq_cai1 · 发表于 2014-12-4 14:07:26

(defun c:tt1()
(xd::Begin)
(setq ss (ssget '((0 . "LWPOLYLINE")))
ss1 (mapcar '(lambda (X) (append (xdrx_Pickset->ents (ssget "_CP" (xdrx_entity_getstretchpoint X) '((0 . "Text")))) (list X) )) (xdrx_Pickset->ents ss))
ss1 (vl-sort ss1 (function(lambda (s1 s2) (> (cadr(xdrx_GetPropertyValue (car s1) "position")) (cadr(xdrx_GetPropertyValue (car s2) "position"))))))
ss2 (mapcar '(lambda (X) (list (xdrx_GetPropertyValue (cadr x) "Textstring")
(xdrx_GetPropertyValue (car x) "Textstring")
(xdrx_GetPropertyValue (caddr x) "area"))
)
ss1)
)
(if (setq pt (getpoint "\n表格插入点: "))
(progn
(setq lst (cons '("人名" "数量" "面积") ss2)
tb (xdrx_table_make
pt
(+ 2 (length lst))
8
4
6
)
; _制造表格
colwidth (mapcar '(lambda (x) x)
'(30 30 40)
)
; _列宽
)
(XD::Table:begin tb)
(mapcar
'(lambda (x)
(xdrx_table_settextheight tb x 4)
)
'(1 2 4)
) ; _设置所有 Cell 文字高度
(xdrx_table_setalignment tb 1 5) ; _数据区文字对齐方式
(xdrx_table_setgridvisibility tb 2 59 nil) ; _隐藏 Title 边
(mapcar
'(lambda (x y)
(xdrx_table_setcolumnwidth tb x y)
)
'(0 1 2)
colwidth
)
(setq i 0)
(mapcar
'(lambda (x / j)
(setq j -1
i (1+ i)
)
(mapcar '(lambda (a)
(xdrx_table_settextstring
tb
i
(setq j (1+ j))
(if (eq (type a) 'STR)
a
(vl-princ-to-string a)
)
)
)
x
)
)
lst
) ; 构造Cell文字
(xdrx_table_settextstring tb 0 0 "统计表")
(XD::Table:end tb)
)
)
(XD::End)
(princ)
)

(defun c:tt1() 
  (xd::Begin) 
  (setq ss    (ssget '((0 . "LWPOLYLINE"))) 
    ss1   (mapcar '(lambda (X) (append (xdrx_Pickset->ents (ssget  "_CP" (xdrx_entity_getstretchpoint  X) '((0 . "Text")))) (list X) )) (xdrx_Pickset->ents ss)) 
                ss1   (vl-sort ss1 (function(lambda (s1 s2) (> (cadr(xdrx_GetPropertyValue (car s1) "position")) (cadr(xdrx_GetPropertyValue (car s2) "position")))))) 
          ss2   (mapcar '(lambda (X) (list (xdrx_GetPropertyValue  (cadr x) "Textstring") 
          (xdrx_GetPropertyValue  (car x) "Textstring") 
          (xdrx_GetPropertyValue  (caddr x) "area")) 
      ) 
      ss1) 
  ) 
  (if (setq pt (getpoint "\n表格插入点: ")) 
    (progn 
      (setq lst       (cons '("人名" "数量" "面积") ss2) 
        tb       (xdrx_table_make 
          pt 
          (+ 2 (length lst)) 
          8 
          4 
          6 
        ) 
        ; _制造表格 
        colwidth (mapcar '(lambda (x) x) 
          '(30 30 40) 
        ) 
        ; _列宽 
      ) 
      (XD::Table:begin tb) 
      (mapcar 
        '(lambda (x) 
          (xdrx_table_settextheight tb x 4) 
        ) 
        '(1 2 4) 
      )          ; _设置所有 Cell 文字高度 
      (xdrx_table_setalignment tb 1 5)  ; _数据区文字对齐方式 
      (xdrx_table_setgridvisibility tb 2 59 nil) ; _隐藏 Title 边 
      (mapcar 
        '(lambda (x y) 
          (xdrx_table_setcolumnwidth tb x y) 
        ) 
        '(0 1 2) 
        colwidth 
      ) 
      (setq i 0) 
      (mapcar 
        '(lambda (x / j) 
          (setq j -1 
            i (1+ i) 
          ) 
          (mapcar '(lambda (a) 
              (xdrx_table_settextstring 
                tb 
                i 
                (setq j (1+ j)) 
                (if (eq (type a) 'STR) 
                  a 
                  (vl-princ-to-string a) 
                ) 
              ) 
            ) 
            x 
          ) 
        ) 
        lst 
      )          ; 构造Cell文字 
      (xdrx_table_settextstring tb 0 0 "统计表") 
      (XD::Table:end tb) 
    ) 
  ) 
  (XD::End) 
  (princ) 
)

改好了，谢谢大家

zhangq_cai1 · 发表于 2014-12-4 14:09:03

newer 发表于 2014-12-4 11:52
函数库有个现成的函数

(setq lst (xd::list:createByProperty ss "position" '

(setq lst (xd::list:createByProperty ss "position" '<))
(setq lst (xd::list:sort lst))

30号的用户手册里没有这两个函数

st788796 · 发表于 2014-12-4 14:31:32

本帖最后由 st788796 于 2014-12-4 14:36 编辑

简化一下大概是这样

;;API技术交流QQ群 391881924
(defun c:tt1 (/ ss ss1 ss2 pt)
(xd::Begin)
(if
(and (setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq ss1
(mapcar '(lambda (X)
(append (xdrx_Pickset->ents
(ssget "_CP"
(xdrx_entity_getstretchpoint X)
'((0 . "Text"))
)
)
(list X)
)
)
(xdrx_Pickset->ents ss)
)
)
(setq
ss2 (mapcar
'(lambda (X)
(list (xdrx_getpropertyvalue (cadr x) "Position")
(xdrx_GetPropertyValue (cadr x) "Textstring")
(xdrx_GetPropertyValue (car x) "Textstring")
(xdrx_GetPropertyValue (caddr x) "area")
)
)
ss1
)
)
(setq pt (getpoint "\n表格插入点: "))
)
(progn
(xd::table:make
pt
(cons "统计表" (cons '("人名" "数量" "面积")
(apply 'append
(xd::list:tablesort ss2 0 3 1e-3)
)
))
)
)
)
(XD::End)
(princ)
)

;;API技术交流QQ群 391881924 
(defun c:tt1 (/ ss ss1 ss2 pt) 
  (xd::Begin) 
  (if 
    (and (setq ss (ssget '((0 . "LWPOLYLINE")))) 
         (setq ss1 
                (mapcar        '(lambda (X) 
                           (append (xdrx_Pickset->ents 
                                     (ssget "_CP" 
                                            (xdrx_entity_getstretchpoint X) 
                                            '((0 . "Text")) 
                                     ) 
                                   ) 
                                   (list X) 
                           ) 
                         ) 
                        (xdrx_Pickset->ents ss) 
                ) 
         ) 
         (setq 
           ss2 (mapcar 
                 '(lambda (X) 
                    (list (xdrx_getpropertyvalue (cadr x) "Position") 
                          (xdrx_GetPropertyValue (cadr x) "Textstring") 
                          (xdrx_GetPropertyValue (car x) "Textstring") 
                          (xdrx_GetPropertyValue (caddr x) "area") 
                    ) 
                  ) 
                 ss1 
               ) 
         ) 
         (setq pt (getpoint "\n表格插入点: ")) 
    ) 
     (progn 
       (xd::table:make 
         pt 
         (cons "统计表" (cons '("人名" "数量" "面积") 
               (apply 'append 
                      (xd::list:tablesort ss2 0 3 1e-3) 
               ) 
         )) 
       ) 
     ) 
  ) 
  (XD::End) 
  (princ) 
)

zhangq_cai1 · 发表于 2014-12-4 16:13:35

(xd::table:make
(cons "统计表" (append(cons '("人名" "数量" "面积" "补列")
(mapcar'(lambda (X) (cdr x)) (apply 'append
(xd::list:tablesort ss2 0 3 1e-3))
))
(list '("补行"))))
pt
8. 3.)

复制代码

制表改一下才能用

st788796 · 发表于 2014-12-4 16:21:35

zhangq_cai1 发表于 2014-12-4 16:13
制表改一下才能用

API 已解决,不需要补列和行,下次更新

598229113 · 发表于 2014-12-6 12:24:30

能把最终码发一下共享一下么

显示全部楼层 · 发表于 2015-11-3 10:28:56

提示: 作者被禁止或删除内容自动屏蔽

bikeboy · 发表于 2016-5-11 18:22:28

st788796 发表于 2014-12-4 16:21
API 已解决,不需要补列和行,下次更新

坐等更新呢，啥时候更新？

账号		自动登录	找回密码
密码			立即注册

失业农民XCB 该用户已被删除	发表于 2015-11-3 10:28:56 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
失业农民XCB 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[原创] 统计列表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评