找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: 841594

[LISP程序]:这个动态的坐标标注有很多功能可操作起来还是那么简单这才是有原理建筑特

  [复制链接]
发表于 2004-10-25 11:43:16 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有账号?立即注册

×
最初由 zhangyihhh 发布
[B]不能判别世界坐标系和用户坐标系,麻烦修改成无论在当前坐标系还是世界坐标系中标出得坐标都是世界坐标吗? [/B]


没看42楼的?!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2004-10-26 11:43:31 | 显示全部楼层
zb标注只能设置1次出图比例,如果我要修改比例怎么办呢?
建议设置1次,以后可修改,不修改则用上次修改的默认值
字体还是原夹的coord美观,起码可以自定义字体吧!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-12-5 00:52:17 | 显示全部楼层
可不可以把那个标记做小一半?这个太大了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-2-16 20:17:17 | 显示全部楼层
Good and cool
Thanks for you
楼主还有好的东西可分享的吗
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-10 18:28:23 | 显示全部楼层
没有源代码吗,我来这是学习的,这种程序对我们大家没什么帮助!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-4-21 15:21:49 | 显示全部楼层
对源代码感兴趣,程序不感兴趣。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-4-21 19:14:24 | 显示全部楼层
我也看看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-6-21 13:08:05 | 显示全部楼层
下载使用了一下,很实用。谢谢楼主分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-6-21 16:59:19 | 显示全部楼层
最初由 xyp1964 发布
[B]

没看42楼的?! [/B]


按理还是在用户坐标系标注比较方便,比设置倾斜角度方便多了,也方便出图。另外在当前坐标系取得绝对坐标值也很方便。

(setq 绝对标注点 (trans 标注点 1 0))   ;就ok了。

还有,有人问坐标xy反过来,是因为总平上标的是大地坐标系,和cad里面的相反。

我很久前写过一个,在这里:
http://www.xdcad.net/forum/showt ... y=&pagenumber=1
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-6-22 07:24:15 | 显示全部楼层
论坛上坐标标注的外挂很多,不知道楼主的怎么样!!!不过看了演示确实有独到之处!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-8-2 09:51:28 | 显示全部楼层
文字方面的标注横线能不能修改一下啊,总是与屏幕平行的有时并不是很好,很多时候需要他转一个角度才行的,楼主是不是能设置一个开关呢?我支持你

我试用了一下,为什么只有线条没有标注的文字呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-9-15 15:27:55 | 显示全部楼层
不错,谢谢~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-9-16 01:41:45 | 显示全部楼层
我觉得以上坐标标注系统都不好用,其实我们一般搞设计是要标出世界坐标,而且很多坐标要标,所以最主要要标得快,我贴一个比较快的标世界坐标出来。

(defun c:zb
  (princ "无论处于任何用户坐标系统,都能标出世界坐标!")
  (print)

(prompt "\n输入字高:<") (princ (getvar "textsize")) (princ ">")
(setq 输入字高 (getreal))
(if (not 输入字高)
(setq 字高 (getvar "textsize"))
(setq 字高 输入字高)
)
(setq old_dimzin (getvar "dimzin"))
(setvar "dimzin" 1)
(setq 精度 3)
(setvar "cmdecho" 0)
(标注)
)

(defun 标注()
(setq 标注点 (getpoint "\n点取标注点:"))
(if 标注点 (继续) (退出))
)

(defun 继续()
(setq 绝对标注点 (trans 标注点 1 0))
(setq x_坐标值 (rtos (car 绝对标注点) 2 精度))
(setq y_坐标值 (rtos (nth 1 绝对标注点) 2 精度))



(setq 临时起点 (getpoint 标注点 "\n点取标注位置:"))
(setq 引线长度 (distance 标注点 临时起点))
(setq 临时角度 (atof (angtos (angle 标注点 临时起点 ) 0 3)))



(setq 标准角度 (cond ((<= 临时角度 15) 0)
((<= 临时角度 37.5) 30)
((<= 临时角度 52.5) 45)
((<= 临时角度 67.5) 60)
((<= 临时角度 105) 90)
((<= 临时角度 127.5) 120)
((<= 临时角度 141) 135)
((<= 临时角度 165) 150)
((<= 临时角度 195) 180)
((<= 临时角度 217.5) 210)
((<= 临时角度 232.5) 225)
((<= 临时角度 255) 240)
((<= 临时角度 285) 270)
((<= 临时角度 307.5) 300)
((<= 临时角度 322.5) 315)
((<= 临时角度 345) 330)
(0)
)
)


(setq 起点 (polar 标注点 (angtof (itoa 标准角度) 0) 引线长度))


(setq x_字符数 (strlen x_坐标值))
(setq y_字符数 (strlen y_坐标值))
(if (> x_字符数 y_字符数)
(setq 坐标字符数 x_字符数)
(setq 坐标字符数 y_字符数)
)

(setq 坐标字符长 (* 坐标字符数 字高))
(if (and (< 标准角度 270) (> 标准角度 90))
(setq 标注方向 180)
(setq 标注方向 0)
)

(if (= 标注方向 180)
(setq 终点 (list (- (car 起点) 坐标字符长) (nth 1 起点)))
(setq 终点 (list (+ (car 起点) 坐标字符长) (nth 1 起点)))
)


(if (= 标注方向 0) (setq 文字开始点 起点) (setq 文字开始点 终点))
(setq 起点_x (list (car 文字开始点)
(+ (nth 1 文字开始点) (/ 字高 3.5))))
(setq 起点_y (list (car 文字开始点)
(- (nth 1 文字开始点) 字高 (/ 字高 3.5))))


(setq 相差字符数 (abs(- x_字符数 y_字符数)))
(setq 补充空格数 "")
(repeat 相差字符数 (setq 补充空格数 (strcat 补充空格数 " ")))
(if (= 相差字符数 0)
(setq x_c (strcat "Y=" x_坐标值) y_c (strcat "X=" y_坐标值)))

(if (and (/= l 0) (> x_字符数 y_字符数))
(setq x_c (strcat "Y=" x_坐标值)
y_c (strcat "X=" 补充空格数 y_坐标值)))

(if (and (/= l 0) (< x_字符数 y_字符数))
(setq x_c (strcat "Y=" 补充空格数 x_坐标值)
y_c (strcat "X=" y_坐标值)))


(setq OLD_OSMODE (getvar "osmode"))
(setvar "osmode" 0)
(command "_.text" 起点_X 字高 "0" Y_C)
(setq T1 (entlast))
(setq LEN (textbox (list (assoc 1 (entget (entlast))))))
(setq LEN (- (car (nth 1 LEN)) (car (nth 0 LEN))))
(command "_.text" 起点_Y 字高 "0" X_C)
(setq T2 (entlast))
(setq LEN1 (textbox (list (assoc 1 (entget (entlast))))))
(setq LEN1 (- (car (nth 1 LEN1)) (car (nth 0 LEN1))))
(if (> LEN1 LEN)
(setq LEN LEN1)
)
(command "_.line"
标注点
起点
(setq PT (polar 起点 (angle 起点 终点) LEN))
""
)
(if (= 标注方向 180)
(command "_.move"
T1
T2
""
起点_X
(polar 起点_X PI (- (car 起点_X) (car PT)))
)
)
(setvar "osmode" OLD_OSMODE)
(标注)
)


(defun 退出()
(setvar "dimzin" old_dimzin)
(setvar "cmdecho" 1)
(princ)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-9-20 22:03:11 | 显示全部楼层

问:

下后为后缀是VIX的文件对吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-9-20 23:21:49 | 显示全部楼层
后缀是lsp文件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

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

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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