明经CAD杂志(总第11期，2005第5期)出版

mccad

主要内容：
业界新闻
设计本质完美演进─AutoCAD 2006繁体中文版上市
精品图书
AutoCAD ObjectARX程序开发技术
AutoCAD 2005中文版标准实例教程
基础应用
旋转图形时保留原图的方法
SPLINE偏移后为什么夹点数量会变得很多
实现X、Y、Z不等比例缩放
斜线变为水平线的方法
图纸空间全屏化
命令前加“-”与不加“-”的区别
在标注文字时，标注上下标的方法
作品鉴赏
投影光源总成３Ｄ效果
椅子
开发天地
[AutoLISP]获取Windows系统路径的方法
[AutoLISP]CAD外挂程序简繁切换
[VisualLISP]弧长的标注方法
[DCL]保留对话框中上次输入的值
[VBA]在VB或VBA中使用延时
[VBA]让你的VBA或VB程序也能播音乐
经典源码
[VisualLISP] 获取多义线的x,y坐标
[AutoLISP]扩展数据追加
[VisualLISP] 两对象交点
[AutoLISP]多段线和其他线的交点改为多段线的顶点
[VBA]返回对齐标注或转角标注的标注点坐标
[AutoLISP]文字加外框
[VisualLISP]原位置COPY物件到其它图档
热门讨论
世界是不是可以拿掉轮子
明经学堂
使用VB.net开发AutoCAD 2005(四)
ObjectDCL学习笔记(四)
三维造型与装配(三)
专题文章
FSO对象模型在VB中的应用
用VB操作注册表 下载：
http://www.mjtd.com/mcdown/list.asp?id=532 浏览：
http://www.mjtd.com/e-zine/mezine0505.HTM

twinpen

thanks!

无痕

有新料，顶一顶

无痕

补充一个两个曲线实体交点表

