生成

abc498091367 · 发表于 2014-3-8 11:50:58

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

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

×

本帖最后由 abc498091367 于 2014-5-11 11:09 编辑

炫翔 · 发表于 2014-3-8 16:37:02

这种情况可以根据面积周长段数，来分类

st788796 · 发表于 2014-3-8 18:46:59

统计线？块？线内块？

abc498091367 · 发表于 2014-3-9 08:30:42

st788796 发表于 2014-3-8 18:46
统计线？块？线内块？

多线段闭合线

st788796 · 发表于 2014-3-9 09:04:15

本帖最后由 st788796 于 2014-3-9 09:06 编辑

abc498091367 发表于 2014-3-9 08:30
多线段闭合线

统计相同闭合线的数量?
A B C 和线有什么关系?
相同形状会不会角度不同?
相同形状是复制的还是分别绘制的?

abc498091367 · 发表于 2014-3-9 09:12:16

st788796 发表于 2014-3-9 09:04
统计相同闭合线的数量?
A B C 和线有什么关系?
相同形状会不会角度不同?

统计相同闭合线的数量和符号

一个形状一个符号\数量(比如符号A数量有30个,它的角度和形状都是一样,)

当然A符号内的和B符号内的形状就不一样(角度和形状都不一样,所以要用A B C D E分开)

abc498091367 · 发表于 2014-3-9 09:12:58

st788796 发表于 2014-3-9 09:04
统计相同闭合线的数量?
A B C 和线有什么关系?
相同形状会不会角度不同?

相同形状都是复制过去的

st788796 · 发表于 2014-3-9 09:32:57

abc498091367 发表于 2014-3-9 09:12
相同形状都是复制过去的

这些线是和编号有什么关系? 让程序自己编?

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "*polyline"))))
(progn
(setq lst (mapcar '(lambda (x / bp)
(setq bp (car (xdrx_entity_box x)))
(list (mapcar '(lambda (p)
(mapcar '- p bp)
)
(xdrx_entity_getstretchpoint x)
)
x
)
)
(xdrx_pickset->ents ss)
)
lst (xd::list:groupbyindex lst 1e-3)
lst (mapcar '(lambda (x)
(list (cadr x) (length (cdr x)))
)
lst
)
)
(foreach x lst
(princ "\n")
(princ x)
)
)
)
(princ)
)

(defun c:tt (/ ss lst) 
  (if (setq ss (ssget '((0 . "*polyline")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x / bp) 
                           (setq bp (car (xdrx_entity_box x))) 
                           (list (mapcar '(lambda (p) 
                                            (mapcar '- p bp) 
                                          ) 
                                         (xdrx_entity_getstretchpoint x) 
                                 ) 
                                 x 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (xd::list:groupbyindex lst 1e-3) 
            lst        (mapcar        '(lambda (x) 
                           (list (cadr x) (length (cdr x))) 
                         ) 
                        lst 
                ) 
      ) 
      (foreach x lst 
        (princ "\n") 
        (princ x) 
      ) 
    ) 
  ) 
  (princ) 
)

abc498091367 · 发表于 2014-3-9 09:41:29

st788796 发表于 2014-3-9 09:32
这些线是和编号有什么关系? 让程序自己编?

恩,编号就用程序自动编号A.B.C.D以此往下！

abc498091367 · 发表于 2014-3-9 09:42:57

st788796 发表于 2014-3-9 09:32
这些线是和编号有什么关系? 让程序自己编?

从大到小都没所谓，只要有个符号跟数量就行。

st788796 · 发表于 2014-3-9 09:51:38

abc498091367 发表于 2014-3-9 09:42
从大到小都没所谓，只要有个符号跟数量就行。

上面的程序可以统计数量，再加一个临时编号即可

abc498091367 · 发表于 2014-3-9 09:57:00

st788796 发表于 2014-3-9 09:51
上面的程序可以统计数量，再加一个临时编号即可

还要麻烦ST帮忙加加，我不太懂这个，学习阶段！只是这个急需在工作上要用到！

st788796 · 发表于 2014-3-9 11:20:34

