土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 浓缩精典vlisp/vba函数

浓缩精典vlisp/vba函数

发布于:2007-04-03 10:32:03 来自:建筑设计/CAD下载及教程 [复制转发]
希望大家在此贴上自已写的精典vlisp/vba函数,要求是程序短小精练,不超过二十行,但是功能实用

我先来

;;;获取样条曲线,多段线各顶点坐标,返回顶点坐标组成的表
;;;师兄 2007/4/3 QQ361865648
(vl-load-com)
(defun c:getallpt(/ en enlst x)
(setq en(car(entsel)));_获得对象,提示时请选择符合条件的对象
(setq enlst(entget en));_取对象数据表
(vl-remove-if ’(lambda (x) (/= (car x) 10)) ;_稍加修改可改变程序功能
;;;在此可作进一步处理,获得更强之功能
enlst)
)

全部回复(11 )

只看楼主 我来说两句
  • shixiong2
    shixiong2 沙发




    我的目的是促进大家的热情参与,并不是为了表现自已
    2007-04-07 09:42:07

    回复 举报
    赞同0
  • shixiong2
    shixiong2 板凳
    希望在此贴的代码不要太长,否则就不叫浓缩了
    2007-04-04 07:35:04

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.09 万条内容 · 668 人订阅

猜你喜欢

阅读下一篇

兄弟们谁有 CAD的好例子 谢谢

3D和CAD的好例子

回帖成功

经验值 +10