[求助]：提取多端线的顶点坐标，大虾帮忙

云中人 · 发表于 2004-6-14 22:46:10

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

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

×

要求的格式是这样
点号，，X,坐标，Y坐标

在列表中只能显示六位数，如果坐标是1234.567，就只能是1234.56
大虾帮忙

陌生人 · 发表于 2004-6-14 23:25:02

别管显示

云中人 · 发表于 2004-6-15 22:07:59

但是提取出来的，真的只有6位。

zhanzujie · 发表于 2004-6-16 00:29:21

二楼楼主的意思就是实际值与显示无关,
比如你上面提到的在列表中坐标显示为1234.56，实际就是1234.567

lsjjm · 发表于 2004-6-16 06:08:31

[QUOTE]最初由云中人发布
[B]要求的格式是这样
点号，，X,坐标，Y坐标...[/B][/QUOT
REFERNCE TO:

(defun c:test ()
  (setq pl (car (entsel)))
  (setq pts (acet-geom-vertex-list pl))
  (setq th (* 0.18 (getvar "dimscale")))
  (setq p0 (getpoint "pick point:"))
  (vl-cmdf "text" "l" p0 th 0 "PolyLine X and Y Coordinates")
  (vl-cmdf "text" (polar p0 (* 1.5 pi)(* 2 th)) th 0 "******************************")
  (setq p0 (polar p0 (* 1.5 pi)(* 3 th)))
  (setq n 0)
  (while (< n (length pts))
(setq p0 (polar p0 (* 1.5 pi)(* 2 th)))
(vl-cmdf "text" "r" (polar p0 0 th) th 0 n)
(vl-cmdf "text" "r" (polar p0 0 (* 12 th)) th 0  (rtos (car (nth n pts))))
(vl-cmdf "text" "r" (polar p0 0 (* 24 th)) th 0  (rtos (cadr (nth n pts))))
(setq n (1+ n))
  )
)

云中人 · 发表于 2004-6-17 22:56:00

楼上的谢谢，我的问题还没有解决，是要写在TXT文件里。

maplesu · 发表于 2004-6-17 23:56:10

楼主可以到这里看看！
http://www.xdcad.net/forum/showthread.php?threadid=198342

lsjjm · 发表于 2004-6-18 05:13:00

最初由云中人发布
[B]楼上的谢谢，我的问题还没有解决，是要写在TXT文件里。 [/B]

(defun c:test ()
  (setq a (car (entsel)))
  (setq pts (acet-geom-vertex-list a))
  (setq n 0)
  (setq fn (open "coord.txt" "w"))
  (write-line "PolyLine Coordinates: " fn)
  (write-line "*******************************" fn)
  (while (< n (length pts))
(write-line  (strcat (itoa n) " " (rtos (car (nth n pts)))
   " " (rtos (cadr (nth n pts)))" " (rtos (last (nth n pts)))) fn)
(setq n (1+ n))
  )
  (close fn)
)

云中人 · 发表于 2004-6-18 21:42:12

谢谢

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

[求助] [求助]：提取多端线的顶点坐标，大虾帮忙

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

相关帖子

Re: [求助]：提取多端线的顶点坐标，大虾帮忙