lisp pl线线段数_样条曲线转多段线lisp

;;;

下载此文档后，将所有文字复制到文本文档保存，再将文本文档的后缀

txt

更改为

lsp

，启动

CAD

后加载此文件即可使用

(princ "

加载程序成功，输入

s2p

命令可应用此工具

\n")

;;;***

样条曲线转多段线

程序开始

***

(defun spline-to-pline (/ i)

(vl-load-com)

(setq *thisdrawing* (vla-get-activedocument

(vlax-get-acad-object)

) ;_ end of vla-get-activedocument

*modelspace* (vla-get-ModelSpace *thisdrawing*)

) ;_ end of setq

(setq spline-list (get-spline))

(setq i (- 1))

(if spline-list

(progn

(setq msg "\nNumber of segments <100>: ")

(initget 6)

(setq num (getint msg))

(if (or (= num 100) (= num nil))

(setq num 100)

) ;_ end of if

(repeat (length spline-list)

(setq splobj (nth (setq i (1+ i)) spline-list))

(convert-spline splobj num)

) ;_ end of repeat

) ;_ end of progn

) ;_ end of if

) ;_ end of spline-to-pline

lisp pl线线段数_样条曲线转多段线lisp相关推荐

lisp pl线线段数_编写lisp程序多条多段线连接成一条多段线
展开全部命令HB合并多段线(defun c:hb (/ @myL @lpNum @etLst @@62616964757a686964616fe4b893e5b19e31333363383339en ...
lisp pl线线段数_vlisp每日源码（标注多段线线长）
在多段线每段线中心标注本段线长在多段线每段线中心标注本段线长利用lisp对表求值的函数mapcar 快速标注线长.并利用rem保证生成文字角度在[-45,135)之间. (defun c:tt ( ...
lisp代码编写地物符号_工程图中标注序号的LISP程序
工程图中标注序号的LISP程序 (2007-04-03 17:11:45) 在工程设计工作中,经常要对设备.零件等标注序号.根据标准化要求,在标注点处要加上实心小圆点,然后引出直线 ;在另一端画出一个 ...
lisp改图元字体式样_一个更改尺寸类型的LISP程序
1 / 4 一个更改尺寸类型的 LISP 程序 AutoCAD 制图中经常用到标注尺寸,如果在标注尺寸前,预先对不同的标注尺寸样式进行命名,那么要修改尺寸标注的尺寸线状态.箭头规格.尺寸界线形状. ...
matlab分段函数的表达_使用matlab表示“段数不确定”的分段函数
示例函数: 分段函数f(x)的段数为数组a的长度减1,在表达f(x)时,不能直接使用a的长度5-1=4. 方法1: 先计算每个间隔点的函数值f(a2),f(a3),f(a4),再循环表示f(x). f ...
lisp调用qleader端点_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
lisp 阿基米德螺旋_用CAD如何画阿基米德螺线
1.可以先用"电子表格"按阿基米德螺线公式计算出一列成对的X.Y的值.并做成"X,Y"的形式,然后复制这一列值,在CAD里画样条时粘贴上去就成了,"电 ...
jqprint获取打印页数_高年级应用题40道，假期快给孩子打印练习吧！（含答案）...
1.王爷爷家养的4头奶牛每个星期产奶896千克,平均1头奶牛每天产多少奶呢? 2.4辆汽车3次运水泥960袋,平均每辆汽车每次运水泥多少袋? 3.水波小学每间教室有3个窗户,每个窗户安装12块玻璃,9 ...
lisp 阿基米德螺旋_用CAD如何画阿基米德螺旋线
直接画是很难的.你可以先用"电子表格"按阿基米德螺线公式计算出一列成对的X.Y的值.并做成"X,Y"的形式,然后复制这一列值,在CAD里画样条时粘贴上去就成了, ...
物理内存是什么是计算机的显卡内存吗,物理内存可用数_可用内存和物理内存是什么意思？_可用物理内存...
网友求助:物理内存可用数_可用内存和物理内存是什么意思?_可用物理内存问题最佳答案物理内存:电脑主板上插入的内存条的总容量(在系统支持的范围内).可用内存:电脑运行时,未被使用的内存总量. 追问 ...

lisp pl线线段数_样条曲线转多段线lisp

lisp pl线线段数_样条曲线转多段线lisp相关推荐

最新文章

热门文章