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

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

st788796 发表于 2013-11-23 23:06
你这个没有文字

APPLOAD 已加载 XDRX_API.R17.X32.arx。
已成功加载立体图统计尺寸汇总程序.lsp。
命令: tt
选择对象: 指定对角点: 找到 2 个
选择对象:
Output Point: ; 错误: no function definition: XD::LIST:GROUPBYINDEX

请问是哪里的问题？谢谢！

st788796 · 发表于 2013-11-23 23:15:52

把这个函数XD:LIST:GROUPBYINDEX放在程序的最前面

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

st788796 发表于 2013-11-23 23:15
把这个函数XDIST:GROUPBYINDEX放在程序的最前面

是把(XD::LIST:GROUPBYINDEX el 0)这一行连括号一起剪切，再粘贴到第一行去吗？

st788796 · 发表于 2013-11-23 23:25:21

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671068

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

本帖最后由金鹅起飞于 2013-11-23 23:33 编辑

st788796 发表于 2013-11-23 23:25
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671068

我把 (XD::List:GroupByIndex)按索引对表进行分组这个函数下载后，加载到cad再试，还是不行，出现：

参数类型错误: stringp nil

不知何故。
请看下面的图片演示。

st788796 · 发表于 2013-11-23 23:35:46

金鹅起飞发表于 2013-11-23 23:30
我把 (XD:ist:GroupByIndex)按索引对表进行分组这个函数下载后，加载到cad再试，还是不行，出现：
...

