[已解决]求立体图统计尺寸及汇总编号的程序

金鹅起飞 · 发表于 2013-11-23 20:30:15

st788796 发表于 2013-11-23 20:25
换到顶视图

谢谢st788796大师！出来了！但是数字太小，根本看不到，要放大不停地放大才看得到，能把数字变大吗？谢谢！

st788796 · 发表于 2013-11-23 20:40:20

金鹅起飞发表于 2013-11-23 20:30
谢谢st788796大师！出来了！但是数字太小，根本看不到，要放大不停地放大才看得到，能把数字变大吗？谢谢 ...

修改 textsize 系统变量

金鹅起飞 · 发表于 2013-11-23 21:00:17

st788796 发表于 2013-11-23 20:40
修改 textsize 系统变量

ST788796大师：您好！最开始试的时候，比列太小，没有注意，所以没有看到数字，抱歉。刚才我改了比例，有试了一下，终于可以了！谢谢您的帮助！但刚才我又想到一个问题：这些这些尺寸出来了，我怎么知道它是哪一个部件的呢？这又要一个一个去核对，就没有意义了，所以，请您再帮个忙，把每个部件的编号也对应显示出来，就太完美了。这个可以实现吗？谢谢您！

st788796 · 发表于 2013-11-23 21:05:57

金鹅起飞发表于 2013-11-23 21:00
ST788796大师：您好！最开始试的时候，比列太小，没有注意，所以没有看到数字，抱歉。刚才我改了比例，有 ...

你的文字和 3DSolid 是一个高度吗？如果是就好办些

金鹅起飞 · 发表于 2013-11-23 21:12:22

st788796 发表于 2013-11-23 21:05
你的文字和 3DSolid 是一个高度吗？如果是就好办些

不是很明白，文字是指部件的编号吗？部件的编号可以和三维实体一个高度，谢谢您st788796a大师！

金鹅起飞 · 发表于 2013-11-23 21:13:52

st788796 发表于 2013-11-23 21:05
你的文字和 3DSolid 是一个高度吗？如果是就好办些

部件的编号可以写在三维实体的上表面

金鹅起飞 · 发表于 2013-11-23 21:14:29

st788796 发表于 2013-11-23 21:05
你的文字和 3DSolid 是一个高度吗？如果是就好办些

部件的编号可以写在三维实体的上表面

金鹅起飞 · 发表于 2013-11-23 21:42:08

st788796 发表于 2013-11-23 21:05
你的文字和 3DSolid 是一个高度吗？如果是就好办些

ST788796大师：您好！我刚才一直在试用您辛苦编写的程序，很是感谢您，为我的工作带来了如此的方便，再次感谢！刚才有发现一个小小问题：尺寸数字不能够四舍五入，您能改改吗？谢谢！

金鹅起飞 · 发表于 2013-11-23 21:43:21

st788796 发表于 2013-11-23 21:05
你的文字和 3DSolid 是一个高度吗？如果是就好办些

ST788796大师：您好！我刚才一直在试用您辛苦编写的程序，很是感谢您，为我的工作带来了如此的方便，再次感谢！刚才有发现一个小小问题：尺寸数字不能够四舍五入，您能改改吗？谢谢！

st788796 · 发表于 2013-11-23 21:53:35

金鹅起飞发表于 2013-11-23 21:43
ST788796大师：您好！我刚才一直在试用您辛苦编写的程序，很是感谢您，为我的工作带来了如此的方便，再次 ...

什么四舍五入？首先规范绘图

(defun c:tt (/ ss tss dss el h v zl p)
(if (and (setq ss (ssget '((0 . "*text,3dsolid"))))
(setq tss (ssget "P" '((0 . "*text"))))
(setq dss (xdrx_pickset_subtract ss tss))
(setq p (getpoint "\nOutput Point: "))
)
(progn
(setq
el
(mapcar
'(lambda (x / box)
(setq box (xdrx_getpropertyvalue x "Boundingbox"))
(list
(mapcar
'(lambda (a) (fix (abs a)))
(apply
'mapcar
(cons '- box)
)
)
(last (cadr box))
x
)
)
(xdrx_pickset->ents dss)
)
el (vl-sort el
'(lambda (h1 h2)
(< (cadr h1) (cadr h2))
)
)
zl (vl-sort
(mapcar
'(lambda (x)
(list (xdrx_getpropertyvalue x "Text")
(caddr (xdrx_getpropertyvalue x "Location"))
)
)
(xdrx_pickset->ents tss)
)
'(lambda (h1 h2)
(< (cadr h1) (cadr h2))
)
)
el (mapcar '(lambda (x y)
(list (car x) (car y) (/ (length (cdr x)) 2))
)
el
zl
)
)
(setq h (getvar "textsize");_字高
v (list 0. (* 2.0 h) 0.);_行距 2 倍间距
)
(mapcar
'(lambda (x / typ num)
(setq typ (xdrx_string_join
(vl-sort (vl-remove-if-not
'(lambda (s) (= (type s) 'STR))
x
)
'<
)
"="
)
num (itoa (apply '+
(vl-remove-if-not
'(lambda (s) (= (type s) 'INT))
x
)
)
)
)
(xdrx_text_make
p
(strcat typ
" "
(xdrx_string_join (mapcar 'itoa (car x)) "x")
"="
num
)
h
0.
)
(setq p (mapcar '- p v))
)
(XD::LIST:GROUPBYINDEX el 0)
)
)
)
(princ)
)

