明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

分享 多个图形单独保存DWG-利用VLA-WBLOCK保存
bssurvey 2021-10-5 15:23
(defun c:outdwg() (vl-load-com) (setvar "CMDECHO" 0) (command "zoom" "e") (setq dt(getvar "dwgprefix")) (setq all-pline(ssget "X" '((0 . "LWPOLYLINE")))) ;如果要用框選可以改成(setq all-pline(ssget '((0 . "LWPOLYLINE")))) (setq n-pline(sslength a ...
13 次阅读|0 个评论
分享 CAD批量打图精灵功能列表
ProgramFancier 2021-9-4 16:04
CAD批量打图精灵试用版可到 依云软件官网 下载。 功能简介 功能细分 识别图框 识别直线、多段线、二维多段线、三维多段线、 面域、视口、代理实体、块参照、外部参照 单图模式,识别整个图形的边界, 适用于模型或布局只有一张图的情况 多图模式,识别矩形或无矩 ...
217 次阅读|0 个评论 热度 2
分享 获取文字长度
13648893846 2018-6-19 13:27
;; 获取文字长度 ;; (LC-TEXT-length (car(nentsel "\n请选择文字"))) ;; BY 老仓测绘上班记 ;;;(setq e (car(nentsel "\n请选择文字"))) (defun LC-TEXT-length (e / textlength) (setq textlength (car (apply 'mapcar (cons '- (reverse (textbox (entget e)))))))
746 次阅读|0 个评论 热度 1
分享 小懒人工具演示
永不言弃 2017-4-4 11:22
小懒人工具演示
1.经纬度标注 2.断面与三角网交点处添加高程点 3.闭合线起点调整至西北角及顺时针调整 4.地块签章图生成 5.断面线数据的提取 7.XY坐标引线标注
801 次阅读|0 个评论 热度 7
分享 基于CAD的me定距等分命令的操作
jun353835273 2016-6-2 12:33
基于CAD的me定距等分命令的操作
将一段线定距等分,不用在输入块名字,选择是否按照块对齐等繁琐的操作,方便快捷。
1307 次阅读|0 个评论 热度 1
分享 [工具]AutoCAD.Lisp等距3D螺旋线(任意曲线的回转表面)
snddd2000 2015-5-16 12:01
[工具]AutoCAD.Lisp等距3D螺旋线(任意曲线的回转表面)
无法上传文件,如果想使用请至【 工具 】处下载
1849 次阅读|0 个评论
分享 仿小菜大师重写的"快选"
HGQ8888 2014-12-23 15:58
仿小菜大师重写的"快选"
1,支持选择后增加过滤条件, 2,支持"恢复上一次输入的内容", 3,支持选择后"执行动作", 4,支持附加条件多选,(如:选多个颜色)
404 次阅读|3 个评论 热度 2
分享 求n以内所有素数递归算法及筛法
mahuan1279 2014-10-24 17:07
;;;递归算法 (defun f (n) (if (= n 2) (setq va (list 2)) (if (= n 3) (setq va (list 3 2)) (if (= ( ...
657 次阅读|0 个评论
分享 整数规划求解
mahuan1279 2014-10-11 03:11
X、Y、Z均为非负整数,abc0且满足L-min(a,b,c)a*X+b*Y+c*Z=L,求X、Y、Z的整数解? (setq a 9 b 8 c 7 L 100 nlist nil) (defun ff (n / llist i) (setq llist '() i 0) (while (= i n) (setq llist (cons i llist)) ...
661 次阅读|0 个评论

本页有 1 篇日志因作者的隐私设置或未通过审核而隐藏

123下一页

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-10-27 06:03 , Processed in 0.451807 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部