杆件长度标注及统计

st788796 · 发表于 2014-11-11 20:32:35

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

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

×

(defun c:xdtb_BarLength (/ _mkrotate ss lst p)
(defun _mkrotate (ptl / dim)
(setq dim (xdrx_dimension_makerotate
(car ptl)
(cadr ptl)
(car ptl)
(apply 'angle ptl)
)
)
(xdrx_setpropertyvalue
dim "DIMBLK1" "None" "DIMBLK2" "None" "DIMDEC"
0 "DIMSAH" t "DIMSD1" t "DIMSD2"
t "DIMSE1" t "DIMSE2" t
)
)
(if (setq ss (ssget '((0 . "line,lwpolyline"))))
(progn
(xd::begin)
(setq lst (vl-remove-if
'(lambda (x) (xdrx_polyline_hasbulges x))
(xdrx_pickset->ents ss)
)
lst (mapcar '(lambda (x / pts)
(setq pts (xdrx_entity_getstretchpoint x))
(if (= (length pts) 2)
(list pts)
(if (xdrx_curve_isclosed x)
(xd::list:snakepair (xd::pnts:close pts))
(xd::list:snakepair pts)
)
)
)
lst
)
)
(mapcar '(lambda (x)
(mapcar '(lambda (a)
(_mkrotate a)
)
x
)
)
lst
)
(if (setq p (getpoint "\nPosition: "))
(progn
(setq lst (apply 'append lst)
lst (mapcar '(lambda (x)
(list (fix (+ 0.5 (apply 'distance x))) x)
)
lst
)
lst (xd::list:groupbyindex lst 0)
lst (mapcar '(lambda (x)
(list (car x) (length (cdr x)))
)
lst
)
lst (append
(mapcar '(lambda (x) (mapcar 'itoa x)) lst)
(list
(list " " (itoa (apply '+ (mapcar 'cadr lst))))
(list
"线总长"
(itoa (apply
'+
(mapcar '(lambda (x) (apply '* x)) lst)
)
)
)
)
)
lst (cons '("长度" "数量") lst)
)
(xd::table:make lst p 8.0 4.0)
)
)
(xd::end)
)
)
(princ)
)

(defun c:xdtb_BarLength        (/ _mkrotate ss lst p) 
  (defun _mkrotate (ptl / dim) 
    (setq dim (xdrx_dimension_makerotate 
                (car ptl) 
                (cadr ptl) 
                (car ptl) 
                (apply 'angle ptl) 
              ) 
    ) 
    (xdrx_setpropertyvalue 
      dim        "DIMBLK1" "None"    "DIMBLK2" "None"        "DIMDEC" 
      0                "DIMSAH"  t            "DIMSD1"  t                "DIMSD2" 
      t                "DIMSE1"  t            "DIMSE2"  t 
     ) 
  ) 
  (if (setq ss (ssget '((0 . "line,lwpolyline")))) 
    (progn 
      (xd::begin) 
      (setq lst        (vl-remove-if 
                  '(lambda (x) (xdrx_polyline_hasbulges x)) 
                  (xdrx_pickset->ents ss) 
                ) 
            lst        (mapcar        '(lambda (x / pts) 
                           (setq pts (xdrx_entity_getstretchpoint x)) 
                           (if (= (length pts) 2) 
                             (list pts) 
                             (if (xdrx_curve_isclosed x) 
                               (xd::list:snakepair (xd::pnts:close pts)) 
                               (xd::list:snakepair pts) 
                             ) 
                           ) 
                         ) 
                        lst 
                ) 
      ) 
      (mapcar '(lambda (x) 
                 (mapcar '(lambda (a) 
                            (_mkrotate a) 
                          ) 
                         x 
                 ) 
               ) 
              lst 
      ) 
      (if (setq p (getpoint "\nPosition: ")) 
        (progn 
          (setq        lst (apply 'append lst) 
                lst (mapcar '(lambda (x) 
                               (list (fix (+ 0.5 (apply 'distance x))) x) 
                             ) 
                            lst 
                    ) 
                lst (xd::list:groupbyindex lst 0) 
                lst (mapcar '(lambda (x) 
                               (list (car x) (length (cdr x))) 
                             ) 
                            lst 
                    ) 
                lst (append 
                      (mapcar '(lambda (x) (mapcar 'itoa x)) lst) 
                      (list 
                        (list " " (itoa (apply '+ (mapcar 'cadr lst)))) 
                        (list 
                          "线总长" 
                          (itoa        (apply 
                                  '+ 
                                  (mapcar '(lambda (x) (apply '* x)) lst) 
                                ) 
                          ) 
                        ) 
                      ) 
                    ) 
                lst (cons '("长度" "数量") lst) 
          ) 
          (xd::table:make lst p 8.0 4.0) 
        ) 
      ) 
      (xd::end) 
    ) 
  ) 
  (princ) 
)

hzj268 · 发表于 2014-11-12 08:09:23

本帖最后由 hzj268 于 2014-11-12 08:41 编辑

谢了老大,还是你好~:)我用记事本保存了一个lsp文件,能标注只是表格出不来
提示 Position: ; 错误: *error* 函数中出错参数太多

iLisp · 发表于 2014-11-12 13:03:03

hzj268 发表于 2014-11-12 08:09
谢了老大,还是你好~我用记事本保存了一个lsp文件,能标注只是表格出不来
提示 Position: ; 错误: *err ...

是函数库原因吧

hzj268 · 发表于 2014-11-12 13:39:09

本帖最后由 hzj268 于 2014-11-12 13:42 编辑

iLisp 发表于 2014-11-12 13:03
是函数库原因吧

我下的最新的了
11-9和11-8
你说会不会和cad版本有关

st788796 · 发表于 2014-11-12 13:53:52

hzj268 发表于 2014-11-12 13:39
我下的最新的了
11-9和11-8
你说会不会和cad版本有关

你用的什么版本ACAD

hzj268 · 发表于 2014-11-12 13:54:07

本帖最后由 hzj268 于 2014-11-12 13:55 编辑

http://bbs.xdcad.net/forum.php?m ... 4ODc5OXw2NjkxMzM%3D
替换它后问题解决

930110543 · 发表于 2014-11-23 14:31:01

为什么加载成功了用xdtb_barLength调用不了命令？？

就念鱼儿 · 发表于 2014-12-22 21:46:35

:lol:lol:lol:lol:lol:lol:lol:lol

伊诺克 · 发表于 2015-1-8 19:01:32

图上是43，表格中是42，这是什么原因？

curtian · 发表于 2015-4-16 22:38:00

感谢分享

7079977a · 发表于 2019-1-30 16:53:06

好东西，真的不错

jiang__jin · 发表于 2020-12-12 10:12:24

xd::table:make 参数太少是什么原因

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

[曲线] 杆件长度标注及统计

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

点评

点评