(defun C:luowen(/)
(setq b1 (getpoint”请指定螺旋线基点: “))
(setq r (getreal”请输入螺旋线平均半径: “))
(setq disp (getreal”请输入螺旋线节距: “))
(setq n (getint”请输入每圈细化段数: “))
(setq delta (/ (* 2.0 pi)n))
(setq j (/ disp n))
(setq bb (caddr b1))
(setq ang 0)
(setq jj 0)
(Command “UCS”"o” b1)
(Command “3dploy”(list r 0 0))
(repeat n
(setq jj(+ jj 1))
(setq ang (+ delta ang))
(setq pt2 (list(* r(cos ang)) (* r(sin ang)) (+ 0(* j jj))))
(Command pt2)
)
(Command”")
)
那位高手帮忙看看，怎么运行不了，提示好像是函数没有定义，多谢！！！
2010年09月4日请教如何建立一个全是数据的选择集？
2010年09月3日我是想通过框选 对全部数据进行编辑
刚学 希望高手能指点下
先谢！
图块中的文字能重新编辑吗？
2010年09月3日平常用图块较多，块中的文字有时输入一两个错别字，不知插入块后能否直接修改（不想分解块块的情况下），希众位高手能多多指导，谢谢。。
请教！！编辑属性
2010年09月3日最近遇到个数据，里面注记形式使用的是：块+属性的形式。且可在界面看到。
那位知道这是如何实显的。企盼大虾指点！！！！
在R14下如何用LISP删除指定文件
2010年09月3日内容如题，我要在R14下解决这个问题。请各位高手指点出招！
先谢谢！
两天了，没人回帖?
lisp基础入门练习含工具
2010年09月3日1
线段的平均长度
2010年09月3日我是菜鸟，请大家帮忙。我想在cad中得到几条不想连接的线段的总长度及平均长度，用lisp怎样编程序呢？
一个导出图形的线，文本，图块，图层，文字样式的程序问题
2010年09月3日不大会写这种b类型的lisp
胡弄了一个小时，才算搞定
程序如下
用的时候，dwgs.txt里面应该是类似k:seen2.dwg的字样
版主说的问题主要出现在information这一段，其他的块，层，文字式样都
是没有问题的。
原问题的出错的地方在于其information段与layerprint等段不一样
它采用了(setq linesel (ssget “X” ‘((0 . “LINE”))))这种语句
而其他的子程序采用的是 (setq layersel (la-get-layers doc))
(lax-for layerObj layersel）
这样子的L语句，因此information段出现了在当前图形内进行找线
找文字的做法。
现在我主要是修改成为(setq mSpace (la-get-ModelSpace doc))
(LAX-FOR entry mSpace）
的L写法，这样子就不会导致文件空间的混乱
试了一下，大概是没有问题的。
不知道在楼主那里如何
请那位大哥帮忙看看这个程序,以前发的都没成功!!!
2010年09月3日此程序功能：选择一直线后，出现以对话框，默认值为管，当选择板、环、锥或型钢后出现一新的对话框，但是现在当选择板、环、锥或型钢后，不出现对话框，而是提示错误，不知怎么回事，请那位大哥帮忙看看，谢谢了
有点着急！
请问，怎么能在CAD中求出两条空间直线间的距离呢？
2010年09月3日已知两条空间直线上四点的坐标（A、B点和另一条上的C、D点），请问，在CAD中怎么求出直线AB、CD间的距离呢？编程或作图的方法都可以，先谢谢各位高手了。
