如何从CAD地形图中复制其中一小块出来？

lz85031

各位高手，现有一张较大的地形图，我想不用剪截方法取其中的部分内容，而用框选或其它方法复制其中的小部分图内容，有什么好的办法（或插件）吗？

tzfcn

http://bbs.xdcad.net/forum.php?m ... 6%B2%BF%B7%C5%B4%F3
这个局部放大的插件应该能够满足你的要求。

tzfcn

tzfcn 发表于 2018-10-8 09:17
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=669284&highlight=%BE%D6%B2%BF%B7%C5%B4%F3
这个局 ...

全部代码如下：
(defun&#160;c:XDTB_JBFD&#160;(/&#160;e&#160;mat&#160;mat0&#160;na&#160;pj&#160;pts&#160;scl&#160;ss&#160;ss1)&#160;&#160;(if&#160;(and&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;e&#160;(car&#160;(xdrx_entsel&#160;"\n选取边界曲线<退出>:"&#160;'((0&#160;.&#160;"*polyline,circle,ellipse,spline")))))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(or&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_object_isa&#160;e&#160;"AcDbCircle")&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_object_isa&#160;e&#160;"AcDbEllipse")&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(=&#160;1&#160;(logand&#160;(xdrx_getentdxf&#160;70)&#160;1))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;pts&#160;(xdrx_getsamplept&#160;e))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;ss&#160;(ssget&#160;"cp"&#160;pts))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(ssdel&#160;e&#160;ss)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(>&#160;(sslength&#160;ss)&#160;0)&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;(progn&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;pj&#160;(XD::Pnts:Centroid&#160;pts)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;mat0&#160;(xdrx_matrix_identity&#160;3)&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;ss&#160;(xdrx_entity_copy&#160;ss))&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;na&#160;(strcat&#160;"XD_JBFD_"&#160;(xdrx_getrandstr)))&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_block_make&#160;na&#160;ss&#160;pj&#160;t)&#160;&#160;&#160;&#160;&#160;&#160;(apply&#160;'xdrx_insert_clip&#160;(cons&#160;(entlast)&#160;pts))&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;ss1&#160;(ssadd))&#160;&#160;&#160;&#160;&#160;&#160;(ssadd&#160;(entlast)&#160;ss1)&#160;&#160;&#160;&#160;&#160;&#160;(ssadd&#160;e&#160;ss1)&#160;&#160;&#160;&#160;&#160;&#160;(if&#160;(and&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;m&#160;(xdrx_drag_move&#160;"\n插入点<退出>:"&#160;ss1&#160;(trans&#160;pj&#160;1&#160;0)))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_entity_transform&#160;ss1&#160;m)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;m&#160;(xdrx_drag_scale&#160;"\n输入或拾取点确定缩放比例:"&#160;ss1&#160;(trans&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_drag_getlastpoint)&#160;1&#160;0)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(progn&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_entity_transform&#160;ss1&#160;m)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;mat&#160;(xdrx_drag_getlastMatrix)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;scl&#160;(xdrx_matrix_scalefactor&#160;mat)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;xdrx_block_getattribs&#160;xdrx_insert_getattribs)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(XD::Entity:SetOverRide&#160;(entlast)&#160;scl)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;)&#160;&#160;)&#160;&#160;(princ))

tzfcn

(defun&#160;c:XDTB_JBFD&#160;(/&#160;e&#160;mat&#160;mat0&#160;na&#160;pj&#160;pts&#160;scl&#160;ss&#160;ss1)&#160;&#160;(if&#160;(and&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;e&#160;(car&#160;(xdrx_entsel&#160;"\n选取边界曲线<退出>:"&#160;'((0&#160;.&#160;"*polyline,circle,ellipse,spline")))))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(or&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_object_isa&#160;e&#160;"AcDbCircle")&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_object_isa&#160;e&#160;"AcDbEllipse")&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(=&#160;1&#160;(logand&#160;(xdrx_getentdxf&#160;70)&#160;1))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;pts&#160;(xdrx_getsamplept&#160;e))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;ss&#160;(ssget&#160;"cp"&#160;pts))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(ssdel&#160;e&#160;ss)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(>&#160;(sslength&#160;ss)&#160;0)&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;(progn&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;pj&#160;(XD::Pnts:Centroid&#160;pts)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;mat0&#160;(xdrx_matrix_identity&#160;3)&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;ss&#160;(xdrx_entity_copy&#160;ss))&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;na&#160;(strcat&#160;"XD_JBFD_"&#160;(xdrx_getrandstr)))&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_block_make&#160;na&#160;ss&#160;pj&#160;t)&#160;&#160;&#160;&#160;&#160;&#160;(apply&#160;'xdrx_insert_clip&#160;(cons&#160;(entlast)&#160;pts))&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;ss1&#160;(ssadd))&#160;&#160;&#160;&#160;&#160;&#160;(ssadd&#160;(entlast)&#160;ss1)&#160;&#160;&#160;&#160;&#160;&#160;(ssadd&#160;e&#160;ss1)&#160;&#160;&#160;&#160;&#160;&#160;(if&#160;(and&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;m&#160;(xdrx_drag_move&#160;"\n插入点<退出>:"&#160;ss1&#160;(trans&#160;pj&#160;1&#160;0)))&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_entity_transform&#160;ss1&#160;m)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;m&#160;(xdrx_drag_scale&#160;"\n输入或拾取点确定缩放比例:"&#160;ss1&#160;(trans&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_drag_getlastpoint)&#160;1&#160;0)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(progn&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(xdrx_entity_transform&#160;ss1&#160;m)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;mat&#160;(xdrx_drag_getlastMatrix)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;scl&#160;(xdrx_matrix_scalefactor&#160;mat)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(setq&#160;xdrx_block_getattribs&#160;xdrx_insert_getattribs)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(XD::Entity:SetOverRide&#160;(entlast)&#160;scl)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;&#160;&#160;)&#160;&#160;&#160;&#160;)&#160;&#160;)&#160;&#160;(princ))

tzfcn

tzfcn 发表于 2018-10-8 09:22
(defun&#160;c:XDTB_JBFD&#160;(/&#160;e&#160;mat&#160;mat0&#160;na&#160;pj&#160;pts&#160;scl&#160;ss& ...

文本格式也是乱糟糟的，只有自己去看了。
(defun c:XDTB_JBFD (/ e mat mat0 na pj pts scl ss ss1)
  (if (and
        (setq e (car
                  (xdrx_entsel "\n选取边界曲线<退出>:" '((0 . "*polyline,circle,ellipse,spline"))
                  )
                )
        )
        (or
          (xdrx_object_isa e "AcDbCircle")
          (xdrx_object_isa e "AcDbEllipse")
          (= 1 (logand (xdrx_getentdxf 70) 1))
        )
        (setq pts (xdrx_getsamplept e))
        (setq ss (ssget "cp" pts)) (ssdel e ss) (> (sslength ss) 0) )
    (progn
      (setq pj (XD::Pnts:Centroid pts) mat0 (xdrx_matrix_identity 3) )
      (setq ss (xdrx_entity_copy ss))
      (setq na (strcat "XD_JBFD_" (xdrx_getrandstr)))
      (xdrx_block_make na ss pj t)
      (apply 'xdrx_insert_clip (cons (entlast) pts))
      (setq ss1 (ssadd)) (ssadd (entlast) ss1)
      (ssadd e ss1)
      (if (and
            (setq m (xdrx_drag_move "\n插入点<退出>:" ss1 (trans pj 1 0)))
            (xdrx_entity_transform ss1 m)
            (setq m (
                      xdrx_drag_scale "\n输入或拾取点确定缩放比例:"
                      ss1 (trans (xdrx_drag_getlastpoint) 1 0)
                    )
            )
          )
        (progn
          (xdrx_entity_transform ss1 m)
          (setq mat (xdrx_drag_getlastMatrix) scl (xdrx_matrix_scalefactor mat) )
          (setq xdrx_block_getattribs xdrx_insert_getattribs)
          (XD::Entity:SetOverRide (entlast) scl)
        )
      )
    )
  )
  (princ)
)

tzfcn

tzfcn 发表于 2018-10-8 09:36
文本格式也是乱糟糟的，只有自己去看了。
(defun c:XDTB_JBFD (/ e mat mat0 na pj pts scl ss ss1)
   ...

费了大劲了

yangjian001

做一个热心并受欢迎的人

ahlxmj

看一看，学习学习！