求cad的一个lisp程序,要求鼠标点击一点后,在其旁输出坐标值(x,y,z)

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/08 12:08:50

求cad的一个lisp程序,要求鼠标点击一点后,在其旁输出坐标值(x,y,z)
也就是在取点的旁边绘出坐标值(x,y,z)

其实很简单的,不用三楼那么麻烦的.
(defun c:pt()
  (setvar "cmdecho" 0)
  (while (setq pt1 (getpoint "\n请指定点位置:"))
    (setq point_x (rtos (car pt1) 2 2))
    (setq point_y (rtos (cadr pt1) 2 2))
    (setq point_z (rtos (caddr pt1) 2 2))
    (command "_text" pt1 "" "" (strcat "(" point_x "," point_y "," point_z ")"))
    )
(princ)
  )
效果如图所示

编程序:已知三维空间中的一个点坐标(x,y,z),求该点到原点的距离用汇编语言编写一个程序,计算（X*Y-Z)/X的值.其中X,Y,Z均为16位带符号数,要求表达式的计算结果存放在数据段中 C语言作业,编写一程序,要求输入x的值,输出y的值. 编写一个C程序,由终端输入两个字符给变量x和y,然后输出x和y,在交换x和y中的值后,再输出x和y. CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标? 用Java写一个程序：使其输出从A-Z的排序字母 2007CAD为何有三个坐标.x y z 设计一个程序, 输入整型变量x和y,若x>y则输出x-y的值,否则输出y-x的值已知直线方程Ax+By+C=0(AB≠0）试编写一个程序要求输入符合条件的A、B、C的值输出直线在x轴y轴的截距和斜以下程序的输出结果是 #include void prt （int *x,int*y,int*z）{ printf（"% 编一个程序,输入实数x的值,按下列公式计算并输出y值编一个程序,输入实数X的值,按公式计算并输出Y值公式