五边形lisp程序_AutoCAD LISP绘制圆内接五边形

AutoCAD LISP绘制圆内接五边形，代码如下。

(defun c:test()

(setvar "cmdecho" 0)

(setq en (entsel "Select CIRCLE:"))

(setq en_data (entget (car en)))

(setq cenpt (cdr (assoc 10 en_data)))

(setq rr (cdr (assoc 40 en_data)))

(command "polygon" 5 cenpt "i" rr)

(prin1)

)

(prompt "********<>**********")

(prin1)

代码完。

修改一下，绘制任意内接多边形，代码如下。

(defun c:test()

(setvar "cmdecho" 0)

(setq en (entsel "Select CIRCLE:"))

(setq bian (getint "输入边数："))

(setq en_data (entget (car en)))

(setq cenpt (cdr (assoc 10 en_data)))

(setq rr (cdr (assoc 40 en_data)))

(command "polygon" bian cenpt "i" rr)

(prin1)

)

(prompt "********<>**********")

(prin1)

代码完。

五边形lisp程序_AutoCAD LISP绘制圆内接五边形相关推荐

cad渐开线画法lisp程序_CAD插件——绘制圆的渐开线
机械行业在使用CAD的时候,常常会需要绘制圆的渐开线.在网上找到一个画渐开线的LISP程序,不知道有没有人需要. 什么是圆的渐开线? 把一条没有弹性的细绳绕在一个定圆上,拉开绳子的一端并拉直,使绳子与 ...
五边形lisp程序_CAD LISP 程序
CAD LISP 程序 1. 计算所有线段总长度 ( 加载后只需框选所有线段便可得出这些线段的总长度 ) (defun c:LL () (setvar "cmdecho" 1) ( ...
给Lisp程序员的Python简介
给Lisp程序员的Python简介作者:Peter Norvig,译者:jineslong<zzljlu@gmail.com> 这是一篇为Lisp程序员写的Python简介(一些Pyth ...
python lisp_给Lisp程序员的Python简介
作者:Peter Norvig,译者:jineslong 这是一篇为Lisp程序员写的Python简介(一些Python程序员告诉我,这篇文章对他们学习Lisp也有帮助,尽管这不是我的本意).基本上, ...
lisp调用qleader端点_超经典【CAD】 lisp程序集锦、【CAD】快捷键大全（好）.doc
超经典CAD lisp程序集锦如果您使用 AutoCAD,下面的内容对您一定有帮助.在某些方面能大大提高您的工作效率.下面的程序均以源程序方式给出,您可以使用.参考.修改它. bg.lsp 表格自 ...
cad lisp程序大集,超经典CAD lisp程序集锦、CAD快捷键大全
1.超经典CAD lisp程序集锦.CAD快捷键大全l pb.lsp - 通过给出长度将字符串分成两个串 cht.lsp - 直接修改文字内容或块属性 ct.lsp - 对数字串进行加减 chh.ls ...
lisp和python_给Lisp程序员的Python简介
作者:Peter Norvig,译者:jineslong 这是一篇为Lisp程序员写的Python简介(一些Python程序员告诉我,这篇文章对他们学习Lisp也有帮助,尽管这不是我的本意).基本上, ...
lisp代码编写地物符号_工程图中标注序号的LISP程序
工程图中标注序号的LISP程序 (2007-04-03 17:11:45) 在工程设计工作中,经常要对设备.零件等标注序号.根据标准化要求,在标注点处要加上实心小圆点,然后引出直线 ;在另一端画出一个 ...
cad lisp程序大集_超经典CAD_lisp程序集锦、CAD快捷键大全
超经典CAD lisp程序集锦如果您使用 AutoCAD,下面的内容对您一定有帮助.在某些方面能大大提高您的工作效率.下面的程序均以源程序方式给出,您可以使用.参考.修改它. bg.lsp --- ...

五边形lisp程序_AutoCAD LISP绘制圆内接五边形

五边形lisp程序_AutoCAD LISP绘制圆内接五边形相关推荐

最新文章

热门文章