明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 751|回复: 16

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

[复制链接]
发表于 2019-9-19 17:43 | 显示全部楼层 |阅读模式
求大神给个点两点就可以旋转十字光标的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-21 11:33 | 显示全部楼层
  1.    (setq p1 (getpoint))
  2.         (setq p2 (getpoint p1))
  3.       (command "_.ucs" "n" "z"  p1  p2)

发表于 2019-9-19 19:43 | 显示全部楼层
(and
     (setq pt1 (getpoint "\n点一: "))
     (setq pt2 (getpoint "\n点二: "))
   
     (setvar 'snapang (angle pt1 pt2))
   )
 楼主| 发表于 2019-9-19 21:56 | 显示全部楼层
Andyhon 发表于 2019-9-19 19:43
(and
     (setq pt1 (getpoint "\n点一: "))
     (setq pt2 (getpoint "\n点二: "))

大神  不是改变量
 楼主| 发表于 2019-9-19 21:56 | 显示全部楼层
Andyhon 发表于 2019-9-19 19:43
(and
     (setq pt1 (getpoint "\n点一: "))
     (setq pt2 (getpoint "\n点二: "))

大神  这...
发表于 2019-9-19 22:08 | 显示全部楼层
看来是我猜错了!
发表于 2019-9-20 09:52 | 显示全部楼层
为什么不把问题说得清楚详细点,每次都是让别人回复了就这不对那不对,这种贴有人回复已经很幸运了
 楼主| 发表于 2019-9-20 10:16 | 显示全部楼层
Andyhon 发表于 2019-9-19 22:08
看来是我猜错了!

大神  变量的话  默认还是世界坐标系
 楼主| 发表于 2019-9-20 10:16 | 显示全部楼层
start4444 发表于 2019-9-20 09:52
为什么不把问题说得清楚详细点,每次都是让别人回复了就这不对那不对,这种贴有人回复已经很幸运了

是的  不好意思 我应该说清楚的
 楼主| 发表于 2019-9-20 10:20 | 显示全部楼层
(defun C:Q () (command "ucsfollow" "0" "UCS" "OB") (PRINC))  
;旋转模型空间
 楼主| 发表于 2019-9-20 10:24 | 显示全部楼层
大神  我这里有一个命令  这个是点图元 然后旋转光标  现在想改成点两点 旋转光标平行成这两点形成的线
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 02:34 , Processed in 0.210971 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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