坐标提取
大家好。。。Im使用autolisp将二维图形中的坐标提取到excel文件中。
我必须遵循一些关于数字的条件。。。
1、数字必须仅为正方体。
2、坐标提取必须始终从原点开始。ie（0,0）。
这是我遵循的程序。。。
我来画这个图。
2、使用“Divide”命令将其划分为多个节点。
3.加载以下lisp以提取电子表格中的坐标。
;;;Select points and export their co-ords to *.csv file
;;;Written by ssg - October 23th, 2007
;;;=========================================
(defun C:EPEX(/ ss fn f e p)
(prompt "\nSelect points to export:")
(if not (setq ss (ssget '((0 . "POINT"))))
(progn (alert "No objects selected!") (quit))
)
(if (not (setq fn (getfiled "Export to file" (getvar "dwgprefix") "csv" 1)))
(progn (alert "No file selected!") (quit))
)
(setq f (open fn "w"))
(while (setq e (ssname ss 0))
(setq p (cdr (assoc 10 (entget e))))
(princ (strcat (rtos (car p)) "," (rtos (cadr p)) "," (rtos (caddr p)) "\n") f)
(ssdel e ss)
)
(close f)
(alert (strcat "Finish export points to file: " fn))
)
;;;=========================================
我也附上了一个样本数字。。。
如有任何建议，我将不胜感激。
请帮忙。
被压抑。图纸 先生，我无法理解答案是什么&如何设置 美好的
我能看到的唯一一件事是，如果你不小心选择了负值的“点”。。。它仍将写入csv文件。
设定一个忽略这些的条件，编写这样的代码会很有趣，不难，但很有趣
当你写条件的时候，如果你的一半分数在负象限，你只能得到你需要的一半。所以也要想一想。为了让它更具挑战性，可以随机选择每个点，但仍要按正确的顺序获取点。祝你好运
欢迎来到论坛，玩得开心 正象限的滤波器可以直接合并到SelectionSet滤波器列表中，因此：
(defun c:test ( / ss wf i p )
;; © Lee Mac 2011
(cond
(
(and (setq ss (ssget '((0 . "POINT") (-4 . ">=,>=,*") (10 0.0 0.0 0.0))))
(setq wf (getfiled "" "" "csv" 1))
(setq wf (open wf "w"))
)
(repeat (setq i (sslength ss))
(setq p (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))))
(write-line (strcat (rtos (car p)) "," (rtos (cadr p)) "," (rtos (caddr p))) wf)
)
(close wf) (princ (strcat "\n--> " (itoa (sslength ss)) " Points Written to file."))
)
)
(princ)
) 谢谢大家的建议。李爵士的代码很有帮助，但我认为我没有正确地提出这个问题。。。坐标提取。。。
-必须从原点开始
-沿着线路前进
-沿着五角大楼前进
-并在线条与图形相交的同一点或之前的一个节点处结束。
把自己列入新年荣誉名单李？？
你现在必须更换你的化身，也许你的自行车上有一把长矛
哈哈，我希望！
很高兴我的代码能帮上忙-我没有看文件，只看了描述。。。 我等了很长时间，想得到任何关于马的建议。。。
你不能让任何“高级成员”或“量子力学”给出任何。。。？很难破解吗。。。？嗯t是。。。？
页:
[1]