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

选取基数等高线

(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:36

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

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

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

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

总是会出现这种情况

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

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

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

感谢楼主无私奉献，受益匪浅！
页: [1]
查看完整版本: 选取基数等高线