添加代码

myfrankie · 发表于 2013-5-15 17:19:25

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

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

×

(defun C:TT (/ curve point ang)
  (setq curve (entsel "\n选择任意曲线: "))
  (mapcar 'set '(curve point) curve)
  (setq point (vlax-curve-getClosestPointTo curve point)
      ang (angle '(0 0)
                  (vlax-curve-getFirstDeriv
                     curve
                     (vlax-curve-getParamAtPoint curve point)
                  )
            )
      ang (+ ang (/ pi 2))
  )
  (command "_.xline" "_non" point "_non" (polar point ang 10) "")
)
如何给这段代码加上捕捉功能？谢谢

XDSoft · 发表于 2013-5-15 17:25:46

你想要啥捕捉，就在代码的开头加上：

(setvar osmode "具体的值")

具体的值查帮助手册。

另外问问题有技巧，比如你要说你的代码想做什么，在哪个步骤想添加什么，遇到什么问题等等，节省大家理解你的问题的时间，也方便你获得更快更准确的答案。必要时候截图，发测试DWG到论坛。

欢迎你常来！

守仁格竹GM · 发表于 2013-5-15 17:29:08

(defun C:TT (/ curve point ang)
  (vl-load-com)
  (setq curve (car(entsel "\n选择任意曲线: ")))
  (setq point (getpoint))
  (setq point (vlax-curve-getClosestPointTo curve point)
      ang (angle '(0 0)
                  (vlax-curve-getFirstDeriv
                     curve
                     (vlax-curve-getParamAtPoint curve point)
                  )
            )
      ang (+ ang (/ pi 2))
  )
  (command "_.xline" "_non" point "_non" (polar point ang 10) "")
)

守仁格竹GM · 发表于 2013-5-15 17:29:51

看看这样行不行

myfrankie · 发表于 2013-5-15 17:35:28

守仁格竹GM 发表于 2013-5-15 17:29
看看这样行不行

谢谢，是这样效果

Lispboy · 发表于 2013-5-15 17:39:33

确实是，楼主，你是想求曲线上的一点的切线，然后画一个垂直于这个切线过那个点的XLINE？

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

[求助] 添加代码

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

点评