[求助]：帮助看看下面程序问题出在哪

wzg · 发表于 2004-5-21 12:02:24

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

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

×

(defun c:mj()
(vl-load-com)
(setq ss (entsel "选择"));选择一个圆
(setq j1 (ssname ss 1));取出第一个物体
(setq j2 (vlax-ename->vla-object j1));转化为VBL物体类型
(setq mj (vlax-curve-getarea j2));求面积
)
运行错误，提示参数类型不对

lsjjm · 发表于 2004-5-21 12:15:46

(setq ss (entsel "选择"))  ---这一行选择的是单个实体,
(setq j1 (ssname ss 1))-----这里又把SS当选择集了, 且如果是选择集体的话，　第一个实体是(SSNAME SS 0)

修改如下:
(defun c:test ()
  (setq j2 (car (entsel)))
  (setq mj (vlax-curve-getarea j2))
)

wzg · 发表于 2004-5-21 14:11:07

谢谢黄金长老的指点，我刚学习VLISP，希望多多指教

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

[求助] [求助]：帮助看看下面程序问题出在哪

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

相关帖子

浏览过的版块