明经CAD杂志(总第八期，2005第2期)出版

mccad

内容：
基础应用：
提高AutoCAD 2005的启动速度，绘制铁路线型，在AutoCAD中输入中文文字，设置替换字体；
开发天地：
在VC中彻底玩转Excel，利用ObjectDbx技术预览块图像，异曲同工：固定标注尺寸的文字不随缩放而改变；
经典源码：
[VisualLISP]使用标准vlisp显示选择文件夹对话框的方法，[VisualLISP] SPLINE转换为PLINE，[VBA] 读取整个文本文件并保存在字符串中，[VBA] 判断组合所在的空间；
明经学堂：
使用VB.net开发AutoCAD 2005(一)，ObjectDCL学习笔记(一)；
专题文章：
如何选择AutoCAD的开发工具，制造业信息化：2004年技术信息化市场综述 下载：
http://www.mjtd.com/mcdown/list.asp?id=513 浏览：
http://www.mjtd.com/e-zine/mezine0502.HTM

ovo

新年快乐

zakka

happy new year

zssm6

新春愉快！


万事如意！

wanyan

[glow=255,red,2]文字[/glow][SHADOW=255,blue,1]文字[/SHADOW]http://

yugong888

OK

无痕

改了几句，后面打;;处

2. ;; dmvl = 块定义修改法－固定标注文字! v1.2-----by无痕. (第二版)
3. ;; 支持所有标注类型.
4. (defun c:dmvl (/ ss n dm dml)
5.    (princ "\n选择要固定文字的标注:")
6.    (setq ss (ssget '((0 . "DIMENSION"))))
7.    (repeat (setq n (sslength ss))
8.        (setq dm   (ssname ss (setq n (1- n))))
9.        (vla-put-textoverride (vlax-ename->vla-object dm) (getdimtext dm)) ;;
10.    )(princ)
11. )
12. ;;取标注文本.
13. (defun getdimtext (dm / e el)
14.    (setq e (tblobjname "block" (cdr (assoc 2 (entget dm)))));;
15.    (while (and (setq e (entnext e))
16.                            (not (member '(100 . "AcDbMText") (setq el (entget e))))
17.    )
18.    )
19.    (if e (cdr (assoc 1 el)) " ")
20. )

;; dmvl = 块定义修改法－固定标注文字! v1.2-----by无痕. (第二版) ;; 支持所有标注类型. (defun c:dmvl (/ ss n dm dml)    (princ "\n选择要固定文字的标注:")    (setq ss (ssget '((0 . "DIMENSION"))))    (repeat (setq n (sslength ss))        (setq dm   (ssname ss (setq n (1- n))))        (vla-put-textoverride (vlax-ename->vla-object dm) (getdimtext dm)) ;;    )(princ) ) ;;取标注文本. (defun getdimtext (dm / e el)    (setq e (tblobjname "block" (cdr (assoc 2 (entget dm)))));;    (while (and (setq e (entnext e))                            (not (member '(100 . "AcDbMText") (setq el (entget e))))    )    )    (if e (cdr (assoc 1 el)) " ") )

lzu1797

过完年才有时间上来就发现好东东


当然要顶了

twinpen

祝明经通道新年进步

mccad

新的一期(第9期)除是原来的VB.NET及ObjectDCL教程外，增加了三维绘图方面的教程内容。希望大家能够喜欢。