;入口参数：ddb多边形区域顶点坐标表((x1 y1) (x2 y2) (x3 y3) ...... (xn yn))
(defun dbxmj(ddb)
(apply 'command (append (list "pline") (append ddb (list "c"))))
(command "area" "o" (entlast) "erase" (entlast) "" "redraw")
(getvar "area")
)
;在不产生图元实体的情况下，使用下面函数
;入口参数：ddb多边形区域顶点坐标表((x1 y1) (x2 y2) (x3 y3) ...... (xn yn))
(defun dbxmj(ddb)
(apply 'command (cons "_area" (append ddb (list ""))))
(getvar "area")
)
TAG: 测量
发表评论
【声明】 路桥吾爱刊载的资讯及其他内容均由网友提供分享 并且纯属作者个人观点，不表示路桥吾爱同意其说法或描述，仅为提供更多信息，也不构成任何建议。网友转载请注明原作者姓名及出处。如有侵犯到您的版权,请与我们联系，我们会马上进行重新整理!
