求一个点两点就可以旋转十字光标的lisp

a6262846 · 发表于 2019-9-19 17:43:18

求大神给个点两点就可以旋转十字光标的lisp

start4444 · 发表于 2019-9-20 10:47:30

本帖最后由 start4444 于 2019-9-20 10:49 编辑

是新建坐标系，不说清楚简单问题复杂化

(command "LINE" (getpoint"\n点1:") (getpoint "\n点2:") "" "ucsfollow" "0" "UCS" "ob" (entlast) "ERASE" (entlast) "")

a6262846 · 发表于 2019-9-20 11:19:07

start4444 发表于 2019-9-20 10:47
是新建坐标系，不说清楚简单问题复杂化

(command "LINE" (getpoint"\n点1:") (getpoint "\n点2:") "" " ...

是这个了谢谢大神实在不好意思我表达不清楚

evayleung · 发表于 2019-9-21 11:33:58

(setq p1 (getpoint))
(setq p2 (getpoint p1))
(command "_.ucs" "n" "z" p1 p2)

Andyhon · 发表于 2019-9-19 19:43:50

(and
   (setq pt1 (getpoint "\n点一: "))
   (setq pt2 (getpoint "\n点二: "))

   (setvar 'snapang (angle pt1 pt2))
)

a6262846 · 发表于 2019-9-19 21:56:36

Andyhon 发表于 2019-9-19 19:43
(and
(setq pt1 (getpoint "\n点一: "))
(setq pt2 (getpoint "\n点二: "))

大神不是改变量

a6262846 · 发表于 2019-9-19 21:56:38

Andyhon 发表于 2019-9-19 19:43
(and
(setq pt1 (getpoint "\n点一: "))
(setq pt2 (getpoint "\n点二: "))

大神这...

Andyhon · 发表于 2019-9-19 22:08:03

看来是我猜错了!

start4444 · 发表于 2019-9-20 09:52:26

为什么不把问题说得清楚详细点，每次都是让别人回复了就这不对那不对，这种贴有人回复已经很幸运了

a6262846 · 发表于 2019-9-20 10:16:17

Andyhon 发表于 2019-9-19 22:08
看来是我猜错了!

大神变量的话默认还是世界坐标系

a6262846 · 发表于 2019-9-20 10:16:36

start4444 发表于 2019-9-20 09:52
为什么不把问题说得清楚详细点，每次都是让别人回复了就这不对那不对，这种贴有人回复已经很幸运了

是的不好意思我应该说清楚的

a6262846 · 发表于 2019-9-20 10:20:44

(defun C:Q () (command "ucsfollow" "0" "UCS" "OB") (PRINC))
;旋转模型空间

a6262846 · 发表于 2019-9-20 10:24:02

大神我这里有一个命令这个是点图元然后旋转光标现在想改成点两点旋转光标平行成这两点形成的线

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

[提问] 求一个点两点就可以旋转十字光标的lisp