明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1971|回复: 3

多段线节点坐标提取

[复制链接]
发表于 2018-5-15 19:19 | 显示全部楼层 |阅读模式
(defun c:jdzbtq();;;节点坐标提取
  (vl-load-com)
  (setvar "cmdecho" 0)
  (COMMAND ".UNDO" "BE")
  (setvar "dimzin" 0)
  (princ "\n 选取PLINE多段线...")
  (setq ss (ssget '((0 . "LWPOLYLINE"))))
  (if (/= ss nil)
  (progn
  (setq fn (getfiled "\n 文件保存为" "d:/多段线节点坐标" "txt" 1))
  (setq ff  (open fn "w"))
  ;;(princ "点号,X坐标,Y坐标" ff)
  ;;(princ "\n" ff)  ;换一行输入
  (setq s1(mapcar'(lambda(x)(cons x (plinexy x)))(sstoes ss)) i 0 pp 0)
  (repeat(length s1)
    (setq ss(nth i s1) h(dxf (car ss) 38) nn 0)
    (repeat (length(cdr ss))
      ;;(setq str(strcat(itoa (+ pp 1))","(itoa (+ i 1))","(rtos(cadr(nth nn(cdr ss)))2 4)","(rtos(car(nth nn(cdr ss)))2 4)","(rtos h 2 3)) nn(+ nn 1)  pp(+ pp 1))
      (setq str(strcat(itoa (+ pp 1))","(rtos(car(nth nn(cdr ss)))2 4)","(rtos(cadr(nth nn(cdr ss))) 2 4)) nn(+ nn 1)  pp(+ pp 1))
      (write-line str ff))
    (setq i(+ i 1))
  )
  (close ff)
  (princ "\n  cass数据格式导出完成!")
  (startapp "notepad.exe" fn)
  )
)
  (princ)
)

(defun lst-(l1 l2)(if l2(foreach x l2(setq l1(vl-remove x l1)))l1))
(defun dxf (ent i) (if(= (type ent) 'ename) (setq ent (entget ent)) )  (cdr (assoc i ent)) )
(defun SstoEs(ss / a lst)
  (if ss(progn(setq a -1)(repeat(sslength ss)(setq lst(cons(ssname ss(setq a(1+ a)))lst))))))
(defun plinexy(e / a q m p p1)
    (setq a(vlax-ename->vla-object e)
          q(vlax-safearray->list(vlax-variant-value(vla-get-Coordinates a)))
          m(if(=(vla-get-objectname a)"AcDb3dPolyline")
             '(setq p1(list (car q)(cadr q)(caddr q))q(cdddr q))
             '(setq p1(list (car q)(cadr q))q (cddr q))))
    (while q(eval m) (setq p(if(member p1 p)p(append p(list p1))))))

发表于 2022-4-26 12:56 | 显示全部楼层
能在图中增加节点编号功能吗?工作中用的比较多
发表于 2023-2-22 16:53 | 显示全部楼层
大佬,能改成以米为单位,保留三位小数吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:42 , Processed in 0.172689 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表