( XD::Drag:NEdge)正多边形拖动实现函数(三种方式）

Lispboy

外接多边形演示






拖动边 正多边形演示

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

测试代码示例：

1. (defun c:test-nedge()
   
2.    (initget "I O E")
   
3.    (if (and (setq mode (getint "\n[内切圆-0/外接圆-1/固定边-2]<0>:"))
   
4.             (setq num (getint "\n正多边形边数:"))
   
5.             (setq pj (getpoint "\n中心点:"))
   
6.        )
   
7.      (progn
   
8.         (XD::Drag:NEdge "\n拾取点" pj num mode "a" 2)
   
9.      )
   
10.    )
    
11.    (princ)
    
12. )
    
13. 
    

(defun c:test-nedge()<br />    (initget "I O E")<br />    (if (and (setq mode (getint "\n[内切圆-0/外接圆-1/固定边-2]<0>:"))<br />             (setq num (getint "\n正多边形边数:"))<br />             (setq pj (getpoint "\n中心点:"))<br />        )<br />      (progn<br />         (XD::Drag:NEdge "\n拾取点" pj num mode "a" 2)<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

Lispboy

大家可以说说还需要什么样的JIG，只要你能想到，我就能给你JIG出来。

话有些大了，不过也差不多{:soso_e113:}

eachy

大致都是修改 Pline 的 Coordinate

snsj

Lispboy动上瘾了{:soso_e113:}

Lispboy

eachy 发表于 2013-7-20 23:47
大致都是修改 Pline 的 Coordinate

是啊，JIG很好写啊，就是两件事，用LISP画多边形，然后用LISP修改多边形顶点。 中间的过程就JIG拖动了。

Lispboy

snsj 发表于 2013-7-20 23:56
Lispboy动上瘾了

是上瘾了，你也写写啊，用 xdrx_drag_jig.

cooolsee

工具带给人的是方便，开发者的思想是灵猴

aimisiyou

Lispboy 发表于 2013-7-20 23:42
大家可以说说还需要什么样的JIG，只要你能想到，我就能给你JIG出来。

话有些大了，不过也差不多{:soso_e ...

函数图像能动态显示出来吗？

XDSoft

aimisiyou 发表于 2015-1-18 11:09
函数图像能动态显示出来吗？

只要你能画出来。

aimisiyou

XDSoft 发表于 2015-1-18 12:15
只要你能画出来。

如y=sin(x)，我做一水平线段，起点为（0，0），当第二个端点还没确定（处于拉伸状态），函数图象（以线段横坐标为X值）也处于拉伸状态（周期次数多或少），当点击第二个端点，函数图像即确定下来。

newer

aimisiyou 发表于 2015-1-18 13:32
如y=sin(x)，我做一水平线段，起点为（0，0），当第二个端点还没确定（处于拉伸状态），函数图象（以线段 ...

你把上面函数里面绘制部分替换成你的画线函数就行了。

kele99kele

好东西，楼主威武

zhangjianjie630

我就是一直想知道这个动态是怎么实现的