已知圆弧,怎么求一直线.

00lg · 发表于 2007-10-27 08:18:00

小弟近来想编一个组件,需要各位大大帮忙.这个组件的功能是这样的.

选择一条园弧,自动求出它的两个端点,在这两点间画一条直线.

请大家帮忙,不胜感激.

我只会用最基本的LISP函数,太高级的不要吓我啊,呵呵

caoyin · 发表于 2007-10-27 11:15:00

(defun c:tt (/ en)
(if (and (setq en (entsel "\n选择圆弧: "))
           (= (cdr (assoc 0 (entget (setq en (car en))))) "ARC")
      )
    (progn
      (setvar "osmode" 0)
      (command "_.line"
               (vlax-curve-getStartPoint en)
               (vlax-curve-getEndPoint en)
               ""
      )
    )
    (princ "\n无效选择。")
)
(princ)
)

ZZXXQQ · 发表于 2007-10-27 13:30:00

游客，本帖隐藏的内容需要发帖数高于 3 才可浏览，你当前发帖数只有 0

00lg · 发表于 2007-10-27 15:56:00

很多谢楼上2位,又学到东西了.我能请你们吃饭吗?

zwzmh · 发表于 2007-10-29 00:31:00

又学到了一些东西

zwzmh · 发表于 2007-10-29 20:05:00

不错，挺实用的

yang198910204 · 发表于 2012-11-4 17:11:44

怎么我试了一下没用呢??我是在2004CAD上试用了一下没用哦

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