明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 931|回复: 4

求高手帮忙实现如下小功能

[复制链接]
发表于 2023-1-24 00:20 | 显示全部楼层 |阅读模式
先通过拾取两角点绘制一个矩形,然后移动光标(注意不是鼠标左键单击,只是移动鼠标改变光标位置),根据十字光标所在位置(pt1)计算离pt1最近的矩形角点(jd1),将pt1和jd1连线

本帖子中包含更多资源

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

x
发表于 2023-1-24 11:13 | 显示全部楼层
看看是不是这个效果:




本帖子中包含更多资源

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

x
发表于 2023-1-24 11:39 | 显示全部楼层
本帖最后由 liuhe 于 2023-1-24 11:53 编辑
  1. (DEFUN C:TT (/ P1 P2 P3 P4 LST LOOP GR CODE PT PX E1)
  2.   (SETQ        P1   (GETPOINT "\n矩形第一点")
  3.         P2   (GETCORNER P1 "\n 矩形第二点")
  4.         P3   (LIST (CAR P1) (CADR P2))
  5.         P4   (LIST (CAR P2) (CADR P1))
  6.         LST(LIST P1 P3 P2 P4 P1)
  7.         LOOP T
  8.   )
  9.   (ENTMAKEX
  10.     (APPEND
  11.       (list '(0 . "LWPOLYLINE")
  12.      '(100 . "AcDbEntity")
  13.      '(100 . "AcDbPolyline")
  14.      (CONS 90 (LENGTH LST))
  15.       )
  16.       (MAPCAR '(LAMBDA (PT) (CONS 10 PT)) LST)
  17.     )
  18.   )

  19.   (WHILE LOOP
  20.     (SETQ GR   (GRREAD T 15 2)
  21.           CODE (CAR GR)
  22.           PT   (CADR GR)
  23.     )
  24.     (COND
  25.       ((OR (= CODE 3)                        ; 鼠标左击                        
  26.            (= CODE 11)                        ; 鼠标右击
  27.            (= CODE 25)
  28.        )
  29.        (SETQ LOOP NIL)
  30.       )
  31.       ((= CODE 5)                        ; 鼠标移动
  32.        (SETQ PX
  33.               (CAR (VL-SORT
  34.                      LST
  35.                      (FUNCTION (LAMBDA (E1 E2)
  36.                                  (< (DISTANCE E1 PT) (DISTANCE E2 PT))
  37.                                )
  38.                      )
  39.                    )
  40.               )
  41.        )
  42.        (IF E1
  43.          (ENTDEL E1)
  44.        )
  45.        (SETQ
  46.          E1 (ENTMAKEX (LIST '(0 . "LINE") (CONS 10 PT) (CONS 11 PX)))
  47.        )
  48.       )
  49.     )
  50.   )
  51. )
复制代码






给个币呗

评分

参与人数 1明经币 +1 收起 理由
zm880928 + 1 赞一个!

查看全部评分

 楼主| 发表于 2023-1-24 13:21 | 显示全部楼层
ssyfeng 发表于 2023-1-24 11:13
看看是不是这个效果:

非常感谢,就是这个效果
 楼主| 发表于 2023-1-24 13:40 | 显示全部楼层

谢谢大佬,这个效果也很好
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 23:59 , Processed in 0.234025 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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