[编程申请]：谁能帮帮我？

iyan · 发表于 2004-8-13 16:05:08

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

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

×

我想做以下几项功能，谁能帮我：
1、使用entsel 选取矩形中一边后，如何在程序中取这条边的两端点的数据；
2、如何将LISP程序代码绑定在DWG文件中，以便该文件在别人的ACAD环境下能运行其中绑定的代码。
先谢过各位大虾了！

aidraft · 发表于 2004-8-14 09:41:12

(defun C:test(/ sel en selpt)
  (setq sel (entsel "\n选择矩形：")
en (car sel)
selpt (cadr sel))
  (setq selparam (vlax-curve-getparamatpoint en (osnap selpt "_nea")))
  (setq pt1 (vlax-curve-getpointatparam en (fix selparam)))
  (setq pt2 (vlax-curve-getpointatparam en (1+ (fix selparam))))
)

至于第二个问题，建议采用VBA嵌入工程

yczmc · 发表于 2004-8-16 04:02:12

2楼强！

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

[编程申请]：谁能帮帮我？

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

相关帖子