明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: a6262846

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

[复制链接]
发表于 2019-9-20 10:47 | 显示全部楼层
本帖最后由 start4444 于 2019-9-20 10:49 编辑

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

(command "LINE" (getpoint"\n点1:") (getpoint  "\n点2:") "" "ucsfollow" "0" "UCS" "ob" (entlast) "ERASE" (entlast) "")
 楼主| 发表于 2019-9-20 11:19 | 显示全部楼层
start4444 发表于 2019-9-20 10:47
是新建坐标系,不说清楚简单问题复杂化

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

是这个了  谢谢大神  实在不好意思 我表达不清楚
发表于 2019-9-20 14:11 | 显示全部楼层
新建坐标系的话,直接UCS 命令不行?
 楼主| 发表于 2019-9-20 17:17 | 显示全部楼层
菜卷鱼 发表于 2019-9-20 14:11
新建坐标系的话,直接UCS 命令不行?

是的   这个也是可以的  
发表于 2019-9-20 20:37 | 显示全部楼层
看的一脸蒙圈  到最后原来就是UCS就搞定的问题
发表于 2019-9-21 09:47 | 显示全部楼层
ucs "z" (getpoint p1) (getpoint p2)
发表于 2019-9-21 11:33 | 显示全部楼层
  1.    (setq p1 (getpoint))
  2.         (setq p2 (getpoint p1))
  3.       (command "_.ucs" "n" "z"  p1  p2)

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 14:41 , Processed in 0.173469 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表