2. ;| ----梁雄啸.2003.12 完成!
3.   函数: (x_intlst 实体1 实体2 参数)
4.   功能:求两实体的交点表 -----参数合集,实体可以是vla-object或者ename实体;
5.   参数: 0---实交点表;
6.              1---延伸第一选择实体的交点表;
7.              2---延伸第二选择实体的交点表;
8.              3---延伸两个实体的交点表;
9. |;
10. ;|(setq e1 (vlax-ename->vla-object (car(entsel "\n1:")))
11.            e2 (vlax-ename->vla-object (car(entsel "\n2:")))
12.            lst (x_intlst e1 e2 0)) ;测试|;;;;
13. (defun x_intlst (obj1 obj2 param / intlst1 intlst2 ptlst)
14.    (if (= 'ENAME (type obj1))(setq obj1 (vlax-ename->vla-object obj1)))
15.    (if (= 'ENAME (type obj2))(setq obj2 (vlax-ename->vla-object obj2)))
16.    (setq intlst1 (vlax-variant-value (vla-intersectwith obj1 obj2 param)))
17.    (if (< 0 (vlax-safearray-get-u-bound intlst1 1))   ;是0< 不能是/=0.
18.        (progn
19.            (setq intlst2 (vlax-safearray->list intlst1)) ;得点值表,非点表;
20.            (while (> (length intlst2) 0)                                 ;3数做一元素生成表;
21.   (setq ptlst (cons (list (car intlst2)(cadr intlst2)(caddr intlst2)) ptlst)
22.              intlst2 (cdddr intlst2))
23.            )            
24.    ) )
25. ptlst                   ;交点表本身即以x排序,
26. )

;| ----梁雄啸.2003.12 完成!   函数: (x_intlst 实体1 实体2 参数)   功能:求两实体的交点表 -----参数合集,实体可以是vla-object或者ename实体;   参数: 0---实交点表;              1---延伸第一选择实体的交点表;              2---延伸第二选择实体的交点表;              3---延伸两个实体的交点表; |; ;|(setq e1 (vlax-ename->vla-object (car(entsel "\n1:")))            e2 (vlax-ename->vla-object (car(entsel "\n2:")))            lst (x_intlst e1 e2 0)) ;测试|;;;; (defun x_intlst (obj1 obj2 param / intlst1 intlst2 ptlst)    (if (= 'ENAME (type obj1))(setq obj1 (vlax-ename->vla-object obj1)))    (if (= 'ENAME (type obj2))(setq obj2 (vlax-ename->vla-object obj2)))    (setq intlst1 (vlax-variant-value (vla-intersectwith obj1 obj2 param)))    (if (< 0 (vlax-safearray-get-u-bound intlst1 1))   ;是0< 不能是/=0.        (progn            (setq intlst2 (vlax-safearray->list intlst1)) ;得点值表,非点表;            (while (> (length intlst2) 0)                                 ;3数做一元素生成表;   (setq ptlst (cons (list (car intlst2)(cadr intlst2)(caddr intlst2)) ptlst)              intlst2 (cdddr intlst2))            )                ) ) ptlst                   ;交点表本身即以x排序, )

无痕

[AutoLISP]多段线和其他线的交点改为多段线的顶点 作者：龙龙仔

漏了一函数： ;;(ADD_INTPT <OLYLINE线> <相交线>)
;;(ADD_INTPT <OLYLINE线> <相交线>)

无痕

补充一个扩展数据相关函数

2. ;| (xxd-put e app) = entmod方式,给实体添加或更新或删除扩展数据.-----梁雄啸.2004.10.1
3. 参数: e = 实体名.
4.            app = '("注册名" 项1 项2 ...) ;用于添加或更新. 如(list "test" '(1070 . 1234)'(1003 . "0"))
5.                        '("注册名") ; 用于删除相关注册项的xdata.
6.                        nil ; 用于删除实体全部的xdata.
7. 说明: 支持所有实体.非图形实体不支持viewport(必须用 vlax-ldata-put.或setxdata方法).
8.            参考 entmod 帮助.
9. 相关: 参照 ()函数=vla方式,支持所有的扩展数据修改.
10. 实例: 1.增加(如已经有,则为更新)指定注册名的xdata:
11.                (xxd-put (car(entsel)) (list "test" (cons 1070 1234)))
12.                (xxd-put (car(entsel)) (list "test1" (cons 1070 4321)))
13.            2.删除指定注册名的xdata:
14.                (xxd-put (car(entsel)) '("test"))
15.                (xxd-put (car(entsel)) '("test1"))
16.            3.删除所有的扩展数据:
17.                (xxd-put (setq e(car(entsel))) nil)
18. |;
19. (defun xxd-put (e app)
20.    (if app (regapp (car app))) ;;无论是否已经有,均注册.有重复的话无不利影响.
21.    (if app
22.        (entmod (list (cons -1 e) (list -3 app))) ;;新建,更新,或删除指定app,{用 '("注册名") }.
23.        (progn                                                                       ;;删除所有的扩展数据.
24.            (setq apps (mapcar 'car (cdr(assoc -3 (entget e '("*"))))))
25.            (entmod (list (cons -1 e) (cons -3 (mapcar 'list apps))))
26.        )
27.    )
28. )
29. ;|参考:删除xdata另外方法--by cy956@mjtd.
30. (defun c:delxdata()
31.    (setq e(entsel)
32.                en(entget (car e)))
33.    (entmod en)
34. )
35. |;

;| (xxd-put e app) = entmod方式,给实体添加或更新或删除扩展数据.-----梁雄啸.2004.10.1 参数: e = 实体名.            app = '("注册名" 项1 项2 ...) ;用于添加或更新. 如(list "test" '(1070 . 1234)'(1003 . "0"))                        '("注册名") ; 用于删除相关注册项的xdata.                        nil ; 用于删除实体全部的xdata. 说明: 支持所有实体.非图形实体不支持viewport(必须用 vlax-ldata-put.或setxdata方法).            参考 entmod 帮助. 相关: 参照 ()函数=vla方式,支持所有的扩展数据修改. 实例: 1.增加(如已经有,则为更新)指定注册名的xdata:                (xxd-put (car(entsel)) (list "test" (cons 1070 1234)))                (xxd-put (car(entsel)) (list "test1" (cons 1070 4321)))            2.删除指定注册名的xdata:                (xxd-put (car(entsel)) '("test"))                (xxd-put (car(entsel)) '("test1"))            3.删除所有的扩展数据:                (xxd-put (setq e(car(entsel))) nil) |; (defun xxd-put (e app)    (if app (regapp (car app))) ;;无论是否已经有,均注册.有重复的话无不利影响.    (if app        (entmod (list (cons -1 e) (list -3 app))) ;;新建,更新,或删除指定app,{用 '("注册名") }.        (progn                                                                       ;;删除所有的扩展数据.            (setq apps (mapcar 'car (cdr(assoc -3 (entget e '("*"))))))            (entmod (list (cons -1 e) (cons -3 (mapcar 'list apps))))        )    ) ) ;|参考:删除xdata另外方法--by cy956@mjtd. (defun c:delxdata()    (setq e(entsel)                en(entget (car e)))    (entmod en) ) |;

yunlong300

感谢斑竹的辛勤劳动。

sun-yc

一定去学习学习

hhjsmz

谢谢，收下了。

pqs001

能有一个好的网站,能有一群乐于助人的高手,


cad_redeveloper's fortune