(defun XD::List:GroupByIndex (lst fuzz / ll ilst l index tf)
(or
(and
(listp (caar lst))
(setq ll (list (car lst))
lst (cdr lst)
)
(while lst
(if (setq l
(apply 'append
(mapcar
'cdr
(vl-remove-if-not
'(lambda (x) (equal (car x) (caar ll) fuzz))
lst
)
)
)
)
(setq ll (cons (append (car ll) l) (cdr ll))
lst (vl-remove-if
'(lambda (x) (equal (car x) (caar ll) fuzz))
lst
)
)
)
(setq ll (cons (car lst) ll)
lst (cdr lst)
)
)
)
(and (setq index (caar lst))
(or (and (= (type index) 'INT)
(setq tf t
lst (mapcar
'(lambda (x) (cons (float (car x)) (cdr x)))
lst
)
)
)
(= (type index) 'REAL)
(= (type index) 'STR)
)
(setq
lst (vl-sort lst '(lambda (l1 l2) (< (car l1) (car l2))))
)
(mapcar '(lambda (x y / l)
(if (equal (caar ll) x fuzz)
(setq ll (cons (cons x
(if (listp y)
(append y (cdar ll))
(cons y (cdar ll))
)
)
(cdr ll)
)
)
(setq ll (cons (cons x y) ll))
)
)
(mapcar 'car lst)
(mapcar 'cdr lst)
)
(if tf
(setq ll (mapcar '(lambda (x) (cons (fix x) (cdr x))) ll))
)
)
)
(vl-remove nil ll)
)
(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 XD::List:GroupByIndex (lst fuzz / ll ilst l index tf) 
  (or 
    (and 
      (listp (caar lst)) 
      (setq ll        (list (car lst)) 
            lst        (cdr lst) 
      ) 
      (while lst 
        (if (setq l 
                   (apply 'append 
                          (mapcar 
                            'cdr 
                            (vl-remove-if-not 
                              '(lambda (x) (equal (car x) (caar ll) fuzz)) 
                              lst 
                            ) 
                          ) 
                   ) 
            ) 
          (setq        ll  (cons (append (car ll) l) (cdr ll)) 
                lst (vl-remove-if 
                      '(lambda (x) (equal (car x) (caar ll) fuzz)) 
                      lst 
                    ) 
          ) 
        ) 
        (setq ll  (cons (car lst) ll) 
              lst (cdr lst) 
        ) 
      ) 
    ) 
    (and (setq index (caar lst)) 
         (or (and (= (type index) 'INT) 
                  (setq        tf  t 
                        lst (mapcar 
                              '(lambda (x) (cons (float (car x)) (cdr x))) 
                              lst 
                            ) 
                  ) 
             ) 
             (= (type index) 'REAL) 
             (= (type index) 'STR) 
         ) 
         (setq 
           lst (vl-sort lst '(lambda (l1 l2) (< (car l1) (car l2)))) 
         ) 
         (mapcar '(lambda (x y / l) 
                    (if        (equal (caar ll) x fuzz) 
                      (setq ll (cons (cons x 
                                           (if (listp y) 
                                             (append y (cdar ll)) 
                                             (cons y (cdar ll)) 
                                           ) 
                                     ) 
                                     (cdr ll) 
                               ) 
                      ) 
                      (setq ll (cons (cons x y) ll)) 
                    ) 
                  ) 
                 (mapcar 'car lst) 
                 (mapcar 'cdr lst) 
         ) 
         (if tf 
           (setq ll (mapcar '(lambda (x) (cons (fix x) (cdr x))) ll)) 
         ) 
    ) 
  ) 
  (vl-remove nil ll) 
) 
(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-24 09:31:57

st788796 发表于 2013-11-23 23:35

ST788796大师：您好！刚才试用了您的最新程序，还是出不来。但您的演示图片是行的，从演示图片可以看出：可以单选也可以框选，都能实现。我试的时候，出现以下错误：

命令: tt
选择对象: 指定对角点: 找到 2 个
选择对象:
Output Point: ; 错误: 参数类型错误: stringp nil

请问大师：我还差什么函数？谢谢！

st788796 · 发表于 2013-11-24 09:35:26

金鹅起飞发表于 2013-11-24 09:31
ST788796大师：您好！刚才试用了您的最新程序，还是出不来。但您的演示图片是行的，从演示图片可以看出： ...

检查复制的对吗? 文字用 Mtext

金鹅起飞 · 发表于 2013-11-24 10:02:03

本帖最后由金鹅起飞于 2013-11-24 10:16 编辑

st788796 发表于 2013-11-24 09:35
检查复制的对吗? 文字用 Mtext

ST788796大师:终于出来了！谢谢您！但是数字小得不的了，每次都要调整数字的大小，求教：怎样让数字与三维图相匹配？请看下面的图片。

st788796 · 发表于 2013-11-24 10:38:51

(getvar "textsize")
->
(xdrx_getpropertyvalue (ssname tss 0) "textHeight")

金鹅起飞 · 发表于 2013-11-24 10:45:25

st788796 发表于 2013-11-24 10:38
(getvar "textsize")
->
(xdrx_getpropertyvalue (ssname tss 0) "textHeight")

ST788796大师：这个怎么操作？我不懂lsp。请指教。

st788796 · 发表于 2013-11-24 10:55:20

金鹅起飞发表于 2013-11-24 10:45
ST788796大师：这个怎么操作？我不懂lsp。请指教。

用第二句替换前面一句

金鹅起飞 · 发表于 2013-11-24 10:59:05

st788796 发表于 2013-11-24 10:55
用第二句替换前面一句

谢谢！好的，我先试试。

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

st788796 发表于 2013-11-24 10:55
用第二句替换前面一句

st788796大师：谢谢您无私的帮助！您辛苦编写的程序完全可以达到我的要求了！再次感谢！晓东CAD论坛因为有您而精彩！

st788796 · 发表于 2013-11-24 11:35:21

本帖最后由 st788796 于 2013-11-24 11:37 编辑

金鹅起飞发表于 2013-11-24 11:23
st788796大师：谢谢您无私的帮助！您辛苦编写的程序完全可以达到我的要求了！再次感谢！晓东CAD论坛因为 ...

欢迎常来
字还可以这样写
http://bbs.xdcad.net/thread-671791-1-1.html

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

浏览过的版块