日志

分享 获取文字长度

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

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

分享 图块统计助手 发布了，附赠最新版 同舟CAD 10

xazhji 2018-5-6 16:14

工具功能概述： 统计 AutoCAD 文件中图块的数量 ( 或线条的长度 ) ，以 CAD 表格或 Excel 文件输出统计结果。如果在 Excel 中输出结果，可以根据用户预定义数据 ( 如单价、优惠单价、备注信息等 ) ，自动对输出数据进行处理，输出为带金额、合 ...

1289 次阅读|0 个评论

分享 分享一个炸开多重插入块的小程序！

dong20030432 2018-3-12 17:20

把以下内容复制到txt，另存为unlk.lsp，加载它，输入unlk命令，按提示执行即可！ (defun c:unlk (/ en ent) (setq en (entsel "\n请选择被加密的图形:")) (if en (if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) "INSERT" ) (progn ...

119 次阅读|0 个评论

分享 ONLYOFFICE多人实时文档协作平台的简单搭建

3xxx 2018-2-16 13:46

大家有无注意到目前文档协作已经发展了好多年，国内的比如石墨文档，一起写等基于云存储。 微软 的 office365 ,office online，google doc，quip等。 好处是毋庸置疑的，大家可以同时在一个文档上进行编辑，实时的，效果很震撼。 号称颠覆了传统的 office办公软件 工作习惯了， 比如，彻底免去了汇总负责人的 ...

46 次阅读|0 个评论

分享 建筑模型绘图-自动画万家灯火灯板

hhh454 2018-1-23 14:06

建筑绘图在画好框架之后，根据制作进度，需要给电工部门多准备些时间出来，就需要及时画万家灯火，其实画万家灯火还是比较简单的，但是比较的费时间，算来算去，排版用去了大量的时间，我就在想能不能用参数去实现自动化，批量去画灯板和卡条，干模型也好多年了，绘图工作时间都比较长，晚上加班都要到夜里11点，甚至到夜里 ...

2185 次阅读|1 个评论 热度 2

分享 2018年北京的第一场雪

hhh454 2018-1-23 10:40

北京下了薄薄的一场雪，天气真的好冷，冻的脸都疼

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

分享 修改所有字体为宋体

梦了无痕 2017-12-10 19:53

(defun 改变为宋体(字体 / obj ) (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) 字体)) (vlax-dump-Object obj) (vla-setFont obj "宋体" :vlax-false :vlax-false 134 2) ) (defun c:修改字体为宋体(/ n 字体 字体名 字体表 字体名 字体OB ...

212 次阅读|1 个评论 热度 3

分享 怎么获取明经币啊？

走走逛逛瞧瞧 2017-11-25 13:22

积分用来做什么用的

87 次阅读|0 个评论

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