lisp 知道斜边求直解边_求cad的一个lisp程序,要求鼠标点击一点后,在其旁输出坐标值(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))...

答：复制下面的脚本到命令行回车即可加载，输入pldd，程序会提示选择pline，选择pline后会打印所有的三维坐标 (defun c:pldd (/ wb cc ss1 aa pts bhbz ent) (setq ent (car (entsel "\n请选择PLINE"))) (setq wb (entget ent) cc nil bhbz (cdr (as...

答：(defun c:hk () (setq xy1 (getpoint "请点击矩形左下角:") kd (getreal "请输入宽度:") cd (getreal "请输入长度:") xy2 (polar xy1 0 cd) xy3 (polar xy2 (angtof "90") kd) xy4 (polar xy1 (angtof "90") kd) ) (command "pline" xy1 xy2 xy3...

答：你好，我以前也遇到过这个问题，但是最后没有找到你说的那种方法，我最后也是用了一个lisp，但步骤是直接在CAD里测量所有的线，最后结果会写在一起，复制到excel中选择粘贴就是你要的效果了，比较麻烦，但总归还是解决了连续测线的长度的问题，...

答：(DEFUN C:TT ( / ss ff ss1 en pt x y) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "dimzin" 0) (vl-load-com);;加载vlax扩展函数 (setq ss (ssget '((0 . "point"))) n 0);;请选择点 (if (/= ss nil) (progn (setq ff (open "d://文...

答：我有提取CAD里的坐标到Excel表格的软件，可以永久使用的，你要吗？

答：百度搜索“自动标注线路中桩号和提取中桩坐标程序”

答：我来回答你一下吧，－－－－虽然我也不是很懂 AutoCAD的坐标是直角坐标系，而经纬度是大地坐标系，并不是直角坐标系 如果要转换，只要找到转换参数是可以转换的，不过，各个地方转换参数是不同的 所谓的转换参数，也就是常说的七参数(7参数转换...

答：方案一：直接读取dwg格式文件有点难度，估计高手会做 方案二：若是文件有很多要做的话，可以用C#，C++，VB通过COM去开发，用COM方式依次打开dwg图档，然后遍历图元来进行你的要求来运算 方案三：若是文件有很多要做的话，也可以用AutoLisp来做，...

答：你显示的是数值，把它转成字符或字符串再输出试试看吧。