自己编的求长度的程序，不过有问题，帮忙看看哦！！！

merak

;;;    *****************************
;;;    *     求选择集长度之和　    *
;;;    *****************************
(defun C:test( / dst ss )
  (setvar "cmdecho" 0)
  (princ "请选择：直线、弧、园或多义线等实体\n" )

  (setq ss (ssget) )
  (setq dst (get_ents_len ss ) )
  (princ
        (strcat        "\n 所选实体的长度之和为：" (rtos dst 2 8 ) "  " )
  )
  (princ)
)

(defun get_ents_len ( ss / attr elength dst cnt rdst )
; 求选择集里的实体长度之和。
; 选择集只能由直线、弧、园和多义线组成
  (setq        dst 0 cnt 0 rdst 0  )
  (defun attr (ent indx) (cdr (assoc indx ent)))
  (defun elength (ent / sa ea)
    (cond
      (  (= (attr ent 0) "LINE")
         (distance (attr ent 10) (attr ent 11))
      )
      (  (= (attr ent 0) "ARC")
         (setq sa (attr ent 50) ea (attr ent 51) )
         (* (if (> ea sa) (- ea sa) (+ (- ea sa) (* 2 pi)) )
            (attr ent 40)
         )
      )
      (  (= (attr ent 0) "CIRCLE")
         (* 2 pi (attr ent 40))
      )
      (  (= (attr ent 0) "OLYLINE")
         (command "area" "e" (attr ent -1 ) )
         (getvar "perimeter")
      )
      (  (= (attr ent 0) "LWPOLYLINE")
         (command "area" "e" (attr ent -1 ) )
         (getvar "perimeter")
      )
      (  (= (attr ent 0) "SPLINE")
         (command "area" "e" (attr ent -1 ) )
         (getvar "perimeter")
      )
    )
  )
  (repeat (sslength ss)
          (setq dst (+ dst (elength (entget (ssname ss cnt))))
                cnt (+ cnt  1 )
          )
  )
  
  (setq rdst dst )
)

此程序的问题是：
　　当选择中有用“PLINE”画的线型里，在命令行会出现"面积计算中忽略多段线的宽度。"
     各位高手帮帮忙哦，急用＞＞＞

BDYCAD

好象不用這樣長的吧. 我試試看看.

merak

昨天刚刚写玩的，还没整理过的，还望楼上的这位大哥多多帮忙、仔细看看哦

meflying

TO BDY,用纯AUTOLISP这样已经很难再精简了吧。。
to merak，你的程序基本上没有问题，主要是判断字符串时是分大小写的，从DXF组码中取出的对象类型字符串一般都是大写的，所以你将那些ARC、SPLINE、等等都改成大写即可，或用STRCASE改变一下大小写问题

BDYCAD

to 樓主. 我的這個怎麼樣?
to meflying. 我寫出來是這樣的. 呵呵.


這樣做很快就能把你所選到的圖元的長度總和加起來了. 請MEFLYING兄多多指教才好.

;;;  program make china
;;  by  BDYCAD
;; DATA:  2003-11-01
(DEFUN C:TEST (/ SS SS_L N LENN LEN)
  (setq ss (ssget))
  (setq ss_l (sslength ss))
  (setq n 0)
  (setq lenn 0)
  (repeat ss_l
    (command "lengthen" (ssname ss n) "")
    (setq len (getvar "perimeter"))
    (setq lenn (+ len lenn))
    (setq n (1+ n)))
  (princ "\n你所選到的圖元的總長是")
  (princ lenn)
  (Princ "(mm)....")
  (princ))
(PRIC "\n輸入test執行求選集的總長.....")

meflying

好！

BDYCAD

呵呵. 學你的. 多多動腦筋.

tukuitk

BDYCAD写得很好，很巧妙！

EPISODE

想要求多段线的长度，看了该贴，感受是：没白看！
因为查了AUTOCAD 2004的帮助，发现帮不了什么忙！
关于LENGTHEN，帮助说：“修改对象的长度和圆弧的包含角”
关于PERIMETER，帮助说："存储由 AREA、 DBLIST 或 LIST 命令计算的最后一个周长值。"其中没提到LENGTHEN！
所以谢谢BDYCAD。顺便问一句，BDYCAD，你怎么不用简体汉字？你是哪一国的？嘻嘻！

BDYCAD

TO EPISOED:
   我的操做系統是繁體的. 所以.....
   你用程序轉成簡體就好了. 呵呵.