如何处理表中的坐标

another2121 · 发表于 2011-5-21 00:34:02

有（（100 100 ）（200 200）（300 300）......(n n) ) 这种以表的形式存储的坐标点。怎么样用“pline"命令依次连接其中的坐标呢？请各位大侠指点指点。。。。

caoyin · 发表于 2011-5-21 00:47:59

(defun C:TT (/ OS PTLST)
(setq OS (getvar 'OSMODE))
(setvar 'OSMODE 0)
(setq PTLST '((100 100 )(200 200)(300 300)))
(apply 'command (append '("_.PLINE") PTLST '("")))
(setvar 'OSMODE OS)
)

another2121 · 发表于 2011-5-21 08:29:15

多谢 caoyin 版主
能不能详细讲解一下 (apply 'command (append '("_.pline") ptlist '("") )) 的实现过程吗

hejiazhao · 发表于 2012-3-25 22:53:20

就是利用command调用pine命令遍历表中的每个点，并顺次连接

hejiazhao · 发表于 2012-3-25 22:54:08

大师能不能把你那个高程点自动移位程序弄来学习一下，我下不下来

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