admin管理员组文章数量:1565357
答：请查看附件，写的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) (vl-load-com);;加载vlax扩展函数 (setq ss (ssget '((0 . "point"))) n 0);;请选择点 (if (/= ss nil) (progn (setq ff (open "d://文...
答：复制下面的脚本到命令行回车即可加载，输入pldd，程序会提示选择pline，选择pline后会打印所有的三维坐标 (defun c:pldd (/ wb cc ss1 aa pts bhbz ent) (setq ent (car (entsel "\n请选择PLINE"))) (setq wb (entget ent) cc nil bhbz (cdr (as...
答：我有提取CAD里的坐标到Excel表格的软件，可以永久使用的，你要吗？
答：给你一些提示吧，得到直线 用的是ssget，它建立一个选择集，然后你在选择集中分别取各实体 (sslength xzj)获得选择集中对象的个数n 以下几行供参考 (setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE")))) (repeat (sslength en...
答：方案一：直接读取dwg格式文件有点难度，估计高手会做 方案二：若是文件有很多要做的话，可以用C#，C++，VB通过COM去开发，用COM方式依次打开dwg图档，然后遍历图元来进行你的要求来运算 方案三：若是文件有很多要做的话，也可以用AutoLisp来做，...
版权声明：本文标题：lisp提取长方形坐标_在CAD中，用LISP如何提取三维多段端点坐标？ 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1727536961a1120036.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论