autolisp编程实例 autolisp详细讲解

工具,自定义,程序参数autocad.pgp文件打开后,把*L *LINE,把前面的L改为XX就行了,很简单.

AutoLISP语言是AutoCAD的内置的编程语言. 它可以用来创建新的命令或重新定义现有的.AutoLISP语言是一个非常强大的定制工具.本文旨在说明如何加载AutoLISP语.

编写一个autolisp程序,画出一个带中心线的圆.该程序应提示用户输入圆的(defun c:yx(/ p0 p1 p2 p3 p4 r jiao cmd os ) (setq r (

建筑图纸里面符号代表的东西太多了,你可以去看看书什么的.@表示钢筋间距Φ表. 3P 在二维和三维空间中将某对象与其他对象对齐 AL 加载 AutoLISP、ADS 和 ARX 应.

(defun c:drawing() (setvar "cmdecho" 0) (setq ptcenter (getpoint "\n请输入圆心位置:")) (setq dist(getdist "\n请输入基圆半径:")) (command "_circle" .

(defun C:wjx() (setq p0 (getpoint ＂\n选择中心点＂)) (setq p1 (polar p0 (/ (* 18 pi) 180) 323.606798 )) (setq p2 (polar p0 (/ (* 90 pi) 180) 323.606798 )) (setq p3 (polar p0 (/ (*.

源程序如下:(defun c:box (/ p p1 p2 a) (setq p (getpoint ＂Left & Bottom point: ＂) a (getdist p ＂A=＂) ) (command ＂PLINE＂ p (setq p1 (polar p 0 a)) (setq p2 (polar p1 (/ pi 2) a)) (polar p2 (- pi) a) ＂C＂))

(defun c:pidailun()(setq o1 (getpoint ＂please input o1:＂))(setq a1 (getreal ＂\n please input angle:＂))(setq r1 (getreal ＂\n please input r1:＂))(setq r2 (getreal ＂\n please .

(* 120 pi) 180)) LL)) :xxx() (setvar ＂cmdecho＂ 0) (setq pt1 (getpoint ＂ \n 第一点:＂)) (setq pt2 (getpoint pt1 ＂ \n 第二点:＂)) (setq LL (distance pt1 pt2)) ;计算两点间距离 (setq ang (angle pt1 pt2)) ;计算两点间角度 (setq pt3 (polar pt2 (+ ang (/计算三角形第三点坐标 (command ＂polygon＂ 3 ＂e＂ pt1 pt2) (defun c

用 command 命令即可 下面是我随手输入的 你自己调试一下(defun c:cla()(setvar ＂cmdecho＂ 0)(setq SS (+ 1 2))(command ＂text＂ (getpoint ＂point:＂) ＂＂ ＂＂ ss )(princ))