[LISP程序]：鼠标拖动程序例三--鼠标动态拖拽实时编辑圆(弧).

lsjjm · 发表于 2004-6-28 07:21:23

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

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

×

鼠标拖动程序例三--鼠标动态拖拽实时编辑圆(弧).
(defun c:test ( / el)
  (while (setq e (car (entsel"\nSelect Arc/Circle: ")))
(vl-cmdf "scale" e "" (cdr (assoc 10 (entget e)))
                  "r" (cdr (assoc 40 (entget e))) "drag" pause))
  (princ)
)

aaddff · 发表于 2004-6-28 14:14:18

方法值得学习，但显示好象没有下边的好
(defun c:test() (command "change" (ssget) "" "" pause)(princ))

陌生人 · 发表于 2004-6-28 19:50:25

用夹点不就行了？

Free-Lancer · 发表于 2004-6-28 20:09:16

有些东西不一定要评论其好坏，既是开发论坛，多一种方法又有何不可呢，随便说说。

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

[LISP程序]：鼠标拖动程序例三--鼠标动态拖拽实时编辑圆(弧).

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

相关帖子