如何实现快速修改形状

李春雨 · 发表于 2013-12-7 22:00:44

1、是的，碰到终点、起点是不会修改的
2、修改的时候不是在顶i点的，修改时可以随便在线上扑捉就会自动产生一个点的

李春雨 · 发表于 2013-12-7 22:09:48

这种情况应该是没有的，都会避免的

Lispboy · 发表于 2013-12-7 22:13:14

李春雨发表于 2013-12-7 22:00
1、是的，碰到终点、起点是不会修改的
2、修改的时候不是在顶i点的，修改时可以随便在线上扑捉就会自动产 ...

是对封闭的多段线处理吗？

李春雨 · 发表于 2013-12-7 22:13:45

arcgis内修改线和面形状时大体不会选择那么多或很长在进行修改的

李春雨 · 发表于 2013-12-7 22:15:36

在arcgis内线与封闭面是都可以修改的

st788796 · 发表于 2013-12-8 10:40:10

李春雨发表于 2013-12-7 22:15
在arcgis内线与封闭面是都可以修改的

试验下

(defun c:tt (/ p pts pl sp ep npl ptl nnpl ss)
(while (setq p (if pts
(getpoint (car pts) "\nPoint: ")
(getpoint "\nPoint: ")
)
)
(setq pts (cons p pts))
(if (> (length pts) 1)
(mapcar '(lambda (p1 p2) (grdraw p1 p2 1)) pts (cdr pts))
)
)
(if
(and pts
(setq
ss (xdrx_pickset_getatpoint (last pts) '((0 . "lwpolyline")))
)
)
(progn
(setq ptl (list (car pts) (last pts))
pl (ssname ss 0)
sp (xdrx_curve_getparamatpoint pl (car ptl))
ep (xdrx_curve_getparamatpoint pl (cadr ptl))
)
(mapcar '(lambda (x / info ppl)
(setq info (xdrx_curve_getpoint x)
ppl (list (car info) (caddr info))
)
(if (or (equal ppl ptl 1e-5)
(equal ppl (reverse ptl) 1e-5)
)
(xdrx_entity_delete x)
)
)
(setq nnpl
(xdrx_pickset->ents (xdrx_curve_getsplitcurves pl sp ep))
)
)
(setq npl (apply 'xdrx_polyline_make pts))
(vl-cmdf ".pedit" pl "j" npl)
(if nnpl
(foreach x nnpl (vl-cmdf x))
)
(vl-cmdf "")
(vl-cmdf "")
)
)
(princ)
)

(defun c:tt (/ p pts pl sp ep npl ptl nnpl ss) 
  (while (setq p (if pts 
                   (getpoint (car pts) "\nPoint: ") 
                   (getpoint "\nPoint: ") 
                 ) 
         ) 
    (setq pts (cons p pts)) 
    (if        (> (length pts) 1) 
      (mapcar '(lambda (p1 p2) (grdraw p1 p2 1)) pts (cdr pts)) 
    ) 
  ) 
  (if 
    (and pts 
         (setq 
           ss (xdrx_pickset_getatpoint (last pts) '((0 . "lwpolyline"))) 
         ) 
    ) 
     (progn 
       (setq ptl (list (car pts) (last pts)) 
             pl         (ssname ss 0) 
             sp         (xdrx_curve_getparamatpoint pl (car ptl)) 
             ep         (xdrx_curve_getparamatpoint pl (cadr ptl)) 
       ) 
       (mapcar '(lambda        (x / info ppl) 
                  (setq        info (xdrx_curve_getpoint x) 
                        ppl  (list (car info) (caddr info)) 
                  ) 
                  (if (or (equal ppl ptl 1e-5) 
                          (equal ppl (reverse ptl) 1e-5) 
                      ) 
                    (xdrx_entity_delete x) 
                  ) 
                ) 
               (setq nnpl 
                      (xdrx_pickset->ents (xdrx_curve_getsplitcurves pl sp ep)) 
               ) 
       ) 
       (setq npl (apply 'xdrx_polyline_make pts)) 
       (vl-cmdf ".pedit" pl "j" npl) 
       (if nnpl 
         (foreach x nnpl (vl-cmdf x)) 
       ) 
       (vl-cmdf "") 
       (vl-cmdf "") 
     ) 
  ) 
  (princ) 
)

李春雨 · 发表于 2013-12-8 13:11:30

st788796 发表于 2013-12-8 10:40
试验下

错误: no function definition: XDRX_PICKSET_GETATPOINT
提示以上出错误

李春雨 · 发表于 2013-12-8 13:18:46

好用了！！！非常感谢你的支持！:):):):)

李春雨 · 发表于 2013-12-8 15:04:53

st788796 发表于 2013-12-8 10:40
试验下

这个只对线文件好用，封闭线修改过来是错误的！请帮忙修改一下

st788796 · 发表于 2013-12-8 15:08:50

李春雨发表于 2013-12-8 15:04
这个只对线文件好用，封闭线修改过来是错误的！请帮忙修改一下

封闭线怎么保留?

李春雨 · 发表于 2013-12-8 15:23:25

修改面积小的这面就可以，现在是保留面积小的这面了

st788796 · 发表于 2013-12-8 16:07:20

李春雨发表于 2013-12-8 15:23
修改面积小的这面就可以，现在是保留面积小的这面了

以作为插件发布

李春雨 · 发表于 2013-12-9 07:34:43

修改略长点线不是很受用！

李春雨 · 发表于 2013-12-11 15:38:31

为什么在cass内加载XDRX_API.R16.X32 xd-lisp-lib.VLX 这两个文件后
在执行命令时就会出现错误：*error*函数中出错参数太多的提示

李春雨 · 发表于 2013-12-12 09:40:04

你好！现在发现在修改图型时,只能修改线宽为“0”的，凡是带线宽的都无法修改

账号		自动登录	找回密码
密码			立即注册

[求助] 如何实现快速修改形状

点评

点评

点评

点评

点评

点评

浏览过的版块