[编程申请]：测量两线夹角

huiling6868 · 发表于 2005-5-3 00:16:48

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

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

×

谁能给一个测量两线夹角的lisp.

xyp1964 · 发表于 2005-5-3 21:47:51

借用角度标注命令实现：
[php]
(load "xyp_lib")
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在每个程序内增加(load"xyp_lib")
2.在acad.lsp中增加(load"xyp_lib")
3.在command下输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;两线夹角 <huiling6868>
(defun c:test ()
  (cmdla0)
  (setq s1  (usel 0 "LINE")
s2  (usel 0 "LINE")
pt1 (cadr s1)
pt2 (cadr s2)
pt3 (_midp pt1 pt2)
  )
  (command "dimangular" s1 s2 pt3)
  (setq s3  (entlast)
ang (rad2ang (dxf 42 (entget s3)))
  )
  (vla-erase (vlax-ename->vla-object s3))
  (princ "\n两线夹角 : ")
  (princ ang)
  (cmdla1)
)
[/php]

huiling6868 · 发表于 2005-5-3 23:33:18

二楼楼主:
我安你的要求加载了,输入test后,命令行出现:test ; 错误: no function definition: USEL.

xyp1964 · 发表于 2005-5-3 23:49:12

请重新下载“xyp_lib.vlx”：http://www.xdcad.net/forum/attachment.php?s=&postid=1606661

huiling6868 · 发表于 2005-5-4 02:51:33

多谢斑竹,能用了,还有斑竹有没有字给出字间距字按直线或任意弧线排列的lisp,再一次感谢.

狂刀 · 发表于 2005-5-4 23:09:33

仅仅求角度的话。。。。。
[php]
(setq p1 (getpoint) p2(getpoint) p3(getpoint))
(c:cal "ang(p1,p2,p3)")
[/php]

qjcpj · 发表于 2005-5-5 13:07:16

为感谢各位长期以来的帮助，我贴一个自己编写的关于测量“两线夹角”的lsp程序。
程序见附件：cpjlxjj.lsp

wsywdyll · 发表于 2006-7-24 11:30:54

谢谢，正好需要。。

su69 · 发表于 2006-7-24 22:05:41

最初由狂刀发布
[B]仅仅求角度的话。。。。。
[php]
(setq p1 (getpoint) p2(getpoint) p3(getpoint))
(c:cal "ang(p1,p2,p3)")
[/php] [/B]

谢谢你的程序, 想请教下能说说你编程的原理么？我想编个类似的工具，不过不是cad下，　是max下的，用maxscript，不过地知道原理，　我想得用反三角函数吧

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

[编程申请]：测量两线夹角

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

相关帖子