(defun c:tt (/ ss tss dss el h v zl p) 
  (if (and (setq ss (ssget '((0 . "*text,3dsolid")))) 
           (setq tss (ssget "P" '((0 . "*text")))) 
           (setq dss (xdrx_pickset_subtract ss tss)) 
           (setq p (getpoint "\nOutput Point: ")) 
      ) 
    (progn 
      (setq 
        el 
           (mapcar 
             '(lambda (x / box) 
                (setq box (xdrx_getpropertyvalue x "Boundingbox")) 
                (list 
                  (mapcar 
                    '(lambda (a) (fix (abs a))) 
                    (apply 
                      'mapcar 
                      (cons '- box) 
                    ) 
                  ) 
                  (last (cadr box)) 
                  x 
                ) 
              ) 
             (xdrx_pickset->ents dss) 
           ) 
        el (vl-sort el 
                    '(lambda (h1 h2) 
                       (< (cadr h1) (cadr h2)) 
                     ) 
           ) 
        zl (vl-sort 
             (mapcar 
               '(lambda        (x) 
                  (list        (xdrx_getpropertyvalue x "Text") 
                        (caddr (xdrx_getpropertyvalue x "Location")) 
                  ) 
                ) 
               (xdrx_pickset->ents tss) 
             ) 
             '(lambda (h1 h2) 
                (< (cadr h1) (cadr h2)) 
              ) 
           ) 
        el (mapcar '(lambda (x y) 
                      (list (car x) (car y) (/ (length (cdr x)) 2)) 
                    ) 
                   el 
                   zl 
           ) 
      ) 
      (setq h (getvar "textsize");_字高 
            v (list 0. (* 2.0 h) 0.);_行距 2 倍间距 
      ) 
      (mapcar 
        '(lambda (x / typ num) 
           (setq typ (xdrx_string_join 
                       (vl-sort        (vl-remove-if-not 
                                  '(lambda (s) (= (type s) 'STR)) 
                                  x 
                                ) 
                                '< 
                       ) 
                       "=" 
                     ) 
                 num (itoa (apply '+ 
                                  (vl-remove-if-not 
                                    '(lambda (s) (= (type s) 'INT)) 
                                    x 
                                  ) 
                           ) 
                     ) 
           ) 
           (xdrx_text_make 
             p 
             (strcat typ 
                     "  " 
                     (xdrx_string_join (mapcar 'itoa (car x)) "x") 
                     "=" 
                     num 
             ) 
             h 
             0. 
           ) 
           (setq p (mapcar '- p v)) 
         ) 
        (XD::LIST:GROUPBYINDEX el 0) 
      ) 
    ) 
  ) 
  (princ) 
)

金鹅起飞 · 发表于 2013-11-23 22:45:25

st788796 发表于 2013-11-23 21:53
什么四舍五入？首先规范绘图

大师说得是，一定好规范绘图，学生一定谨记。您最新的程序，我刚才一直在试用，又不知道怎么的，一直不出来数字，我又重新加载，又重新启动CAD，还是不出来，不知什么原因，我等会录制个图片上来您看看是什么原因。

金鹅起飞 · 发表于 2013-11-23 22:48:24

st788796 发表于 2013-11-23 21:53
什么四舍五入？首先规范绘图

已成功加载 XDRX_API.R17.X32.arx。
已成功加载立体图统计尺寸汇总程序.lsp。

命令:
命令:
命令: tt
选择对象: 指定对角点: 找到 1 个
选择对象:
命令:

选择三维物体后这样不停地循环

金鹅起飞 · 发表于 2013-11-23 23:03:37

st788796 发表于 2013-11-23 21:53
什么四舍五入？首先规范绘图

st788796大师请看图片

st788796 · 发表于 2013-11-23 23:06:39

你这个没有文字

金鹅起飞 · 发表于 2013-11-23 23:09:31

喔，我加文字试试先。谢谢！

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

[已解决] [已解决]求立体图统计尺寸及汇总编号的程序

点评

点评

点评

点评

点评

点评

点评

浏览过的版块