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

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

求大神给个点两点就可以旋转十字光标的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"p1p2)

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

大神我这里有一个命令这个是点图元 然后旋转光标现在想改成点两点 旋转光标平行成这两点形成的线
页: [1] 2
查看完整版本: 求一个点两点就可以旋转十字光标的lisp