lisp坐标一键生成_如何利用lisp程序一次性提取CAD中点的坐标(不要点击每个点,太多了麻烦)...

最新推荐文章于 2022-12-26 17:49:33 发布

weixin_39807954

最新推荐文章于 2022-12-26 17:49:33 发布

阅读量2.2k

点赞数 1

文章标签： lisp坐标一键生成

本文链接：https://blog.csdn.net/weixin_39807954/article/details/111763459

版权

www.mh456.com防采集。

(DEFUN C:TT ( / ss ff ss1 en pt x y) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "dimzin" 0) (vl-load-com);;加载2113vlax扩展函数 (setq ss (ssget '((0 . "point"))) n 0);;请选择点 (if (/= ss nil) (progn (setq ff (open "d://文字到TXT.txt" "w") ss1 '());;在5261D盘建立记事本《文字到TXT》这里可以查看内容4102 (repeat (sslength ss);;循环选择 (setq en (ssname ss n) n (+ n 1);;提取图元 pt (cdr (assoc 10 (entget en)));;取得点1653坐标 ss1 (cons pt ss1);;加入表 ) ) (setq ss1 (vl-sort ss1 (function (lambda (x y)( (cadr x) (cadr y))))));;Y排序从上到下 (foreach en ss1;;函数遍历表，将其中每一个元素依次赋给变量，并对每一个表达式求值 (setq x (rtos (car en) 2 5)) (setq y (rtos (cadr en)2 5));;取得Y坐标精确到小数点后5位 (princ x ff) (princ "," ff) (princ y ff) (princ "\n" ff) ) (close ff) ) ) (princ))

lisp肯定快不了，那个东西慢，我可以C++帮您定制一个，根据工作量略微收费，有