提取曲线等分段点坐标并存盘

;提取曲线等分段点坐标并存盘
;等分数可突破“Measure“及“Divide”命令最大数32767的限制
;在盘结果为：点编号   X   Y，在盘后立即用记事本后打开该文件
;可以用提取的坐标进行施工放样
(defun c:qxcl()
    (vl-load-com)
    (setq cm (getvar "cmdecho") om (getvar "osmode"))
    (setvar "cmdecho" 0) (setvar "osmode" 0)
    (setq ff (open (setq wjm (getfiled "请选择等分点数据存盘文件" "" "txt" 1)) "w")
          en (car (entsel "
请选择要等分段的曲线:"))
          n  (getint "
请输入等分数=") 
    )
    (command "lengthen" en "")
    (setq vob (vlax-ename->vla-object en)
   l   (getvar "perimeter")
   dis (/ l n)       i   0
    )
    (repeat (1+ n)
       (setq pt  (vlax-curve-getpointatdist vob (* i dis)) i (1+ i))
       (princ
           结果按高斯坐标形式在盘
    (strcat (itoa i) "  " (rtos (cadr pt) 2 4) "  " (rtos (car pt) 2 4) "
") ff
           若按迪卡尔坐标（即数学坐标）形式在盘，请用
          (strcat (itoa i) "  " (rtos (car pt) 2 4) "  " (rtos (cadr pt) 2 4) "
") ff
       )
    )
    (close ff)
    (startapp "notepad" wjm)
    (setvar "cmdecho" cm) (setvar "osmode" om) (princ)
)



TAG: 测量