找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1114|回复: 1

(完成)[编程申请]:能否编程实现以鼠标的点击方向来确定多义线的连接顺序?

[复制链接]
发表于 2002-8-18 16:47:00 | 显示全部楼层 |阅读模式

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

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

×
多谢晓东等各位大侠赐教!再请教一下:在PEDIT指令中是以线段或圆弧选取的先后来确定多义线的连接顺序的,能否编程实现在弧线连接交点处单击鼠标,以鼠标的点击方向来确定多义线的连接顺序?谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 593个

财富等级: 财运亨通

发表于 2002-8-19 00:44:34 | 显示全部楼层

Re: [编程申请]:能否编程实现以鼠标的点击方向来确定多义线的连接顺序?

最初由 guxing129 发布
[B]多谢晓东等各位大侠赐教!再请教一下:在PEDIT指令中是以线段或圆弧选取的先后来确定多义线的连接顺序的,能否编程实现在弧线连接交点处单击鼠标,以鼠标的点击方向来确定多义线的连接顺序?谢谢! [/B]

程序写好了,顺便问个问题:什么情况需要这种反向JOIN?
拷贝至晓东工具箱 Lisp 目录下后加载即可。

  1. ($xdrx_load "xdlsp.lsp")
  2. (defun c:cu_reverse (/ e box tfz)
  3.   (if (setq e (xdrx_entsel
  4.                 "\n请点取曲线<退出>:"
  5.                 '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE"))
  6.               )
  7.       )
  8.     (progn
  9.       (setq e (car e))
  10.       (xdrx_begin
  11.         '("cmdecho" 0 "blipmode" 0 "osmode" 0
  12.          )
  13.       )
  14.       (if (setq        tfz (apply
  15.                       'xdrx_isptoffscr
  16.                       (setq box (xdrx_entity_box e))
  17.                     )
  18.           )
  19.         (progn
  20.           (xdrx_drawing_viewsave)
  21.           (xdrx_drawing_zoomw (cadr box) (last box) t)
  22.         )
  23.       )
  24.       (#xd_grdraw (car (xdrx_curve_getpoint e)))
  25.       (IF (= (setq key (xdrx_yesorno "\是否转向<是>: ")) 1)
  26.         (progn (xdrx_curve_reverse E)
  27.                (#xd_grdraw (last (xdrx_curve_getpoint e)))
  28.                (PRINC "\n\t成功反向...")
  29.         )
  30.       )
  31.       (if tfz
  32.         (xdrx_drawing_viewres)
  33.       )

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-26 02:39 , Processed in 0.620243 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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