统计圆并分组编号生成表格

Lispboy

函数 XD::Table:MakeFromList 见：http://bbs.xdcad.net/thread-705792-1-1.html

[sell=5]

(defun c:XDTB_TJCir ( / #height class1 class2 ents lst pt ss str1 str2 tlst2 val x y)
  (defun _maketable (lst)
    (if (setq pt (getpoint "\n表格插入点<退出>:"))
      (progn
        (setq lst (xd::table:celltile (list "序号" "编号" "孔径" "X坐标" "Y坐标") 1 lst)
              lst (cons (list "孔编号表" nil nil nil nil) lst)
        )
        (XD::Table:MakeFromList lst (trans pt 1 0) #xd_var_text_height (/ #xd_var_text_height 2.0))
      )
    )
  )
  (defun _format (val)
     (xdrx_string_regexpr "(?<=\\.[0-9]+)0{1,}$" val "")
  )
  (defun _write (lst)
    (setq tlst2 nil)
    (setq class1 "A")
    (mapcar
      '(lambda (x)
         (setq class2 "0")
         (mapcar
           '(lambda (y /)
              (setq str1 (strcat class1 (setq class2 (itoa (1+
                                                               (atoi class2)
                                                           )
                                                     )
                                        )
                         )
              )
              (xdrx_text_make (cadr y) str1 #xd_var_text_height (xd::ucs:angle))
              (XD::Text:AdjustAlignMent (entlast) 1 2)
              (xdrx_entity_move (entlast) (trans (xd::geom:get9pt (entlast) 5) 1 0) (cadr y) )
              (setq str2 (strcat "Φ" (rtos (* 2 (last y)) 2 1))
                    y (trans (cadr y) 0 1))
              (setq tlst2 (cons (list str1 str2
                                      (_format (rtos (car y) 2 4)) (_format (rtos
                                                                 (cadr y)
                                                                 2 4)
                                                           )
                                ) tlst2
                          )
              )
            )
           x
         )
         (setq class1 (chr (1+ (ascii class1))))
       )
      lst
    )
    (_maketable (reverse tlst2))
  )
  (if (not #xd_var_text_height)
    (setq #xd_var_text_height 3.5)
  )
  (if (setq val (getreal (xdrx_prompt "\n输入字高<" #xd_var_text_height ">:" t)))
    (setq #xd_var_text_height val)
  )
  (if (setq ss (xd::ssget "\n选取统计的圆<退出>" '(((0 . "circle")))))
    (progn
      (xdrx_begin)
      (xdrx_sysvar_push '("dimzin" 0))
      (setq ents (mapcar
                   '(lambda (x)
                      (list (xdrx_getpropertyvalue x "area") (cons x
                                                                   (xdrx_getpropertyvalue x "center" "radius")
                                                             )
                      )
                    )
                   (xdrx_pickset->ents ss)
                 )
      )
      (setq ents (xd::list:groupbyindex ents 0.0))
      (setq ents (vl-sort ents '(lambda (x y)
                                  (< (car x) (car y))
                                )
                 )
      )
      (setq ents (mapcar
                   'cdr
                   ents
                 )
      )
      (xd::text:init 1)
      (_write ents)
      (xdrx_end)
    )
  )
  (princ)
)

[/sell]

xx69as

确实是难得好帖啊，顶先

lucas3

只统计孔 啊，要是螺纹孔呢？
像燕秀，螺纹符号都是做块块，可以根据块名就知道螺纹大小了

newer

lucas3 发表于 2016-10-15 23:20

不同的人画法可能不一样， 能否把 螺纹孔 图块 传上来？ 看看怎么让插件更通用。

qqqincccken

谢谢提供，下载试用一下

longer1000

谢谢提供，下载试用一下

haoryh

正需要，支持楼主大人了！

qq1254582201

我天这么神奇正是我想要的啊，哈哈哈哈哈好棒哦

sjj

木有反应？

sjj

偶尔能成功，正在研究中。。。XD::Table:MakeFromList 不用特别加载。现在的XDAPI 可能集成了  
程序能运行时还是不错的，小数点尾部的0怎么去掉???

sjj

经过一系列的测试：
1）当UCS 为用户坐标系，数据和表据会移位。（移到看不见了，表现为：木有反应）
2）小数点尾部的0去掉就OK了。
3）排序有点小问题，偶尔发现次序不对。

XDSoft

sjj 发表于 2017-9-11 18:43

1楼代码修改了，UCS下，XY按UCS值列表。 拷贝回去试试。

sjj

XDSoft 发表于 2017-9-11 21:50

      谢谢老大，可以了，UCS完美解决，连旋转的情况也考虑了，另外加上了序号，不错。（现在排序的问题：在X相同，或Y相同时，随机出现次序打乱）

XDSoft

sjj 发表于 2017-9-12 07:00

代码并没有考虑X,Y排序。按实体生成的顺序排的。

sjj

XDSoft 发表于 2017-9-12 08:34

固然这样，最后一个园重新作图，排列就是A1,A2,A3
而不是原来的A1,A3,A2。
但是以下代码
      (setq ents (vl-sort ents '(lambda (x y)
                                  (< (car x) (car y))
                                )
                 )
      )
这不是排序么？