一个修改圆面积的程序，出错了，请大师指教（书上的例子）

wdmzslw · 发表于 2016-12-16 22:10:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:gmj(/ ec area v_c)
  (vl-load-com)
  (setq ec(car (entsel "\n选择一个圆:")));获取圆的图元名
  (setq area(getreal "\n输入圆的新的面积:"))
(while (<= area 0)
(alert "面积必须大于0，请重新输入！")
(setq area(getreal "\n输入圆的新的面积:"))
  )
  (setq v_c(vlax-ename->vla-object ec));将圆的图元名转换为VLA对象
  (vla-put-area v_c area);更新圆的面积
  (princ)
)

命令: gmj
选择一个圆:
输入圆的新的面积:20000
ActiveX 服务器返回错误: 加载类型库/DLL 时出错。

Lisphk · 发表于 2016-12-16 22:45:42

在2008下面，加载测试了，运行正常

命令: GMJ
选择一个圆:
输入圆的新的面积:20000
命令:

不知道你是什么系统，多少位，CAD是什么版本？

Lisphk · 发表于 2016-12-16 22:52:17

WIN10 2016 64位下也正常运行，楼主，奇怪你系统。很低的CAD版本？

wdmzslw · 发表于 2016-12-24 10:40:10

Lisphk 发表于 2016-12-16 22:45

系统是win7 64位，CAD2014 64位

账号		自动登录	找回密码
密码			立即注册

[求助] 一个修改圆面积的程序，出错了，请大师指教（书上的例子）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块