[求助]：怎样才能捕捉到两条平行线的中点?

zh_6531394 · 发表于 2006-4-19 13:16:15

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

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

×

怎样才能捕捉到两条平行线的中点?

AyungerStudio · 发表于 2006-5-7 23:22:00

那恐怕除了编程外，永远也别想捕捉到。

zh_6531394 · 发表于 2006-5-8 11:57:04

请高手编程,谢谢!!!!!!

xyp1964 · 发表于 2006-5-8 12:12:39

什么是“两条平行线的中点”？

lyl0077 · 发表于 2006-5-8 13:57:32

9494，平行线中点？是每条线中点还是二条线的中间点？

zh_6531394 · 发表于 2006-5-8 17:24:13

是二条线的中间点

xyp1964 · 发表于 2006-5-8 17:31:32

最初由 zh_6531394 发布
[B]是二条线的中间点 [/B]

应该是二条线平行线的中心线上的任意点吧？！
最好给个图或图片说明。

AyungerStudio · 发表于 2006-5-8 19:28:48

这个问题太难了，若仅仅是平行直线、圆弧就较为简单，但是这样编程局限性太大；但是要使用范围宽的，问题就复杂化了，我还没构思好。

xyp1964 · 发表于 2006-5-9 00:26:03

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20060430
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://free.ys168.com/?xyp1964[/url]
|;
;;; 两条平行线捕捉点的中点
(defun c:test ()
(CMDLA0)
(setvar "osmode" 0)
(setq s1 (USEL 0 "LINE" "平行线1")
s2 (USEL 0 "LINE" "平行线2")
pt1 (osnap (cadr s1) "near")
pt2 (osnap (cadr s2) "near")
ang1 (abs (xyp-get-AngleAtPoint (car s1) pt1))
ang2 (abs (xyp-get-AngleAtPoint (car s2) pt2))
)
(while (> ang1 pi)
(setq ang1 (- ang1 pi))
)
(while (> ang2 pi)
(setq ang2 (- ang2 pi))
)
(if (< (abs (- ang1 ang2)) 0.0001)
(setq pt (xyp-get-MidPoint pt1 pt2))
)
(if pt
(xyp-Cross pt 1000 1)
)
(CMDLA1)
pt
)[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060430 
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib.vlx") 
■2·在每个程序内增加(load"xyp_lib.vlx") 
■3·在command下，输入(load"xyp_lib.vlx") 
■4·在菜单.mnl中增加(load"xyp_lib.vlx") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
[url]http://free.ys168.com/?xyp1964[/url] 
|; 
 
;;; 两条平行线捕捉点的中点 
(defun c:test () 
  (CMDLA0) 
  (setvar "osmode" 0) 
  (setq        s1   (USEL 0 "LINE" "平行线1") 
        s2   (USEL 0 "LINE" "平行线2") 
        pt1  (osnap (cadr s1) "near") 
        pt2  (osnap (cadr s2) "near") 
        ang1 (abs (xyp-get-AngleAtPoint (car s1) pt1)) 
        ang2 (abs (xyp-get-AngleAtPoint (car s2) pt2)) 
  ) 
  (while (> ang1 pi) 
    (setq ang1 (- ang1 pi)) 
  ) 
  (while (> ang2 pi) 
    (setq ang2 (- ang2 pi)) 
  ) 
  (if (< (abs (- ang1 ang2)) 0.0001) 
    (setq pt (xyp-get-MidPoint pt1 pt2)) 
  ) 
  (if pt 
    (xyp-Cross pt 1000 1) 
  ) 
  (CMDLA1) 
  pt 
)[/FONT]

zh_6531394 · 发表于 2006-5-9 09:20:30

楼上的,用不起来,是任意点,应该是透明指令.

xyp1964 · 发表于 2006-5-9 12:56:18

最初由 zh_6531394 发布
[B]楼上的,用不起来,是任意点,应该是透明指令. [/B]

费劲：早点发图和提要求。

青马 · 发表于 2006-5-9 16:57:06

我早前就问过这个问题，结论是，只有cad自己哪天想在命令里加平行线中点捕捉，才有可能实现这个想法

zh_6531394 · 发表于 2006-5-10 08:51:15

就这么难吗?

有点小烦 · 发表于 2006-5-11 13:03:07

意义何在啊？
画跟垂线，偏移一条通过重点的线算了。

tchthong · 发表于 2006-5-11 19:39:49

画标注时非常需要，请高手解答

顺便问句：9楼的代码有用吗？

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

[求助]：怎样才能捕捉到两条平行线的中点?

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

相关帖子

浏览过的版块