lisp绘制棱锥_autolisp 画表格

autolisp

指定两点，在两点之间绘出指定间距的表格并标注

;==============================================================================

====================================================

;

函数名：

kwy

;

功能：指定两点，在两点之间绘出指定间距的表格并标注

;

编程策略：

;

1

、指定两点为所选区域的两个角点，并以这两点绘制出图纸的内边框

;

2

、确定竖行的第一条标注线

;

3

、以第一条标注线为基础，循环，绘出整个选定区域的竖行线

;

4

、同

2

、

3

步骤，绘出横行线

;

5

、为图纸加一个外边框

;

;==============================================================================

====================================================

(defun c:kwy (/)

(setq os (getvar "osmode"))

(setvar "osmode" 0)

;;

关闭对象捕捉

;-----------------------------------------------------------------------------------------------------------------------

(setq pt1 (getpoint"\n

请指定第一点：

"))

;;

指定要选区域的第一

点

(if (= pt1 nil)

(exit)

;;

如未选点，结束

程序

)

(setq pt2 (getcorner pt1 "\n

请指定第二点：

"))

;;

指定要选区域的第二

点

(if (= pt2 nil)

(exit)

;;

如未选点，结束

程序

)

(command

"rectang"

pt1

pt2)

;;

绘制指定区域的

边缘

(setq swith 50)

(setq left_x (min (car pt1) (car pt2)))

;;

取得所选区域的左下点的

x

坐标值

(setq left_y (min (cadr pt1) (cadr pt2)))

;;

取得所选区域的左下点的

y

坐标值

(setq right_x (max (car pt1) (car pt2)))

;;

取得所选区域的右上点的