[分享]：【实用程序汇总】test000系列！

sixthsixth · 发表于 2013-9-30 23:46:07

强，支持xyp

zhong2013 · 发表于 2013-10-24 11:54:24

xyp1964 发表于 2005-1-12 14:00
所有内容整合到test000.lsp中。
带★的可能用途较大或思路较新！
程序命令及功能：

来占个位置，看还要币不..

illcyt · 发表于 2013-10-27 13:03:58

支持学院派

wangx1030 · 发表于 2013-11-1 12:50:26

这种无私奉献和为大家服务的精神真是太值得表扬和学习。

xyp1964 · 发表于 2013-11-3 08:04:51

lt77887788 · 发表于 2013-11-3 18:27:43

感谢分享，期望自己早日升级

xyp1964 · 发表于 2013-11-8 10:23:51

;; 分层统计线长
(defun c:test1406 ()
(princ "\n选择曲线: ")
(if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
(setq lst (xyp-Sort-SsDxf ss 8)
lst (mapcar '(lambda (x)
(list (car x) (apply '+ (mapcar 'xyp-CurveLength (cadr x))))
)
lst
)
)
)
(princ)
)
;; 相同半径圆统一变色
(defun c:test1407 ()
(princ "\n选择圆: ")
(if (setq ss (ssget '((0 . "CIRCLE"))))
(progn
(setq lst (xyp-Sort-SsDxf ss 40)
i 1
)
(foreach a lst
(xyp-SubUpd (cadr a) 62 (rem i 256))
(setq i (1+ i))
)
)
)
(princ)
)
;; 按图块名称统计数量
(defun c:test1408 ()
(princ "\n图块: ")
(if (setq ss (ssget '((0 . "insert"))))
(print (xyp-SsDxfLength ss 2))
)
(princ)
)

;; 分层统计线长 
(defun c:test1406 () 
  (princ "\n选择曲线: ") 
  (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))) 
    (setq lst (xyp-Sort-SsDxf ss 8) 
          lst (mapcar '(lambda (x) 
                         (list (car x) (apply '+ (mapcar 'xyp-CurveLength (cadr x)))) 
                       ) 
                      lst 
              ) 
    ) 
  ) 
  (princ) 
) 
 
;; 相同半径圆统一变色 
(defun c:test1407 () 
  (princ "\n选择圆: ") 
  (if (setq ss (ssget '((0 . "CIRCLE")))) 
    (progn 
      (setq lst        (xyp-Sort-SsDxf ss 40) 
            i        1 
      ) 
      (foreach a lst 
        (xyp-SubUpd (cadr a) 62 (rem i 256)) 
        (setq i (1+ i)) 
      ) 
    ) 
  ) 
  (princ) 
) 
 
;; 按图块名称统计数量 
(defun c:test1408 () 
  (princ "\n图块: ") 
  (if (setq ss (ssget '((0 . "insert")))) 
    (print (xyp-SsDxfLength ss 2)) 
  ) 
  (princ) 
)

sixthsixth · 发表于 2013-11-14 11:05:24

看不到附件，难道级别太低{:soso_e112:}

sixthsixth · 发表于 2013-11-14 11:15:37

wangx1030 发表于 2013-11-1 12:50
这种无私奉献和为大家服务的精神真是太值得表扬和学习。

能下载附件吗？我怎么看不到呢，谢谢

asw163 · 发表于 2013-11-22 07:54:53

您这程序看不到啊

qq363904075 · 发表于 2013-11-27 13:08:26

为什么不能下载，，，，，，，，，，，

zero18 · 发表于 2013-11-27 13:49:14

太好了，下了，谢谢

迎着朝阳 · 发表于 2013-11-28 17:28:07

感谢分享，期望自己早日升级

fuckyouson · 发表于 2013-12-7 15:32:31

不错的软件，火力全开，试试。

mxh861101 · 发表于 2013-12-11 11:01:10

在哪下载的呀？看不到呀？

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

[程序发布] [分享]：【实用程序汇总】test000系列！

点评

点评