[LISP程序]：有关Ellipse的问题

kevinchan

如何取得椭圆的Quadrant(四分点)

我是构想通过椭圆的四分点来画内接菱形...

xyp1964

[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;椭圆内接菱形 <kevinchan>
(defun c:test ()
  (cmdla0)
  (setq        e    (usel 0 "ELLIPSE")
        e    (car e)
        leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
        df   (/ leng 4)
        i    1
  )
  (command "pline")
  (repeat 4
    (setq pt1 (vlax-curve-getPointAtDist
                (vlax-ename->vla-object e)
                (* i df)
              )
          i   (1+ i)
    )
    (command pt1)
  )
  (command "c")
  (cmdla1)
)[/php]

xyp1964

任意内接多边形：
[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;椭圆内接菱形 <kevinchan>
(defun c:test ()
  (cmdla0)
  (setvar "osmode" 0)
  (setq        no1  (ureal 1 "" "\n边数" no1)
        e    (car (usel 0 "ELLIPSE"))
        leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
        df   (/ leng no1)
        i    1
  )
  (command "pline")
  (repeat (fix no1)
    (setq pt1 (vlax-curve-getPointAtDist
                (vlax-ename->vla-object e)
                (* i df)
              )
          i   (1+ i)
    )
    (command pt1)
  )
  (command "c")
  (cmdla1)
)[/php]

kevinchan

最初由 xyp1964 发布
[B]任意内接多边形：
[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load... [/B]

非常谢谢xyp1964,功能已经可以实现,但要如何才可以实现一次选择多个椭圆,完成所有的内接多边形呢?

xyp1964

最初由 kevinchan 发布
[B][QUOTE]最初由 xyp1964 发布
[B]任意内接多边形：
[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的... [/B]

利用3楼的程序可以演变出几个经典的程序：
1. 将任意条线（line、polyline、spline……）等分
2. 线转多义线
3. 圆内接正多边形
……

kevinchan

斑竹可否告诉我怎样才可以实现一次选择多个椭圆,完成所有的内接多边形?

xyp1964

圆、椭圆内接多边形，支持框选：
[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;圆、椭圆内接多边形 <kevinchan>
(defun c:test ()
  (cmdla0)
  (setvar "osmode" 0)
  (setq        no1 (ureal 1 "" "\n边数" no1)
        ss  (ssget '((0 . "ELLIPSE,CIRCLE")))
        i   -1
  )
  (command ".undo" "BE")
  (mkla"内接多边形"4)
  (while (setq e (ssname ss (setq i (1+ i))))
    (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
          df   (/ leng no1)
          n    1
    )
    (command "pline")
    (repeat (fix no1)
      (setq pt1        (vlax-curve-getPointAtDist
                  (vlax-ename->vla-object e)
                  (* n df)
                )
            n        (1+ n)
      )
      (command pt1)
    )
    (command "c")
  )
  (command ".undo" "E")
  (cmdla1)
)[/php]

kevinchan

高!实在是高!支持XYP1964!谢谢XYP1964!

xyp1964

任意线等分：DFX （等分线）