日志

分享 ks字符串表达式计算求值.lsp

xiaomm250 2018-7-2 13:37

(vl-load-com) ;来源 ;http://bbs.mjtd.com/forum.php?mod=viewthreadtid=107935highlight=cal%2B%BC%C6%CB%E3 ;计算数学表达式,返回实数 ;这个无法在64bit的CAD上使用,为什么? (defun MyCal (express / STR wscript) (setq str (strcat "dim ret \n ret=" express)) (setq wscript (vl ...

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

分享 获取文字长度

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

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

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

xazhji 2018-5-6 16:14

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

1333 次阅读|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点，甚至到夜里 ...

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

分享 2018年北京的第一场雪

hhh454 2018-1-23 10:40

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

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

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