高手们都来看看

叶文军

我有个想法,能不能通过程序把图形中的被选中的一块图形变成一个块,比如我们在地形图上画一个闭合的线框,运行程序,把线框内的图形变成一个块进行另存,但是对原图不要做任何改动

nono

应该可以的

bbo

我认为是可以的，但是不知道怎么弄

xqyhome

用写块（WBLOCK）命令，单选“对象”

citykunan

;从前在龙版主的提示下编的 ;把一张图的局部东西copy出来成为一个block.block不能炸开。

(defun C:cp (/ HOLDECHO HOLDOSMODE point1 point2 point3 aa box SS blo bbb )
(initget 7)
(setq point1 (getpoint "\nSelect the first point:"))
(initget 7)
(setq point2 (getpoint point1 "\nSelect the the other point:"))
; (initget 7)
;(setq point3 (getpoint "/nSelect the the putting point:"))
(command "_.undo" "be")
(setq SS (ssget "c" point1 point2))
(command "_.rectang" point1 point2)
(setq BOX (entlast))

(setq HOLDECHO (getvar "cmdecho"))
(setq HOLDOSMODE (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)


(progn
(setq AA (rtos (* (getvar "CDATE") 1E8)))
(command "_.block" AA point1 SS "")
(command "_.oops");undo erase

(command "_.insert" AA point1 "" "" "")
(setq blo (entlast))

(command "_.xclip" blo "" "N" "S" BOX)
(setq bbb (entlast))
(command "move" box bbb "" point2 )
(command "move" "")
)


(setvar "osmode" HOLDOSMODE)
(setvar "cmdecho" HOLDECHO)
(command "_.undo" "e")
(princ)
)