找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 679|回复: 11

[已解决] 【已解决】请问lisp怎么点击(此处是四条线围成的四边形)内部一点,连接矩形的对角线

[复制链接]
发表于 2019-1-13 13:01:52 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 newer 于 2019-1-13 23:31 编辑

请问lisp怎么点击(此处是四条线围成的四边形)内部一点,连接矩形的对角线

解决代码如下:
  1. (defun c:tt ()
  2.   (defun entmakeline (pt1 pt2 color lt)
  3.     (entmake (list (cons 0 "LINE") (cons 10 pt1) (cons 11 pt2)(cons 62 color) (cons 6 lt) ))
  4.   )
  5.   (if (and (setq pt (getpoint "\n拾取内部点<退出>:"))
  6.            (setq e (bpoly pt))
  7.       )
  8.     (progn (setq pts (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e))
  9.                  pts (mapcar 'cdr pts)
  10.            )
  11.            (if (= (length pts) 4)
  12.              (progn (entmakeline (car pts) (caddr pts) 251 "DASH")
  13.                     (entmakeline (cadr pts) (last pts) 251 "DASH")
  14.              )
  15.              (progn (princ "\n包围区域不是四边形."))
  16.            )
  17.       (entdel e)
  18.     )
  19.   )
  20.   (princ)
  21. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-1-13 13:46:29 | 显示全部楼层
请不要在每日插件论坛发求助的帖子,帮你移动了。

点评

好的,知道了,谢谢啊!  详情 回复 发表于 2019-1-13 18:05
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2019-1-13 13:56:18 | 显示全部楼层
去看看思路

标注四边形各边和对角线并制表
44 个回复 - 1140 次查看
插件来源于申请:http://bbs.xdcad.net/thread-715328-1-1.html 插件中输入的字高等数值按1:1输入,绘图比例通过工具箱的绘图比例设置到实际效果 **** 本内容被作者隐藏 ****
2018-4-8 14:20 - newer - 每日插件


XDGE几何库应用(28)--根据四边长及对角线数据绘制四边形
8 个回复 - 1680 次查看
相关链接 已知四边形的四条边长和一条对角线自动画四边形 http://bbs.xdcad.net/thread-676647-1-1.html
2014-10-31 23:16 - st788796 - XDRX_API应用

[分享]:分享lisp程序(方框+对角线)
1 个回复 - 153 次查看
(defun c:fkx (/ pt1 pt2 pt3 pt4) (command ".undo" "be") (graphscr) (setq pt1 (getpoint " 第一个角")) (setq pt3 (getcorner pt1 " 第二个角")) (setq pt2 (list (car pt1)(cadr pt3 ...
2004-5-17 23:02 - crtrccrt - A/VLISP

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

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2019-1-13 15:20:33 | 显示全部楼层

点选四边形连对角线.gif

  1. (defun c:tt ()
  2.   (defun entmakeline (pt1 pt2 color)
  3.     (entmake (list (cons 0 "LINE") (cons 10 pt1) (cons 11 pt2)(cons 62 color)))
  4.   )
  5.   (if (and (setq pt (getpoint "\n拾取内部点<退出>:"))
  6.            (setq e (bpoly pt))
  7.       )
  8.     (progn (setq pts (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e))
  9.                  pts (mapcar 'cdr pts)
  10.            )
  11.            (if (= (length pts) 4)
  12.              (progn (entmakeline (car pts) (caddr pts) 1)
  13.                     (entmakeline (cadr pts) (last pts) 1)
  14.              )
  15.              (progn (princ "\n包围区域不是四边形."))
  16.            )
  17.       (entdel e)
  18.     )
  19.   )
  20.   (princ)
  21. )


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

使用道具 举报

 楼主| 发表于 2019-1-13 15:47:27 | 显示全部楼层
谢谢,非常感谢!!!!!怎么样让那个红色线成为虚线,251号色

点评

代码很清晰, 1 代表红色, 自己试试改  详情 回复 发表于 2019-1-13 15:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-1-13 15:51:14 | 显示全部楼层
麥芒HFD 发表于 2019-1-13 15:47
谢谢,非常感谢!!!!!怎么样让那个红色线成为虚线,251号色

代码很清晰, 1 代表红色, 自己试试改

点评

那请问虚线怎么加?  详情 回复 发表于 2019-1-13 17:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6056个

财富等级: 富甲天下

发表于 2019-1-13 15:51:23 | 显示全部楼层
谢谢分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2019-1-13 17:50:19 | 显示全部楼层
newer 发表于 2019-1-13 15:51
代码很清晰, 1 代表红色, 自己试试改

那请问虚线怎么加?

点评

你把线变成虚线, 然后 (entget (car (entsel)) 查看屏幕,找到有你虚线名字的组码,添加到程序里面entmakeline 里面,试试。  详情 回复 发表于 2019-1-13 18:23
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-1-13 18:05:45 | 显示全部楼层
newer 发表于 2019-1-13 13:46
请不要在每日插件论坛发求助的帖子,帮你移动了。

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-1-13 18:23:21 | 显示全部楼层
麥芒HFD 发表于 2019-1-13 17:50
那请问虚线怎么加?

你把线变成虚线,
然后
(entget (car (entsel))
查看屏幕,找到有你虚线名字的组码,添加到程序里面entmakeline 里面,试试。

点评

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

使用道具 举报

 楼主| 发表于 2019-1-13 19:08:09 | 显示全部楼层
newer 发表于 2019-1-13 18:23
你把线变成虚线,
然后
(entget (car (entsel))

谢谢,已经搞定了..............

点评

恭喜啊,那你把你最后写的代码贴上来吧, 另外,编辑下主题帖,前面加上【已解决】  详情 回复 发表于 2019-1-13 19:40
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-1-13 19:40:56 | 显示全部楼层
麥芒HFD 发表于 2019-1-13 19:08
谢谢,已经搞定了..............

恭喜啊,那你把你最后写的代码贴上来吧,
另外,编辑下主题帖,前面加上【已解决】
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 17:04 , Processed in 0.196174 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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