[规划工具]：自动标注窗口或全图道路转弯半径,可以过滤指定半径

eachy · 发表于 2002-9-7 14:11:55

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

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

×

拷贝至 XDSoft\Lisp 目录下，加载(load "droadrad")
命令：Ea_dim_filetroad_rad

eachy · 发表于 2002-9-7 14:12:25

运行于2002，图层为 GROUD
如图所示

whczy · 发表于 2005-7-2 21:02:33

楼主
不能支持2004
有点遗憾
能不能改进一下呢

xmchy · 发表于 2005-7-2 23:44:48

对，能不能改成带箭头的半径标注型的！

xyp1964 · 发表于 2005-7-3 02:28:28

[FONT=courier new]
(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
;;;窗选半径标注
(defun c:test ()
(CMDLASC0)
(arcdim)
(setvar"osmode"0)
(mkla"半径标注"3)
(setq ss (ssget '((0 . "CIRCLE,ARC")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt (curve-pt s1 (/ (CURVE-LENG s1) 2))
ps (list s1 pt)
)
(command "dim" "RAD" ps "" "")
)
(CMDLA1)
)
(defun arcdim ()
(setvar "dimasz" (* sc 300))
(setvar "dimblk" ".")
(setvar "dimblk1" ".")
(setvar "dimblk2" ".")
)
[/FONT]

[FONT=courier new] 
(load "xyp_lib") 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 
1.在acad.lsp中增加(load"xyp_lib") 
2.在每个程序内增加(load"xyp_lib") 
3.在command下，输入(load"xyp_lib") 
4.在菜单.mnl中增加(load"xyp_lib") 
5.将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|; 
 
;;;窗选半径标注 
(defun c:test () 
  (CMDLASC0) 
  (arcdim) 
  (setvar"osmode"0) 
  (mkla"半径标注"3) 
  (setq        ss (ssget  '((0 . "CIRCLE,ARC"))) 
        i  -1 
  ) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (setq pt (curve-pt s1 (/ (CURVE-LENG s1) 2)) 
          ps (list s1 pt) 
    ) 
    (command "dim" "RAD" ps "" "") 
 
  ) 
  (CMDLA1) 
) 
 
(defun arcdim () 
  (setvar "dimasz" (* sc 300)) 
  (setvar "dimblk" ".") 
  (setvar "dimblk1" ".") 
  (setvar "dimblk2" ".") 
) 
[/FONT]

jinsong-liao · 发表于 2005-7-5 23:04:09

请问1楼楼主，为何我运行命令选择圆弧后没有任何反应啊？

wudongfeng001 · 发表于 2009-2-6 18:27:04

我觉得这个程序有用！！下载后如何使用？

LGD2727 · 发表于 2009-2-10 18:33:42

我觉得这个程序有用！！下载后如何使用？

five321 · 发表于 2009-2-12 19:30:56

不错就是不知道04能正常运行不

jwq690517 · 发表于 2009-2-13 19:52:42

eachy大侠，能不能抽空给我看看这个帖子（程序有错误，希望高手给修改一下）的附件，贴了很多天了，还是没有解决啊！上次拜你所赐程序，同事们都很高兴，大侠这次也拜托了！

happyboy75 · 发表于 2009-2-16 10:07:05

eachy 能不能做个任意曲线(支持pline arc 能支持spline那就更好了)规划道路交叉口倒角的谢谢了

zh_6531394 · 发表于 2009-2-21 21:06:21

运行命令选择圆弧后没有任何反应啊
选择标注圆弧<回车全选>.....
选择对象: 指定对角点: 找到 3 个
已滤除 3 个。

hcy1119 · 发表于 2009-2-23 13:49:45

帮顶！！

wwk521 · 发表于 2009-4-3 08:54:59

好东西,下下来研究一下

账号		自动登录	找回密码
密码			立即注册

[规划工具]：自动标注窗口或全图道路转弯半径,可以过滤指定半径

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

相关帖子