找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1408|回复: 2

[编程申请]:将点p1、p2、p3、p4用3dface命令连成一个三维空间的面

[复制链接]
发表于 2006-5-25 09:10:11 | 显示全部楼层 |阅读模式

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

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

×
求LSP程序,同时选择三维间的两条直线LINE1与line2,获取line1的端点p1(x1,y1,z1),p2(x2,y2,z2)
获取line2端点p3(x3,y3,z3),p4(x4,y4,z4),将点p1、p2、p3、p4用3dface命令连成一个三维空间的面(希望能同时框选两条直线)。谢谢。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2006-5-25 22:34:13 | 显示全部楼层
  1. [FONT=courier new];|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
  2. 利用以下任何一种方式(首选第一种)即可加载和运行通用函数内的所有子程序:
  3. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
  4. ■2·在每个程序内增加(load"xyp_lib.vlx")
  5. ■3·在command下,输入(load"xyp_lib.vlx")
  6. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
  7. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  8. [COLOR=red] ★通用函数下载地址:[/COLOR]
  9. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  10. [url]http://free.ys168.com/?xyp1964[/url]
  11. |;

  12. (defun c:test ()
  13.   (CMDLA0)
  14.   (setq        ss (ssget '((0 . "LINE")))
  15.         i  -1
  16.   )
  17.   (if (setq s1 (ssname ss (setq i (1+ i))))
  18.     (setq p10 (xyp-get-dxf 10 s1)
  19.           p11 (xyp-get-dxf 11 s1)
  20.     )
  21.   )
  22.   (while (setq s1 (ssname ss (setq i (1+ i))))
  23.     (setq p10a (xyp-get-dxf 10 s1)
  24.           p11a (xyp-get-dxf 11 s1)
  25.     )
  26.     (command "3dface" p10 p11 p11a p10a "")
  27.     (setq p10 p10a
  28.           p11 p11a
  29.     )
  30.   )
  31.   (CMDLA1)
  32. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-5-26 10:15:57 | 显示全部楼层
经cad2004测试,xyp1964  斑竹的LSP程序可用。 谢谢。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-2 19:03 , Processed in 0.365575 second(s), 36 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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