kwok 发表于 2012-5-18 15:35:33

我想让线移动600,怎么不起作用

(defun C:m9()
       (command "move" pause"600")
选线后定点然后移动600,我想让自动输入600移动.
怎么不起作用,是不是少了那个码?

Andyhon 发表于 2012-5-18 15:39:16

命题有岐义....
Try
(defun C:m9()
   (command "move" pause "" "600,0" "")
)

【KAIXIN】 发表于 2012-5-18 15:57:54

你的坐标点位置不对，程序怎么知道要移到哪里去！

kwok 发表于 2012-5-18 16:01:07

Andyhon 发表于 2012-5-18 15:39 static/image/common/back.gif
命题有岐义....
Try
(defun C:m9()


谢谢....

kwok 发表于 2012-5-18 17:49:27

【KAIXIN】 发表于 2012-5-18 15:57 static/image/common/back.gif
你的坐标点位置不对，程序怎么知道要移到哪里去！

怎么加上移动方向和框选?

【KAIXIN】 发表于 2012-5-18 18:24:42

kwok 发表于 2012-5-18 17:49 static/image/common/back.gif
怎么加上移动方向和框选?

(defun C:XX()
(SETQ KK (SSGET))
   (command "move" KK "" "600,0" "")
(PRINC)
)

kwok 发表于 2012-5-18 19:06:09

本帖最后由 kwok 于 2012-5-18 19:15 编辑

【KAIXIN】 发表于 2012-5-18 18:24 static/image/common/back.gif

谢谢.
再请教一下,下面这代码我想关掉ortho用完再开,怎么不行?
(defun C:0()
(command "ortho" "off" )
   (command "_.offset" pause )
   (command "ortho" "on")
)

kwok 发表于 2012-5-19 14:47:01

搞定,我把(setvar "ORTHOMODE" 0)
换成(setvar "ORTHOMODE" 0)
冒似可以了

kwok 发表于 2012-5-19 14:49:01

学lsp很有意思,在我对代码一无所知的情况下,不知每个代码的用义.
看着前辈的代码学习,原来用来用去基本常用的最多setq
页: [1]
查看完整版本: 我想让线移动600,怎么不起作用