这篇博客介绍了如何使用LISP程序从CAD中批量选择并提取三维多段线的端点坐标，坐标会被写入TXT文件。提供了多个LISP函数示例，包括选择点、获取坐标以及保存到文件的步骤。
答：请查看附件，写的lisp程序，输入tt运行程序，批量选择cad中的点，然后将坐标写入txt文件。 指定保存文件的位置及名称，...
答：(vl-load-com) (setq ptb (vlax-get (vlax-ename->vla-object (car (entsel "\n选取三维多段线:"))) "coordinates"))
答：;你说的三维多义线是指"POLYLINE"实体吧，3p命令绘制的线 (defun c:test ( / a aa bb cc e eg en et n p p0 ps s x y z) (setq a (ssget '((0 . "polyline")))) (setq aa (dxfcod -1 a)) (foreach p aa (setq e (cdr p)) (setq en (entnext e)) ...
答：仔细看看这两行
答：(defun c:tqzb (/) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1)) (if (setq ssa (ssget '((0 . "LWPOLYLINE")))) (progn (setq fff (open wjm "w") n (sslength ssa)...
答：(DEFUN C:TT ( / ss ff ss1 en pt x y) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "dimzin&#
最低0.47元/天 解锁文章
2174
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
