lisp pause 坐标值_求助，提取坐标的x值、y值不对，请问怎么修改

该楼层疑似违规已被系统折叠隐藏此楼查看此楼

(defun c:hq()

(setq pa (getpoint "输入左下点：")) ;输入左下桩坐标

(setq r1 (getreal "\n 桩基半径:")) ;输入桩基半径

(setq r2 (getreal "\n 立柱半径:")) ;输入立柱半径

(setq pb (getpoint "输入右上点：")) ;输入右上桩坐标

(setq r3 (getreal "\n 桩基半径:")) ;输入桩基半径

(setq r4 (getreal "\n 立柱半径:")) ;输入立柱半径

(setq w (getreal "\n 盖梁宽度:")) ;输入盖梁宽度

(setq bw (/ w 2)) ;盖梁宽度的一半

(setq a (car (pa)))

(setq b (cadr (pa)))

(setq c (car (pb)))

(setq d (cadr (pb)))

(setq e (- c a))

(setq f (- d b))

(setq l (sqrt(+ (* (- a c) (- a c)) (*(b-d) (b-d))))))

(setq ja (atan (/ f e)))

((setq jb (+ pi ja))

((setq jc (- ja (/ pi 2)))

(setq pc (polar pa bw jc))

(setq pg (polar pc (+ l 2.17)))

(setq pf (polar pc 2.17 jb))

(setq ph (polar pa (+ l 2.17)))

(setq pe (polar pa 2.17 jb))

(command "circle" pa r1)

(command "circle" pa r2)

(command "circle" pb r3)

(command "circle" pb r4)

(command "line" pe pf pg ph "c")

(prin1)

)

lisp pause 坐标值_求助，提取坐标的x值、y值不对，请问怎么修改相关推荐

lisp新建标注式样_[求助]请教一下,如何编定义标注样式的LSP?
;;建立标注式 (defun dimblk1(/ p1 p2 mp p3 p4 ent1 ent2 ifdimblk ) (setq p1 (list 0 0) p2 (polar p1 (* 0.2 ...
lisp横断面数据文件_[求助]编一个将鸿业市政的横断面数据格式转化为EICAD横断面数据格式的文件...
编一个将鸿业市政的横断面数据格式转化为EICAD横断面数据格式的程序处理前的数据格式(鸿业市政的横断面数据格式) k0+000 -23.544 275 -17.314 274.44 -14.413 ...
【技术教程】提取单个宗地界址点坐标值(xy转经纬度)并排序
1.需求:提取宗地的界址点坐标并重新排序,坐标值为经纬度. 2.源文件:dwg格式宗地图,xian1980投影坐标系3度分带37度带. 3.使用转换器:CsmapReprojector.Chopper ...
python 横坐标只显示部分数据_解决echarts中横坐标值显示不全(自动隐藏)问题
echarts中,横轴数据如果非常多,会自动隐藏一部分数据,我们可以通过属性interval来进行调整. 如下图,当横轴时间为13天时,echarts会自动隔天显示如果我们想显示全,则需要在xAxi ...
arcmap中有火星坐标码_在ArcMap中使用坐标值转换一个CAD文件中的坐标位置
(2013-04-13 20:51:19) 转载 ▼ 标签: 股票分类: GIS 技术研究您现在的位置 : 首页 -> 知识库 -> ArcGIS Desktop -> 技术文 ...
lisp正负调换_坐标提取lisp程序 -
坐标提取lisp程序 2010-05-17 20:50:07| 分类: 工程 | 标签: |字号大中小订阅 ;该程序主要用于CAD点(point)三维坐标提取,并将数据输出为CASS软件中使用的数据 ...
lisp提取长方形坐标_坐标提取lisp程序.doc
坐标提取lisp程序坐标提取lisp程序?? 2010-05-17 20:50:07|??分类: 工程 |??标签: |字号大中小?订阅 ;该程序主要用于CAD点(point)三维坐标提取,并将数据 ...
lisp提取长方形坐标_坐标提取lisp程序
坐标提取lisp程序坐标提取lisp程序 2010-05-17 20:50:07| 分类: 工程 | 标签: |字号大中小订阅 ;该程序主要用于CAD点(point)三维坐标提取,并将数据输出为C ...
lisp正负调换_坐标提取lisp程序
工程 | 标签: | 字号大中小订阅 ; 该程序主要用于 CAD 点( point )三维坐标提取,并将数据输出为 CASS 软件中使用的数据格式 ; 输出格式: 点号 ,, 测量 Y 值,测量 X ...

lisp pause 坐标值_求助，提取坐标的x值、y值不对，请问怎么修改

lisp pause 坐标值_求助，提取坐标的x值、y值不对，请问怎么修改相关推荐

最新文章

热门文章