日志

分享 使用GraphicsManager预览实体

sieben 2024-5-28 15:59

使用GraphicsManager预览实体 注：此代码在ACAD 2019和ZWCAD 2022,2023可行；Kean大佬2007年那个代码已不能用于新版ACAD；感谢ZWCAD的周工！ public static Bitmap GetImage_Kernel_Entity(Color backgroundColor, Entity tEnt, Extents3d? viewExt, Size imageSize, double zoomFactor = 1.0) { #if _ ...

36 次阅读|0 个评论

分享 ObjectArx -- ObjectZrx 项目迁移及绘制图形最小包围盒

橡皮 2024-5-14 15:50

绘制最小包围盒演示见动图，项目文件比较大见 链接 。

18 次阅读|0 个评论

分享 @lisp函数库 : 开源、云加载 。代码托管平台 Gitee (码云)

vitalgg 2022-5-18 02:21

@lisp 代码托管平台 https://gitee.com/atlisp * @lisp 函数库 @lisp 函数库是一个开源、共享、可云端加载的 autolisp 函数库。由像您一样热爱开源共享的爱好者所构筑并维护。可依据开放许可协议自由使用。 @lisp函数库功能涉及 图元、 图块、 实体 ...

263 次阅读|0 个评论 热度 2

分享 使用Ado发送sql语句查询excel，减少lisp过滤次数

dcl1214 2019-11-30 16:02

以前我们都是先通过excel来读取指定路径下的xls文件，然后筛选需要的数据，但是，如果遇到客户用xls做数据库，里面有65536行数据，255列，lisap读取后筛选其中的数据就会速度很慢了，遇到这种情况我们一般都会想到让用户将xls按照指定模板整理后倒入到mysql或者是sqlserver的数据库里面，然后通过http发送sql指令过滤自己 ...

313 次阅读|1 个评论 热度 10

分享 【抛砖引玉】新奇有趣的程序

wowan1314 2019-11-13 15:07

最近翻看了几年来的帖子。 感觉这几年也没出现什么新鲜有趣的新程序。 大家有发现有什么新鲜有趣的程序，发个动画图片出来到论坛也好啊~ 开阔下眼界。 发不了贴，就发这里吧~ 给大家起个头。

6794 次阅读|5 个评论 热度 9

分享 多重引线颜色的更改

ljxkm 2019-11-10 18:26

CAD多重引线，mleaderstyle在CAD中可更改引线样式的引线和文字颜色，对具体的mleader对象，_properties命令特性修改中却没有修改文字颜色项目，经过不断研究，采用以下办法可实现更改引线及文字颜色： (setq mlobj (vlax-ename-vla-object (car (entsel "\n点选对象")))) (setq Llcorobj (vla-get-LeaderLineColor ml ...

240 次阅读|0 个评论 热度 5

分享 getkword

1291500406 2019-9-16 23:16

(defun c:bb() (initget "1 2 3 4") (if (not bb) (setq bb "1")) (setq bb(cond ( (getkword (strcat "送命题\n你老妈和你女朋友掉水里你先救谁 " bb " : " ))) ( bb )))(cond ((= bb "1") (alert "\n那女朋友呢?")) ((= bb "2") (alert "\n那老妈呢?")) ((= bb "3") (alert "\n你还是人?")) ((= bb "4") (ale ...

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

分享 读取excel表的三个自定义函数

ljxkm 2019-9-15 15:17

;;;;读取excel表的三个自定义函数 ;;;;;1、读取单个单元格excel数据函数 (defun Ljx-read-excel-data1 (vv hor sh) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2)) ) ...

176 次阅读|0 个评论

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