临桂区建设局网站,企业网站建设的一般要素有,官方网站下载安装云支付,邢台市答#xff1a;复制下面的脚本到命令行回车即可加载#xff0c;输入pldd#xff0c;程序会提示选择pline#xff0c;选择pline后会打印所有的三维坐标 (defun c:pldd (/ wb cc ss1 aa pts bhbz ent) (setq ent (car (entsel \n请选择PLINE))) (setq wb (entget …答复制下面的脚本到命令行回车即可加载输入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...答(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)...答读取的是当前坐标系(可能是用户坐标、世界坐标)的坐标 坐标转换一下使用ucs命令即可答方案一直接读取dwg格式文件有点难度估计高手会做 方案二若是文件有很多要做的话可以用C#CVB通过COM去开发用COM方式依次打开dwg图档然后遍历图元来进行你的要求来运算 方案三若是文件有很多要做的话也可以用AutoLisp来做...答(defun c:show_current_directory ()(setq cur_dir (getvar dwgprefix))(startapp explorer cur_dir));end答试试textbox答(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://文...答;你说的三维多义线是指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)) ...答(vl-load-com) (setq ptb (vlax-get (vlax-ename-vla-object (car (entsel \n选取三维多段线:))) coordinates))答我来回答你一下吧虽然我也不是很懂 AutoCAD的坐标是直角坐标系而经纬度是大地坐标系并不是直角坐标系 如果要转换只要找到转换参数是可以转换的不过各个地方转换参数是不同的 所谓的转换参数也就是常说的七参数(7参数转换...
