在CAD上量两点间距离时如何忽略掉Z的差值,就是说我只想量出两点间的水平距离,不量两点间的空间距离?
展开全部
CAD自己的命令中没有这个功能,如果在两点之间画直线,用list查询,里面有一项是在当前ucs中的长度。不过用起来太不方便了。可以编一个lisp程序。
(defun c:dd2()
(setq pt1 (getpoint "\n指定第一点:"))
(setq pt2 (getpoint "\n指定第二点:"))
(setq pt1 (list (car pt1) (cadr pt1) 0.0))
(setq pt2 (list (car pt2) (cadr pt2) 0.0))
(setq dist2d (distance pt1 pt2))
(princ (strcat "\n距离=" (rtos dist2d)))
(prin1)
)
在记事本里存成.lsp文件,appload加载,命令dd2启动。
(defun c:dd2()
(setq pt1 (getpoint "\n指定第一点:"))
(setq pt2 (getpoint "\n指定第二点:"))
(setq pt1 (list (car pt1) (cadr pt1) 0.0))
(setq pt2 (list (car pt2) (cadr pt2) 0.0))
(setq dist2d (distance pt1 pt2))
(princ (strcat "\n距离=" (rtos dist2d)))
(prin1)
)
在记事本里存成.lsp文件,appload加载,命令dd2启动。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询