明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1587|回复: 3

为什么会出现两种结果

[复制链接]
发表于 2003-3-2 17:37 | 显示全部楼层 |阅读模式
在命令行输入(command "line" "10,20" "100,100")结果正确

但是(command "cal" "(cur+cur)/2")就会出现错误,我百思不得其解,查阅帮助后,cal命令不是缩写,确实是全称呀,只好向大家求教了
发表于 2003-3-2 18:23 | 显示全部楼层

不是每个命令在lisp中的格式都是象你第一个命令一样的。

你可以直径用lisp中的数学函数来计算。(/ (+ cur cur) 2)
这不是方便很多吗?
 楼主| 发表于 2003-3-2 18:38 | 显示全部楼层

(/ (+ cur cur) 2) 试过没用

我想直接在命令行定义一个命令mid,这样在屏幕上选择两个点后,自动找到中点,所以用到(command "cal" "(cur+cur)/2")但出现错误,我用(/ (+ cur cur) 2) 试过没用

lisp初学,很多问题大家可能觉得很简单,对我来说就完全不一样了
发表于 2003-3-2 19:07 | 显示全部楼层

给你一点提示。

(defun c:mid(/ pt1 pt2 midpt)
  (setq pt1 (getpoint "\nSpecify first point :"))
  (if (not pt1) (exit));没有选择第一个点时退出程序。
  (setq pt2 (getpoint "\nSpecify second point :"))
  (if (not pt2) (exit));没有选择第二个点时退出程序。
  (setq midpt (list (/ (+ (car pt1) (car pt2)) 2)
                    (/ (+ (cadr pt1) (cadr pt2)) 2)
                    0.0
                    )
              )
  midpt
  )

这个程序很简单,而且有许多的因素还没有考虑,只供参考。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 16:41 , Processed in 0.227340 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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