乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 99|回复: 3

[编程交流] UCS对象旋转

[复制链接]

3

主题

14

帖子

11

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-5 20:15:03 | 显示全部楼层 |阅读模式
如上标题所示,我正在使用ucs lisp,该lisp将根据选定的对象旋转ucs。但是,我不知道如何确保它在使用lisp时正确旋转。(当手动选择时,Ucs将旋转到最近的选定端)
 
  1. (defun c:cs ()
  2. (command "ncopy" pause "" "0,0" "0,0")
  3. (setq dummy (entlast))
  4. (command "ucs" "ob" dummy "plan" "current")
  5. (command "zoom" "o" dummy "")
  6. (command "erase" dummy "")
  7. (princ)
  8. )
  9. (defun c:cs1 ()
  10. (command "ucs" "w" "plan" "current")
  11. (princ)
  12. )

 
除此之外,我如何记得上次重置ucs的缩放位置?
 
顺致敬意,
回复

使用道具 举报

2

主题

84

帖子

83

银币

初来乍到

Rank: 1

铜币
9
发表于 2022-7-5 20:49:50 | 显示全部楼层
可能是这样的:
 
(德芬C:祖(/林点)
(setq lin(entsel“\n选择一行:”)
(设定值(cadr lin))
(命令“UCS”“OB”point“PLAN”“C”“ZOOM”“O”lin“”)
(普林斯)
)
回复

使用道具 举报

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-5 21:09:42 | 显示全部楼层
古兰,
 
请遵循代码发布指南。
回复

使用道具 举报

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 21:28:05 | 显示全部楼层
你可以看看这里http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-F806BFBE-6291-44B9-AE48-CD960B7CB8D1,这是一种先进的方法。否则,在“UCS”命令下有一个“Previous”选项,它会将您带回一个级别。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 09:23 , Processed in 1.671983 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表