动态矩形加个可以捕捉的功能

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

何必费脑
可以用这个改成你的几何结果
(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

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

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

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

可以接受有的

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

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

非常感谢。问题已经解决

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

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

谢谢分享，比原来的命令方便多了

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

[提问] 动态矩形加个可以捕捉的功能

评分

本帖子中包含更多资源

[提问] 动态矩形 加个可以捕捉的功能

评分

本帖子中包含更多资源

[提问] 动态矩形加个可以捕捉的功能