[求助]：如何使area命令等待我选点？？急!!!

tangdeyu · 发表于 2005-8-5 19:03:55

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

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

×

prompt "\n请准备捕捉计算面积：")
(command "area" )
(setq s_0 (getvar "area"))
(setq s (/ s_0 cos_jd)) )
……
在以上语句中，执行完area后直接执行下边的语句了，而没有让我选点，应该如何呀。

找了一下午了!!!!555555555555555555555

xiaomu · 发表于 2005-8-5 19:44:16

(command "area" "o")

tangdeyu · 发表于 2005-8-5 19:50:03

(defun c:chuliang_s()
(setvar "blipmode" 0)
(prompt "\n面积计算  二○○五年八月五日")

(setq yesno (getstring "\n是手工输入面积值吗？(手工输入 y /捕捉量取 n)"))

(if (=  yesno "y")

    ( progn
   (setq s_0 (getreal "\n请输入平面面积(平方米):"))

   )

      (progn
(prompt "\n请准备捕捉计算面积：")
(command "area" "o" ) ;;在此需要捕捉若干角点，因为图形比较复杂，也不知道是否闭合……
(setq s_0 (getvar "area"))


   )

      )


;;放置平面面积
(setq aa_zifu (rtos s_0 2 0))
    (setq aa_point (getpoint "\n请指定放置平面面积位置:"))  ;;指定放置点
(command "text" aa_point ht 0 aa_zifu) ;;自动放置

    (setvar "osmode" 16383)

(prin1)
)
(prompt "\n面积计算 chuliang_s 二○○五年八月五日")
(prin1)

;;------------------------仍然不行，但仍然谢谢，希望大家继续帮忙!!!

cy956 · 发表于 2005-8-5 20:39:14

连续几个帖子都是引用cad命令又搞不清楚交互方式造成的，
建议在用command之前调用以下cad命令试试，即可。

tangdeyu · 发表于 2005-8-6 02:02:46

cad下可以，但一到lisp中就不行了，逐句调试也通过了。
我这里是小地方，找不到可以探讨的人，麻烦了。
但这个忙请帮一下好吗？

xyp1964 · 发表于 2005-8-6 08:35:28

[php](defun c:test ()
 (setq pt0 (getpoint"\n面积起点 : "))
 (command"area" pt0)
 (while (setq pt1 (getpoint pt0"\n下一点<退出> : "))
(command pt1)
(setq pt0 pt1)
)
 (command)
 (setq s_0 (getvar "area"))
 (princ (rtos s_0 2 2))
 (princ)
)[/php]

xyp1964 · 发表于 2005-8-6 09:04:47

3楼修改：

[FONT=courier new]
(defun c:chuliang_s ()
;(cmdla0)
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(setq
yesno (getstring "\n是手工输入面积值吗？(手工输入 y /捕捉量取 n)")
)
(if (= yesno "y")
(setq s_0 (getreal "\n请输入平面面积(平方米):"))
(progn
(setq pt0 (getpoint "\n面积起点 : "))
(command "area" pt0)
(while (setq pt1 (getpoint pt0 "\n下一点<退出> : "))
(command pt1)
(setq pt0 pt1)
)
(command)
(setq s_0 (getvar "area"))
)
)
;;放置平面面积
(setq aa_zifu (rtos s_0 2 0))
(setq aa_point (getpoint "\n请指定放置平面面积位置:"))
;;指定放置点
(command "text" "j" "mc" aa_point "300" 0 aa_zifu)
;;自动放置
(setvar "osmode" 16383)
(prin1)
;(cmdla1)
)
(prompt "\n面积计算 : chuliang_s")
(prin1)[/FONT]

tangdeyu · 发表于 2005-8-6 11:19:38

成功，谢谢了!真的太谢谢了!!!

---------------------------
又及：
但为什么有的时候结果为0

doubao · 发表于 2005-8-6 22:01:14

最初由 cy956 发布
[B]连续几个帖子都是引用cad命令又搞不清楚交互方式造成的，
。。。。。。 [/B]

是呀，以下这两个帖子

1.如何执行line命令后显示ok
2.如何画完云线（revcloud命令）再回到原图层

都是讨论怎样先执行一个autocad命令再返回lisp程序的问题。

要搞清这个问题，必须首先把command 函数的概念搞清才行。这也是我在上述第一个帖子 中才弄明白的。

然后，必须知道如何让lisp程序知道autocad命令的执行情况，通用的方法应该是使用vlr-command-reactor 函数（AutoCAD 命令反应器），用法和例子在上述第二个帖子里。

tangdeyu · 发表于 2005-8-6 23:30:42

