用autolisp编写绘制的命令

要求
通过输入正方形的左下角点和边长（用getpoint函数或的左下角点，用getdist函数获得边长）来绘制。
利用command函数调用PLINE命令绘制
漏了几个字！绘制正方形！！！！！

举报该问题

第1个回答 2015-06-19

源程序如下：
(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")
)本回答被提问者和网友采纳

相似回答

AutoLisp 程序求助,编写一个AutoLisp程序用来画图答：(defun c:tes ( / i n p1 p2 r r1 r2 r3 r4 ss1 ss2) (vl-load-com) (if (and (setq p1 (getpoint "\n请选择同心圆圆心")) (setq r1 (s180828a p1 "\n请输入第一个同心圆半径:")) (setq r2 (s180828a p1 "\n请输入第二个同心圆半径:")) (setq r3 (s180828a...

编写一个AutoLISP程序,画出一条直线,并生成给定数目(N条)的与其平行的...答：(defun c:hx ( / int1 y0)(setq int1 (getint "\n输入指定绘制数目:"))(if (= int1 nil) (setq int1 1))(setq y0 0)(repeat int1 (command ".line" (list 0 y0) (list 30 y0) "");绘制长度为30的直线 (princ "\nOK")(setq y0 (+ y0 10)));end repeat int1 (princ...

如何用autolisp编辑命令进行图案填充答：(defun c:sd()(setq oldcm (getvar "cmdecho")oldos (getvar "osmode"))(setvar "cmdecho" 0)(setvar "osmode" 33)(command "_undo" "be")(if (setq p1 (getpoint "\n指定第一点p1:"))(if (setq p2 (getpoint p1 "\n指定第二点p2:"))(progn (grdraw p1 p2 7)(if (setq...

autolisp高手们,麻烦你们编个程序:实现画个多边形,然后以这多边形为边...答：(defun c:yx(/ p0 p1 p2 p3 p4 r jiao cmd os )(setq r (getdist"\n输入半径:"))(if (= jiaodu nil)(setq jiaodu 0))(princ "\n输入角度:")(princ jiaodu)(princ "\n")(setq shuru (getreal ""))(if (/= shuru nil)(setq jiaodu shuru))(setq jiao (* pi (/ jiao...

AutoLisp入门基础教程(3)答：在入门教程的第三部分，我们将使用AutoLisp中相关函数对AutoCAD对象的属性进行选择、获取、修改和更新。常用的对象属性函数如下表：对AutoCAD对象属性的修改实际上就是对AutoCAD对象属性列表的修改。获得对象联合属性列表编写一个chgrad.lsp程序，用来修改半径。在原来的基础上画一个瓦楞板程序，要求选择一条...

用在cad中怎么绘制缓和曲线?答：画法一：缓和曲线AutoLISP 应用程序一、制作缓和曲线AutoLISP 应用程序复制AutoLISP程序源代码，打开“记事本”，粘贴进去后，另存为文件名“缓和曲线.LSP”，保存类型为“所有文件”（AutoLISP程序源代码见附件）二、加载缓和曲线AutoLISP应用程序在命令行输入“appload”打开自动加载对话框。在对话框的...

大家正在搜

cad的appload命令 autolisp的cons lisp调用chamfer命令 CAD用lisp优命令 autolisp教程 autolisp论坛 autolisp语言 autolisp斜杠 autolisp处理集合

利用autolisp编写绘制正三角形的命令

cad里用lisp写命令建图层画线

Autolisp编程中，如果主函数里面要调用自己编写的指令，...

autolisp中的画线命令

我想在用autolisp画的图形中插入几个汉字，请问用什么样...

Auto cad中的LISP语言是什么？有怎样的用途？

autolisp语言怎么插入到cad中，怎么在cad中运用这...