大神何在！！！

czkkk · 发表于 2017-3-20 13:04:17

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

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

×

求大神做个加载程序可以自动生成多边形的每段长度的

newer · 发表于 2017-3-20 15:16:48

发错板块了，以后有插件需求，请发到悬赏求助或者编程申请论坛。

另外，你这个问题，论坛有插件，你搜索下每日插件论坛，用长度做关键字。

newer · 发表于 2017-3-20 15:22:10

登录/注册后可看大图

http://bbs.xdcad.net/thread-705859-1-1.html

czkkk · 发表于 2017-3-20 21:56:24

不是让它生成以数字的形式显示是像图片那样上那样个意思

newer · 发表于 2017-3-20 22:35:46

czkkk 发表于 2017-3-20 21:56

你觉得你说清楚了图片上的意思了吗？

czkkk · 发表于 2017-3-21 19:18:43

上面的四边形是一个物体的平面我想用一个命令让它自己生成这个物体的四个立面这四个立面高度随便多少最重要宽度对应的是上面四边形的每个边长

newer · 发表于 2017-3-21 20:20:07

czkkk 发表于 2017-3-21 19:18

说清楚就容易了

(defun c:tt ()
(defun _callback (dynpt)
(mapcar '(lambda (x)
(setq pts (xdrx_getpropertyvalue x "vertices")
p1 (car pts)
p2 (cadr pts)
pp (mapcar '- dynpt (trans pt 1 0))
dir (xdrx_vector_product ydir (cadr pp))
p3 (mapcar '+ p2 dir)
p4 (mapcar '+ p1 dir)
)
(xdrx_polyline_setpointat x 2 p3)
(xdrx_polyline_setpointat x 3 p4)
)
ents
)
)
(xdrx_begin)
(if
(and (setq
e (car
(xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE")))
)
)
(xdrx_polyline_isonlylines e)
(setq pt (getpoint "\n点取位置<退出>:"))
)
(progn
(setq verts (xdrx_getpropertyvalue e "vertices"))
(if (xdrx_curve_isclosed e)
(setq verts (xd::pnts:close verts))
)
(setq verts (xd::list:snakepair verts))
(setq xdir (getvar "ucsxdir")
ydir (getvar "ucsydir")
)
(setq i 0
base pt
ents nil
)
(mapcar '(lambda (x)
(if (= i 0)
(setq gap (/ (apply 'distance x) 5.0))
)
(setq i (1+ i))
(setq p1 base
dis (apply 'distance x)
p2 (mapcar '+ p1 (xdrx_vector_product xdir dis))
base (polar p2 0.0 gap)
)
(setq ents (cons (xdrx_polyline_make
(list p1 p2 p2 p1)
t
)
ents
)
)
(xdrx_entity_setpropertiesfrom (entlast) e)
)
verts
)
(xdrx_pointmonitor "_callback")
(getpoint "\n拉伸到:")
(xdrx_pointmonitor)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun _callback (dynpt) 
    (mapcar '(lambda (x) 
               (setq pts (xdrx_getpropertyvalue x "vertices") 
                     p1 (car pts) 
                     p2 (cadr pts) 
                     pp          (mapcar '- dynpt (trans pt 1 0)) 
                     dir  (xdrx_vector_product ydir (cadr pp)) 
                     p3          (mapcar '+ p2 dir) 
                     p4          (mapcar '+ p1 dir) 
               ) 
               (xdrx_polyline_setpointat x 2 p3) 
               (xdrx_polyline_setpointat x 3 p4) 
             ) 
            ents 
    ) 
  ) 
  (xdrx_begin) 
  (if 
    (and (setq 
           e (car 
               (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE"))) 
             ) 
         ) 
         (xdrx_polyline_isonlylines e) 
         (setq pt (getpoint "\n点取位置<退出>:")) 
    ) 
     (progn 
       (setq verts (xdrx_getpropertyvalue e "vertices")) 
       (if (xdrx_curve_isclosed e) 
         (setq verts (xd::pnts:close verts)) 
       ) 
       (setq verts (xd::list:snakepair verts)) 
       (setq xdir (getvar "ucsxdir") 
             ydir (getvar "ucsydir") 
       ) 
       (setq i          0 
             base pt 
             ents nil 
       ) 
       (mapcar '(lambda        (x) 
                  (if (= i 0) 
                    (setq gap (/ (apply 'distance x) 5.0)) 
                  ) 
                  (setq i (1+ i)) 
                  (setq        p1   base 
                        dis  (apply 'distance x) 
                        p2   (mapcar '+ p1 (xdrx_vector_product xdir dis)) 
                        base (polar p2 0.0 gap) 
                  ) 
 
                  (setq        ents (cons (xdrx_polyline_make 
                                     (list p1 p2 p2 p1) 
                                     t 
                                   ) 
                                   ents 
                             ) 
                  ) 
                  (xdrx_entity_setpropertiesfrom (entlast) e) 
                ) 
               verts 
       ) 
       (xdrx_pointmonitor "_callback") 
       (getpoint "\n拉伸到:") 
       (xdrx_pointmonitor) 
     ) 
  ) 
  (xdrx_end) 
  (princ) 
)

czkkk · 发表于 2017-3-21 21:34:21

是这个意思但是接下来要怎样制作这个插件我还不清楚还请大神大概描述下或者说下哪有教程万分感谢！！！

newer · 发表于 2017-3-21 21:36:45

本帖最后由 newer 于 2017-3-21 21:38 编辑

czkkk 发表于 2017-3-21 21:34

最简单的，你下载晓东工具箱，安装，

然后把这个代码拷贝回去，保存一个扩展名LSP的文件，加载它，然后输入TT就行了，如果你想改别的名字，你把上面的c:tt 改成c:XXX 再保存就行了。

如何使用论坛插件，去看看论坛置顶帖子，论坛插件的使用方法，里面详细说了。

http://bbs.xdcad.net/thread-670393-1-1.html

czkkk · 发表于 2017-3-21 21:52:25

命令: tt ; 错误: no function definition: XDRX_BEGIN 这是啥意思

czkkk · 发表于 2017-3-21 21:58:00

装了工具箱就可以了请问哪里有这个工具箱的功能介绍

newer · 发表于 2017-3-21 21:59:40

czkkk 发表于 2017-3-21 21:52

上面不是和你说了，先装晓东工具箱嘛。或者是你有开发基础的话，装XDRX API（开发环境）也行。晓东工具箱已经包括开发环境和集成很多论坛的插件了。

newer · 发表于 2017-3-21 22:01:44

czkkk 发表于 2017-3-21 21:58

每日插件论坛，里面每个插件都有动画演示。有不清楚的，再单独发帖求助。
多看论坛以前的帖子，多用搜索功能。

czkkk · 发表于 2017-3-21 22:12:51

这个tt命令是否可以在细化下生成的每个图形之间的间距是否可以控制还有材料的料位比方是用1毫米的板有块板的宽度就要去掉1毫米

newer · 发表于 2017-3-21 22:43:34

czkkk 发表于 2017-3-21 22:12

你意思是，多段线的宽度要是1，那么矩形的底边长度就减去1 ？还是这个宽度你手工输入？

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

[公告] 大神何在！！！

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

浏览过的版块