[求助]cass7.0高程问题

zark

回复 gufeng 的帖子

不是GROUP，如果是GROUP，关闭编辑按道理他是不会一起选中，但事实就会。文字是GC200的一个子图元。

Gu_xl

回复 zark 的帖子

gc200就是属性标志不跟随的属性块！

zark

回复 Gu_xl 的帖子

版主，请问一下能否用LISP实现创建高程点呢？比如该高程点要求实心的，内部用圆环好象，就是跟CASS相似。另一种高程点就是画两个同心圆当高程点。不管是哪种，都要求后面有跟一个注记高程文字，这两个是一体的，不能是编组。能用LISP实现吗

zjlszw

加快的属性，我已经编写过了，也是明经里面看过来的，我发一下源代码给大家看看
(defun c:zgc()
(vl-load-com)
(setq cmde (getvar "cmdecho"))
(setvar "cmdecho" 0)
(srcs)
(jltc)
(tqwj_data)
(command "zoom" "e")
(setvar "cmdecho" cmde)
)
(prompt "请输入<<zgc>>命令来运行本程序")
(defun srcs() ;输入相关参数
(setq hxbl (getint "\n请输入绘图比例尺1:<1000>"))
(if (= hxbl nil) (setq hxbl 1000))
(setq blxs (/ hxbl 1000 1.0))
(setq gcws (getint "\n请输入显示高程位数<3>："))
(if (= gcws nil) (setq gcws 3))
(prin1)
)
(defun jltc() ;建立图层及文字线型
(setq gctc (tblsearch "layer" "gcd"));建立高程图层
(if (= gctc nil) (command "layer" "n" "gcd" "c" "1" "gcd" "l" "continuous" "dmx" "lw" "0.3" "dmx" ""))
(setq chksty (tblsearch "style" "gcd"))
(if (= chksty nil) (command "style" "gcd" "romans,gbcbig" "" "0.7" "" "" "" ""))
(setvar "clayer" "gcd")
  (if (= (tblobjname "block" "gc200") nil)
      (progn (command "donut" "0" (* 0.4 blxs) '(0 0 0) "")
             (setq ksj (ssget "L"))
             (command "attdef" "" "高程值" "高程值" "0.00" (polar '(0 0 0) 0 (* 1.2 blxs)) (* 3 blxs) "0")
             (setq ksj (ssadd (entlast) ksj))
             (command "block" "gc200" '(0 0 0) ksj "")
       )
  )
)
(defun tqwj_data() ;提取高程数据文件并展点
  (setq gcwj (getfiled "请打开需要展点的数据文件" "" "dat" 2))
  (setq ff (open gcwj "r"))
  (setq data (read-line ff))
  (while data   
   (while
   (vl-string-search "," data)
   (setq data (vl-string-subst " " "," data)))
   (setq data (read (strcat "(" data ")")))
   (setq data (list (nth 1 data) (nth 2 data) (nth 3 data)))
   (command "insert" "gc200" data (* 1 blxs) "" "0" (rtos (nth 2 data) 2 gcws))
   (setq data (read-line ff))
  )
  (close ff)
)

李龙山

zjlszw 发表于 2011-7-3 22:31
加快的属性，我已经编写过了，也是明经里面看过来的，我发一下源代码给大家看看
(defun c:zgc()
(vl-loa ...

还是没有出现高程数字？

李龙山

Gu_xl 发表于 2011-4-21 16:16
回复 zark 的帖子

gc200就是属性标志不跟随的属性块！

如何在图形中插入这个块后高程值马上就显示出来，不用cass的重构。

wang_hui

同问16楼问题