[求助]龙龙仔你给我的命令我不知怎么用

robin43257 · 发表于 2003-5-6 21:20:00

龙龙仔你给我的命令我不知怎么用
系统说“_.select”无效
我试了几次，可就是不知如何用，
也许这只是程序的一部分，但是您能否帮忙写一些这个程序？

龙龙仔 · 发表于 2003-5-7 09:20:00

;;我现在有很多幅图（地形图），每副图上面都有很多的样条曲线（等高线），
;;而且有的相邻曲线有同一个短点。我现在给他们赋上高度 Z 坐标与颜色。
;;但是现在线太多了，我看不清楚到底哪一条没有 Z 坐标。
;;希望运行程序后，程序能告诉我还有多少条没有Z坐标，并且都用一个颜色来表示。
-------------------------------------------------------------------
;;"LWPOLYLINE"都没有Z坐标
;;选取所有"LWPOLYLINE"储存于变量WW
(setq WW (ssget "x" '((0 . "LWPOLYLINE"))))
;;把所有"LWPOLYLINE"改为黄色
(command "_.CHANGE" WW "" "p" "C" 2 "")

robin43257 · 发表于 2003-5-7 13:06:00

运行后，全部的多线段不管有没有高程都用黄色表示出来了
我把LWPOLYLIN 改成spline结果也是一样，全部的spline都改为黄色。
不知是为什么？

龙龙仔 · 发表于 2003-5-8 16:03:00

;;"LWPOLYLINE"都没有Z坐标
;;选取所有"LWPOLYLINE"储存于变量WW
(setq WW (ssget "x" '((0 . "LWPOLYLINE") (38 . 0))))
;;把所有"LWPOLYLINE"改为黄色
(command "_.CHANGE" WW "" "p" "C" 2 "")

robin43257 · 发表于 2003-5-8 19:40:00

那么对于 spline 线怎样检查它的 Elevation是否为0？

龙龙仔 · 发表于 2003-5-9 12:33:00

(defun TT (/ SS SS1 N)
  (setq SS (ssget "X" '((0 . "SPLINE"))))
  (setq       SS1 (ssadd)
      N 0
  )
  (repeat (sslength SS)
(if       (= 0 (last (cdr (assoc 10 (entget (ssname SS N))))))
   (ssadd (ssname SS N) SS1)
)
(setq N (1+ N))
  )
  SS1
)
(command "_.CHANGE" (TT) "" &quot" "C" 2 "")