galayan 发表于 2005-3-21 08:54:00

请高手帮忙，编个程序！

具体是这样的：


在AutoCAD中对于任意给定的二维*.dwg图形


图形构成有线段、圆弧、样条曲线等。。。。。。。


用VBA编写程序，对这样一个任意给定的图形


程序能够自动获取图形的所有控制点及其坐标并且输出到对话框中


通过手动改变这些坐标，可以重新生成新的图形(形状、尺寸均改变)


请高手帮忙编写，谢谢了


我的邮箱地址：<A href="mailto:holly413@163.com" target="_blank" >holly413@163.com</A>


另个人资料：


本人现就读于西安交通大学电气工程学院控制理论与控制工程专业


硕士2年级

xqyhome 发表于 2005-3-23 09:56:00

我可以用LISP编；

galayan 发表于 2005-3-23 10:34:00

那能不能麻烦您帮我写一个实现这个功能的lisp程序呢？

xqyhome 发表于 2005-3-23 13:15:00

;看一个小例子（可参考此原理）


( DEFUN C:CC (/ D SS ENMING ED) ;参数化修改圆的尺寸<BR>       ( PRINC "请选择要修改尺寸的圆:")<BR>       ( SETQ SS (SSGET))<BR>       ( SETQ D (GETREAL "请输入圆的直径："))<BR>                       ( SETQ ENMING (SSNAME SS 0))<BR>                       ( SETQ ED (ENTGET ENMING))<BR>                       ( IF (EQUAL (CONS 0 "CIRCLE") (ASSOC 0 ED)) <BR>                                               (PROGN <BR>                                                                       ( SETQ ED<BR>                                                                       ( SUBST (CONS 40 (/ D 2.0)) (ASSOC 40 ED) ED)<BR>                                                                       )<BR>                                                                                       ( ENTMOD ED)<BR>                                               )<BR>                       )<BR>)
页: [1]
查看完整版本: 请高手帮忙，编个程序！