叶文军 发表于 2004-10-10 21:05:00

高手们都来看看

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

nono 发表于 2004-10-10 21:08:00

应该可以的

bbo 发表于 2004-10-28 18:04:00

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

xqyhome 发表于 2004-10-30 10:44:00

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

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

citykunan 发表于 2004-11-3 14:04:00

;从前在龙版主的提示下编的


;把一张图的局部东西copy出来成为一个block.block不能炸开。<BR>        <BR>       


(defun C:cp (/ HOLDECHO               HOLDOSMODE               point1 point2 point3                       aa box SS blo bbb )


        <BR>                       (initget 7)<BR>                       (setq point1 (getpoint "\nSelect the first point:"))<BR>                       (initget 7)<BR>                       (setq point2 (getpoint point1 "\nSelect the the other point:"))<BR>                       ; (initget 7)<BR>                       ;(setq point3 (getpoint "/nSelect the the putting point:"))<BR>                       (command "_.undo" "be")<BR>                       (setq SS (ssget "c" point1 point2)) <BR>                       (command "_.rectang" point1       point2)<BR>                                       (setq BOX (entlast))<BR>               <BR>       (setq HOLDECHO (getvar "cmdecho"))<BR>       (setq HOLDOSMODE (getvar "osmode"))<BR>       (setvar "cmdecho" 0)<BR>       (setvar "osmode" 0)<BR>                       <BR>       <BR>               (progn<BR>                                       (setq AA (rtos (* (getvar "CDATE") 1E8)))<BR>                                       (command "_.block" AA point1 SS "")<BR>                                       (command "_.oops");undo       erase<BR>                               <BR>                                       (command "_.insert" AA point1 "" "" "")<BR>                                       (setq blo (entlast))<BR>               <BR>                                       (command "_.xclip" blo       "" "N" "S" BOX)<BR>                                       (setq bbb (entlast))<BR>                                       (command "move" box bbb       "" point2       )<BR>                                       (command "move" "")<BR>               )<BR>        <BR>        <BR>       (setvar "osmode" HOLDOSMODE)<BR>       (setvar "cmdecho" HOLDECHO)<BR>               (command "_.undo" "e")<BR>       (princ)<BR>)
页: [1]
查看完整版本: 高手们都来看看