[求助]需要这样的一个命令，求助各位仁兄。（关于封闭区域）

429014673

顶上去

Gu_xl

3. (defun c:Movebj (/ pt1   ss  LastEntity LastEntity1)
4.   (setq ss (ssadd))
5.    (while (= 'LIST (type
6.       (progn
7.                         (initget 7 "No  ")
8.                         (setq pt1 (getpoint "\n请选择中心点:"))
9.                         )
10.       )
11.      )
12.   (setq LastEntity (entlast))
13.   (while (progn
14.    (command "-boundary" pt1 "")
15.    (setq LastEntity1 (entlast))
16.    (equal LastEntity LastEntity1)
17.    )
18.     (setq pt1 (getpoint "\n请输入中心点:"))
19.     )
20.        (redraw LastEntity1 3)
21.      (while (setq LastEntity (entnext LastEntity))
22.        (ssadd LastEntity ss)
23.        )
24.      (ssdel LastEntity1 ss)
25.      (command "move" LastEntity1 "" pt1 (getpoint pt1 "\n移动位置点："))
26.      
27.      )
28.   (command "erase" ss "")
29.   )

(defun c:Movebj (/ pt1   ss  LastEntity LastEntity1)   (setq ss (ssadd))    (while (= 'LIST (type       (progn                         (initget 7 "No  ")                         (setq pt1 (getpoint "\n请选择中心点:"))                         )       )      )   (setq LastEntity (entlast))   (while (progn    (command "-boundary" pt1 "")    (setq LastEntity1 (entlast))    (equal LastEntity LastEntity1)    )     (setq pt1 (getpoint "\n请输入中心点:"))     )        (redraw LastEntity1 3)      (while (setq LastEntity (entnext LastEntity))        (ssadd LastEntity ss)        )      (ssdel LastEntity1 ss)      (command "move" LastEntity1 "" pt1 (getpoint pt1 "\n移动位置点："))            )   (command "erase" ss "")   )

AMTONNY

Gu_xl发表于2010-7-22 9:04:00  以下内容为程序代码: (defun c:Movebj (/ pt1   ss  LastEntity LastEntity1)   (setq ss (ssadd))    (while (= 'LIST (type

AMTONNY

呵呵，哪有这么复杂呀？看我的

(DEFUN C:VV  ()
(setq pa (getpoint "\n潘黄义提示您,指定内部点:"))
(COMMAND "bpoly" pa "")
(command "_MOVE" (entlast) "" pa)
 (princ)) 

Andyhon

一个严谨的程序必需有错误处理
您试试 若是操作时 '点' 空值 / 不在域内 ....

Gu_xl

Andyhon发表于2010-7-22 10:40:00一个严谨的程序必需有错误处理您试试 若是操作时 '点' 空值 / 不在域内 ....

Andyhon 说的极是，程序最复杂的地方就是处理错误！有时我们写程序达到目的可能只要一两句代码即可实现，但是为了处理出现的各种错误可能，会写上上百上千句代码！

AMTONNY

Gu_xl发表于2010-7-22 10:47:00Andyhon 说的极是，程序最复杂的地方就是处理错误！有时我们写程序达到目的可能只要一两句代码即可实现，但是为了处理出现的各种错误可能，会写上上百上千句代码！

多谢楼上指正，本人后续一定会加以改正的，请多多指教

429014673

明经好心多呀