为什么部分线剪切不了

GTJ116600

大家帮助看看，我编了一个剪切小程序，为什么有部分线剪切不了

炫翔

把程序与图贴上来，才能对症下药

GTJ116600

炫翔 发表于 2013-5-7 13:49

                               
登录/注册后可看大图

把程序与图贴上来，才能对症下药

(defun tr-pl()
       (setq n 0 m 1)
       (setq pt1 (nth n ptlists) pt2 (nth m ptlists))
       (setq ptmid (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2)))
       (command "offset" 0.001 entname1 ptmid "")
       (setq entname2 (entlast))
       (setq ptlists (get-pl-ptlist entname2) n 0)
       (command "trim" entname1 "" "f")
       (while (nth n ptlists)
              (command (nth n ptlists))
              (setq n (1+ n))            
       )
       (command "" "")
       (command "erase" entname2 "")
       (if s2
          (command "erase" s2 "")
       )
)
(defun get-pl-ptlist(entname)
        (setq entlist (entget entname))
        (setq n 0 ptlists nil ent_list t)
        (while ent_list
             (setq en (nth n entlist))
             (setq ptlist (cdr en))
             (if (= (car en) 10)
                 (setq ptlists (cons ptlist ptlists))
             )
             (setq n (1+ n) ent_list (nth n entlist))
       )
       (setq ptlists (reverse ptlists))
)

GTJ116600

炫翔 发表于 2013-5-7 13:49

                               
登录/注册后可看大图

把程序与图贴上来，才能对症下药

翔版主，怎么能把CAD图形也传上去呀

炫翔

GTJ116600 发表于 2013-5-7 13:52

                               
登录/注册后可看大图

翔版主，怎么能把CAD图形也传上去呀

剪切不了，有很多情况的，比如;图层锁定，冻结，图块....

GTJ116600

炫翔 发表于 2013-5-7 14:00

                               
登录/注册后可看大图

剪切不了，有很多情况的，比如;图层锁定，冻结，图块....

版主，运行程序时CAD平台提示错误如下：
提示：Object does not intersect an edge.
Object does not intersect an edge.
Object does not intersect an edge.
No intersections in the interior of the curve.

Free-Lancer

如果一个 Pline  在框内凸出了两部分，第一次修剪后可能产生了新的实体，而这个实体不在你的选择集内

GTJ116600

Free-Lancer 发表于 2013-5-7 14:25

                               
登录/注册后可看大图

如果一个 Pline  在框内凸出了两部分，第一次修剪后可能产生了新的实体，而这个实体不在你的选择集内

我就裁剪了一次

Free-Lancer

GTJ116600 发表于 2013-5-7 14:34

                               
登录/注册后可看大图

我就裁剪了一次

闭合 Pline 修剪以后会在 Startpoint 断开分成两段，没有看到你的DWG，不知道是不是这个原因

Lisphk

GTJ116600 发表于 2013-5-7 13:52

                               
登录/注册后可看大图

翔版主，怎么能把CAD图形也传上去呀

压缩成RAR传就可以了。

Lisphk

GTJ116600 发表于 2013-5-7 14:34

                               
登录/注册后可看大图

我就裁剪了一次

看看是不是标高啥的不一样。

sicky111

我也遇到过这种问题。

Free-Lancer

刚试验了，用 F 修剪Pline，AutoCAD仅认 F 第一次穿过的那段，可能 AutoCAD 认为修完第一段就把整根线排除选择集以外，所以后面就不会修剪，也许是个BUG

目前好像只能多 F 几次

GTJ116600

Lisphk 发表于 2013-5-7 16:10

                               
登录/注册后可看大图

看看是不是标高啥的不一样。

是平面图形，没有标高

GTJ116600

Lisphk 发表于 2013-5-7 16:09

                               
登录/注册后可看大图

压缩成RAR传就可以了。

谢谢Lisphk指点