日志
- 分享 绘制波浪线
- ;;; 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 ...
- 分享 [转载]路透社中国首席记者林洸耀：九十周年大庆有感
- 路透社中国首席记者林洸耀：九十周年大庆有感 (2011-06-22) 转自：新加坡联合早报 http://www.zaobao.com/futurechina/pages/news110622a.shtml 2011年7月1日，中国共产党将庆祝建党90周年。在世界两个超级大国之一的苏联于1991年解体后，不少中国共产党员在开闭门会议时曾抱头痛哭 ...
- 分享 设置 Qleader 命令“引线设置”对话框的相关参数
- ;;设置 Qleader 命令“引线设置”对话框的相关参数 ;;注：引线的箭头跟DIMSTYLE使用同一设置，可以直接修改DIMLDRBLK系统变量 ;;2011.5.5 by caoyin (defun C:TT (/ DICEN) (setq DICEN (namedobjdict)) (if (dictsearch DICEN "AcadDim") (dictremove DICEN "AcadDim") ) ...
- 分享 快速退出AUtoCAD
- ;;; 快速退出AUtoCAD--By Caoyin 2009.4 ;;; 不必逐个操作检查保存、关闭文档，不必担心文档因未保存而丢失。 ;;; 1. 未修改的文档直接关闭； ;;; 2. 已经修改并已经命名存档的直接保存； ;;; 3. 已经修改但尚未命名存档的另存到临时目录。 (defun C:QX (/ AC MSG TMP NAME FNAME) (setq AC (vlax-get-acad-obje ...
- 分享 求多段线上的弧段(圆或圆弧也有效)的圆心
- ;;求多段线上的弧段(圆或圆弧也有效)的圆心 ;;TEST ;;(getCenter (entsel "\n选择多段线弧段: ")) (defun getCenter (EP / E P) (mapcar 'set '(E P) EP) (setq P (apply 'vlax-curve-getClosestPointTo EP)) (mapcar '+ P &n ...
12