Autolisp编程求助 autolisp详细讲解

(defun c:tiqu(/ a b c)(setq c(getstring"输入点号:"))(setq a(getpoint"\n选取点:"))(terpri)(terpri)(setq b(open "C:\\Documents and Settings\\Administrator\\.

书写要完整才可以修改一下:(defun c:m1( / %k1 %k2 %k3 %k4);要使代码不影响其它的程序,这个上面要写代码这个格式 (setvar "cmdecho" 0) (setvar ".

很简单的一个系统变量就能获得,参见下面代码: (setq pt (getvar ＂viewctr＂)) 如果你还想获得屏幕的四个角点的坐标,可以利用系统变量viewsize screensize配合上面得到的屏幕中心坐标获得. 下面在给你个代码,可以获得当前拾取框的高度,在你选取实体的时候这个代码很有用: ;| 求拾取框的高度 |; (defun $XDLSP_Drawing_getPickboxHeight () (* (/ (getvar ＂pickbox＂) (cadr (getvar ＂screensize＂))) (getvar ＂viewsize＂)) ) 上面代码摘自晓东工具箱里面的系统代码库里面的代码.

;;;计算某直线外一点到直线的最短距离,即为垂线,不判断垂足点是否在直线上;;;设定命令为mm(defun c:mm()(setvar "cmdecho" 0)(setq pt1 (getpoint "第1点.

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

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

(startapp ＂d://program files//ggg//ggg.exe＂)格式是这样,用完整路径,用“/”保存lsp,工具,加载应用程序,启动组里边.

1. 编写程序,尽量不要使用command函数2. 绘制直线可以这样编写:3. (defun c:tes ( / p1 p2) (if (setq p1 (getpoint ＂\n请选择绘制直线第一点＂)) (progn (while (setq p2 (getpoint p1 ＂\n请选择直线第二点＂)) (entmake (list '(0 . ＂LINE＂) (cons 10 p1) (cons 11 p2))) (setq p1 p2) ) ) ) (princ))

你好,请您试一试下面的程序:;小程序,实现个小功能——比如cad上面有三行文字:;第一行为:小红年龄:18;第二行为:小明年龄:9;第三行为:小李年龄:5;.

(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 (/ (*.