CAD中自动计算周长的小程序

2010wu · 发表于 2010-4-4 22:44:30

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

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

×

CAD中自动计算周长的小程序只需要把以下程复到记事本中，把后缀名改为LSP加载即可用
(defun C:ZCD (/ CURVE TLEN SS N SUMLEN)
  (vl-load-com)
  (setq SUMLEN 0)
  (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq N 0)
  (repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
   )
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
  )

(princ (alert (strcat "\n总长度L=" (rtos SUMLEN 2 0)"mm<毫米>")))
;参考样式(command "mtext" "0,0" "j" "TL" "h" "0.5" "w" "5" all "")
(command "-style" "Standard" "宋体" "" "0.88" "" "" "")
   (SETQ PT (GETPOINT "-----/请输入插入点:"))
   (COMMAND "mtext" PT "S" "Standard" "h" (* 3.0 (GETVAR "DIMSCALE")) "w" "" (strcat "切割长度L=" (rtos (/ SUMLEN 1000) 2 3) "m<米>") "")
(princ)
)
;;;总长度2:
(defun C:TLEN (/ pt ss tl n ent itm obj l)
  (setq ss (ssget)
      tl 0
      n (1- (sslength ss)))
  (while (>= n 0)
(setq ent (entget (setq itm (ssname ss n)))
      obj (cdr (assoc 0 ent))
      l (cond
            ((= obj "LINE")
            (distance (cdr (assoc 10 ent))(cdr (assoc 11 ent))))
            ((= obj "ARC")
            (* (cdr (assoc 40 ent))
               (if (minusp (setq l (- (cdr (assoc 51 ent))
                                       (cdr (assoc 50 ent)))))
                  (+ pi pi l) l)))
            ((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE")
               (= obj "LWPOLYLINE")(= obj "ELLIPSE"))
            (command "_.area" "_o" itm)
            (getvar "perimeter"))
            (T 0))
      tl (+ tl l)
      n (1- n)))
  (alert (strcat "<不能是块和面域,注意先用es清除重复线>所选线的总长是：=" (rtos tl 2 0)"mm<毫米>"))
;参考样式(command "mtext" "0,0" "j" "TL" "h" "0.5" "w" "5" all "")
(command "-style" "Standard" "宋体" "" "0.8" "" "" "")
   (SETQ PT (GETPOINT "-----/请输入插入点:"))
   (COMMAND "mtext" PT "S" "Standard" "h" (* 3.0 (GETVAR "DIMSCALE")) "w" "" (strcat "切割长度=" (rtos (/ tl 1000) 2 3) "m<米>")  "")
  (princ)
)

zhangrg61 · 发表于 2010-4-5 09:31:10

谢谢楼主！！！！！

xiao758hao · 发表于 2010-4-6 14:34:30

好复杂，我这直接用pe把线连在一起用li不就有总长了吗

lushicheng · 发表于 2010-4-6 14:58:10

太复杂了！不过还要谢谢！

fzxabcabc · 发表于 2010-4-7 18:15:07

很好的东东，谢谢了

zhanyiyou · 发表于 2010-4-7 18:41:49

什么东西？不明白

yangfanfan · 发表于 2010-6-24 17:48:55

真的有点复杂啊

du_zi313 · 发表于 2011-1-19 16:59:34

不会使加载后不知道怎么使用

lhy0808 · 发表于 2011-2-1 08:28:56

楼主搞个截图看看

qdxhlgz · 发表于 2011-2-17 08:08:54

太复杂了，不明白

账号		自动登录	找回密码
密码			注册会员

[软件] CAD中自动计算周长的小程序

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。