mokson 发表于 2018-8-28 11:13:23

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


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

http://lee-mac.com/3pointrectangle.html

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

通信线路工程。用矩形画，里面有旋转功能啊
页: [1]
查看完整版本: 画这种矩形很另类，有人能做出 Lisp 代码吗？