2013年3月4日
autocad计算带岛图形的面积
摘要： ;;;岛的判断(defun getisland (/ en mplaer ss ss_len ii en key obj area ptext een area0 pt0 ) (vl-load-com) (setq en (car (entsel))) (setq layer (assoc 8 (entget en))) (setq key (emt_eedvalue en "landuse" "id3")) (setq obj (vlax-ename->vla-object en)) ... 阅读全文
posted @ 2013-03-04 15:02 思维的边疆 阅读(476) 评论(0) 推荐(0) 编辑
autocad二次开发LISP函数(备用)
摘要： ;;;保存为DXF文件(defun c:save_dxf (/) (setq filepath (strcat (getvar "dwgprefix") "转换" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4) ) ".dxf" ) ) (command "save" filepath "16" "") (princ) (pri... 阅读全文
posted @ 2013-03-04 14:56 思维的边疆 阅读(1460) 评论(0) 推荐(0) 编辑