日志

分享 提取文本的坐标，获取文字内容作点号

skg123 2013-10-26 08:55

http://bbs.mjtd.com/forum.php?mod=viewthreadtid=99102 可以进行手工编号、坐标标注，也可以批量选择对象进行编号和坐标标注，提取坐标可存盘txt 编号命令 wf 坐标标注命令 本人做了修改，针对wf 中编号文字插入点有误差的情况，坐标提取进行了修正0.33333 TQWZZB 用于配合提取坐标 ...

1731 次阅读|0 个评论

分享 [函数]AutoCAD.Lisp多行文字过滤掉格式字符 (filterMtext str)

snddd2000 2013-9-17 23:36

(vl-load-com) (defun sn:leftnthlst (n lst) ;;;返回一个表中的前n个元素的表 ;;;示例：(sn:leftnthlst 2 '(1 2 3 4 5 6))；返回表(1 2) ;;;如果输入的n值大于表长返回原表；小于1返回nil (vl-remove nil (mapcar '(lambda (x) (if (= (setq n (1- n)) 0) x nil ) ) lst ...

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

分享 [函数]AutoCAD.Lisp十进制和其他进制的正整数的转换

snddd2000 2013-9-11 23:54

(defun Decimal-To (int bit / tmp re bestr) ;;; (Decimal-To 33 2) return "100001" ;;; int必须为正整数 ;;; bit必须大于1，且小于37（最多用到字母Z）。 (defun bestr (int) (if ( int 9) (vl-list-string (list (+ int 55))) (itoa int) ) ) ;_end sub defun (if (and ( bit 1) ...

1426 次阅读|0 个评论

分享 鼠标悬停到label标签上显示文字

SWAYWOOD 2013-8-16 14:22

winform 添加ToolTip控件 以下语句可以实现 toolTip1.SetToolTip(标签的name, "显示文字");

828 次阅读|0 个评论

分享 移动园后，园自动变为蓝色

Gu_xl 2013-7-9 19:31

问题来源: 如何移动圆后，该圆变为蓝色？ 利用数据库反应器和命令反应器来解决： ;;**************************************************************************************** ;;如何移动圆后，该圆变为蓝色？ ;;命令反应器 (or *cmdvlr* (setq *cmdvlr* (vlr-c ...

1316 次阅读|0 个评论

分享 刷不同文字字高，可能有点用处吧

crazylsp 2013-7-5 15:41

;;刷图中不同文字字高，对实际可能有点用处。20130705 15:30 (defun c:test(/) (setq s(ssget (LIST (CONS 0 "*text") ) ) ) (while s (setq en(ssname s 0) h(cdr(assoc 40 (entget en))) ...

921 次阅读|2 个评论 热度 1

分享 3D Max使用Hair and Fur修改器设置毛发效果

eruiou 2013-7-5 14:20

Hair and Fur修改器用于生成毛发，该修改器可应用于要生长头发的任意对象，快速创建逼真的毛发效果，使用该修改器不仅可以设设置毛发的长度、密度、状态等参数，还可以设置毛发颜色和光泽度的参数，使毛发效果的创建更为简单快捷，在本实例中，将指导各位网友创建一个卡通场景，使用Hair and Fur修改器设置草地和刺猬身上 ...

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

分享 练习排列文字 2013611 今天简化一下2013 622

crazylsp 2013-6-10 23:57

; 20130611 (defun c:ttt() (setq p1 (getpoint"指定间距角度的第一拾取点") p2 (getpoint p1"指定间距的第2拾取点) & ...

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

分享 绘制三通

Gu_xl 2013-4-12 13:41

问题来源： http://bbs.mjtd.com/thread-100892-1-1.html 绘制三通.LSP 绘制三通.LSP 本源代码由 Gu_xl 编写发布！ 联系方式: Email: Gu_xl@sohu.com ;;绘制三通 By Gu_xl 2013.04.12 (c:tt) ( defun c:tt ( / DXF UPD REVLINE PERTOLINE S0 ...

2439 次阅读|2 个评论 热度 4

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