设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区 › 日志

日志

政论、时评| 明经| LISP| 文艺|

分享表排序: caoyin 2012-8-11 01:02; 可应用于点集排序要求见： http://bbs.mjtd.com/thread-95905-1-1.html (defun PointList-sort (PNTLST / REC) (defun REC (A B);;递归 (cond ((equal (car A) (car B) 1E-4) (REC (cdr A) (cdr B))) (T ( (car A) (car B))) &nbs ...; 个人分类: LISP|2748 次阅读|3 个评论热度 11

分享模仿动态右键菜单: caoyin 2011-11-30 09:47; ;;; 模仿动态右键菜单-----by caoyin 2011.11.29 ;;; ------------------------------------------------------------- ;;; 以前我们实现右键菜单是在菜单文件中编辑好宏，用的时候调用， ;;; 现在可以利用DYN功能和WScript.Shell对象的SendKeys方法随机实现。 ;;; 适用 AutoCAD 2006 及以上版本 ;;; ------------------ ...; 个人分类: LISP|2017 次阅读|1 个评论热度 13

分享 [写给新手]两种机制让ENTSEL更完美: caoyin 2011-11-15 02:56; ;;两种机制让ENTSEL更完美------caoyin 2011.11.14 ;;本文从以前的程序中整理出来，希望能给新手一些启示。 ;;entsel函数在执行过程中会出现3中可能 ;;1.选择为空，返回nil，退出。 ;;2.用户右击鼠标，返回nil，退出。 ;;3.选中对象，返回一个包含点和图元名的表。但有时候对象的类型并不是自己想要的 ...; 个人分类: LISP|3163 次阅读|1 个评论热度 14

分享获取曲线偏移到任意点的距离: caoyin 2011-11-8 22:45; ;; 获取曲线偏移到任意点的距离(也可用于VLA-OFFSET,LINE会例外) ;; en---图元名 ;; pt---点 ;; 实型数(=0 时点在曲线上，0 时点在曲线的正方向，0 时在曲线的反方向) ;; (setq en (car (entsel)) pt (getpoint) d (lt:curve-getDistancePtTo en pt)) (defun lt:c ...; 个人分类: LISP|1498 次阅读|2 个评论热度 5

分享趣味阅读：大话 LISP 之加载门事件: caoyin 2011-9-8 16:02; 1.加载门事件 : 警告：罪行恶劣、请勿模仿、后果自负【起因】load函数被绑架，vl-file-delete函数冒充了load烧杀抢掠无恶不作，顿时江湖上血雨腥风…… 【犯案经过】(setq load vl-file-delete) 【危害】所有load加载的文件全部命丧黄泉…… 【现场调查】AutoCAD 窗口变成LISP文件的火葬场(LISP文 ...; 个人分类: LISP|1475 次阅读|6 个评论热度 20

分享绘制波浪线: caoyin 2011-8-4 11:08; ;;; WAVES.lsp ;;; by caoyin @ 2011.08.04 ;;; 绘制波浪线 ;;; ----------------------------------------------------------------- (defun C:WAVES (/ R2S P1 PA BU TAG P2 ANG LST I OBJ BU) (defun R2S (REL / DZIN) (setq DZIN (getvar "DIMZIN")) (setvar "DIMZIN" 0) &nb ...; 个人分类: LISP|1142 次阅读|1 个评论热度 4

分享设置 Qleader 命令“引线设置”对话框的相关参数: caoyin 2011-5-6 21:06; ;;设置 Qleader 命令“引线设置”对话框的相关参数 ;;注：引线的箭头跟DIMSTYLE使用同一设置，可以直接修改DIMLDRBLK系统变量 ;;2011.5.5 by caoyin (defun C:TT (/ DICEN) (setq DICEN (namedobjdict)) (if (dictsearch DICEN "AcadDim") (dictremove DICEN "AcadDim") ) ...; 个人分类: LISP|1998 次阅读|3 个评论热度 13

分享快速退出AUtoCAD: caoyin 2011-4-14 07:08; ;;; 快速退出AUtoCAD--By Caoyin 2009.4 ;;; 不必逐个操作检查保存、关闭文档，不必担心文档因未保存而丢失。 ;;; 1. 未修改的文档直接关闭； ;;; 2. 已经修改并已经命名存档的直接保存； ;;; 3. 已经修改但尚未命名存档的另存到临时目录。 (defun C:QX (/ AC MSG TMP NAME FNAME) (setq AC (vlax-get-acad-obje ...; 个人分类: LISP|834 次阅读|0 个评论热度 5

分享求多段线上的弧段(圆或圆弧也有效)的圆心: caoyin 2011-1-23 04:11; ;;求多段线上的弧段(圆或圆弧也有效)的圆心 ;;TEST ;;(getCenter (entsel "\n选择多段线弧段: ")) (defun getCenter (EP / E P) (mapcar 'set '(E P) EP) (setq P (apply 'vlax-curve-getClosestPointTo EP)) (mapcar '+ P &n ...; 个人分类: LISP|842 次阅读|5 个评论热度 2

分享求直线与圆的交点: caoyin 2011-1-23 02:56; ;;求直线与圆的交点 (defun GetIntersOfLineCircle (CEN RAD LP1 LP2 / ANG AN2 PT DI1 DI P1 P2) (setq ANG (angle LP1 LP2) AN2 (+ ANG (/ PI 2)) PT (inters LP1 LP2 CEN ( ...; 个人分类: LISP|916 次阅读|0 个评论热度 2

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )
©2000-2023 明经通道版权所有本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-5-3 13:17 , Processed in 0.155435 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部