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

merak · 发表于 2003-11-1 09:29:00

;;; *****************************
;;; *    求选择集长度之和　 *
;;; *****************************
(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) &quotOLYLINE")
      (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 · 发表于 2003-11-1 09:40:00

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

merak · 发表于 2003-11-1 09:47:00

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

meflying · 发表于 2003-11-1 09:58:00

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

BDYCAD · 发表于 2003-11-1 10:26:00

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 · 发表于 2003-11-1 10:38:00

好！

BDYCAD · 发表于 2003-11-1 10:39:00

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

tukuitk · 发表于 2003-11-1 11:08:00

BDYCAD写得很好，很巧妙！

EPISODE · 发表于 2003-11-8 10:43:00

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

BDYCAD · 发表于 2003-11-8 11:41:00

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

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

发表回复

精选推荐