明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1575|回复: 8

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

[复制链接]
发表于 2012-5-18 15:35:33 | 显示全部楼层 |阅读模式
(defun C:m9()
       (command "move" pause  "600")
选线后定点然后移动600,我想让自动输入600移动.
怎么不起作用,是不是少了那个码?
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2012-5-18 15:39:16 | 显示全部楼层
命题有岐义....
Try
(defun C:m9()
   (command "move" pause "" "600,0" "")
)
发表于 2012-5-18 15:57:54 | 显示全部楼层
你的坐标点位置不对,程序怎么知道要移到哪里去!
 楼主| 发表于 2012-5-18 16:01:07 | 显示全部楼层
Andyhon 发表于 2012-5-18 15:39
命题有岐义....
Try
(defun C:m9()

谢谢....
 楼主| 发表于 2012-5-18 17:49:27 | 显示全部楼层
【KAIXIN】 发表于 2012-5-18 15:57
你的坐标点位置不对,程序怎么知道要移到哪里去!

怎么加上移动方向和框选?
发表于 2012-5-18 18:24:42 | 显示全部楼层
kwok 发表于 2012-5-18 17:49
怎么加上移动方向和框选?
  1. (defun C:XX()
  2. (SETQ KK (SSGET))
  3.    (command "move" KK "" "600,0" "")
  4. (PRINC)
  5. )
 楼主| 发表于 2012-5-18 19:06:09 | 显示全部楼层
本帖最后由 kwok 于 2012-5-18 19:15 编辑
【KAIXIN】 发表于 2012-5-18 18:24

谢谢.
再请教一下,下面这代码我想关掉ortho用完再开,怎么不行?
(defun C:0()
  (command "ortho" "off" )
   (command "_.offset" pause )
   (command "ortho" "on")
)
 楼主| 发表于 2012-5-19 14:47:01 | 显示全部楼层
搞定,我把  (setvar "ORTHOMODE" 0)
换成  (setvar "ORTHOMODE" 0)
冒似可以了
 楼主| 发表于 2012-5-19 14:49:01 | 显示全部楼层
学lsp很有意思,在我对代码一无所知的情况下,不知每个代码的用义.
看着前辈的代码学习,原来用来用去基本常用的最多setq
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-7-23 06:21 , Processed in 0.186486 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表