请高手帮忙，编个程序！

galayan

具体是这样的： 在AutoCAD中对于任意给定的二维*.dwg图形 图形构成有线段、圆弧、样条曲线等。。。。。。。 用VBA编写程序，对这样一个任意给定的图形 程序能够自动获取图形的所有控制点及其坐标并且输出到对话框中 通过手动改变这些坐标，可以重新生成新的图形(形状、尺寸均改变) 请高手帮忙编写，谢谢了 我的邮箱地址：holly413@163.com 另个人资料： 本人现就读于西安交通大学电气工程学院控制理论与控制工程专业 硕士2年级

xqyhome

我可以用LISP编；

galayan

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

xqyhome

;看一个小例子（可参考此原理） ( DEFUN C:CC (/ D SS ENMING ED) ;参数化修改圆的尺寸
( PRINC "请选择要修改尺寸的圆:")
( SETQ SS (SSGET))
( SETQ D (GETREAL "请输入圆的直径："))
( SETQ ENMING (SSNAME SS 0))
( SETQ ED (ENTGET ENMING))
( IF (EQUAL (CONS 0 "CIRCLE") (ASSOC 0 ED))
(PROGN
( SETQ ED
( SUBST (CONS 40 (/ D 2.0)) (ASSOC 40 ED) ED)
)
( ENTMOD ED)
)
)
)