选取基数等高线

树櫴希德 · 发表于 2015-5-5 20:19

(defun c:xqjsdgx ()
(prompt "\n 选取基数等高线" )
(SETQ SS1 NIL)
(if (setq ss (ssget  '((0 . "polyLINE")(8 . "dgx")))) (progn
  (setq i -1 ss1 (ssadd))
  (repeat (sslength ss)
(setq ent (entget (setq en (ssname ss (setq i (1+ i))))))

(if(/= 0 (rem (cadddr (assoc 10 ent)) 2))  (ssadd en ss1)
   )

  )
))
(sssetfirst nil ss1)

)

Atsai · 发表于 2015-5-5 21:28

比较好奇的是，一般在工作上什么时候会用到要选奇数的等高线？
不过，源码就是好东西啦！赞一个！

暮雨寒阳 · 发表于 2015-7-21 17:18

代码运行了一下，只能选取出来个别的，大部分是挑不出来的

暮雨寒阳 · 发表于 2015-7-21 17:20

总是会出现这种情况

77077 · 发表于 2015-7-23 23:13

哥们，你是不是想抽稀等高线呀？
如果是，建议你按照等高线的高程属性来抽稀，比如说，将z属性为100.5 101.5 102.5……的删除，留100 101 102…的。
你这隔根抽根，怕是要出问题~~~

lingfeng82 · 发表于 2015-7-28 08:32

感谢楼主无私奉献，受益匪浅！

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

选取基数等高线

相关帖子

本帖子中包含更多资源