CAD83 发表于 2016-3-10 15:14:11

MOVE 移位

本帖最后由 CAD83 于 2016-3-10 15:16 编辑


图形移动时非常麻烦，CAD中MOVE 移位经常地还要手动输入0，0   能不能用LISP点一下来指定

linheyuanpcb 发表于 2017-11-4 14:50:09

(command "move" "all" "" pt1 "0,0" )

jltx123456 发表于 2016-3-10 15:34:32

用(command "_.move"................后面自己加

fan_zh 发表于 2016-3-10 16:03:40

一楼高级会员，二楼管理员，这个问题提得好

CAD83 发表于 2016-3-10 16:24:58

本帖最后由 CAD83 于 2016-3-10 16:30 编辑

我写不出全的来啦，哪位完整一下

永不言弃 发表于 2016-3-11 13:20:43

(defun C:bb();快速移动
(setq os (getvar "OSMODE"))
(setvar "osmode" 0)
(setq en (entsel ))
(while en
    (setq pt (cadr en))
    (command "move" (car en) "" pt pause "")
    (setq en (entsel ))
   
    )
(setvar "osmode" os)
)
页: [1]
查看完整版本: MOVE 移位