[求助]：怎么得到线的交点及距离？

cq_qg · 发表于 2007-8-16 17:18:01

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

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

×

一条竖直线与多条水平斜线相交，怎么得到竖直线与斜线各交点？并得到各交点间的竖向距离？最好能将结果写入文件。

qjcpj · 发表于 2007-8-16 19:49:48

用inters和distance函数。

taner · 发表于 2007-8-17 08:37:51

http://www.acad.net.cn/viewthrea ... ra=page%3D1#pid1530

cq_qg · 发表于 2007-8-17 13:33:21

看了您的程序，可是我运行之后怎么什么反应也没有？就连提示都没有。

zooloo · 发表于 2007-9-12 16:09:38

;第一条线可以是任何线
;JDJ里就是交点坐标
(defun c:jd( )
  (setq jdj nil)
  (setq a1 (entsel "选择垂直线"))
  (if a1
(progn
(setq pt0 (cdr (assoc 10 (entget (car a1)))))
(setq pt0 (vl-remove (last pt0) pt0))
(setq pt1 (cdr (assoc 11 (entget (car a1)))))
(setq pt1 (vl-remove (last pt1) pt1))
(princ "选择斜线")
(setq ssx(ssget))
(setq i (sslength ssx))
(while (> i 0)
   (setq n (entget (ssname ssx (setq i (- i 1)))))
   (setq pt2 (cdr (assoc 10 n)))
   (setq pt2 (vl-remove (last pt2) pt2))
   (setq pt3 (cdr (assoc 11 n)))
   (setq pt3 (vl-remove (last pt3) pt3))
   (if (inters pt0 pt1 pt2 pt3)
      (setq jdj (cons (inters pt0 pt1 pt2 pt3) jdj)))
))))

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

[求助] [求助]：怎么得到线的交点及距离？

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

相关帖子