【已解决】请问lisp怎么点击（此处是四条线围成的四边形）内部一点，连接矩形的对角线

麥芒HFD · 发表于 2019-1-13 13:01:52

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

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

×

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

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

解决代码如下：

(defun c:tt ()
(defun entmakeline (pt1 pt2 color lt)
(entmake (list (cons 0 "LINE") (cons 10 pt1) (cons 11 pt2)(cons 62 color) (cons 6 lt) ))
)
(if (and (setq pt (getpoint "\n拾取内部点<退出>:"))
(setq e (bpoly pt))
)
(progn (setq pts (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e))
pts (mapcar 'cdr pts)
)
(if (= (length pts) 4)
(progn (entmakeline (car pts) (caddr pts) 251 "DASH")
(entmakeline (cadr pts) (last pts) 251 "DASH")
)
(progn (princ "\n包围区域不是四边形."))
)
(entdel e)
)
)
(princ)
)

newer · 发表于 2019-1-13 13:46:29

请不要在每日插件论坛发求助的帖子，帮你移动了。

Lisphk · 发表于 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

marting · 发表于 2019-1-13 15:20:33

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

麥芒HFD · 发表于 2019-1-13 15:47:27

谢谢，非常感谢！！！！！怎么样让那个红色线成为虚线，251号色

newer · 发表于 2019-1-13 15:51:14

麥芒HFD 发表于 2019-1-13 15:47
谢谢，非常感谢！！！！！怎么样让那个红色线成为虚线，251号色

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

kqqt6236 · 发表于 2019-1-13 15:51:23

谢谢分享。

麥芒HFD · 发表于 2019-1-13 17:50:19

newer 发表于 2019-1-13 15:51
代码很清晰， 1 代表红色，自己试试改

那请问虚线怎么加？

麥芒HFD · 发表于 2019-1-13 18:05:45

newer 发表于 2019-1-13 13:46
请不要在每日插件论坛发求助的帖子，帮你移动了。

好的，知道了，谢谢啊！

newer · 发表于 2019-1-13 18:23:21

麥芒HFD 发表于 2019-1-13 17:50
那请问虚线怎么加？

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

麥芒HFD · 发表于 2019-1-13 19:08:09

newer 发表于 2019-1-13 18:23
你把线变成虚线，
然后
(entget (car (entsel))

谢谢，已经搞定了..............

newer · 发表于 2019-1-13 19:40:56

麥芒HFD 发表于 2019-1-13 19:08
谢谢，已经搞定了..............

恭喜啊，那你把你最后写的代码贴上来吧，
另外，编辑下主题帖，前面加上【已解决】

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

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

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

点评

点评

点评

点评

点评

点评