[LISP程序]：读取多段线顶点坐标遇到新难题,求助高手

zhouhaifu · 发表于 2006-12-20 13:21:10

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

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

×

笔者因工作需要 ,自编一个lisp程序, 主要任务是取回已绘制的多段线各顶点坐标. 该程序使用entget函数. 当多段线顶点的坐标值不大时程序能正确工作，但当多段线顶点的坐标值很大时,entget函数返回如下
((1.46066e+007 1.39542e+008) (664451.0 1.65195e+008) (3.73543e+007 1.84252e+008) (5.6433e+007 1.46138e+008))
而该多段线的定义数据实际是
((14606597.8157 139541685.9357 0.0000) (664450.6059 165194992.9225 0.0000) (37354311.0982 184251735.5769 0.0000) (56433038.7901 146138250.5805 0.0000))
也就是说entget函数不能正确返回多段线顶点坐标。
怎么办？请求高手指点，谢谢！

oyxx_1023 · 发表于 2006-12-20 15:44:25

把数字类型设为小数就可以了。不用科学计数

tywsc · 发表于 2006-12-20 16:03:58

二楼说的对.每次打开图,就把单位改过来.
下拉菜单---->格式---->单位----->设为'小数'就可以了.
我没用编程方法解决过,应该有一个系统变量控制它,您查查书

zhouhaifu · 发表于 2006-12-21 13:11:12

我早已试过，没能解决问题。

carrot1983 · 发表于 2006-12-21 18:33:48

试试这个吧。。这个是这个论坛里一个高手编的。。
我用了没有遇到你遇到的情况。。。
;求出多段线各个点的坐标。
[php](defun C:test (/ ss ename elist ptlist)
  (setq ss (entsel "\n请选取多段线(或样条曲线): "))
  (setq ename (car ss))
  (setq elist (entget ename))
  (foreach n elist
(if (= 10 (car n))
   (setq ptlist (cons (cdr n) ptlist))
)
  )
  (reverse ptlist)
)
[/php]

majian_lmx · 发表于 2020-1-2 14:43:33

请教楼主，关于entget函数坐标值精度的问题是否解决？如何能提高返回值的精度？

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

[求助] [LISP程序]：读取多段线顶点坐标遇到新难题,求助高手

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

相关帖子