己知3个点的坐标 如何在南方cass上获取第四个坐标点?
发布网友
发布时间：2022-04-28 17:33
共1个回答
热心网友
时间：2022-06-21 00:58
第一种：可使用CASS画一般房屋中四点房屋的命令，输入已知的3个点，画出来后再使用ID命令查询出第4个点的坐标。
第二种：使用下面Lisp程序
(defun c:d4d()
(setq cmd (getvar "cmdecho"))
(setq osm (getvar "osmode"))
(setvar "cmdecho" 0)
(while (progn
(setvar "osmode" 33)
(setq p1 (getpoint "\n第1点:"))
)
(if (setq p2 (getpoint p1 ", 第2点:"))
(progn
(grdraw p1 p2 1)
(if (setq p3 (getpoint p2 ", 第2点:"))
(progn
(setq ang (angle p2 p1))
(setq cdz (distance p2 p1))
(setq p4 (polar p3 ang cdz))
(princ (strcat "\n第4点 X=" (rtos (cadr p4) 2 4)
" Y=" (rtos (cadr p4) 2 4)
)
)
(setvar "osmode" 0)
(command "_pline" p1 p2 p3 p4 "c")
(command "_chprop" (entlast) "" "c" "1" "")
)
)
)
)
)
(setvar "osmode" osm)
(setvar "cmdecho" cmd)
(princ)
)
