请问加入一段文字写出

adslwang

   请问加入一段文字         "\n多义线<退出> : "            可以原封不动的连带双引号一并写出吗

st788796

把话说完整，输出哪？

adslwang

st788796 发表于 2016-7-24 17:34
把话说完整，输出哪？

(defun C:999()
(vl-load-com)
  (setq ent (car en))
  (setq az (entget (car en)))  
  (setq px (list))  
   (while (assoc 10 az)
    (setq p1 (cdr (assoc 10 az)))  
    (setq px (cons p1 px)))
    (setq px (reverse px))
   (setq vtnn (length PX))
   (setq ffn (getfiled "建立经纬度 [TWD97] 座标点档案" "txt或kml档" "txt" 1))
   (setq ff (open ffn "w"))  
  (setq vtnx1 0)
        (repeat vtnn  
                 (setq vts12 (nth vtnx1 px))  
                (SETQ A22 (CAR VTS12)   
                      B22 (CADR VTS12))
;;转换计算
                (SETQ PKUSEROFF "USEROFF")
                (EN99)
                (SETQ TWD97PEN (STRCAT                              " "  (RTOS latit53 2 6) "," (RTOS long38 2 6)))       ;;写出GOOGLE-纬,经
;;转换计算
                (SETQ TWD97P2X (STRCAT  "第" (RTOS (+ vtnx1 1) 2 0) "点 " (RTOS A22 2 6) "," (RTOS B22 2 6)))             ;;写出图面XY座标
                (command "-color" 191)   ;;G自选无法标示颜色
                (command "text" "j" "mc" (LIST A22 B22) 2 0 (RTOS (+ vtnx1 1) 2 0) "CIRCLE" (LIST A22 B22) 2)
                (IF (= vtnx1 0)
                  (progn
                     (SETQ P2XPEN (STRCAT "第" (RTOS (+ vtnn 1) 2 0) "点 " (RTOS A22 2 6) "," (RTOS B22 2 6) TWD97PEN)) ;;面域接合第一点
                     (princ "\n" ff)));;                  
                ;;;写出=============================================
                (princ TWD97P2X ff)  ;;写入
                (princ "" ff)  ;;空格仅留一格
                (princ TWD97PEN ff)
                (princ "\n" ff)
                (setq vtnx1 (+ vtnx1 1))  
                (if (= vtnn vtnx1)
                (progn
                (princ P2XPEN ff)
                (close ff)))
                ;;;写出=============================================
              ) ;;END REPEAT
   (PRINC))


藉由上面代码选取聚合线点座标并加以转化为经纬度座标与制式kml面域(google erach)方式转接，目前座标转出都没有题，问题出在接合的kml制式代码中有 < > " "等特殊符号。

转出代码如下(蓝色为固定代码)，感谢鼎立相助  
<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://www.opengis.net/kml/2.2"
xmlns:gx="http://www.google.com/kml/ext/2.2">   <!-- required when using gx-prefixed elements -->
  <Document>   
      <name>输入自定义名称</name>
    <Placemark>
      <name>输入自定义名称</name>
      <Polygon>
        <altitudeMode>clampToGround</altitudeMode>
        <outerBoundaryIs>
          <LinearRing>
            <coordinates>
聚合线座标点转出座标点都在这(经纬度)......
   </coordinates>
          </LinearRing>
        </outerBoundaryIs>
      </Polygon>
    </Placemark>
  </Document>
</kml>
我是想把聚合线座标点写出搭配kml档的方式写出，不知道我这样的想法是否正确，感谢。

newer

adslwang 发表于 2016-7-24 19:25
感谢鼎立相助  

   

这些内容你是怎么输出的？ 你要的要加到哪里？ 把你输出部分的代码贴上来。

st788796

adslwang 发表于 2016-7-24 19:25
感谢鼎立相助  

   

acad下最主要的关系应该是空间坐标，其它是形式 ，你说的是

WhoCanSay

猜想 (princ "\"\\n多义线<退出> : \"" )