首頁(yè) 猿問(wèn) 我想的是如果能夠不跳出來(lái)繼續(xù)執(zhí)行下...

我想的是如果能夠不跳出來(lái)繼續(xù)執(zhí)行下一個(gè)圓就好了，請(qǐng)問(wèn)該怎么辦？

C PHP

千萬(wàn)里不及你 2023-03-08 13:09:40

(defun c:ad() ;;;;程序選擇可以求幾個(gè)圓的面積，并在圓框內(nèi)寫出面積大小。(defun *error* (msg)(print msg)(setq ccxx (strcat "求面積失敗!!!第" i0 "個(gè)面積求取不成功。")); ccxx:出錯(cuò)信息(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 "選取點(diǎn): \n"));;;;以下在點(diǎn)圓中取一個(gè)點(diǎ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 "個(gè)點(diǎn)?回車確認(rèn)或輸入n后回車中止選點(diǎn):")))) )屏幕上有20個(gè)圓，我在圓內(nèi)點(diǎn)1個(gè)點(diǎn)，就會(huì)在點(diǎn)的位置顯示圓的面積，然后繼續(xù)點(diǎn)下一個(gè)點(diǎn)。問(wèn)題是，如果我有一個(gè)點(diǎn)點(diǎn)在圓外，程序的(command "bpoly" pt "") 語(yǔ)句就會(huì)出錯(cuò)，然后就跳出來(lái)了，我想的是如果能夠不跳出來(lái)繼續(xù)執(zhí)行下一個(gè)圓就好了，請(qǐng)問(wèn)怎么辦

查看完整描述

1 回答

烙印99

TA貢獻(xiàn)1829條經(jīng)驗(yàn) 獲得超13個(gè)贊

;圓具有面積屬性，沒(méi)有必要生成一個(gè)邊界再來(lái)求面積
;選取圓后自動(dòng)標(biāo)注面積(可單選、多選或框選)
(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請(qǐng)選取圓:")
(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)
)