线长统计与比对

行雲

一个统计线长的代码，当单个线长的乘积小于比对值时，转为统计个数；当单个线长的乘积大于比对值时，则统计周长。

目前，比对排除(< jinjia xiaokong)) 不能起做用。另外该比对功能想让它应用到   daca    (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))上去，也就是说对功能不仅对圆有效，也对多义线有效

想请高人帮忙改改，谢谢

[pre](defun c:tt ()
  (setq danjia (getreal "单价:<0.03>"))
  (if (= danjia nil)
    (setq danjia 0.03)
  )
  (setq xiaokong (getreal "基价:<8>"))
  (if (= xiaokong nil)
    (setq xiaokong 8.0)
  )
  (setq huodu (getreal "厚度:<25>"))
  (if (= huodu nil)
    (setq huodu 25.0)
  )
  (setq ss (ssget ":L" '((0 . "arc,circle,ellipse,*line"))))
  (if (and
        ss
        (= (type danjia) 'real)
        (= (type huodu) 'real)
        (= (type xiaokong) 'real)
      )
    (progn
      (setq n 0)
      (setq zc 0)
      (setq holeno 0)
      (setq zcprs 0)
      (repeat (sslength ss)
        (setq ent (ssname ss n)
              daca (vlax-curve-getdistatparam ent
                                              (vlax-curve-getendparam ent)
                   )
              jinjia (* danjia (* daca huodu))
              *厚度*单价=比对价
        )
        (if (and
              (= "circle" (cdr (assoc 0 (entget ent))))
              (< jinjia xiaokong)
            )
          (setq jinjia 0
                daca 0
                holeno (+ 1 holeno)
          )
        )
        (setq zc (+ zc daca)
              zcprs (+ zcprs jinjia)
              n (1+ n)
        )
      )
      (setq tprs (+ zcprs (* xiaokong holeno)))
    )
  )
)

newer

楼主，你最好先学会如何贴格式化的代码，你编辑下帖子，看看里面是怎么写的。

另外，单个线长的乘积？  单个线长怎么乘积？

newer

还有，你求曲线长度的代码
(vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))
用下面的替代更好理解些
(vla-get-length (vlax-ename->vla-object ent))

newer

(if (and
              (= "circle" (cdr (assoc 0 (entget ent))))
              (< jinjia xiaokong)
            )
  ....
)
这个地方 (= "circle" (cdr (assoc 0 (entget ent)))) 就是限制只对圆有效了，你把这行变成
(if (< jinjia xiaokong)
  ....
)

试试

行雲

newer 发表于 2016-12-16 23:44

你好，可以帮忙改改么？就是单个图元（如圆 或串接的多义线）与那些变量的乘积，小于比对值时，归类为数量统计。大于的，则线长累加

行雲

newer 发表于 2016-12-16 23:52

重点是想让该比对也应用到多义线上去，只对圆有效，没有意义

newer

行雲 发表于 2016-12-17 00:02

不是已经告诉你了吗，把限制只对圆有效的判断代码去掉。

行雲

newer 发表于 2016-12-17 00:33

你好，是这样吗？
  (setq ss (ssget ":L" '((0 . "arc,circle,ellipse,*line"))))
  (if (and ss (= (type danjia) 'real) (= (type huodu) 'real) (= (type jijia) 'real))
    (progn
      (setq n 0)
      (setq zoca 0)
      (setq geshu 0)
      (setq bijazs 0)
      (repeat (sslength ss)
(setq
   ent  (ssname ss n)
   daca (vla-get-length (vlax-ename->vla-object ent))
   bija (* danjia (* daca huodu))
   )
(if (< bija  xiaokong))
   (setq
     bija 0
     daca 0
     geshu (+ 1 geshu)
     )
   )
(setq
   zoca   (+ zoca daca)
   bijazs (+ bijazs bija)
   n      (1+ n)
   )
)
      (setq tprs (+ bijazs (*  xiaokong geshu)))
      )
    )

cad报   错误: 语法错误，不只哪里闭括号有问题

newer

(if (< bija  xiaokong))  这个地方括号就有问题，
改成
(if (< bija  xiaokong)

行雲

newer 发表于 2016-12-17 01:18

狂谢啊，，大师
还有一个问题，想分别求出这些单个图元的几何中心点怎么求啊？

newer

行雲 发表于 2016-12-17 01:42

就这个LISP分论坛，最近几页，去找，有帖子给了代码求对象的中点， LispHK或者marting的帖子，你找找。

qqqincccken

谢谢版主的热心解答,受益了