lisp提取长方形坐标_如何利用lisp程序一次性提取CAD中点的坐标(不要点击每个点,太多了麻烦)...

(DEFUN C:TT ( / ss ff ss1 en pt x y)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(setvar "dimzin" 0)

(vl-load-com);;加载vlax扩展函数

(setq ss (ssget '((0 . "point"))) n 0);;请选择点

(if (/= ss nil)

(progn

(setq ff (open "d://文字到TXT.txt" "w") ss1 '());;在D盘建立记事本《文字到TXT》这里可以查看内容

(repeat (sslength ss);;循环选择

(setq en (ssname ss n) n (+ n 1);;提取图元

pt (cdr (assoc 10 (entget en)));;取得点坐标

ss1 (cons pt ss1);;加入表

)

)

(setq ss1 (vl-sort ss1 (function (lambda (x y)(

(setq ss1 (vl-sort ss1 (function (lambda (x y)(> (cadr x) (cadr y))))));;Y排序从上到下

(foreach en ss1;;函数遍历表,将其中每一个元素依次赋给变量,并对每一个表达式求值

(setq x (rtos (car en) 2 5))

(setq y (rtos (cadr en)2 5));;取得Y坐标精确到小数点后5位

(princ x ff)

(princ "," ff)

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值