找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1184|回复: 20

[求助]:如何画图框

[复制链接]
发表于 2003-10-19 21:54:52 | 显示全部楼层 |阅读模式

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

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

×
各位请教一下在cad礼貌如何画一个图框呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2003-10-19 22:34:20 | 显示全部楼层
没看明白你的意思啊!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2003-10-20 08:32:43 | 显示全部楼层
下面是我做的画图框的程序,各个单位可能不一样,不过可以参考一下。但愿对你有用!

  1.   [FONT=courier new]
  2. (defun c:tukuang()
  3. (setq sp(getpoint"\请输入起始点<0,0,0>:"))
  4. (if (null sp)
  5.   (progn
  6.     (setq x 0 y 0)
  7.   )
  8.   (progn
  9.     (setq x (car sp) y (cadr sp))
  10.   )
  11. )
  12. (setq scale(getreal"\nThe scale<10>:"))
  13. (if (null scale)
  14.   (setq scale 10)
  15. )
  16. (setq cm (getvar "cmdecho"))
  17. (setvar "cmdecho" 0)
  18. (setq os (getvar"osmode"))
  19. (setvar "osmode"0)
  20. (setq orth (getvar"orthomode"))
  21. (setvar "orthomode"0)
  22. (command "undo" "group")
  23. (command "color""7")
  24. (command "-linetype""set""continuous""")
  25. (command "RECTANGLE"(list x y) (list(+ x (* scale 42)) (+ y (* scale 29.7))))
  26. (command "color""5")
  27. (command "RECTANGLE"(list(+ x (* scale 3)) (+ y (* scale 1))) (list(+ x (* scale 41)) (+ y (* scale 28.7))))
  28. (command "color""1")
  29. (command "line"(list(+ x (* scale 3)) (+ y (* scale 2))) (list(+ x (* scale 41)) (+ y (* scale 2)))"")
  30. (command "line"(list(+ x (* scale 11)) (+ y (* scale 2))) (list(+ x (* scale 11)) (+ y (* scale 1)))"")
  31. (command "line"(list(+ x (* scale 19)) (+ y (* scale 2))) (list(+ x (* scale 19)) (+ y (* scale 1)))"")
  32. (command "line"(list(+ x (* scale 20.5)) (+ y (* scale 2))) (list(+ x (* scale 20.5)) (+ y (* scale 1)))"")
  33. (command "line"(list(+ x (* scale 22.5)) (+ y (* scale 2))) (list(+ x (* scale 22.5)) (+ y (* scale 1)))"")
  34. (command "line"(list(+ x (* scale 24)) (+ y (* scale 2))) (list(+ x (* scale 24)) (+ y (* scale 1)))"")
  35. (command "line"(list(+ x (* scale 26)) (+ y (* scale 2))) (list(+ x (* scale 26)) (+ y (* scale 1)))"")
  36. (command "line"(list(+ x (* scale 28)) (+ y (* scale 2))) (list(+ x (* scale 28)) (+ y (* scale 1)))"")
  37. (command "line"(list(+ x (* scale 30)) (+ y (* scale 2))) (list(+ x (* scale 30)) (+ y (* scale 1)))"")
  38. (command "line"(list(+ x (* scale 32)) (+ y (* scale 2))) (list(+ x (* scale 32)) (+ y (* scale 1)))"")
  39. (command "line"(list(+ x (* scale 34)) (+ y (* scale 2))) (list(+ x (* scale 34)) (+ y (* scale 1)))"")
  40. (command "line"(list(+ x (* scale 35.5)) (+ y (* scale 2))) (list(+ x (* scale 35.5)) (+ y (* scale 1)))"")
  41. (command "line"(list(+ x (* scale 37.5)) (+ y (* scale 2))) (list(+ x (* scale 37.5)) (+ y (* scale 1)))"")
  42. (command "line"(list(+ x (* scale 39)) (+ y (* scale 2))) (list(+ x (* scale 39)) (+ y (* scale 1)))"")
  43. (command"-style""""txt,tjhzd""0""0.58""""""")
  44. (command "color""7")
  45. (command"-style""""txt,tjhzd""0""0.58""""""")
  46. (command"text""j""mc"(list(+ x (* scale 27)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "专业负责人")
  47. (command"text""j""mc"(list(+ x (* scale 31)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "项目负责人")
  48. (command"-style""""""0""0.7""""""")
  49. (command"text""j""mc"(list(+ x (* scale 19.75)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "设 计")
  50. (command"text""j""mc"(list(+ x (* scale 23.25)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "复 核")
  51. (command"text""j""mc"(list(+ x (* scale 34.75)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "审 核")
  52. (command"text""j""mc"(list(+ x (* scale 38.25)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "图 号")
  53. (command"-style""""""0""0.43""""""")
  54. (command"text""j""mc"(list(+ x (* scale 7)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "树屏至徐家磨二级汽车专用公路改造工程两阶段施工图设计")
  55. (command"-style""""""0""0.75""""""")
  56. (command"text""j""mc"(list(+ x (* scale 15)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "中国兰天")
  57. (command"text""j""f"(list(+ x (* scale 39)) (+ y (* scale 1.15))) (list(+ x (* scale 40.96)) (+ y (* scale 1.15))) (* 0.7 scale) "S7-3-24(4)")
  58. (command"-linetype""set""bylayer""")
  59. (command "color""bylayer")
  60. (command "undo" "end")
  61. (setvar "cmdecho" cm)
  62. (setvar "osmode"os)
  63. (setvar "orthomode"orth)
  64. (princ)
  65. )
  66.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-10-20 08:34:30 | 显示全部楼层
最好定义成属性块,  在图纸插入. 其细节应符合用户公司的规定或标准
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-10-20 08:48:11 | 显示全部楼层
最初由 lsjjm 发布
[B]最好定义成属性块,  在图纸插入. 其细节应符合用户公司的规定或标准 [/B]


定义成属性块也有一个不好处,就是,标题栏要改动的部分,有的时候可能比较长,有的时候却是比较短。还不如直接定义成块,而将那些要改动的地方不定义,自己填写。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-10-20 09:31:29 | 显示全部楼层
我一般都是在图纸空间画好图框,而在模型空间画图。这是最好的办法。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-10-20 09:54:53 | 显示全部楼层
7楼: 我是两者都用(前发过编程的贴子)  一般经常的重复的操作还是做块好.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2003-10-20 11:06:45 | 显示全部楼层
lt_zzy 斑竹:不好意思,提点看法。
程序不够通用,当然你也说明了,但程序中的设置也不够通用。
这是程序执行后的提示:
命令: tukuang
请输入起始点<0,0,0>:
The scale<10>:
tjhzd 是常规字体,不是大字体。未知命令“0”。按 F1 查看帮助。
未知命令“0.58”。按 F1 查看帮助。
未知命令“TUKUANG”。按 F1 查看帮助。
未知命令“TUKUANG”。按 F1 查看帮助。
未知命令“TUKUANG”。按 F1 查看帮助。
tjhzd 是常规字体,不是大字体。未知命令“0”。按 F1 查看帮助。
未知命令“0.58”。按 F1 查看帮助。
未知命令“TUKUANG”。按 F1 查看帮助。
未知命令“TUKUANG”。按 F1 查看帮助。
未知命令“TUKUANG”。按 F1 查看帮助。

请回答“是”或“否”。
; 错误: 函数被取消
是否垂直? <N>

用程序是个好办法,只是要具通用性。我觉得天正建筑的Title.lsp很好,只是需要用户修改一下。我这么改装了一下:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2003-10-20 11:33:42 | 显示全部楼层
天正的程序不修改,是不能插入边式标题栏的。因为边式标题栏A0、A1、A2、A3、A4不宜用同一个标题栏图块,那样太难看了。

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-23 10:26 , Processed in 0.352106 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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