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:") "" " ...

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

菜卷鱼 发表于 2019-9-20 14:11:23

新建坐标系的话，直接UCS 命令不行？

a6262846 发表于 2019-9-20 17:17:57

菜卷鱼 发表于 2019-9-20 14:11
新建坐标系的话，直接UCS 命令不行？

是的   这个也是可以的

love1030312 发表于 2019-9-20 20:37:31

:lol看的一脸蒙圈到最后原来就是UCS就搞定的问题

kwok 发表于 2019-9-21 09:47:01

ucs "z" (getpoint p1) (getpoint p2)

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

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

页: 1 [2]
查看完整版本: 求一个点两点就可以旋转十字光标的lisp