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

szmaicy · 发表于 2018-9-29 14:35:25

zjh2785 · 发表于 2018-8-30 20:20:26

自带的矩形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))
)

mokson · 发表于 2018-9-29 15:15:36

太感谢大家的帮忙了。

yanshengjiang · 发表于 2018-11-15 14:14:32

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:05

通信线路工程

jhzxj · 发表于 2021-10-31 23:48:17

通信线路工程。用矩形画，里面有旋转功能啊

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

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

本帖子中包含更多资源

本帖子中包含更多资源

点评