lisp提取圆内包的数据_晓东CAD家园-论坛-A/VLISP-lisp 怎么获取圆的坐标写入文本后是一个统一的格式。-(setq tt (open "F:/123.hao" "W")) (...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

(setq tt (open "F:/123.hao" "W"))

(mapcar '(lambda (x)

(setq ent (entget x)

zb (cdr (assoc 10 entt))

xz (car zb)

yz (cadr zb))

(princ "X" tt)

(princ (rtos XZ 2 3) tt)

(princ "Y" tt)

(princ (rtos yZ 2 3) tt)

(princ "\n" tt)

)

lts

)

(close tt)

我写的代码写入格式：

X1.000Y1.000

X-11.000Y-11.000

X111.000Y-111.000

我需要的格式：

X+001.000Y+001.000

X-011.000Y-011.000

X+111.000Y+111.000

即 x坐标 当坐标值为正时 X+000.000

当坐标值为正时 X-000.000

精度格式：+或-000.000

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册