谢谢豆包，您推荐的两个帖子我都看了一遍，收获较大，我现在急于用最简单的语句来解决一些简单的问题，自学近一个月来长进不少，我是边学边解决一些问题。因此提出的一些问题可能比较稚嫩，见笑了!
我还要请您解决一个问题，7楼老师的帖子我一开始试的时候结果很好，但试的次数多了后，就总是返回0值，不知为什么？

doubao · 发表于 2005-8-7 00:05:41

(defun c:chuliang_s ()
;(cmdla0)
 (setvar "blipmode" 0)
 (setvar "cmdecho" 0)
 (setq
yesno (getstring "\n是手工输入面积值吗？(手工输入 y /捕捉量取 n)")
 )
 (if (= yesno "y")
(setq s_0 (getreal "\n请输入平面面积(平方米):"))
(progn
 (setq pt0 (getpoint "\n面积起点 : "))
 (command "area" pt0)
 (while (setq pt1 (getpoint pt0 "\n下一点<退出> : "))
(command pt1)
(setq pt0 pt1)
 )
 (command "") ;<--------------------------把这行改为这个就行了
 (setq s_0 (getvar "area"))
)
 )
 ;;放置平面面积
 (setq aa_zifu (rtos s_0 2 0))
 (setq aa_point (getpoint "\n请指定放置平面面积位置:"))
 ;;指定放置点
 (command "text" "j" "mc" aa_point "300" 0 aa_zifu)
 ;;自动放置
 (setvar "osmode" 16383)
 (prin1)
;(cmdla1)
)
(prompt "\n面积计算 : chuliang_s")
(prin1)

xyp1964 · 发表于 2005-8-7 00:16:24

最初由 doubao 发布
[B]

是呀，以下这两个帖子

[URL=http://p4.xdcad.net/forum/showthread.php?s=&postid=... [/B]

尽量不要用vlr-command-reactor 函数，这可不是“通用的方法”。
修改：

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
(defun c:chuliang_s ()
(cmdla0)
(setq TX1 (UKWORD 1 "1 2" "\n1-手工输入面积值/2-捉量取" TX1))
(if (= TX1 "1")
(setq s_0 (getreal "\n请输入平面面积(平方米):"))
(progn
(setq pt0 (getpoint "\n面积起点 : "))
(command "area" pt0)
(while (setq pt1 (getpoint pt0 "\n下一点<退出> : "))
(grvecs (list 1 pt0 pt1))
(command pt1)
(setq pt0 pt1)
)
(command "")
(setq s_0 (getvar "area"))
)
)
(setq aa_zifu (rtos s_0 2 0)
aa_point (getpoint "\n请指定面积放置点 : ")
)
(command "text" "j" "mc" aa_point "300" 0 aa_zifu)
(cmdla1)
)
(prompt "\n面积计算 : chuliang_s")
(princ)[/FONT]

[FONT=courier new](load "xyp_lib") 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 
1.在acad.lsp中增加(load"xyp_lib") 
2.在每个程序内增加(load"xyp_lib") 
3.在command下，输入(load"xyp_lib") 
4.在菜单.mnl中增加(load"xyp_lib") 
5.将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|; 
 
(defun c:chuliang_s () 
  (cmdla0) 
  (setq TX1 (UKWORD 1 "1 2" "\n1-手工输入面积值/2-捉量取" TX1)) 
  (if (= TX1 "1") 
    (setq s_0 (getreal "\n请输入平面面积(平方米):")) 
    (progn 
      (setq pt0 (getpoint "\n面积起点 : ")) 
      (command "area" pt0) 
      (while (setq pt1 (getpoint pt0 "\n下一点<退出> : ")) 
        (grvecs (list 1 pt0 pt1)) 
        (command pt1) 
        (setq pt0 pt1) 
      ) 
      (command "") 
      (setq s_0 (getvar "area")) 
    ) 
  ) 
  (setq        aa_zifu         (rtos s_0 2 0) 
        aa_point (getpoint "\n请指定面积放置点 : ") 
  ) 
  (command "text" "j" "mc" aa_point "300" 0 aa_zifu) 
  (cmdla1) 
) 
(prompt "\n面积计算 : chuliang_s") 
(princ)[/FONT]

tangdeyu · 发表于 2005-8-7 01:03:46

谢谢高手们的指教，一个月来，是这个论坛给我树立了信心，也解决了不少实用的问题。谢谢高手们了!!!!
我今天晚上可以睡觉了!!!

也祝您们晚安!!!!

狂刀 · 发表于 2005-8-7 01:40:22

前几天都没睡觉？精神可嘉

doubao · 发表于 2005-8-7 10:57:28

最初由 xyp1964 发布
[B]
尽量不要用vlr-command-reactor 函数，这可不是“通用的方法”。
... [/B]

我对vlr这类函数还不太了解，所以想请问一下为什么“尽量不要用”呢，这类函数有什么弊端么？

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

[求助] [求助]：如何使area命令等待我选点？？急!!!

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

相关帖子