日志

分享 多个图形单独保存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 ...

609 次阅读|6 个评论 热度 9

分享 CAD批量打图精灵功能列表

ProgramFancier 2021-9-4 16:04

CAD批量打图精灵试用版可到 依云软件官网 下载。 功能简介 功能细分 识别图框 识别直线、多段线、二维多段线、三维多段线、 面域、视口、代理实体、块参照、外部参照 单图模式，识别整个图形的边界， 适用于模型或布局只有一张图的情况 多图模式，识别矩形或无矩 ...

5868 次阅读|0 个评论 热度 4

分享 获取文字长度

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)))))))

1283 次阅读|0 个评论 热度 1

分享 小懒人工具演示

永不言弃 2017-4-4 11:22

1.经纬度标注 2.断面与三角网交点处添加高程点 3.闭合线起点调整至西北角及顺时针调整 4.地块签章图生成 5.断面线数据的提取 7.XY坐标引线标注

825 次阅读|0 个评论 热度 7

分享 基于CAD的me定距等分命令的操作

jun353835273 2016-6-2 12:33

将一段线定距等分，不用在输入块名字，选择是否按照块对齐等繁琐的操作，方便快捷。

1323 次阅读|0 个评论 热度 1

分享 [工具]AutoCAD.Lisp等距3D螺旋线（任意曲线的回转表面）

snddd2000 2015-5-16 12:01

无法上传文件，如果想使用请至【 工具 】处下载

2313 次阅读|0 个评论

分享 仿小菜大师重写的"快选"

HGQ8888 2014-12-23 15:58

1,支持选择后增加过滤条件, 2,支持"恢复上一次输入的内容", 3,支持选择后"执行动作", 4,支持附加条件多选,(如:选多个颜色)

405 次阅读|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 (= ( ...

1037 次阅读|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)) ...

962 次阅读|0 个评论

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