wzg356 发表于 2022-9-26 20:59:55

何必费脑
可以用这个改成你的几何结果
(defun C:TT1 ( / P1 P2 ANG)
(setq p1 (getpoint "\n指定第一点:"))
(setq p2 (getpoint p1 "\n指定第二点:" ))
(setq ang (angle p1 p2))
(command "RECTANG" "non" p1 "r" (*(/ 180 pi) ang) pause)
(princ)
)

dtucad 发表于 2022-9-28 12:18:05



悄悄问一下楼主 接受lisp+dll的方式吗 悬赏是否还有效？

孙玉坤 发表于 2022-9-29 00:41:02

dtucad 发表于 2022-9-28 12:18
悄悄问一下楼主 接受lisp+dll的方式吗 悬赏是否还有效？

可以接受有的

孙玉坤 发表于 2022-9-30 08:33:02

dtucad 发表于 2022-9-29 23:26
使用说明：
1、命令netload加载dll文件；
2、加载本lisp文件；


非常感谢。问题已经解决:lol

sunny_8848 发表于 2022-11-26 07:54:17

wzg356 发表于 2022-9-26 20:59
何必费脑
可以用这个改成你的几何结果
(defun C:TT1 ( / P1 P2 ANG)


谢谢分享，比原来的命令方便多了
页: 1 [2]
查看完整版本: 动态矩形 加个可以捕捉的功能