立即注册 登录
晓东CAD家园-论坛 返回首页

eachy的个人空间 http://bbs.xdcad.net/?14 [收藏] [复制] [分享] [RSS]

日志

Lisp|
分享 Grread、Grvecs与矩阵应用演示
2013-5-6 18:14
;;Grvecs与矩阵配合实例:动态拖动演示框 By Eachy 2003.02.28 (de ...
个人分类: Lisp|737 次阅读|0 个评论
分享 反 SIN 函数
2013-5-6 18:14
不完整的函数 代码: ;;由 sin 值返回角度(弧度),返回值位于 -pi/2 ~ pi/2 (defun csin (num / n tan) (if (and (= num 1.) (= num -1.) ) (progn (setq n (sqrt (- 1. (* num num))) tan (/ n num) ) (atan tan) ) ) )
个人分类: Lisp|630 次阅读|0 个评论
分享 让Autoload支持vlx fas
2013-5-6 18:13
代码: ;;让Autoload支持vlx fas ;;加入自定义的自动加载中 (defun ai_ffile (app) (or (findfile (strcat app ".lsp")) (findfile (strcat app ".exp")) (findfile (strcat app ".exe")) (findfile (strcat app ".arx")) (findfile (strcat app ".fas")) (findfile (strcat app ".v ...
个人分类: Lisp|789 次阅读|0 个评论 热度 1
分享 检测 Lwpolyline 自交叉的函数
2013-5-6 18:12
原贴地址:http://www.xdcad.net/forum/showthread.php?s=postid=2941562#post2941562 ...
个人分类: Lisp|649 次阅读|0 个评论
分享 对垂直、水平标注按间距分列/行对齐
2013-5-6 18:11
应一位网友所写的标注对齐程序。 代码: (defun c:AlDim (/ ss ssl i e el p dl tf dist) (if (and (setq ss (ssget '((0 . "dimension") (70 . 32)))) (setq dist (getdist "\n输入间距: ")) ) (progn (command ".undo" "be") (setq ssl (sslength ss) i -1 ) ...
个人分类: Lisp|806 次阅读|0 个评论
分享 写程序中的一个测试
2013-5-6 18:10
程序:曲线选择集交点断开 代码: (defun get-utime () (* 86400.0 (getvar "tdusrtimer"))) (defun c:tt (/ ss t1 i t2 t3 t4 t5 el ol ool) (if (setq ss (ssget)) (progn (setq t1 (get-utime)) (setq ssl (sslength ss) i -1 ) (repeat ssl (setq el (cons (ssname ...
个人分类: Lisp|734 次阅读|0 个评论
分享 [转贴]:MakeBlock
2013-5-6 18:10
代码: ; *** MakeBlock 4/28/95 *** ; ;Copyright 1995 Manu-Soft Computer Services ; ; *************************************** ; **** Author: Owen Wengerd **** ; **** **** ; **** Manu-Soft Computer Services **** ; **** P.O. Box 84 ...
个人分类: Lisp|437 次阅读|0 个评论
分享 [转贴]:FREEHAND
2013-5-6 18:09
;=================================================== ...
个人分类: Lisp|348 次阅读|0 个评论
分享 由特定图框归档图形
2013-5-6 18:09
代码: (defun c:DWGWB (/ ss ssl thisdrawing path i e obj box bp up atts name key0 n key s1 na tag ) (princ "\n选择归档范围 ....") (if (and (setq ss (ssget '((0 . "insert") (8 . "TK*") (66 . 1)))) (setq na (nentsel "\n点取属性图 ...
个人分类: Lisp|373 次阅读|0 个评论
分享 选择的文字内容关联
2013-5-6 18:08
本程序将选择的文字内容关联,修改其中一个其关联文字内容也作相应修改。 注意:本程序虽然测试通过,因为使用了反映器,还是请慎重使用! (vl-load-com) (defun chg_all_link_text (var1 v2 v3 / ha str h thisdrawing) (if (not (vlax-erased-p var1)) (progn (setq thisdrawing (vla-get-activedoc ...
个人分类: Lisp|377 次阅读|0 个评论

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 00:33 , Processed in 0.269202 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

返回顶部