设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [已解决]申请指定间距排孔程序
1234
返回列表 发新帖
楼主: pezyl

[已解决] [已解决]申请指定间距排孔程序

[复制链接]
pezyl

已领礼包: 41个

财富等级: 招财进宝
 楼主| 发表于 2017-6-16 11:37:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2017-6-16 10:37

折腾半天，还是不会，不知道代码加在哪，零基础真是寸步难行。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2017-6-16 12:24:28 | 显示全部楼层
pezyl 发表于 2017-6-16 11:37

两种方案
选择矩形，画包围盒

  1. (defun c:tt ()
  2.   (if (setq e (car (xdrx_entsel "\n拾取矩形<退出>:" '((0 . "LWPOLYLINE")))))
  3.     (progn
  4.       (setq verts (xdrx_getproeprtyvalue e "vertices")
  5.             spt (car verts)
  6.             ept (cadr verts)
  7.             xdir (mapcar
  8.                    '-
  9.                    ept
  10.                    spt
  11.                  )
  12.             box (xdrx_entity_box e xdir)
  13.             box (xd::pnts:ucs2wcs box)
  14.       )
  15.       (xdrx_polyline_make box t)
  16.     )
  17.   )
  18.   (princ)
  19. )


  1. (defun c:tt ()
  2.   (if (setq e (car (xdrx_entsel "\n拾取矩形<退出>:" '((0 . "LWPOLYLINE")))))
  3.     (progn
  4.       (setq ecs (xdrx_entity_getecs e)
  5.             xdir (cadr ecs)
  6.             box (xdrx_entity_box e xdir)
  7.             box (xd::pnts:ucs2wcs box)
  8.       )
  9.       (xdrx_polyline_make box t)
  10.     )
  11.   )
  12.   (princ)
  13. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

pezyl

已领礼包: 41个

财富等级: 招财进宝
 楼主| 发表于 2017-6-16 14:40:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2017-6-16 12:24

学习了，基本上能看明白了。可是用到这个导长宽数据到excel表的代码里就蒙圈了，还是不会用


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2017-6-16 16:23:30 | 显示全部楼层
pezyl 发表于 2017-6-16 14:40

别的不说，

  1.                          (mapcar 'set
  2.                                   '(p1 p2 p3 p4)
  3.                                      (setq xdir (mapcar '-p2 p1))                                                                                                            
  4.                                      (xdrx_getpropertyvalue x "boundingbox")
  5.                           )


应该为：

  1.                          (mapcar 'set
  2.                                   '(p1 p2 p3 p4)
  3.                                      (xdrx_getpropertyvalue x "boundingbox" xdir)
  4.                           )
  5.                           (setq xdir (mapcar '-p2 p1))  
  6.                          （setq box (xdrx_points_box (list p1 p2 p3 p4) xdir)                                                                                                           



上面这个BOX就是4个点贴合的矩形框
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2017-6-16 19:13:08 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
pezyl 发表于 2017-6-16 14:40

你要取3DSOLID实体的包围盒，试试

  1. (defun c:tt ()
  2.     (if (setq e (car (xdrx_entsel "\n拾取实体<退出>:")))
  3.         (progn (setq pts  (xdrx_3dsolid_vertex e)
  4.                      pts  (last pts)
  5.                      xdir (mapcar '- (cadr pts) (car pts))
  6.                      xdir (xdrx_vector_normalize xdir)
  7.                      box  (xdrx_points_box pts xdir)
  8.                )
  9.                (xdrx_polyline_make (xd::pnts:ucs2wcs box) t)
  10.         )
  11.     )
  12.     (princ)
  13. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

pezyl

已领礼包: 41个

财富等级: 招财进宝
 楼主| 发表于 2017-6-16 20:31:49 | 显示全部楼层
Lisphk 发表于 2017-6-16 16:23

我这都没入门的小白，谢谢指导
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

pezyl

已领礼包: 41个

财富等级: 招财进宝
 楼主| 发表于 2017-6-16 20:49:50 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 pezyl 于 2017-6-16 20:51 编辑
newer 发表于 2017-6-16 19:13

不好意思，我的表述有歧义了，本意是想咨询好了自己改改的，结果一团糟了。
我其实是想批量统计矩形(任意角度)的长和宽，并把长宽数据导到excel表里，数值大的放在“长度”，数值小的放在“宽度”
就跟您这个帖子的回复 http://bbs.xdcad.net/thread-707851-3-2.html 基本一样，我把帖子里的"3dsolid"改成"lwpolyline"一切正都是需要的，只是统计成角度矩形的时候数据不对。



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2017-6-16 21:24:36 | 显示全部楼层
pezyl 发表于 2017-6-16 20:49

你单独发个帖子吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

qq1254582201

已领礼包: 104个

财富等级: 日进斗金
发表于 2017-6-21 19:29:42 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
路过握爪，回头查看。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

1234
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-4-19 06:04 , Processed in 0.454427 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表