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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [编程申请]：坐标值自动填写到表格的相应位置中 ...
返回列表 发新帖
查看: 844|回复: 8

[编程申请]：坐标值自动填写到表格的相应位置中

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

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

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

×
通过某一程序能将示例图中某曲线与多条直线的交点自动将X、Y值写入表格中相应的位置
图中, 标值, 表格

相关帖子

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

使用道具 举报

li809
发表于 2005-2-15 22:20:05 | 显示全部楼层
好建议，希望各高手多帮忙，我也需要
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-11-30 16:03:35 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
初版：
  2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051129 (大小:61.81 KB,1730次下载)
  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. |;

  15. ;;;
  16. (defun c:test ()
  17.   (CMDLA0)
  18.   (setvar "osmode" 0)
  19.   (setq        s0   (car (entsel "\n选择实体 : "))
  20.         pt00 (getpoint "\n标注点 : ")
  21.         pt1  (xyp-get-MinMaxPoint s0 1)
  22.         pt9  (xyp-get-MinMaxPoint s0 9)
  23.         ss   (ssget "c" pt1 pt9)
  24.         ss1  (ssadd)
  25.         ptn  '()
  26.         i    -1
  27.         j    0
  28.   )
  29.   (command "select" ss "r" s0 "")
  30.   (setq ss (ssget"P"))
  31.   (while (setq s1 (ssname ss (setq i (1+ i))))
  32.     (if        (setq pt (xyp-get-Inters s0 s1 0))
  33.       (setq ptn (append pt ptn))
  34.     )
  35.   )
  36.   (setq        ptn1 (delsame ptn)
  37.         ptn (vl-sort ptn1
  38.                      (function (lambda (e1 e2) (< (car e1) (car e2))))
  39.             )
  40.   )
  41.   (foreach n ptn
  42.     (mkla"depoints"8)
  43.     (xyp-Text n 5 (itoa (setq j (1+ j))))
  44.     (setq pt (list (car pt00) (- (cadr pt00) (* (- j 1) 800))))
  45.     (mkla"标注"4)
  46.     (xyp-Text pt
  47.               1
  48.               (strcat (itoa j)
  49.                       " "
  50.                       (rtos (car n) 2 3)
  51.                       " "
  52.                       (rtos (cadr n) 2 3)
  53.               )
  54.     )
  55.   )
  56.   (CMDLA1)
  57. )

  59. (defun delsame (ptlst / nl lst)          
  60.   (mapcar '(lambda (x)
  61.              (if (not (member x nl))
  62.                (setq nl (cons x nl))
  63.              )
  64.            )
  65.           ptlst
  66.   )
  67.   nl
  68. )
  69. [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-11-30 21:46:32 | 显示全部楼层
完整版（方式有所修改）：
  2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20051130 (大小:61.60 KB,1740次下载)
  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. |;

  15. ;;;
  16. (defun c:test ()
  17.   (CMDLA0)
  18.   (setvar "osmode" 0)
  19.   (princ "\n选择实体 : ")
  20.   (setq        ss0  (ssget)
  21.         pt00 (getpoint "\n数据标注左上角点 : ")
  22.         k    -1
  23.         l    0
  24.         ss   (ssget "c"
  25.                     (xyp-get-SsMinMaxPoint ss0 0)
  26.                     (xyp-get-SsMinMaxPoint ss0 1)
  27.              )
  28.   )
  29.   (while (setq s0 (ssname ss0 (setq k (1+ k))))
  30.     (setq ss1  (ssadd)
  31.           ptn  '()
  32.           i    -1
  33.           j    0
  34.           lnum (strcat "L" (itoa (+ k 1)))
  35.     )
  36.     (command "select" ss "r" s0 "")
  37.     (setq ss (ssget "P"))
  38.     (while (setq s1 (ssname ss (setq i (1+ i))))
  39.       (if (setq pt (xyp-get-Inters s0 s1 0))
  40.         (setq ptn (append pt ptn))
  41.       )
  42.     )
  43.     (setq ptn (delsame ptn)
  44.           ptn (vl-sort ptn
  45.                        (function (lambda (e1 e2) (< (car e1) (car e2))))
  46.               )
  47.     )
  48.     (setq pt (list (car pt00) (- (cadr pt00) (* (setq l (1+ l)) (* 800 sc)))))
  49.     (mkla "标注" 4)
  50.     (xyp-Text 1 pt (strcat "线 " lnum" : "))
  51.     (foreach n ptn
  52.       (mkla "depoints" 8)
  53.       (xyp-Text 3 n (strcat lnum "-" (itoa (setq j (1+ j)))))
  54.       (setq pt (list (car pt00) (- (cadr pt00) (* (setq l (1+ l)) (* 800 sc)))))
  55.       (mkla "标注" 4)
  56.       (xyp-Text        1
  57.                 pt
  58.                 (strcat        lnum
  59.                         "-"
  60.                         (itoa j)
  61.                         " "
  62.                         (rtos (car n) 2 3)
  63.                         " "
  64.                         (rtos (cadr n) 2 3)
  65.                         " "
  66.                         (rtos (caddr n) 2 3)
  67.                 )
  68.       )
  69.     )
  70.   )
  71.   (CMDLA1)
  72. )[/FONT]

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

使用道具 举报

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

使用道具 举报

zbweixkj
发表于 2005-11-30 22:41:49 | 显示全部楼层
请看一下这一贴：http://www.xdcad.net/forum/showthread.php?s=&threadid=76624
也可以的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hechao48
发表于 2005-12-3 17:16:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
http://www.xdcad.net/forum/showthread.php?s=&threadid=76624

中的CadAssis与jdbz(交点标注)功能不完全相同，
虽然CadAssis功能比较全面，但是它不能一次读取整条样条曲线与其它直线的交点。
我认为交点的标注还是读取到剪贴板、文本文件、或Exce等l的好，
因为最后的交点值在图面或其它资料里的排版样式是多种多样的，而且不同的曲线（比如另一条船的型线图！）与其它直线的相交关系也不相同。如果直接把读出的数据显示在CAD图纸上，那么软件的通用性就不强了！
下次读取另一份图纸上类似的线时，不会又要做一个有针对性的软件吧！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jx2008
发表于 2006-11-17 00:47:06 | 显示全部楼层
怎么测试的时候不成功阿，运行到数据坐标左上角点，点击完后，就没有反应了，命令还没有退出。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xzbdhyl
发表于 2006-12-11 20:42:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 jx2008 发布
[B]怎么测试的时候不成功阿，运行到数据坐标左上角点，点击完后，就没有反应了，命令还没有退出。 [/B]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-21 04:07 , Processed in 0.471404 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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