本帖最后由 st788796 于 2014-3-9 17:34 编辑

abc498091367 发表于 2014-3-9 09:57
还要麻烦ST帮忙加加，我不太懂这个，学习阶段！只是这个急需在工作上要用到！

(defun c:tt (/ ss lst i)
(if (setq ss (ssget '((0 . "*polyline"))))
(progn
(setq lst (mapcar '(lambda (x / bp)
(setq bp (car (xdrx_entity_box x)))
(list (mapcar '(lambda (p)
(mapcar '- p bp)
)
(xdrx_entity_getstretchpoint x)
)
x
)
)
(xdrx_pickset->ents ss)
)
lst (xd::list:groupbyindex lst 1e-3)
lst (mapcar 'cdr lst)
i 64 ;_编号数量不大於 52 个 A-Z a-z
lst (mapcar '(lambda (x / box p)
(if (> 97 i 90)
(setq i 96)
)
(mapcar '(lambda (a)
(setq box (xdrx_entity_box a)
p (xdrx_line_midp (car box) (caddr box))
)
(xdrx_text_make
p
(chr (setq i (1+ i)))
(getvar "textsize")
0.
)
)
x
)
(list (chr i) (length (cdr x)))
)
lst
)
)
(if (setq p (getpoint "\nOutput Point: "))
(progn
(setq v (list 0. (- (* 1.5 (getvar "textsize"))) 0.))
(mapcar '(lambda (x)
(xdrx_text_make
p
(vl-string-trim "()" (vl-princ-to-string x))
(getvar "textsize")
0.
)
(setq p (mapcar '+ p v))
)
lst
)
)
(foreach x lst
(princ "\n")
(princ x)
)
)
)
)
(princ)
)

(defun c:tt (/ ss lst i) 
  (if (setq ss (ssget '((0 . "*polyline")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x / bp) 
                           (setq bp (car (xdrx_entity_box x))) 
                           (list (mapcar '(lambda (p) 
                                            (mapcar '- p bp) 
                                          ) 
                                         (xdrx_entity_getstretchpoint x) 
                                 ) 
                                 x 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (xd::list:groupbyindex lst 1e-3) 
            lst        (mapcar 'cdr lst) 
            i        64 ;_编号数量不大於 52 个 A-Z a-z 
            lst        (mapcar        '(lambda (x / box p) 
                           (if (> 97 i 90) 
                             (setq i 96) 
                           ) 
                           (mapcar '(lambda (a) 
                                      (setq box        (xdrx_entity_box a) 
                                            p        (xdrx_line_midp (car box) (caddr box)) 
                                      ) 
                                      (xdrx_text_make 
                                        p 
                                        (chr (setq i (1+ i))) 
                                        (getvar "textsize") 
                                        0. 
                                      ) 
                                    ) 
                                   x 
                           ) 
                           (list (chr i) (length (cdr x))) 
                         ) 
                        lst 
                ) 
      ) 
      (if (setq p (getpoint "\nOutput Point: ")) 
        (progn 
          (setq v (list 0. (- (* 1.5 (getvar "textsize"))) 0.)) 
          (mapcar '(lambda (x) 
                     (xdrx_text_make 
                       p 
                       (vl-string-trim "()" (vl-princ-to-string x)) 
                       (getvar "textsize") 
                       0. 
                     ) 
                     (setq p (mapcar '+ p v)) 
                   ) 
                  lst 
          ) 
        ) 
        (foreach x lst 
          (princ "\n") 
          (princ x) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

abc498091367 · 发表于 2014-3-9 11:40:48

st788796 发表于 2014-3-9 11:20

选择对象: 指定对角点: 找到 2 个
选择对象:
Output Point: ; 错误: 参数太少

st788796 · 发表于 2014-3-9 12:37:31

abc498091367 发表于 2014-3-9 11:40
选择对象: 指定对角点: 找到 2 个
选择对象:
Output Point: ; 错误: 参数太少

重新复制下载

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

[求助] 生成

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

相关帖子

点评

点评

点评

点评

点评

点评