日志

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

vitalgg 2022-5-18 02:21

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

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

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

dcl1214 2019-11-30 16:02

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

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

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

wowan1314 2019-11-13 15:07

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

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

5069 次阅读|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 个评论

分享 excle 方法汇总

bloodtempt 2019-9-3 14:46

(vlax-invoke-method(vlax-variant-value (vlax-get-property (vlax-get-property Exapp-SH-Active "rows") "item" 3))"Insert") (Vlax-Invoke-Method Exapp-SH-Active "PasteSpecial" 8) ；8为保留宽度

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

分享 显示CAD对话框，并且只显示索引颜色

xgr 2019-2-16 13:24

Kean专题(9)—Object_Properties 显示CAD颜色对话框 http://bbs.mjtd.com/forum.php?mod=viewthreadtid=77587extra=highlight=Transparencypage=2 如果只显示索引颜色的话，需做下列修改： Autodesk.AutoCAD.Windows.ColorDialog cd = new Autodesk.AutoCAD.Windows.ColorDialo ...

175 次阅读|0 个评论

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