中需要的小修改
尊敬的大师们：，我有一个Lisp，借助我现有的Lisp生成记事本文件。我需要CSV文件格式而不是记事本作为显示的图像格式。
请在我现有的Lisp中进行修改。
;; gc:distinct (gilles chanteau)
;; Suprime tous les doublons d'une liste
;;
;; Argument
;; l : une liste
(defun gc:distinct (l)
(if l
(cons (car l) (gc:distinct (vl-remove (car l) l)))
)
)
(defun l-coor2l-pt (lst flag / )
(if lst
(cons
(list
(car lst)
(cadr lst)
(if flag
(+ (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0) (caddr lst))
(if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0)
)
)
(l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag)
)
)
)
(defun c:ptdef2notepad ( / js dxf_cod mod_sel n lremov str_sep oldim ename l_pt l_pr pr l_x l_y tmp1 f_openx tmp2 f_openy)
(princ "\nSelect model object for filtering: ")
(while
(null
(setq js
(ssget "_+.:E:S"
(list
'(0 . "*LINE,POINT,ARC,CIRCLE,ELLIPSE,INSERT")
(cons 67 (if (eq (getvar "CVPORT") 1) 1 0))
(cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model"))
)
)
)
)
(princ "\nIsn't an available object!")
)
(vl-load-com)
(setq dxf_cod (entget (ssname js 0)))
(foreach m (foreach n dxf_cod (if (not (member (car n) '(0 67 410 8 6 62 48 420 70))) (setq lremov (cons (car n) lremov))))
(setq dxf_cod (vl-remove (assoc m dxf_cod) dxf_cod))
)
(initget "Single All Manual")
(if (eq (setq mod_sel (getkword "\nSelect mode, <Manual>: ")) "Single")
(setq n -1)
(if (eq mod_sel "All")
(setq js (ssget "_X" dxf_cod) n -1)
(setq js (ssget dxf_cod) n -1)
)
)
(setq
str_sep " ";-> **** YOU CAN CHANGE THIS STRING BY WHAT YOU WONT ! **** <-
oldim (getvar "dimzin")
)
(setvar "dimzin" 0)
(repeat (sslength js)
(setq ename (vlax-ename->vla-object (ssname js (setq n (1+ n)))))
(setq l_pr (list 'StartPoint 'EndPoint 'Center 'InsertionPoint 'Coordinates 'FitPoints))
(foreach pr l_pr
(if (vlax-property-available-p ename pr)
(setq l_pt
(if (or (eq pr 'Coordinates) (eq pr 'FitPoints))
(append
(if (eq (vla-get-ObjectName ename) "AcDbPolyline")
(l-coor2l-pt (vlax-get ename pr) nil)
(if (and (eq pr 'FitPoints) (zerop (vlax-get ename 'FitTolerance)))
(l-coor2l-pt (vlax-get ename 'ControlPoints) T)
(l-coor2l-pt (vlax-get ename pr) T)
)
)
l_pt
)
(append (l-coor2l-pt (vlax-get ename pr) T) l_pt)
)
)
)
)
)
(setq l_x (gc:distinct (mapcar '(lambda (x) (rtos (/ x 1.0) 2 2)) (vl-sort (mapcar 'car l_pt) '<))));-> **** YOU CAN CHANGE UNIT AND PREC (rtos x unit prec) ! **** <-
(setq l_y (gc:distinct (mapcar '(lambda (x) (rtos (/ x 1.0) 2 2)) (vl-sort (mapcar 'cadr l_pt) '<))));-> **** YOU CAN CHANGE UNIT AND PREC (rtos x unit prec) ! **** <-
(setq
tmp1 (vl-filename-mktemp "tmp_x.csv")
f_openx (open tmp1 "w")
)
(write-line (apply 'strcat (mapcar '(lambda (x) (strcat x str_sep)) l_x)) f_openx)
(close f_openx)
(startapp "notepad" tmp1)
(setq
tmp2 (vl-filename-mktemp "tmp_y.csv")
f_openy (open tmp2 "w")
)
(write-line (apply 'strcat (mapcar '(lambda (x) (strcat x str_sep)) l_y)) f_openy)
(close f_openy)
(startapp "notepad" tmp2)
(setvar "dimzin" oldim)
(prin1)
)
尊敬的先生：，
感谢您的友好回复和lisp。运行lisp时，将错误显示为附加图片。请查找。
谢谢你，
顺致敬意，
我相信。在尝试写入csv文件之前，它必须已经存在。
史蒂夫 尊敬的先生：，
谢谢你的回复。没有任何自动开发和打开CSV文件的想法？
我在临时目录中找到了CSV文件，并在附件中提到了点的格式。请查找。它不同于后#1（即不需要加倍坐标值）。请查看帖子#1示例图片。请修改Post#1 lisp。
谢谢你，
顺致敬意，
如果您现在使用的是BIGAL的代码，则不需要先创建csv文件，代码会做到这一点。
我没有看到任何“双重坐标值”在您附加的图像。你能进一步解释一下你想从中得到什么吗？
BKT公司
尊敬的先生：，
谢谢你的回复。请查看所附的实际比格尔的代码和我的要求格式的图片。在我要求的格式中，值是按升序排列的。
因此，请修改现有的lisp以生成所需的X，Y坐标格式。
谢谢你，
顺致敬意，
是的，一个叫做数据排序的命令。编写排序例程并不值得。
我认为很明显，作为一个示例代码，我必须把答案放在C:\temp注释甚至说更改的地方。
Rtos 2 3“3”是小数位数，您可以有更多或更少。
你要的是包围盒而不是所有的点吗？不需要excel。
是的，先生，我需要分类。借助我在#1后的示例代码，对于使用空格分隔符并排排序的X坐标，其发展类似于0.00 600.00 1200.00 2200.00，对于Y坐标排序也一样。
所以现在我需要修改为一个坐标下的一个，而不是“并排和空间分隔符”：
0
600
1200
2200
和Y坐标也一样。通过CSV文件，如Post#1图像所示。如果无法使用CSV文件格式，请通过示例lisp修改相同的记事本文件格式，使用一个坐标值下的一个坐标值，而不是“并排和空格分隔符”。
谢谢你，
致以最诚挚的问候。 所以你想要的是盒子的四个角落？？
尊敬的先生：，
为什么创建长方体？无需盒子。我需要排序的插入点。就像附上的照片。请查找。
例如，对于X坐标，“0”重复4次。但我只需要一次，而不是多次或重复。就像一个排序点。
请运行我的帖子#1代码。在该代码的帮助下，在记事本中生成为0.00 600.00 1200.00 2200.00。我需要的正是这种排序格式。但一个低于一个的值，如：
0
600
1200
2200
谢谢你，
致以最诚挚的问候。
页:
[1]
2