获取地块中心点函数/和根据地块方向自动转换方向

15152315475 · 发表于 2016-11-15 00:32:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

获取地块中心点函数/和/根据地块自动转换方向平行于地块！这一类函数！

newer · 发表于 2016-11-15 08:09:59

地块已经划分好了？求中心点？

newer · 发表于 2016-11-15 08:12:05

图片下写平行于地块，是想做什么？文字标注平行于地块？你还是想要一个边界自动划分地？

15152315475 · 发表于 2016-11-15 09:44:32

newer 发表于 2016-11-15 08:09

版主你好！地块已经划分好了只是注记想获取中心点，我有程序批量标注属性地块，要获取中心点！
第二个说平行于地块意思注记平行于地块和上面一起使用的！

newer · 发表于 2016-11-15 10:16:01

15152315475 发表于 2016-11-15 09:44

把你的DWG图压缩下传上来吧。

15152315475 · 发表于 2016-11-15 10:34:41

newer 发表于 2016-11-15 10:16

只是需要获取地块中心点函数！

xx69as · 发表于 2016-11-15 14:42:06

我只是路过打酱油的

newer · 发表于 2016-11-15 15:40:45

本帖最后由 newer 于 2016-11-15 15:47 编辑

15152315475 发表于 2016-11-15 10:34

;;功能：求LWPOLYLINE的型心
;;参数e ---LWPOLYLINE实体名

(defun XD::PLINE:Centroid (e / pts x)
  (setq pts (vl-remove-if '(lambda (x)
                             (/= (car x) 10)
                           ) (entget e)
            )
        pts (mapcar
              'cdr
              pts
            )
  )
  (if (> (abs (XD::Pnts:Area pts)) 0.0)
    (XD::Pnts:Centroid pts)
  )
)

求点表型心函数 XD::Pnts:Centroid 见开源函数库： http://bbs.xdcad.net/thread-702742-1-1.html
求点表面积函数 XD::Pnts:Area 见： http://bbs.xdcad.net/thread-677577-1-1.html

15152315475 · 发表于 2016-11-15 22:40:36

newer 发表于 2016-11-15 15:40

谢谢版主啊

alliuyx · 发表于 2016-11-16 08:50:30

正需要，支持楼主大人了！

账号		自动登录	找回密码
密码			立即注册

[求助] 获取地块中心点函数/和根据地块方向自动转换方向

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子