玉麒麟卢比奥 发表于 2014-5-6 17:32:45

kwok 发表于 2014-5-6 15:15 static/image/common/back.gif
看看这个是不是，只加了可以输入xyz.
CAD启动指令:   tqzb

感谢大神，问题圆满解决。麻烦各位了！向每位回答的表示感谢！

ll_j 发表于 2014-5-6 17:37:44

玉麒麟卢比奥 发表于 2014-5-6 16:59 static/image/common/back.gif
谢谢！我刚试了半天，不知道应该把这句话加在循环的哪一行。。。大大能不能帮到底，今天晚上交接，实在没 ...

试试：
;;46.2 [功能] pline,lwpline点坐标表By 无痕;;示例(vxs (car (entsel))),返回三维点坐标
(defun vxs (e / i v lst)
(setq i -1)
(while
    (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
   (setq lst (cons v lst))
)
(reverse lst)
)
---------------------------------------------------------
;;;;;;;;;三维顶点输出到文本
(defun c:tqzb (/ ss en ii ptb no pz)
(vl-load-com)
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1))
(setq fff (open wjm "w"))
(setq ss (ssget '((0 . "lwPOLYLINE"))))
(setq ii 0
      no 0
)
(repeat (sslength ss)
    (setq en(ssname ss ii)
          ii(1+ ii)
          ptb (vxs en)
          pz (cdr (assoc 38 (entget en)))
    )
    (foreach pt ptb
      (setq no (1+ no))
      (write-line
      (strcat                         ;(itoa no) ","
          (rtos (car pt) 2 2)
          ","
          (rtos (cadr pt) 2 2)
          ","
          (rtos pz 2 2)
          ","
      )
      fff
      )
    )
    (write-line "" fff)
)
(close fff)
(princ (strcat "\n坐标已存入\"" wjm "\"中"))

(setvar "cmdecho" cm)
(princ)
)

czcxxx 发表于 2015-10-13 16:33:29

谢谢分享！！！！！！！！！！！！！！！
页: 1 [2]
查看完整版本: 【多段线坐标问题】