为了账号安全,请及时绑定邮箱和手机立即绑定

我想的是如果能够不跳出来继续执行下一个圆就好了,请问该怎么办?

我想的是如果能够不跳出来继续执行下一个圆就好了,请问该怎么办?

C PHP
千万里不及你 2023-03-08 13:09:40
(defun c:ad() ;;;;程序选择可以求几个圆的面积,并在圆框内写出面积大小。(defun *error* (msg)(print msg)(setq ccxx (strcat "求面积失败!!!第" i0 "个面积求取不成功。")); ccxx:出错信息(alert ccxx)(princ))(setvar "osmode" 0)(setvar "cmdecho" 0)(while (/= 0 (getvar "cmdactive")) (command ""))(setq yorn "" i 1 i0 "1")(while (eq yorn "")(setq pt (getpoint "选取点: \n"));;;;以下在点圆中取一个点,并获取面积(command "bpoly" pt "") (setq en (entlast))(command "area" "o" en)(setq mj (getvar "area"))(setq mj (rtos mj))(command "text" "j" "mc" pt "0" mj "");;;;获取面积成功并写出(setq i (1+ i) i0 (itoa i))(setq yorn (getstring (strcat "添加第" i0 "个点?回车确认或输入n后回车中止选点:")))) )屏幕上有20个圆,我在圆内点1个点,就会在点的位置显示圆的面积,然后继续点下一个点。问题是,如果我有一个点点在圆外,程序的(command "bpoly" pt "") 语句就会出错,然后就跳出来了,我想的是如果能够不跳出来继续执行下一个圆就好了,请问怎么办
查看完整描述

1 回答

?
烙印99

TA贡献1829条经验 获得超13个赞

;圆具有面积属性,没有必要生成一个边界再来求面积
;选取圆后自动标注面积(可单选、多选或框选)
(defun c:bzymj()
(vl-load-com)
(setq cm (getvar "cmdecho") os (getvar "osmode"))
(setvar "cmdecho" 0) (setvar "osmode" 0)
(command "_undo" "be")
(while (progn
(princ "\n请选取圆:")
(setq ssa (ssget '((0 . "circle"))))
)
(setq i 0)
(repeat (sslength ssa)
(setq ent (ssname ssa i)
obj (vlax-ename->vla-object ent)
pt (vlax-get obj "Center")
mj (rtos (vlax-get obj "area") 2 3)
Hig (* (vlax-get obj "diameter") 0.618)
i (1+ i)
)
(command "_text" "j" "mc" pt Hig 0 mj)
)

)

(command "_undo" "e")
(setvar "osmode" os) (setvar "cmdecho" cm) 
(princ)
)

 


查看完整回答
反对 回复 2023-03-10
  • 1 回答
  • 0 关注
  • 55 浏览

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信