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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [编程申请]：量取图形的长度和宽度
12下一页
返回列表 发新帖
查看: 1237|回复: 15

[编程申请]：量取图形的长度和宽度

[复制链接]
jcmtxgt
发表于 2005-10-12 02:09:09 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
各位大吓,可不可以编个程序,在cad里面敲个命令,就可以量出图形占用的长度和宽度
宽度, 长度, 图形

相关帖子

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

使用道具 举报

dsggs
发表于 2005-10-13 17:25:48 | 显示全部楼层
不会怎么懒惰吧，执行两次dist命令就可以了哦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cxxq6
发表于 2005-10-13 18:43:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
dist命令一次就行了，点的时候点对角就行了哟
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-10-14 00:16:03 | 显示全部楼层

Re: [编程申请]：量取图形的长度和宽度

最初由 jcmtxgt 发布
[B]各位大吓,可不可以编个程序,在cad里面敲个命令,就可以量出图形占用的长度和宽度 [/B]
  2. [FONT=courier new](load "xyp_lib")
  3. ;|加载通用函数(可在签名栏直接下载)
  4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
  6. ★1·在acad.lsp中增加(load"xyp_lib")
  7. ■2·在每个程序内增加(load"xyp_lib")
  8. ■3·在command下，输入(load"xyp_lib")
  9. ■4·在菜单.mnl中增加(load"xyp_lib")
  10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  11. [COLOR=red] ★通用函数下载地址：[/COLOR]
  12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;

  15. ;;;图形占用的长度和宽度
  16. (defun c:test ()
  17.   (cmdla0)
  18.   (setvar "osmode" 0)
  19.   (setq s1 (car (entsel "\n选择物体 : ")))
  20.   (setq        pt1 (OBJ-MINMAXPT s1 1)
  21.         pt2 (OBJ-MINMAXPT s1 0)
  22.   )
  23.   ;(x_zb pt1);坐标
  24.   ;(x_zb pt2);坐标
  25.   (grvecs (list 1 pt1 pt2))
  26.   (princ "\n长 = ")
  27.   (princ (- (car pt2) (car pt1)))
  28.   (princ "\n宽 = ")
  29.   (princ (- (cadr pt2) (cadr pt1)))
  30.   (cmdla0)
  31. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jcmtxgt
 楼主| 发表于 2005-10-14 02:15:29 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
不过我想要的是输入一个命令,不用动鼠标选择,就可以量出整个文件里面图形所占用的一个最大的长度值和一个最大的宽度值.帮帮忙啦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-10-14 08:17:33 | 显示全部楼层
待测试：
  2. [FONT=courier new];;;图形占用的长度和宽度
  3. (defun c:test (/ ss pt11 pt22)
  4.   (cmdla0)
  5.   ;(setvar "osmode" 0)
  6.   (setq        ss  (ssget "X")
  7.         pt11 (SS-MINMAXPT ss 1)
  8.         pt22 (SS-MINMAXPT ss 0)
  9.   )
  10.   ;(x_zb pt11)                                ;坐标
  11.   ;(x_zb pt22)                                ;坐标
  12.   (grvecs (list 1 pt11 pt22))
  13.   (princ "\n长 = ")
  14.   (princ (- (car pt22) (car pt11)))
  15.   (princ "\n宽 = ")
  16.   (princ (- (cadr pt22) (cadr pt11)))
  17.   (cmdla0)
  18. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2005-10-14 12:30:25 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(getvar "viewsize") + (getvar "screensize") 计算一下就可以
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jcmtxgt
 楼主| 发表于 2005-10-15 03:54:33 | 显示全部楼层
不行啊,再改一下啦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2005-10-15 08:55:19 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这叫当前视口的高度和宽度

  3. (defun c:test (/ h box)
  4.   (setq        h   (getvar "viewsize")
  5.         box (getvar "screensize")
  6.   )
  7.   (princ (list (* h (apply '/ box)) h))
  8.   (princ)
  9. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

梦断江南
发表于 2005-10-15 21:55:33 | 显示全部楼层
如不要特别精确,(其实box方法也不可能很精确) .用ea版主的就可
如要全图,先 zoom all
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-10-15 22:17:53 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
6楼修改：(ssget "x")会将VIEWPORT也包括进去。
利用vla-getboundingbox函数求出每个物体的边界。
  2. [FONT=courier new](load "xyp_lib")
  3. ;|加载通用函数(可在签名栏直接下载)
  4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
  6. ★1·在acad.lsp中增加(load"xyp_lib")
  7. ■2·在每个程序内增加(load"xyp_lib")
  8. ■3·在command下，输入(load"xyp_lib")
  9. ■4·在菜单.mnl中增加(load"xyp_lib")
  10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  11. [COLOR=red] ★通用函数下载地址：[/COLOR]
  12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;

  15. ;;;图形占用的长度和宽度
  16. (defun c:test (/ ss pt11 pt22)
  17.   (cmdla0)
  18.   (command "select" "all" "")
  19.   (setq        ss   (ssget "p")
  20.         pt11 (SS-MINMAXPT ss 1)
  21.         pt22 (SS-MINMAXPT ss 0)
  22.   )
  23.   (grvecs (list 1 pt11 pt22))
  24.   (princ "\n长 = ")
  25.   (princ (- (car pt22) (car pt11)))
  26.   (princ "\n宽 = ")
  27.   (princ (- (cadr pt22) (cadr pt11)))
  28.   (cmdla0)
  29. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jcmtxgt
 楼主| 发表于 2005-10-16 11:43:20 | 显示全部楼层
在r14上加载不了实用函数啊？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-10-17 08:31:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 jcmtxgt 发布
[B]在r14上加载不了实用函数啊？ [/B]

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

使用道具 举报

lliusha
发表于 2005-10-17 10:43:20 | 显示全部楼层
程序的方便性与否可能就在于是否适合所有的“懒人”  呵呵
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-22 00:58 , Processed in 0.283261 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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