请大侠帮忙写一个批量斜线选择和和一个批量斜线删除的 LSP程序

hehoubin · 发表于 2012-11-3 15:34:36

http://bbs.mjtd.com/forum.php?mod=attachment&aid=NzEyNjF8OWRlZjY0M2U1NzExNDA5ZjA2MGI1N2Q3ODFiZTQyNmN8MTczMTQ3ODc3Ng%3D%3D&request=yes&_f=.dwg 大侠们，帮忙写个斜线选择和斜线删除的程序

酷酷提 · 发表于 2022-4-15 01:38:24

Andyhon 发表于 2012-11-5 08:29

层主您好，麻烦我想请问一下，这个插件，为什么我从一条直线偏移出来的几根直线，当我把这些线裁切了过后，有的会提示是斜线，有的又不会提示，是什么原因呢？

Andyhon · 发表于 2012-11-3 16:47:07

本帖最后由 Andyhon 于 2012-11-3 16:47 编辑

;;; 斜线选择
(defun C:test ()
(setq ss (ssget '((0 . "LINE")))
      sss (ssadd)
      i  0
)
(repeat (sslength ss)
   (setq ee (ssname ss i)
      dat (entget ee)
         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
         i (1+ i)
   )
   (cond
   ((equal (car pa) (car pb) 1e-12))
   ((equal (cadr pa) (cadr pb) 1e-12))
   (T (ssadd ee sss))
) )
(sssetfirst nil sss)
)

hehoubin · 发表于 2012-11-3 20:59:55

谢谢，要是选择斜线并删除呢，

hehoubin · 发表于 2012-11-3 21:02:50

谢谢Andyhon楼主

hehoubin · 发表于 2012-11-3 21:29:15

不能选择PLINE绘制的线，，

Andyhon · 发表于 2012-11-3 22:46:57

只要异动 Pa Pb 的端点的取得函式
另 (ssget '((0 . "LINE"))) ==> (ssget '((0 . "*LINE")))

站内有,给自己一个功课吧!

hehoubin · 发表于 2012-11-4 23:28:07

我不懂这个，希望Andyhon大侠提高完整的源码程序，谢谢，非常感谢，，

Andyhon · 发表于 2012-11-5 08:29:26

;;; 斜线选择
(vl-load-com)
(defun C:test ()
(setq ss (ssget '((0 . "*LINE")))
sss (ssadd)
i 0
)
(repeat (sslength ss)
(setq ee (ssname ss i)
pa (vlax-curve-getStartPoint ee)
pb (vlax-curve-getEndPoint ee)
i (1+ i)
)
(cond
((equal (car pa) (car pb) 1e-12))
((equal (cadr pa) (cadr pb) 1e-12))
(T (ssadd ee sss))
) )
(sssetfirst nil sss)
)

hehoubin · 发表于 2012-11-23 21:20:20

Andyhon大侠大侠能帮我用上面在程序写下选择并删除，吗

Andyhon · 发表于 2012-11-23 21:51:55

(sssetfirst nil sss)
==>
(vl-cmdf "erase" sss "")

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

请大侠帮忙写一个批量斜线选择和和一个批量斜线删除的 LSP程序

本帖子中包含更多资源