请教 (B1 C2 D3)转为 “B1” “C2” “D3”
本帖最后由 zxjing 于 2011-3-22 13:10 编辑;道路断面
;插入道路断面
(defun c:tt ()
(vl-load-com)
;;;(setq cmd_bak (getvar "cmdecho"))
;;;(setq os_bak (getvar "osmode"))
;;;(setvar "cmdecho" 0)
;;;(setvar "osmode" 0)
;;;(if (= (tblobjname "layer" "道路控制指标表") nil)
;;; (command "-layer" "m" "道路控制指标表" "c" "7" "" "")
;;; (setvar "clayer" "道路控制指标表")
;;;)
(while (setq str (getstring "\n请输入断面符号："))
(while (vl-string-search "," (setq str (vl-string-subst " " "," str))))
(setq i 0)
(setq str1 (mapcar '(lambda(x)(set(read(strcat"dl"(itoa(setq i(1+ i)))))x))(read (strcat"(" str ")"))))
(setq i 0)
(repeat (length (setq str1(reverse str1)))
(print (setq duanmian (nth i str1)))；这一步得到的值不对
;;; (set duanmian (strcat ""(read duanmian)))
;;; (vl-symbol-name'symbol)
(setq duanmian (vl-symbol-name(list duanmian)))
(setq duanmian (strcat "道路断面" duanmian))
(command "-insert" duanmian pt1 "1" "1" "0")
(setq pt1 (polar pt1 (/ pi 2) 3.5))
(setq i (1+ i))
)
(command "-insert" "道路断面表头" pt1 "1" "1" "0")
(setvar "osmode" 32)
(setq pt1 (getpoint "\n 请输入插入点"))
)
(setvar "cmdecho" cmd_bak)
(setvar "osmode" os_bak)
)
回复 zxjing 的帖子
(mapcar 'vl-princ-to-string '(B1 C2 D3))
回复 redcat 的帖子
谢谢你了~
页:
[1]