用于点导出的LISP

VVA · 发表于 2022-7-6 06:49:36

我做了EcoorE中的一个小变化。lsp（添加圆）。要四舍五入到2个小数点，请将变量LUPREC设置为2，或参见命令单位。删除Z-导出并删除不必要的Excell列。或者导出到txt文件，在记事本中打开，键入Ctrl+F（查找），查找字符串：0，替换字符串-无

nicpapa · 发表于 2022-7-6 06:52:42

οκ非常感谢。。
它现在正在与圆圈一起工作

samcoozy · 发表于 2022-7-6 06:55:36

我想计算面积并将其导出到excel文件中。
有任何lisp例程。

我已经为上面的lisp例程，但在两个文件中
一个用于导出坐标，另一个用于计算面积。

如何合并这两者或导出坐标替换为导出区域。

谢谢和问候！！
山姆
将2dpoints导出到CSV。lsp
地区LSP

shailujp · 发表于 2022-7-6 06:58:18

嗨，塔瓦，
我使用这个lisp，但也添加了弧。
几个问题：
如何也列出直径（或半径，如果其弧）与X和Y坐标？
是否允许选择用户定义的0,0（或UCS原点预设）？

这是我修改过的版本

copy


(defun c:TesT (/ *error* dir fNme ss i sname c x y)
 (vl-load-com)
; THARWAT Oct. 07.2010
 (defun *error* (msg)
   (and fNme (close fNme))
   (if (and msg
            (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,"))
       )
     (princ (strcat "\nError: " msg))
   )
 )
 (setq dir "C:\\My Folder")
 (vl-mkdir dir)
 (if (and
       (setq fNme (open "C:/My Folder/coordinates.txt" "w"))
       (setq ss (ssget '((0 . "CIRCLE,ARC"))))
     )
   (progn
     (repeat (setq i (sslength ss))
       (setq sname (ssname ss (setq i (1- i))))
       (setq c (cdr (assoc 10 (entget sname))))
       (write-line
         (strcat (setq x (rtos (car c) 2 3))
                 "\t"
                (setq y (rtos (cadr c) 2 3))
         )
         fNme
       )
       (entmakex (list '(0 . "MTEXT")
                       '(100 . "AcDbEntity")
                       '(100 . "AcDbMText")
                       (cons 40 (getvar 'textsize))
                       (cons 1
                             (strcat "X" "=" " " x "[url="file://p/"]\\P[/url]" "Y" "=" " " y)
                       )
                       (assoc 10 (entget sname))
                       '(50 . 0.)
                       '(210 0.0 0.0 1.0)
                 )
       )
     )
     (close fNme)
(command "mtext" "0,0" "2,2" "0,0" "ORIGIN" "")
(command "chprop" "l" "" "c" "4" "")
   )
   (princ)
 )
 (princ)
)

Tharwat · 发表于 2022-7-6 07:02:35

嗨，shailujp
这

copy


(defun c:Test (/ *error* fl f ss i sn e c r x y)
 ;;;--- Tharwat 03.06.2013---;;;
 (defun *error* (msg)
   (and f (close f))
   (princ (strcat "\nError: " msg "\n*Cancel*"))
 )
 (if (and (setq fl (getfiled "Specify the text file name :"
                             (getvar 'DWGPREFIX)
                             "txt"
                             1
                   )
          )
          (setq f (open fl "w"))
          (progn (princ "\n Select Arcs and Circles ")
                 (setq ss (ssget '((0 . "CIRCLE,ARC"))))
          )
     )
   (progn
     (write-line "X: \t Y: \t Diameter/Radius" f)
     (repeat (setq i (sslength ss))
       (setq e (entget (setq sn (ssname ss (setq i (1- i)))))
             c (cdr (assoc 10 e))
       )
       (if (eq (cdr (assoc 0 e)) "ARC")
         (setq r (cdr (assoc 40 e)))
         (setq r (* (cdr (assoc 40 e)) 2.))
       )
       (write-line
         (strcat (setq x (rtos (car c) 2 3))
                 "\t"
                 (setq y (rtos (cadr c) 2 3))
                 "\t"
                 (rtos r 2 3)
         )
         f
       )
       (entmakex
         (list '(0 . "MTEXT")
               '(100 . "AcDbEntity")
               '(100 . "AcDbMText")
               (cons 40 (getvar 'TEXTSIZE))
               (cons 1 (strcat "X" "=" " " x "\\P" "Y" "=" " " y))
               (assoc 10 e)
               '(50 . 0.)
         )
       )
     )
     (close f)
   )
   (princ)
 )
 (princ)
)

shailujp · 发表于 2022-7-6 07:05:12

嗨，塔瓦，

你的Lisp程序很好用。我删除了圆弧过滤，因为我只使用直径作为输出。
作为并添加了创建表的功能，我下载了J.Villareal的另一个例程。这使我能够使用实用程序生成的excel数据插入表格。

你能帮我再深入一步吗？可以在图纸中插入序列号文本（定义实体）而不是XY坐标吗。XY和直径详细信息仅在表中需要。这样的话，绘图就会很干净，因为较小的绘图会被太多的多行文字重叠而弄乱，变得很难阅读。

我已经附上lisp文件以及图纸。

P、我叫谢里什，你叫什么？
测试2.lsp
图纸1.dwg

SLW210 · 发表于 2022-7-6 07:08:29

shailujp，

请阅读代码发布指南，并在以后发布代码时使用代码标签。我帮你修改了之前的帖子。

shailujp · 发表于 2022-7-6 07:11:47

有人能帮我安排一下日程吗？

VVA · 发表于 2022-7-6 07:13:49

也许这会有帮助

shailujp · 发表于 2022-7-6 07:18:36

高VVA
链接上的lisp有效，但由于某些原因，输出坐标与实际尺寸不匹配。不确定它是如何工作的。

无论如何，我可以用下面的代码做些什么（主要来自Tharwat，但我做了一些调整）：
1）要求用户输入以指定原点（基本上设置UCS）
2）将XY直径细节导出到excel文件（&D）（使用trans函数将XY转换为当前UCS）
3）添加0,0原点文本，以便用户知道原点是否正确。
4）使用J.Villareal的TBL3在图纸上恢复整个表格。lisp（使用数据链）

我想要的是：
1）所有实体（圆弧或圆）应在图纸1、2、3等上编号。。。。（类似于COORN utility对每个链接所做的操作）
2）它创建的表格应具有第一列序列号（每个项目1）和第五列实体类型（例如圆弧或圆），以识别对象类型。

有人能试试这个吗？

copy

(defun c:XYT (/ *error* fl f ss i sn e c d x y DLName)
 ;;;--- Tharwat 03.06.2013---;;;
(SETVAR "TEXTSIZE" 2.5)
 (defun *error* (msg)
   (and f (close f))
   (princ (strcat "\nError: " msg "\n*Cancel*"))
 )
 (if (and (setq fl (getfiled "Specify the .xls file name :"
                             (getvar 'DWGPREFIX)
                             "xls"
                             1
                   )
          )
          (setq f (open fl "w"))
          (progn
   (setq orgn (getpoint "\n Specify the origin:"))
         (command "ucs" "o" orgn)
         (princ "\n Select Ellipse, Arcs & Circles")
                 (setq ss (ssget '((0 . "ELLIPSE,CIRCLE,ARC"))))
          )
     )
   (progn
     (write-line "X: \t Y: \t Dia:" f)
     (repeat (setq i (sslength ss))
       (setq e (entget (setq sn (ssname ss (setq i (1- i)))))
            c (cdr (assoc 10 e))
       )
       ;(if (eq (cdr (assoc 0 e)) "arc")
         ;(setq r (cdr (assoc 40 e)))
         (setq d (* (cdr (assoc 40 e)) 2.))
       
       (write-line
         (strcat (setq x (rtos (car (trans c 0 1)) 2 3))
                 "\t"
                 (setq y (rtos (cadr (trans c 0 1)) 2 3))
                 "\t"
                 (setq d (rtos d 2 3))
         )
         f
 )
)
     (close f)
(command "mtext" "0,0" "j" "tr" "-2,-2" "0,0" "ORIGIN" "")
(command "chprop" "l" "" "c" "4" "")
(load "tbl3")
(tbl3)
;        (command "scale" "L" "" pause "0.6")
(princ)
)
(princ)
)
)

[编程交流] 用于点导出的LISP

发表回复

精选推荐