如何用AutoLisp编写自动标注里程桩程序

用 command 命令即可 下面是我随手输入的 你自己调试一下

(defun c:cla()

(setvar "cmdecho" 0)

(setq SS (+ 1 2))

(command "text" (getpoint "point:") "" "" ss )

(princ)

)

(defun C:wjx()

(setq p0 (getpoint "\n选择中心点"))

(setq p1 (polar p0 (/ ( 18 pi) 180) 323606798 ))

(setq p2 (polar p0 (/ ( 90 pi) 180) 323606798 ))

(setq p3 (polar p0 (/ ( 162 pi) 180) 323606798 ))

(setq p4 (polar p0 (/ ( 234 pi) 180) 323606798 ))

(setq p5 (polar p0 (/ ( 306 pi) 180) 323606798 ))

(command "line" p1 p3 p5 p2 p4 "c" "")

(command "circle" p0 100))

可以使用AutoLISP，AutoLISP是由Autodesk公司开发的一种LISP程序语言，LISP是List

Processor的缩写。通过autolisp编程，可以节省工程师很多时间。AutoLISP语言作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发应用AutoCAD不可缺少的工具。

AutoCAD软件包中包含大多数用于产生图形的命令，但仍有某些命令未被提供。例如，AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令。通过AutoLISP，可以使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。事实上，可以用AutoLISP编制任何程序，或把它嵌入到菜单中，这样定制系统会取得更高的效率。

以上就是关于如何用AutoLisp编写自动标注里程桩程序全部的内容，包括:如何用AutoLisp编写自动标注里程桩程序、用Autolisp编写程序，作一外切圆半径为100的五角星。、如何编程cad程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！