[原创]：需要就下载，全部免币！(12.28更新)

hjxhm

不知CAD2005能用吗？

自由的鱼

最初由 hjxhm 发布
[B]不知CAD2005能用吗？ [/B]

不能用于2005

lixiangdfeng

如果在面积查询后增加各种面积单位转换就好了。。。。

hust_laohu

不知道这个程序用处大不大！
cad本身可以查看面积的！

自由的鱼

最初由 hust_laohu 发布
[B]不知道这个程序用处大不大！
cad本身可以查看面积的！ [/B]

当一幅图中有上万个地块要算面积的时候你就知道这个程序有没有用了！

allanlulu

我是从我的导师那里得知这个网站的.我现在的工作涉及大量坐标的标注,我一直找不到好的方法.请教导师后来了这个网站,惊喜的是有这个小程序,郁闷的是不能下载.我没有太多时间逛论坛,所以我估计也赚不到那么多"爱心币",就被硬生生地排除在外了.哎,资源共享的悲哀.我希望论坛里那个老鸟能帮帮我,把上面8、平面坐标注记程序
http://www.xdcad.net/forum/attachme...=&postid=884701
发到我的邮箱,感激不尽.地址是:
allanlulu@21cn.com
资源共享,先进中有些许遗憾....

自由的鱼

最初由 allanlulu 发布
[B]我是从我的导师那里得知这个网站的.我现在的工作涉及大量坐标的标注,我一直找不到好的方法.请教导师后来了这个网站,惊喜的是有这个小程序,郁闷的是不能下载.我没有太多时间逛论坛,所以我估计也赚不到那么多"爱心币",... [/B]

程序已经发到你的信箱，查收！有时间就多到论坛看看，好程序还有很多！

allanlulu

最初由 自由的鱼 发布
[B][QUOTE]最初由 allanlulu 发布
[B]我是从我的导师那里得知这个网站的.我现在的工作涉及大量坐标的标注,我一直找不到好的方法.请教导师后来了这个网站,惊喜的是有这个小程序,郁闷的是不能下载.我没有太多时间... [/B]

收到.非常感谢.待我研究怎么用.

自由的鱼

最初由 allanlulu 发布
[B][QUOTE]最初由 自由的鱼 发布
[B][QUOTE]最初由 allanlulu 发布
[B]我是从我的导师那里得知这个网站的.我现在的工作涉及大量坐标的标注,我一直找不到好的方法.请教导师后来了这个网站,惊喜的是有这?.. [/B]

有问题就告诉我！

yaoyshan

这些功能好像2004里面都有，附加程序太多不好吧？

nksj

晕，我从第1页找到第23页竟然没有找到统计直线长度.dvb的命令，楼主请帮一下。谢谢。

自由的鱼

最初由 nksj 发布
[B]晕，我从第1页找到第23页竟然没有找到统计直线长度.dvb的命令，楼主请帮一下。谢谢。 [/B]

我更晕，一楼最后一个程序就是统计直线长度程序的地址，你点一下就可以下载了！：）

nksj

楼主可能没有听懂我的意思，晕。在CAD里加载“统计直线长度.dvb”程序后，没有命令提示，不知道输入什么，是在命令行：统计直线长度  （回车）吗？：）

自由的鱼

最初由 nksj 发布
[B]楼主可能没有听懂我的意思，晕。在CAD里加载“统计直线长度.dvb”程序后，没有命令提示，不知道输入什么，是在命令行：统计直线长度  （回车）吗？：） [/B]

呵呵，VBA程序就是有这个缺点，你可以打开看看嘛，加载后输入vabide命令就可以看到过程名了，然后在CAD中自定义一个按钮，里面输入-vbarun "thisdrawing.过程名()

xyp1964

[php]
;;;两点及半径画圆
(defun c:test()
  (setq pt1 (getpoint "\n第一点 : ")
        pt2 (getpoint pt1 "\n第二点 : ")
        pt3 (_midp pt1 pt2)
        dist (abs(distance pt1 pt2))
        dist1 (/ (distance pt1 pt2)2)
        rad (ureal 1 "" "\n圆半径" rad)
        )
  (if (< (* 2 rad)dist)
    (progn
      (alert "\n半径太小，程序退出!")
      (exit)
      )
    )
  (setq d (sqrt (- (* rad rad)(* dist1 dist1)))
        ptr1 (polar pt3 (+(angle pt1 pt2)(/ pi 2)) d)
        ptr2 (polar pt3 (-(angle pt1 pt2)(/ pi 2)) d)
        )
  (vl-cmdf "circle""c" ptr1 rad)
  (vl-cmdf "circle""c" ptr2 rad)
  (princ)
  )

;;;
(defun _midp (p1 p2)
  (list        (+ (/ (- (car p1) (car p2)) 2) (car p2))
        (+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2))))
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)

[/php]