答:复制下面的脚本到命令行回车即可加载,输入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#,C++,VB通过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参数转换...