CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
12
返回列表 发新帖
楼主: songwa99

工地形图上同时标注XY坐标小程序

[复制链接]
发表于 2010-8-17 19:25 | 显示全部楼层
goooooooooooooood
发表于 2010-8-18 16:09 | 显示全部楼层
顶,有用,谢谢楼住
发表于 2010-8-28 20:46 | 显示全部楼层
hao a a   好东西啊
发表于 2011-12-17 23:48 | 显示全部楼层
怎么下载不了啊
发表于 2011-12-18 00:06 | 显示全部楼层
下不来
发表于 2011-12-21 16:59 | 显示全部楼层
多谢楼主了 / n! \, D" n8 s1 V' _: a5 X
可我下不了了
发表于 2012-1-6 18:05 | 显示全部楼层
请问大神 文字样式可能设置?默认的格式是哪种?
发表于 2014-5-23 18:25 | 显示全部楼层
为什么不能下载啊?
发表于 2015-7-12 00:12 | 显示全部楼层
de.lsp-在圖上標上座標(xE,yN)/ p9 O% d- p& q0 i

% I* _# S2 x7 A8 U- K* C9 t(defun c:de ()/ s, j- ^# E9 Q4 G  y4 \
     (setvar "cmdecho" 0)# ?, J, A1 n1 _- R+ r, E* z
     (command "osnap" "end")
4 N" ~3 T7 b' H     (setq p1 (getpoint "Select line near endpoint"))+ M# m2 y; J, k' ~" R8 `
     (setq p2 (getpoint p1 "Select cen of Leader"))" F' k+ N& S& F! l
     (setq px (rtos (nth 0 p1 ) 2 4))
7 j; i& O9 |0 i% j! M& L' R# j     (setq py (rtos (nth 1 p1 ) 2 4))  X! a5 X1 Q& @* O( h# P
     (setq txt (strcat "x " px " , " "y " py))
8 O! h. l3 `' w     (command "dim1" "leader" p1 p2 "" txt)
. @3 x8 _+ O! r     (setvar "cmdecho" 1)
/ {6 [( t0 {- O: })
发表于 2015-7-22 09:30 | 显示全部楼层
回复 1# songwa99 0 p5 O" h' D" D2 u
$ V0 I) n- R5 d  a& W# c+ P$ W
% J! Q$ _" }7 A% M- \% C
    支持原创
发表于 2016-6-12 19:42 | 显示全部楼层
看看学习一下!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-11-8 20:10

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

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