明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1974|回复: 8

画这种矩形很另类,有人能做出 Lisp 代码吗?

[复制链接]
发表于 2018-8-28 11:13 | 显示全部楼层 |阅读模式

本帖子中包含更多资源

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

x
发表于 2018-9-29 14:35 | 显示全部楼层
http://lee-mac.com/3pointrectangle.html

本帖子中包含更多资源

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

x
回复 支持 1 反对 0

使用道具 举报

发表于 2018-8-30 20:20 | 显示全部楼层
自带的矩形RECTANG 了解一下,  选取第一个点之后可以设置旋转角度。

如果你一定要用lisp达到这个效果  可以试试这个  你可以优化一下代码  这只是我个人的一些思路

(defun C:T1 ()
  (setq p1 (getpoint "Select:"))
  (setq p2 (getpoint p1 "Select:" ))
  (setq ang (angle p1 p2))
  (command "RECTANG" "w" "10" p1 "r" (*(/ 180 pi) ang))
)

点评

简洁,谢谢分享  发表于 2022-2-6 17:41
666666  发表于 2018-9-6 08:42
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-9-29 15:15 | 显示全部楼层
太感谢大家的帮忙了。
发表于 2018-11-15 14:14 | 显示全部楼层
szmaicy 发表于 2018-9-29 14:35
http://lee-mac.com/3pointrectangle.html

没有认真看L这个程序  如果他的功能何下面这个一样的话 那就太可笑了

(defun C:T1 ()
  (setq p1 (getpoint "Select:"))
  (setq p2 (getpoint p1 "Select:" ))
  (setq ang (angle p1 p2))
  (command "RECTANG" "w" "10" p1 "r" (*(/ 180 pi) ang))
)
发表于 2018-11-15 14:52 | 显示全部楼层
通信线路工程
发表于 2021-10-31 23:48 | 显示全部楼层
通信线路工程。用矩形画,里面有旋转功能啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 18:41 , Processed in 0.206275 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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