[求助] 快速删除地形图中的首曲线

sy100

 

 

    经常需要将地形图中的首曲线删除，手工删除太慢了，请行家给编个lsp程序，先谢了！

    提供一个dwg文件作为参照，该地形图中首曲线的厚度是8110,计曲线的厚度是8120,请编个按厚度删除首曲线的程序.

 

 

 

 

 

 

 

 

 

 

Gu_xl

(defun c:tt ()
  (princ "\n删除计曲线：")
  (setq ss (ssget '((0 . "lwpolyline")(39 . 8120.0))))
  (command "erase" ss "")
  )
(defun c:ttt ()
  (princ "\n删除首曲线：")
  (setq ss (ssget '((0 . "lwpolyline")(39 . 8110.0))))
  (command "erase" ss "")
  )

sy100

Gu_xl 您好，真是太感谢了！ 试过了，很好用！ 这下就可以节省很多时间了。

Gu_xl

sy100发表于2010-10-12 14:56:00Gu_xl 您好，真是太感谢了！ 试过了，很好用！ 这下就可以节省很多时间了。

举手之劳！不用客气！