命令offset是怎样实现的？

Humanway · 发表于 2020-9-15 11:14:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

AutoCAD命令Offset输入后

登录/注册后可看大图

有两种状态，即可以输入数字给定偏移距离，也可以用鼠标在图纸上选取

登录/注册后可看大图

请问这是怎么实现的？
尝试用getpoint函数，但无法得到输入的数字，请帮忙解决，谢谢。

Humanway · 发表于 2020-9-15 11:56:43

找到方法了

(defun c:test ()
  (setq a (progn
      (initget 128 "S A")
      (getpoint "指定阵列间距和角度[间距(S) 角度(A)]<通过>")
      )
)
  (cond
((= a "A")
   (setq a (getreal "输入角度:"))
   )
((= a "S")
   (setq a (getreal "输入间距:"))
   )
(T
   (print a)
   )
)
  )

Lisphk · 发表于 2020-9-15 17:20:28

用 getdist

账号		自动登录	找回密码
密码			立即注册

[求助] 命令offset是怎样实现的？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。