求统计列表程序或Lisp，方便最好

tyrasv · 发表于 2014-12-3 00:40:18

按我图显示格式，列出图右表格形式，一次性全部生成出来，要考虑重名和节点太多，线交叉和面重叠可能。

龙城飞将36 · 发表于 2014-12-3 00:40:19

龙城飞将36 发表于 2014-12-4 11:03

(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) 
)

q3_2006 · 发表于 2014-12-3 05:45:37

图纸规矩很好写...但如果图很烂大概就只能收费订制了,写了也不一定能解决...完全是浪费时间....

tyrasv · 发表于 2014-12-3 09:22:28

q3_2006 发表于 2014-12-3 05:45
图纸规矩很好写...但如果图很烂大概就只能收费订制了,写了也不一定能解决...完全是浪费时间....

图的话没什么问题，能帮我解决一部分问题就行。

tyrasv · 发表于 2014-12-3 10:36:10

q3_2006 发表于 2014-12-3 05:45
图纸规矩很好写...但如果图很烂大概就只能收费订制了,写了也不一定能解决...完全是浪费时间....

最好能考虑一下有点质量问题，大部分能列表出来。

tyrasv · 发表于 2014-12-3 17:31:04

有人能带写么，谢谢了，能用就给币。。。

龙城飞将36 · 发表于 2014-12-4 11:03:13

(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) 
)

tyrasv · 发表于 2014-12-4 21:02:47

本帖最后由 tyrasv 于 2014-12-4 23:35 编辑

龙城飞将36 发表于 2014-12-4 14:05

用不了啊，谢谢

tyrasv · 发表于 2014-12-4 21:17:22

本帖最后由 tyrasv 于 2014-12-4 23:33 编辑

龙城飞将36 发表于 2014-12-4 14:05

能优化下么，谢谢，用了好多次，都用不了

龙城飞将36 · 发表于 2014-12-5 08:07:51

需要先加载这个
xd-lisp-lib-2014.1130.rar

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

[已解答] 求统计列表程序或Lisp，方便最好

最佳答案

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源